urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-02 09:32:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

Maintain old %warp interface. Use %werp for %west read requests.

Browse Source 
This also makes live-updating to this new clay easier.
This commit is contained in:
Fang 2018-02-08 17:10:09 +01:00
parent 97eb2a91ae
commit aa2843fedb
5 changed files with 37 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lib/hood/kiln.hoon
View File

@ -70,7 +70,7 @@
{$poke wire dock pear} ::
{$wipe wire @p $~} ::
{$wait wire @da} ::
{$warp wire ship sock riff} ::
{$warp wire sock riff} ::
== ::
++ pear :: poke fruit
$% {$hall-command command:hall} ::
@ -222,7 +222,7 @@
++ subscribe-next
%- emit
^- card
:* %warp /kiln/autoload our [our our] %home ~
:* %warp /kiln/autoload [our our] %home ~
%next %z da+now /sys
==
::
@ -349,7 +349,7 @@
%- blab :_ ~
:* ust %warp
/kiln/sync/[syd]/(scot %p her)/[sud]
our [our her] sud ~
[our her] sud ~
==
::
++ start-track
@ -358,7 +358,7 @@
%- blab
:~ :* ost %warp
/kiln/sync/[syd]/(scot %p her)/[sud]
our [our her] sud ~ %sing %y ud+let /
[our her] sud ~ %sing %y ud+let /
== ==
::
++ start-sync
@ -367,11 +367,18 @@
%- blab
:~ :* ost %warp
[%kiln %sync syd (scot %p her) sud ?:(reset /reset /)]
our [our her] sud ~ %sing %w [%da now] /
[our her] sud ~ %sing %w [%da now] /
== ==
::
++ writ
|= {reset/? rot/riot}
|= $: reset/?
$= rot
%- unit
$: p/{p/?($d $p $u $v $w $x $y $z) q/case r/desk}
q/path
r/cage
==
==
?~ rot
%^ spam
leaf+"bad %writ response"
@ -414,7 +421,7 @@
%- blab :_ ~
:* ost %warp
/kiln/sync/[syd]/(scot %p her)/[sud]
our [our her] sud ~ %sing %y ud+let /
[our her] sud ~ %sing %y ud+let /
==
--
::

23
sys/vane/clay.hoon
View File

@ -329,7 +329,8 @@
$: $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/ship q/sock r/riff} ::
{$warp p/sock q/riff} ::
{$werp p/ship q/sock r/riff} ::
== == ::
$: $d ::
$% {$flog p/{$crud p/@tas q/(list tank)}} :: to %dill
@ -2777,7 +2778,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.bob p.ali] q.ali
%c %warp [p.bob p.ali] q.ali
`[%sing %v cas.dat /]
==
::
@ -3707,9 +3708,16 @@
abet:(perm:den pax.q.hic rit.q.hic)
[mos ..^$]
::
$warp
?($warp $werp)
=^ for q.hic
?: ?=($warp -.q.hic)
[~ q.hic]
:_ [%warp q.q.hic r.q.hic]
?: =(p.q.hic p.q.q.hic) ~&([%huh-this-west-may-be-weird p.q.hic] ~)
`p.q.hic
?> ?=($warp -.q.hic)
=^ mos ruf
=+ den=((de now hen ruf) q.q.hic p.r.q.hic)
=+ den=((de now hen ruf) p.q.hic p.q.q.hic)
:: =- ~? ?=([~ %sing %w *] q.r.q.hic)
:: :* %someones-warping
:: rav=u.q.r.q.hic
@ -3717,10 +3725,9 @@
:: ==
:: -
=< abet
?~ q.r.q.hic
?~ q.q.q.hic
cancel-request:den
=+ for=?:(=(p.q.hic p.q.q.hic) ~ `p.q.hic)
(start-request:den for u.q.r.q.hic)
(start-request:den for u.q.q.q.hic)
[mos ..^$]
::
$went
@ -3735,7 +3742,7 @@
:- hen
:^ %pass [(scot %p p.p.q.hic) (scot %p q.p.q.hic) t.q.q.hic]
%c
[%warp q.p.q.hic [p.p.q.hic p.p.q.hic] ryf]
[%werp 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/ship q/sock r/riff:clay} :: wait for clay hack
{$warp p/sock q/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 our] %base `[%sing %y [%ud 1] /]]
[%warp [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/ship q/sock r/riff:clay} ::
$% {$warp p/sock q/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 [our p.bem] q.bem ?.(ask ~ `[%next ren r.bem (flop s.bem)])]]
[%c [%warp [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 [our p.bem] q.bem ~]]
$c [%pass (camp-wire +<) van [%warp [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 [our p.bem] q.bem [~ %sing ren r.bem (flop s.bem)]]]
[%c [%warp [our p.bem] q.bem [~ %sing ren r.bem (flop s.bem)]]]
==
==
::

3
sys/zuse.hoon
View File

@ -408,7 +408,8 @@
{$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/ship q/sock r/riff} :: file request.
{$warp p/sock q/riff} :: internal file req
{$werp p/ship q/sock r/riff} :: external file req
{$wegh $~} :: report memory
{$went p/sack q/path r/@ud s/coop} :: response confirm
{$west p/sack q/path r/*} :: network request