ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-11 04:48:00 +03:00
Code Issues Packages Projects Releases Wiki Activity

Modified some arvo interfaces.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-05-22 10:39:51 -07:00
parent fe69371100
commit afce7bc639
9 changed files with 61 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
arvo/ames.hoon
View File

@ -1441,6 +1441,11 @@
(knap wru tea hen fav)
[duy ..^$]
::
++ call
|= [hen=duct fav=card]
^- [p=(list move) q=vane]
(beat ~ hen fav)
::
++ come
|= [sam=? old=vase]
^- vane

4
arvo/batz.hoon
View File

@ -1249,6 +1249,10 @@
$(fav [%hail ~], dez (~(put by dez) hen (weld t.u.dus `brim`[i.u.dus ~])))
==
::
++ call :: process move
|= [hen=duct fav=card]
(beat ~ hen fav)
::
++ come
|= [sam=? old=vase]
^- vane

4
arvo/clay.hoon
View File

@ -460,6 +460,10 @@
$(dal t.dal, mos (weld som mos))
==
::
++ call :: process move
|= [hen=duct fav=card]
(beat ~ hen fav)
::
++ come
|= [sam=? old=vase]
^- vane

4
arvo/dill.hoon
View File

@ -434,6 +434,10 @@
..^$(dug ?.(wip (~(put by dug) hen yar) (~(del by dug) hen)))
--
::
++ call :: process move
|= [hen=duct fav=card]
(beat ~ hen fav)
::
++ come
|= [sam=? old=vase]
^- vane

8
arvo/eyre.hoon
View File

@ -427,7 +427,7 @@
:_ mow
:+ [~ %gold our]
[/f [%e %honk ses (scot %ud num) ~] hen]
[%kill ~]
[%exec our ~]
==
::
++ honk :: ford request
@ -438,7 +438,7 @@
:_ mow
:+ [~ %gold our]
[/f [%e %honk ses (scot %ud num) ~] hen]
[%exec kas]
[%exec our `kas]
==
::
++ hops :: cancel remote
@ -1842,6 +1842,10 @@
abet:apex:~(adit ye [[wru tea hen fav] [now eny sky] ~] bol)
[mos ..^$]
::
++ call :: process move
|= [hen=duct fav=card]
(beat ~ hen fav)
::
++ come
|= [sam=? old=vase]
^- vane

37
arvo/ford.hoon
View File

@ -124,7 +124,7 @@
^- [(list move) baby]
[(flop mow) bay]
::
++ apex
++ apex :: advance
|- ^+ +.$
?^ tea
?> ?=([@ @ ~] tea)
@ -136,20 +136,17 @@
+.$
(~(resp zo [num u.tus]) (need (slaw %ud i.t.tea)) p.fav)
::
?+ -.fav +.$
%exec
=+ num=p.tad.bay
?> !(~(has by dym.bay) hen)
=: p.tad.bay +(p.tad.bay)
dym.bay (~(put by dym.bay) hen num)
==
~(exec zo [num `task`[hen p.fav 0 ~]])
::
%kill
?> ?=(%exec -.fav)
?~ q.fav
=+ num=(need (~(get by dym.bay) hen))
=+ tas=(need (~(get by q.tad.bay) num))
amok:~(camo zo [num tas])
==
=+ num=p.tad.bay
?> !(~(has by dym.bay) hen)
=: p.tad.bay +(p.tad.bay)
dym.bay (~(put by dym.bay) hen num)
==
~(exec zo [num `task`[hen u.q.fav 0 ~]])
::
++ zo
|_ [num=@ud task]
@ -575,14 +572,20 @@
++ beat :: process move
|= [tea=wire hen=duct fav=card]
^- [p=(list move) q=vane]
=+ wru=*(unit writ)
?~ wru ~|(%beat-whom !!)
=+ ^= our ^- @p
?+ -.fav !!
%exec p.fav
==
=+ ^= bay ^- baby
=+ buy=(~(get by pol.lex) q.u.wru)
=+ buy=(~(get by pol.lex) our)
?~(buy *baby u.buy)
=^ mos bay
abet:~(apex za [[q.u.wru tea hen fav] [now eny ska] ~] bay)
[mos ..^$(pol (~(put by pol) q.u.wru bay))]
abet:~(apex za [[our tea hen fav] [now eny ska] ~] bay)
[mos ..^$(pol (~(put by pol) our bay))]
::
++ call :: process move
|= [hen=duct fav=card]
(beat ~ hen fav)
::
++ come
|= [sam=? old=vase]

4
arvo/gall.hoon
View File

@ -13,8 +13,8 @@
++ gaff :: hive product
|* a=$+(* *) ::
$% [%call p=term q=a] :: advance card
[%drip p=a] :: return card
[%stop ~] :: reset duct
[%give p=a] :: return card
[%play p=path q=a] :: reset duct
== ::
++ shoe
$%

11
arvo/hoon.hoon
View File

@ -8824,6 +8824,10 @@
%= +>.$
ves (slam (slap syg [%cnzy %come]) (slop [[%cube sam %atom %f] sam] ole))
==
++ pown :: de-writ
|= a=(list muve)
^- (list muve)
(turn a |=(a=muve [~ q.a r.a]))
::
++ wink :: deploy
|= [now=@da eny=@ sky=$+(* (unit (unit)))]
@ -8835,8 +8839,11 @@
fav=curd
==
^- [p=(list muve) q=_+>.^$]
=+ pro=(slym (slap rig [%cnzy %beat]) +<.$)
:- ((hard (list muve)) q:(slap pro [%cnzy %p]))
=+ ^= pro
?: =(~ pax)
(slym (slap rig [%cnzy %call]) [hen fav])
(slym (slap rig [%cnzy %beat]) [pax hen fav])
:- (pown ((hard (list muve)) q:(slap pro [%cnzy %p])))
=+ sev=(slap pro [%cnzy %q])
%= +>.^$
ves

8
arvo/zuse.hoon
View File

@ -1994,7 +1994,7 @@
[%dire p=@tas q=dram] :: apply directory
[%dump p=(list ,@t)] :: raw text lines
[%ergo p=@p q=@tas r=@ud] :: version update
[%exec p=silk] :: make something
[%exec p=@p q=(unit silk)] :: make / kill
[%file p=@tas q=@] :: apply atomic file
[%fail p=tape] :: report failure
[%grab ~] :: collect grabage
@ -2536,6 +2536,12 @@
== ::
:- p=*(list move) :: actions
q=*vane :: consequence
++ call :: update
|= $: hen=duct :: channel
fav=card :: event
== ::
:- p=*(list move) :: actions
q=*vane :: consequence
++ come :: load state, stale
|= [sam=? old=vase] ::
*vane ::