ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-07 07:30:23 +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} :: {$poke wire dock pear} ::
{$wipe wire @p $~} :: {$wipe wire @p $~} ::
{$wait wire @da} :: {$wait wire @da} ::
{$warp wire sock riff} :: {$warp wire ship sock riff} ::
== :: == ::
++ pear :: poke fruit ++ pear :: poke fruit
$% {$hall-command command:hall} :: $% {$hall-command command:hall} ::
@ -222,7 +222,7 @@
++ subscribe-next ++ subscribe-next
%- emit %- emit
^- card ^- card
:* %warp /kiln/autoload [our our] %home ~ :* %warp /kiln/autoload our [our our] %home ~
%next %z da+now /sys %next %z da+now /sys
== ==
:: ::
@ -349,7 +349,7 @@
%- blab :_ ~ %- blab :_ ~
:* ust %warp :* ust %warp
/kiln/sync/[syd]/(scot %p her)/[sud] /kiln/sync/[syd]/(scot %p her)/[sud]
[our her] sud ~ our [our her] sud ~
== ==
:: ::
++ start-track ++ start-track
@ -358,7 +358,7 @@
%- blab %- blab
:~ :* ost %warp :~ :* ost %warp
/kiln/sync/[syd]/(scot %p her)/[sud] /kiln/sync/[syd]/(scot %p her)/[sud]
[our her] sud ~ %sing %y ud+let / our [our her] sud ~ %sing %y ud+let /
== == == ==
:: ::
++ start-sync ++ start-sync
@ -367,7 +367,7 @@
%- blab %- blab
:~ :* ost %warp :~ :* ost %warp
[%kiln %sync syd (scot %p her) sud ?:(reset /reset /)] [%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 ++ writ
@ -414,7 +414,7 @@
%- blab :_ ~ %- blab :_ ~
:* ost %warp :* ost %warp
/kiln/sync/[syd]/(scot %p her)/[sud] /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 $: $c :: to %clay
$% {$info p/@p q/@tas r/nori} :: internal edit $% {$info p/@p q/@tas r/nori} :: internal edit
{$merg p/@p q/@tas r/@p s/@tas t/case u/germ} :: merge desks {$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 :: $: $d ::
$% {$flog p/{$crud p/@tas q/(list tank)}} :: to %dill $% {$flog p/{$crud p/@tas q/(list tank)}} :: to %dill
@ -2777,7 +2777,7 @@
%- emit(wat.dat %ali) %- emit(wat.dat %ali)
:* hen %pass :* hen %pass
[%merge (scot %p p.bob) q.bob (scot %p p.ali) q.ali %ali ~] [%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 /] `[%sing %v cas.dat /]
== ==
:: ::
@ -3709,18 +3709,18 @@
:: ::
$warp $warp
=^ mos ruf =^ mos ruf
=+ den=((de now hen ruf) p.q.hic p.q.q.hic) =+ den=((de now hen ruf) q.q.hic p.r.q.hic)
:: =- ~? ?=([~ %sing %w *] q.q.q.hic) :: =- ~? ?=([~ %sing %w *] q.r.q.hic)
:: :* %someones-warping :: :* %someones-warping
:: rav=u.q.q.q.hic :: rav=u.q.r.q.hic
:: mos=-< :: mos=-<
:: == :: ==
:: - :: -
=< abet =< abet
?~ q.q.q.hic ?~ q.r.q.hic
cancel-request:den cancel-request:den
=+ for=?:(=(p.p.q.hic q.p.q.hic) ~ `q.p.q.hic) =+ for=?:(=(p.q.hic p.q.q.hic) ~ `p.q.hic)
(start-request:den for u.q.q.q.hic) (start-request:den for u.q.r.q.hic)
[mos ..^$] [mos ..^$]
:: ::
$went $went
@ -3735,8 +3735,7 @@
:- hen :- hen
:^ %pass [(scot %p p.p.q.hic) (scot %p q.p.q.hic) t.q.q.hic] :^ %pass [(scot %p p.p.q.hic) (scot %p q.p.q.hic) t.q.q.hic]
%c %c
::TODO ...so, this circumvents permission checks? [%warp q.p.q.hic [p.p.q.hic p.p.q.hic] ryf]
[%warp [p.p.q.hic p.p.q.hic] ryf]
== ==
?> ?=({$answer @ @ $~} q.q.hic) ?> ?=({$answer @ @ $~} q.q.hic)
=+ syd=(slav %tas i.t.q.q.hic) =+ syd=(slav %tas i.t.q.q.hic)

4
sys/vane/dill.hoon
View File

@ -47,7 +47,7 @@
== :: == ::
++ note-clay :: ++ note-clay ::
$% {$merg p/@p q/@tas r/@p s/@tas t/case u/germ:clay}:: merge desks $% {$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 ++ note-dill :: note to self, odd
$% {$crud p/@tas q/(list tank)} :: $% {$crud p/@tas q/(list tank)} ::
@ -297,7 +297,7 @@
%pass %pass
/ /
%c %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 ++ move {p/duct q/(wind note gift:able)} :: local move
++ note :: out request $-> ++ note :: out request $->
$% $: $c :: to %clay $% $: $c :: to %clay
$% {$warp p/sock q/riff:clay} :: $% {$warp p/ship q/sock r/riff:clay} ::
== == :: == == ::
$: $f :: to %ford $: $f :: to %ford
$% {$exec p/@p q/(unit bilk:ford)} :: $% {$exec p/@p q/(unit bilk:ford)} ::
@ -294,7 +294,7 @@
|= {ren/care:clay bem/beam ask/?} |= {ren/care:clay bem/beam ask/?}
:: ~& warp+[(en-beam bem) ask] :: ~& warp+[(en-beam bem) ask]
:+ %pass [(scot %p our) ren (en-beam bem)] :+ %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 ++ zo
@ -321,7 +321,7 @@
|= {van/vane ren/care:clay bem/beam} |= {van/vane ren/care:clay bem/beam}
^- (wind note gift:able) ^- (wind note gift:able)
?+ van ~|(stub-cancel+van !!) ?+ 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 ~]]] $g [%pass (camp-wire +<) van [%deal [our p.bem] q.bem [%pull ~]]]
== ==
:: ::
@ -351,7 +351,7 @@
:: ::
$c $c
:+ %pass (camp-wire +<.$) :+ %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 {$dirk p/desk} :: mark mount dirty
{$ogre p/$@(desk beam)} :: delete mount point {$ogre p/$@(desk beam)} :: delete mount point
{$perm our/ship des/desk pax/path rit/rite} :: change permissions {$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 {$wegh $~} :: report memory
{$went p/sack q/path r/@ud s/coop} :: response confirm {$went p/sack q/path r/@ud s/coop} :: response confirm
{$west p/sack q/path r/*} :: network request {$west p/sack q/path r/*} :: network request