diff --git a/neo/arvo.hoon b/neo/arvo.hoon index dadb10e87..a242b3e34 100644 --- a/neo/arvo.hoon +++ b/neo/arvo.hoon @@ -57,22 +57,21 @@ :: :: ++ ship @p :: network identity ++ vane :: kernel module - |* $: $: task/mold :: ->$ in request - gift/mold :: <-$ out result - sign/mold :: $<- in result - note/mold :: $-> out request - == :: - mind/mold :: current state - tomb/mold :: prior state + |* $: task/mold :: ->$ in request + gift/mold :: <-$ out result + sign/mold :: $<- in result + note/mold :: $-> out request + soul/mold :: current state + seed/mold :: prior state == :: =* move :: $% {$give p/gift} :: return {$pass p/path q/note} :: invoke == :: - $_ ^? :: - |_ mind :: active state - ++ load $-(tomb _+>) :: reload - ++ stay *mind :: preserve + $_ =| soul :: active state + ^? |% :: + ++ load |~(seed +>) :: restore + ++ stay *soul :: preserve ++ plow :: work in time |_ $: now/@da :: date eny/@uvJ :: entropy @@ -84,8 +83,8 @@ |_ $: hen/duct :: cause stack moz/(list move) :: moves, inverted == :: - ++ call |=(task +>) :: forward effect - ++ take |=({wire sign} +>) :: backward effect + ++ call |~(task +>) :: forward effect + ++ take |~({wire sign} +>) :: backward effect -- :: -- :: -- :: diff --git a/sys/vane/jael.hoon b/sys/vane/jael.hoon index 56019167e..b6292eafb 100644 --- a/sys/vane/jael.hoon +++ b/sys/vane/jael.hoon @@ -1,4 +1,4 @@ -:: :: /van/jael +!: :: /van/jael :: :: %reference/0 !? 150 :: @@ -2065,7 +2065,37 @@ =* val (sign:as:(nol:nu:crub q.pev) *@ ash) new(syg (~(put by syg.new) dad [p.pev val])) -- -- --- -- + -- +++ neon + ^- (vane task gift sign note state state) + =| lex/state + |% + ++ load |=(state +>) + ++ stay lex + ++ plow + =| $: now/@da + eny/@uvJ + sky/roof + == + |% + ++ doze ~ + ++ peek roof + ++ spin + =| hen/duct + |% + ++ call + |= task + ^- {(list (wind note gift)) _+>} + !! + :: + ++ take + |= {tea/wire hin/sign} + ^- {(list (wind note gift)) _+>} + !! + -- + -- + -- +-- :: :::: :::: # vane :: interface :: :::: diff --git a/sys/zuse.hoon b/sys/zuse.hoon index 2373b6eae..906320577 100644 --- a/sys/zuse.hoon +++ b/sys/zuse.hoon @@ -36,6 +36,57 @@ :::: :: :: (1) models :: :: :: |% +++ roof (room vase) :: namespace +++ faro + |* {gift/mold note/mold} + $% {$give p/gift} :: return + {$pass p/path q/note} :: invoke + == :: +++ room :: either namespace + |* vase/mold :: vase or maze + $- $: lyc/(unit (set ship)) :: leakset + car/term :: perspective + bem/beam :: path + == :: + %- unit :: ~: unknown + %- unit :: ~ ~: invalid + (cask vase) :: marked cargo +++ vane :: kernel module + |* $: task/mold :: ->$ in request + gift/mold :: <-$ out result + sign/mold :: $<- in result + note/mold :: $-> out request + mind/mold :: current state + seed/mold :: prior state + == :: + =* self (vane task gift sign note mind seed) :: + $_ =| mind + ^| |% + ++ load |~(seed ^|(+>)) + ++ stay *mind :: preserve + ++ plow :: work in time + =| $: now/@da :: date + eny/@uvJ :: entropy + sky/roof :: namespace + == :: + ^| |% + ++ doze *(unit @da) :: awake when + ++ peek roof + ++ spin :: work on state + =| hen/duct :: cause stack + ^| |% + ++ call :: advancing effect + |~ task + :_ ^|(+>) + *(list (wind note gift)) + :: + ++ take :: returning effect + |~ {wire sign} + :_ ^|(+>) + *(list (wind note gift)) + -- :: + -- + -- :: :: :::: :::: ++ames :: (1a) network :: ::::