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

Implement requests for reading and writing permission groups.

Browse Source
This commit is contained in:
Fang 2018-02-07 21:07:42 +01:00
parent 8b0b82eb72
commit 3f7e76cca5
2 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
sys/vane/clay.hoon
View File

@ -3535,6 +3535,23 @@
$boat
:_ ..^$
[hen %give %hill (turn ~(tap by mon.ruf) head)]~
::.
$cred
=. cez.ruf
?~ cew.q.hic (~(del by cez.ruf) nom.q.hic)
(~(put by cez.ruf) nom.q.hic cew.q.hic)
:: wake all desks, a request may have been affected.
=| mos/(list move)
=+ rom=(fall (~(get by fat.ruf) our.q.hic) *room)
=+ des=~(tap in ~(key by dos.rom))
|-
?~ des [[[hen %give %mack ~] mos] ..^^$]
=+ den=((de now hen ruf) [. .]:our.q.hic i.des)
=^ mor ruf abet:wake:den
$(des t.des, mos (weld mos mor))
::
$crew
[[hen %give %cruz cez.ruf]~ ..^$]
::
$drop
=^ mos ruf

6
sys/zuse.hoon
View File

@ -381,7 +381,7 @@
++ able ^?
|%
++ gift :: out result <-$
$% {$cruz cez/(map @tas crew)} :: permission groups
$% {$cruz cez/(map @ta crew)} :: permission groups
{$dirk p/@tas} :: mark mount dirty
{$ergo p/@tas q/mode} :: version update
{$hill p/(list @tas)} :: mount points
@ -397,8 +397,8 @@
== ::
++ task :: in request ->$
$% {$boat $~} :: pier rebooted
{$cred nom/@ta cew/crew} :: set permission group
{$crew $~} :: permission groups
{$cred our/ship nom/@ta cew/crew} :: set permission group
{$crew our/ship} :: permission groups
{$drop p/@p q/desk} :: cancel pending merge
{$info p/@p q/desk r/nori} :: internal edit
{$init p/@p} :: report install