urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-01 14:42:02 +03:00
Code Issues Packages Projects Releases Wiki Activity

adds scry-desks feature to %clay (care %d)

Browse Source 
.^((set desk) %cd /===)
This commit is contained in:
Joseph Bryan 2017-01-04 02:08:40 -05:00
parent c098a3c80c
commit 10733de39d
2 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
sys/vane/clay.hoon
View File

@ -44,12 +44,13 @@
:: ::
:: Type of request. :: Type of request.
:: ::
:: %u checks for existence, %v produces a ++dome of all desk data, %w with a :: %d produces a set of desks, %u checks for existence, %v produces a ++dome of
:: time or label case gets the aeon at that case, %w with a number case is not :: all desk data, %w with a time or label case gets the aeon at that case, %w
:: recommended, %x gets file contents, %y gets a directory listing, and %z gets :: with a number case is not recommended, %x gets file contents, %y gets a
:: a recursive hash of the file contents and children. :: directory listing, and %z gets a recursive hash of the file contents and
:: children.
:: ::
++ care ?($u $v $w $x $y $z) :: ++ care ?($d $u $v $w $x $y $z)
:: ::
:: Keeps track of subscribers. :: Keeps track of subscribers.
:: ::
@ -1393,6 +1394,9 @@
(~(put by haw.u.ref) p.rav ~) (~(put by haw.u.ref) p.rav ~)
== ==
?- p.p.u.rut ?- p.p.u.rut
$d
~| %totally-temporary-error-please-replace-me
!!
$u $u
~| %im-thinkin-its-prolly-a-bad-idea-to-request-rang-over-the-network ~| %im-thinkin-its-prolly-a-bad-idea-to-request-rang-over-the-network
!! !!
@ -2118,6 +2122,8 @@
++ read :: read:ze ++ read :: read:ze
|= mun/mood :: read at point |= mun/mood :: read at point
^- (unit cage) ^- (unit cage)
?: ?=($d p.mun)
~& %dead-d ~
?: ?=($v p.mun) ?: ?=($v p.mun)
[~ %dome !>(dom)] :: dead code [~ %dome !>(dom)] :: dead code
?: &(?=($w p.mun) !?=($ud -.q.mun)) ?: &(?=($w p.mun) !?=($ud -.q.mun))
@ -2279,6 +2285,13 @@
^- (unit (unit (each cage lobe))) ^- (unit (unit (each cage lobe)))
?: &(?=($w p.mun) !?=($ud -.q.mun)) :: NB only her speed ?: &(?=($w p.mun) !?=($ud -.q.mun)) :: NB only her speed
?^(r.mun [~ ~] [~ ~ %& %aeon !>(yon)]) ?^(r.mun [~ ~] [~ ~ %& %aeon !>(yon)])
?: ?=($d p.mun)
=+ rom=(~(get by fat.ruf) her)
?~ rom
~&(%null-rom-cd [~ ~])
?^ r.mun
~&(%no-cd-path [~ ~])
[~ ~ %& %noun !>(~(key by dos.u.rom))]
?: ?=($u p.mun) ?: ?=($u p.mun)
(read-u yon r.mun) (read-u yon r.mun)
?: ?=($v p.mun) ?: ?=($v p.mun)

2
sys/zuse.hoon
View File

@ -326,7 +326,7 @@
$% {$delta p/lobe q/{p/mark q/lobe} r/page} :: delta on q $% {$delta p/lobe q/{p/mark q/lobe} r/page} :: delta on q
{$direct p/lobe q/page} :: immediate {$direct p/lobe q/page} :: immediate
== :: == ::
++ care ?($u $v $w $x $y $z) :: clay submode ++ care ?($d $u $v $w $x $y $z) :: clay submode
++ case :: ship desk case spur ++ case :: ship desk case spur
$% {$da p/@da} :: date $% {$da p/@da} :: date
{$tas p/@tas} :: label {$tas p/@tas} :: label