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

included full group information in scry

Browse Source
This commit is contained in:
Isaac Visintainer 2018-06-19 14:43:16 -07:00
parent 4d11928db6
commit 43b3a84db5
2 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
sys/vane/clay.hoon
View File

@ -2370,20 +2370,19 @@
(read-p-in pax pew.red) (read-p-in pax pew.red)
:: ::
++ read-p-in ++ read-p-in
!:
|= {pax/path pes/regs} |= {pax/path pes/regs}
^- dict ^- dict
=/ rul=(unit rule) (~(get by pes) pax) =/ rul=(unit rule) (~(get by pes) pax)
?^ rul ?^ rul
:+ pax mod.u.rul :+ pax mod.u.rul
%- ~(rep in who.u.rul) %- ~(rep in who.u.rul)
|= {w/whom out/(set @p)} |= {w/whom out/(pair (set @p) (map @ta crew))}
?: ?=([$& @p] w) ?: ?=([$& @p] w)
(~(put in out) +.w) [(~(put in p.out) +.w) q.out]
=/ cru=(unit (set @p)) (~(get by cez.ruf) +.w) =/ cru=(unit crew) (~(get by cez.ruf) +.w)
?~ cru out ?~ cru out
(~(uni in out) u.cru) [p.out (~(put by q.out) +.w u.cru)]
?~ pax [/ %white ~] ?~ pax [/ %white ~ ~]
$(pax (scag (dec (lent pax)) `path`pax)) $(pax (scag (dec (lent pax)) `path`pax))
:: ::
++ may-read ++ may-read
@ -2417,7 +2416,13 @@
|= {who/ship pax/path pes/regs} |= {who/ship pax/path pes/regs}
^- ? ^- ?
=/ rul=real rul:(read-p-in pax pes) =/ rul=real rul:(read-p-in pax pes)
=/ in-list=? (~(has in who.rul) who) =/ in-list=?
?| (~(has in p.who.rul) who)
%- ~(rep by q.who.rul)
|= [[@ta cru=crew] out=_|]
?: out &
(~(has in cru) who)
==
?: =(%black mod.rul) ?: =(%black mod.rul)
!in-list !in-list
in-list in-list

5
sys/zuse.hoon
View File

@ -508,7 +508,10 @@
{$mult p/mool} :: next version of any {$mult p/mool} :: next version of any
{$many p/? q/moat} :: track range {$many p/? q/moat} :: track range
== :: == ::
++ real {mod/?($black $white) who/(set ship)} :: resolved permissions ++ real :: resolved permissions
$: mod/?($black $white) ::
who/(pair (set ship) (map @ta crew)) ::
== ::
++ regs (map path rule) :: rules for paths ++ regs (map path rule) :: rules for paths
++ riff {p/desk q/(unit rave)} :: request+desist ++ riff {p/desk q/(unit rave)} :: request+desist
++ rite :: new permissions ++ rite :: new permissions