ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-05 13:55:54 +03:00
Code Issues Packages Projects Releases Wiki Activity

Add requester ship to clay's %warp task to aid in permission checks for %wests.

Browse Source
This commit is contained in:
Fang 2018-02-08 00:42:40 +01:00
parent f0ee403285
commit 91fe74d7d6
5 changed files with 22 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/hood/kiln.hoon
View File

@ -70,7 +70,7 @@
{$poke wire dock pear} ::
{$wipe wire @p $~} ::
{$wait wire @da} ::
{$warp wire sock riff} ::
{$warp wire ship sock riff} ::
== ::
++ pear :: poke fruit
$% {$hall-command command:hall} ::
@ -222,7 +222,7 @@
++ subscribe-next
%- emit
^- card
:* %warp /kiln/autoload [our our] %home ~
:* %warp /kiln/autoload our [our our] %home ~
%next %z da+now /sys
==
::
@ -349,7 +349,7 @@
%- blab :_ ~
:* ust %warp
/kiln/sync/[syd]/(scot %p her)/[sud]
[our her] sud ~
our [our her] sud ~
==
::
++ start-track
@ -358,7 +358,7 @@
%- blab
:~ :* ost %warp
/kiln/sync/[syd]/(scot %p her)/[sud]
[our her] sud ~ %sing %y ud+let /
our [our her] sud ~ %sing %y ud+let /
== ==
::
++ start-sync
@ -367,7 +367,7 @@
%- blab
:~ :* ost %warp
[%kiln %sync syd (scot %p her) sud ?:(reset /reset /)]
[our her] sud ~ %sing %w [%da now] /
our [our her] sud ~ %sing %w [%da now] /
== ==
::
++ writ
@ -414,7 +414,7 @@
%- blab :_ ~
:* ost %warp
/kiln/sync/[syd]/(scot %p her)/[sud]
[our her] sud ~ %sing %y ud+let /
our [our her] sud ~ %sing %y ud+let /
==
--
::

19
sys/vane/clay.hoon
View File

@ -329,7 +329,7 @@
$: $c :: to %clay
$% {$info p/@p q/@tas r/nori} :: internal edit
{$merg p/@p q/@tas r/@p s/@tas t/case u/germ} :: merge desks
{$warp p/sock q/riff} ::
{$warp p/ship q/sock r/riff} ::
== == ::
$: $d ::
$% {$flog p/{$crud p/@tas q/(list tank)}} :: to %dill
@ -2777,7 +2777,7 @@
%- emit(wat.dat %ali)
:* hen %pass
[%merge (scot %p p.bob) q.bob (scot %p p.ali) q.ali %ali ~]
%c %warp [p.bob p.ali] q.ali
%c %warp p.bob [p.bob p.ali] q.ali
`[%sing %v cas.dat /]
==
::
@ -3709,18 +3709,18 @@
::
$warp
=^ mos ruf
=+ den=((de now hen ruf) p.q.hic p.q.q.hic)
:: =- ~? ?=([~ %sing %w *] q.q.q.hic)
=+ den=((de now hen ruf) q.q.hic p.r.q.hic)
:: =- ~? ?=([~ %sing %w *] q.r.q.hic)
:: :* %someones-warping
:: rav=u.q.q.q.hic
:: rav=u.q.r.q.hic
:: mos=-<
:: ==
:: -
=< abet
?~ q.q.q.hic
?~ q.r.q.hic
cancel-request:den
=+ for=?:(=(p.p.q.hic q.p.q.hic) ~ `q.p.q.hic)
(start-request:den for u.q.q.q.hic)
=+ for=?:(=(p.q.hic p.q.q.hic) ~ `p.q.hic)
(start-request:den for u.q.r.q.hic)
[mos ..^$]
::
$went
@ -3735,8 +3735,7 @@
:- hen
:^ %pass [(scot %p p.p.q.hic) (scot %p q.p.q.hic) t.q.q.hic]
%c
::TODO ...so, this circumvents permission checks?
[%warp [p.p.q.hic p.p.q.hic] ryf]
[%warp q.p.q.hic [p.p.q.hic p.p.q.hic] ryf]
==
?> ?=({$answer @ @ $~} q.q.hic)
=+ syd=(slav %tas i.t.q.q.hic)

4
sys/vane/dill.hoon
View File

@ -47,7 +47,7 @@
== ::
++ note-clay ::
$% {$merg p/@p q/@tas r/@p s/@tas t/case u/germ:clay}:: merge desks
{$warp p/sock q/riff:clay} :: wait for clay hack
{$warp p/ship q/sock r/riff:clay} :: wait for clay hack
== ::
++ note-dill :: note to self, odd
$% {$crud p/@tas q/(list tank)} ::
@ -297,7 +297,7 @@
%pass
/
%c
[%warp [our our] %base `[%sing %y [%ud 1] /]]
[%warp our [our our] %base `[%sing %y [%ud 1] /]]
==
==
::

8
sys/vane/ford.hoon
View File

@ -12,7 +12,7 @@
++ move {p/duct q/(wind note gift:able)} :: local move
++ note :: out request $->
$% $: $c :: to %clay
$% {$warp p/sock q/riff:clay} ::
$% {$warp p/ship q/sock r/riff:clay} ::
== == ::
$: $f :: to %ford
$% {$exec p/@p q/(unit bilk:ford)} ::
@ -294,7 +294,7 @@
|= {ren/care:clay bem/beam ask/?}
:: ~& warp+[(en-beam bem) ask]
:+ %pass [(scot %p our) ren (en-beam bem)]
[%c [%warp [our p.bem] q.bem ?.(ask ~ `[%next ren r.bem (flop s.bem)])]]
[%c [%warp our [our p.bem] q.bem ?.(ask ~ `[%next ren r.bem (flop s.bem)])]]
::
::
++ zo
@ -321,7 +321,7 @@
|= {van/vane ren/care:clay bem/beam}
^- (wind note gift:able)
?+ van ~|(stub-cancel+van !!)
$c [%pass (camp-wire +<) van [%warp [our p.bem] q.bem ~]]
$c [%pass (camp-wire +<) van [%warp our [our p.bem] q.bem ~]]
$g [%pass (camp-wire +<) van [%deal [our p.bem] q.bem [%pull ~]]]
==
::
@ -351,7 +351,7 @@
::
$c
:+ %pass (camp-wire +<.$)
[%c [%warp [our p.bem] q.bem [~ %sing ren r.bem (flop s.bem)]]]
[%c [%warp our [our p.bem] q.bem [~ %sing ren r.bem (flop s.bem)]]]
==
==
::

2
sys/zuse.hoon
View File

@ -408,7 +408,7 @@
{$dirk p/desk} :: mark mount dirty
{$ogre p/$@(desk beam)} :: delete mount point
{$perm our/ship des/desk pax/path rit/rite} :: change permissions
{$warp p/sock q/riff} :: file request
{$warp p/ship q/sock r/riff} :: file request.
{$wegh $~} :: report memory
{$went p/sack q/path r/@ud s/coop} :: response confirm
{$west p/sack q/path r/*} :: network request