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

Changed some interfaces.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-05-30 15:51:31 -07:00
parent 80dda23245
commit dc4e9a41ca
10 changed files with 17 additions and 103 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
arvo/ames.hoon
View File

@ -1445,11 +1445,6 @@
^- [p=(list move) q=vane]
(take ~ hen typ fav)
::
++ come
|= [sam=? old=vase]
^- vane
(load old)
::
++ doze
|= [now=@da hen=duct]
=+ doz=`(unit ,@da)`[~ (add now ~s32)]
@ -1471,10 +1466,6 @@
?. (~(nest ut -:!>(fox)) | p.new) ~&(%ames-reset ..^$)
..^$(fox ~(boot am [now (furt q.new)]))
::
++ raze
^- vane
..$(fox *furt)
::
++ scry
|= [fur=(unit (set monk)) ren=@tas his=ship syd=desk lot=coin tyl=path]
^- (unit (unit))
@ -1494,7 +1485,6 @@
==
::
++ stay `vase`!>(fox)
++ vern [164 0]
--
|%
++ claw |=(our=ship ^-(duct hen:(need (~(get by zac.fox) our))))

10
arvo/batz.hoon
View File

@ -1252,11 +1252,6 @@
|= [hen=duct typ=type fav=card]
(take ~ hen typ fav)
::
++ come
|= [sam=? old=vase]
^- vane
(load old)
::
++ doze
|= [now=@da hen=duct]
^- (unit ,@da)
@ -1283,15 +1278,10 @@
~? !(~(nest ut -:!>(dez)) | p.old) %batz-reset
..^$(dez ((map duct brim) q.old))
::
++ raze
^- vane
..$(dez ~)
::
++ scry
|= [fur=(unit (set monk)) ren=@tas his=ship syd=desk lot=coin tyl=path]
^- (unit (unit))
~
::
++ stay `vase`!>(dez)
++ vern [164 0]
--

10
arvo/clay.hoon
View File

@ -423,11 +423,6 @@
|= [hen=duct typ=type fav=card]
(take ~ hen typ fav)
::
++ come
|= [sam=? old=vase]
^- vane
(load old)
::
++ doze
|= [now=@da hen=duct]
=| nex=(unit ,@da)
@ -444,10 +439,6 @@
..^$
..^$(ruf (raft q.old))
::
++ raze
^- vane
..$(ruf *raft)
::
++ scry :: inspect
|= [fur=(unit (set monk)) ren=@tas his=ship syd=desk lot=coin tyl=path]
^- (unit (unit))
@ -464,5 +455,4 @@
aver:dud
::
++ stay `vase`!>(ruf)
++ vern [164 0]
--

10
arvo/dill.hoon
View File

@ -440,11 +440,6 @@
|= [hen=duct typ=type fav=card]
(take ~ hen typ fav)
::
++ come
|= [sam=? old=vase]
^- vane
(load old)
::
++ doze
|= [now=@da hen=duct]
^- (unit ,@da)
@ -459,15 +454,10 @@
dug ((map duct yard) q.new)
==
::
++ raze
^- vane
..$(dug ~)
::
++ scry
|= [fur=(unit (set monk)) ren=@tas his=ship syd=desk lot=coin tyl=path]
^- (unit (unit))
~
::
++ stay `vase`!>(dug)
++ vern [164 0]
--

12
arvo/eyre.hoon
View File

@ -1844,11 +1844,6 @@
|= [hen=duct typ=type fav=card]
(take ~ hen typ fav)
::
++ come
|= [sam=? old=vase]
^- vane
(load old)
::
++ doze
|= [now=@da hen=duct]
^- (unit ,@da)
@ -1862,16 +1857,11 @@
..^$
..^$(+>- (bolo q.old))
::
++ raze
^- vane
..$(+>- *bolo)
::
++ scry
|= [our=(unit (set monk)) ren=@tas who=ship syd=desk lot=coin tyl=path]
^- (unit (unit))
~
::
++ stay
`vase`!>((colt `bolo`+>-.$))
++ vern [164 0]
`vase`!>((colt `bolo`+>-.$))
--

10
arvo/ford.hoon
View File

@ -588,11 +588,6 @@
|= [hen=duct typ=type fav=card]
(take ~ hen typ fav)
::
++ come
|= [sam=? old=vase]
^- vane
(load old)
::
++ doze
|= [now=@da hen=duct]
^- (unit ,@da)
@ -606,10 +601,6 @@
..^$
..^$(+>- (axle q.old))
::
++ raze
^- vane
..$(+>- *axle)
::
++ scry
|= [fur=(unit (set monk)) ren=@tas who=ship syd=desk lot=coin tyl=path]
^- (unit (unit))
@ -617,5 +608,4 @@
::
++ stay
`vase`!>((colt `axle`+>-.$))
++ vern [164 0]
--

38
arvo/gall.hoon
View File

@ -186,32 +186,20 @@
%z z.vew
==
::
:: XXX old vane junk - fix and/or destroy
++ doze
|= [now=@da hen=duct]
^- (unit ,@da)
~
::
++ come
|= [sam=? old=vase]
^+ ..^$
(load old)
::
++ doze
|= [now=@da hen=duct]
^- (unit ,@da)
~
::
++ load
|= old=vase
^+ ..^$
?. (~(nest ut -:!>(`axle`+>-.^$)) | p.old)
~& %gall-reset
..^$
..^$(all (axle q.old))
::
++ raze
^+ ..$
..$(all *axle)
::
++ stay `vase`!>((colt `axle`+>-.$))
++ vern [164 0]
++ load
|= old=vase
^+ ..^$
?. (~(nest ut -:!>(`axle`+>-.^$)) | p.old)
~& %gall-reset
..^$
..^$(all (axle q.old))
::
++ stay `vase`!>((colt `axle`+>-.$))
--
|% :: inner core
++ gaur :: take and go

13
arvo/hoon.hoon
View File

@ -8873,18 +8873,7 @@
=+ rig=(slym ves arg)
=+ rev=(slym (slap bud (rain pax txt)) bud)
=+ syg=(slym rev arg)
=+ ole=(slap rig [%cnzy %stay])
=+ [vol=(slap rig [%cnzy %vern]) vew=(slap syg [%cnzy %vern])]
?> =(stub -.q.vew)
?: =(q.vol q.vew)
+>.$(ves (slam (slap syg [%cnzy %load]) ole))
=+ ^= sam
?: =(stub -.q.vol)
?>(=(+.q.vew +(((hard ,@) +.q.vol))) &)
?>(&(=(0 +.q.vew) =(-.q.vol +(stub))) |)
%= +>.$
ves (slam (slap syg [%cnzy %come]) (slop [[%cube sam %atom %f] sam] ole))
==
+>.$(ves (slam (slap syg [%cnzy %load]) (slap rig [%cnzy %stay])))
::
++ wink :: deploy
|= [now=@da eny=@ sky=$+(* (unit (unit)))]

5
arvo/zuse.hoon
View File

@ -2527,16 +2527,12 @@
== ::
:- p=*(list move) :: actions
q=*vane :: consequence
++ come :: load state, stale
|= [sam=? old=vase] ::
*vane ::
++ doze :: next wakeup
|= [now=@da hen=duct] :: channel
*(unit ,@da) :: alarm if any
++ load :: load state, fresh
|= old=vase ::
*vane ::
++ raze *vane :: erase all state
++ scry :: inspect
|= $: fur=(unit (set monk)) :: observers
ren=@tas :: submode
@ -2555,7 +2551,6 @@
== ::
:- p=*(list move) :: actions
q=*vane :: consequence
++ vern [_@ud _@ud] :: hoon/vane version
-- ::
++ view ?(%u %v %w %x %y %z) :: view mode
++ wund (list ,[p=life q=ring r=acru]) :: mace in action

2
main/bin/reboot.hoon
View File

@ -16,6 +16,8 @@
[%c %clay]
[%d %dill]
[%e %eyre]
[%f %ford]
[%g %gall]
==
:_ ~
%+ turn vay