ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-21 15:38:59 +03:00
Code Issues Packages Projects Releases Wiki Activity

New load/come interface, part a.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-01-05 17:52:37 -08:00
parent 5fa1531701
commit 37c32ed8b7
7 changed files with 21 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/ames.hoon
View File

@ -1433,7 +1433,7 @@
[duy ..^$]
::
++ come
|= old=vase
|= [sam=? old=vase]
^- vane
~|(%load-nest-ames !!)
::
@ -1452,11 +1452,10 @@
=+ bah=q.n.wab.yem
(hunt doz rtn.sop.bah)
::
++ flee stay
++ load
|= new=vase
^- vane
?. (~(nest ut -:!>(fox)) & p.new) (come new)
?. (~(nest ut -:!>(fox)) & p.new) ~|(%load-type-fail !!)
..^$(fox ~(boot am [now (fort q.new)]))
::
++ raze
@ -1477,6 +1476,7 @@
==
::
++ stay `vase`!>(fox)
++ vern [191 0]
--
|%
++ claw |=(our=ship ^-(duct hen:(need (~(get by zac.fox) our))))

6
arvo/batz.hoon
View File

@ -1241,7 +1241,7 @@
==
::
++ come
|= old=vase
|= [sam=? old=vase]
^- vane
~|(%load-nest-bede !!)
::
@ -1265,11 +1265,10 @@
(hunt doz ~ q.n.tem.q.i.q.n.dez)
==
::
++ flee stay
++ load
|= old=vase
^- vane
?. (~(nest ut -:!>(dez)) & p.old) (come old)
?. (~(nest ut -:!>(dez)) & p.old) ~|(%load-type-fail !!)
..^$(dez ((map duct brim) q.old))
::
++ raze
@ -1282,4 +1281,5 @@
~
::
++ stay `vase`!>(dez)
++ vern [191 0]
--

7
arvo/clay.hoon
View File

@ -462,7 +462,7 @@
==
::
++ come
|= old=vase
|= [sam=? old=vase]
^- vane
~|(%load-nest-clay !!)
::
@ -474,12 +474,10 @@
?~ dal nex
$(dal t.dal, nex (hunt nex doze:(un i.dal now ruf)))
::
++ flee stay
::
++ load
|= new=vase
^- vane
?. (~(nest ut -:!>(ruf)) & p.new) (come new)
?. (~(nest ut -:!>(ruf)) & p.new) ~|(%load-type-fail !!)
..^$(ruf (raft q.new))
::
++ raze
@ -504,4 +502,5 @@
?~(vyr ~ u.vyr)
::
++ stay `vase`!>(ruf)
++ vern [191 0]
--

6
arvo/dill.hoon
View File

@ -374,7 +374,7 @@
--
::
++ come
|= old=vase
|= [sam=? old=vase]
^- vane
~|(%load-nest-dill !!)
::
@ -383,12 +383,11 @@
^- (unit ,@da)
~
::
++ flee stay
++ load
|= new=vase
^- vane
?. (~(nest ut -:!>(dug)) & p.new)
(come new)
~|(%load-type-fail !!)
%_ ..^$
dug ((map duct yard) q.new)
==
@ -403,4 +402,5 @@
~
::
++ stay `vase`!>(dug)
++ vern [191 0]
--

7
arvo/eyre.hoon
View File

@ -135,7 +135,7 @@
==
::
++ come
|= old=vase
|= [sam=? old=vase]
^- vane
~|(%load-nest-eyre !!)
::
@ -144,12 +144,10 @@
^- (unit ,@da)
~
::
++ flee stay
++ load
|= new=vase
^- vane
?. (~(nest ut -:!>(`bolo`+>-.^$)) & p.new)
(come new)
?. (~(nest ut -:!>(`bolo`+>-.^$)) & p.new) ~|(%load-type-fail !!)
..^$(+>- (bolo q.new))
::
++ raze
@ -162,4 +160,5 @@
~
::
++ stay `vase`!>(`bolo`+>-.$)
++ vern [191 0]
--

20
arvo/hoon.hoon
View File

@ -7128,15 +7128,14 @@
== ::
:- p=*(list move) :: actions
q=*vane :: consequence
++ come :: load state, old
|= old=vise ::
++ come :: load state, stale
|= [sam=? old=vase] ::
*vane ::
++ doze :: next wakeup
|= [now=@da hen=duct] :: channel
*(unit ,@da) :: alarm if any
++ flee *vase :: save state, old
++ load :: load state, new
|= new=vase ::
++ load :: load state, fresh
|= old=vase ::
*vane ::
++ raze *vane :: erase all state
++ scry :: inspect
@ -7149,6 +7148,7 @@
== ::
*(unit) :: record
++ stay *vase :: save state, new
++ vern [_@ud _@ud] :: hoon/vane version
-- ::
++ vile :: reflexive constants
$: bet=type :: beat
@ -7375,8 +7375,6 @@
$(ova t.ova, +>+.^$ (veer +.q.i.ova))
?: ?=(%vega -.q.i.ova)
(vega now t.ova (path +.q.i.ova))
?: ?=(%volt -.q.i.ova)
(volt t.ova +.q.i.ova)
=+(avo=$(ova t.ova) [[i.ova -.avo] +.avo])
++ wish |=(* (^wish ((hard ,@ta) +<))) :: 20
--
@ -7457,14 +7455,6 @@
[[p.i.fan ves:(ruck:(vent vil bud q.i.fan) pax txt)] t.fan]
==
::
++ volt
|= [ova=(list ovum) ken=*]
^- [p=(list ovum) q=*]
=+ gat=.*(ken .*(ken [0 86]))
=+ sam=[eny ova bud fan]
=+ raw=.*([-.gat [sam +>.gat]] -.gat)
[((list ovum) -.raw) +.raw]
::
++ wish :: external compute
|= txt=@
q:(slap bud (ream txt))

2
arvo/zuse.hoon
View File

@ -1920,7 +1920,7 @@
++ spur path :: modeshipdeskcasespur
++ step ,[p=bray q=gens r=pass] :: identity stage
++ tako ,[p=path q=miso] :: change detail
++ tart $+([@da path note] bowl) :: process core
++ tart $+([@da path note] bowl) :: process core
++ task ::
$: paq=(qeu gyro) :: prompt queue
wip=[p=@ud q=(map ,@ud beak)] :: processes