urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-01 06:35:32 +03:00
Code Issues Packages Projects Releases Wiki Activity

Stash.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-04-22 20:13:14 -07:00
parent 68443f26eb
commit 7283b40e3a
3 changed files with 95 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
neo/arvo.hoon
View File

@ -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
-- ::
-- ::
-- ::

34
sys/vane/jael.hoon
View File

@ -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
:: ::::

51
sys/zuse.hoon
View File

@ -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
:: ::::