ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-20 23:18:00 +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 ++ ship @p :: network identity
++ vane :: kernel module ++ vane :: kernel module
|* $: $: task/mold :: ->$ in request |* $: task/mold :: ->$ in request
gift/mold :: <-$ out result gift/mold :: <-$ out result
sign/mold :: $<- in result sign/mold :: $<- in result
note/mold :: $-> out request note/mold :: $-> out request
== :: soul/mold :: current state
mind/mold :: current state seed/mold :: prior state
tomb/mold :: prior state
== :: == ::
=* move :: =* move ::
$% {$give p/gift} :: return $% {$give p/gift} :: return
{$pass p/path q/note} :: invoke {$pass p/path q/note} :: invoke
== :: == ::
$_ ^? :: $_ =| soul :: active state
|_ mind :: active state ^? |% ::
++ load $-(tomb _+>) :: reload ++ load |~(seed +>) :: restore
++ stay *mind :: preserve ++ stay *soul :: preserve
++ plow :: work in time ++ plow :: work in time
|_ $: now/@da :: date |_ $: now/@da :: date
eny/@uvJ :: entropy eny/@uvJ :: entropy
@ -84,8 +83,8 @@
|_ $: hen/duct :: cause stack |_ $: hen/duct :: cause stack
moz/(list move) :: moves, inverted moz/(list move) :: moves, inverted
== :: == ::
++ call |=(task +>) :: forward effect ++ call |~(task +>) :: forward effect
++ take |=({wire sign} +>) :: backward effect ++ take |~({wire sign} +>) :: backward effect
-- :: -- ::
-- :: -- ::
-- :: -- ::

34
sys/vane/jael.hoon
View File

@ -1,4 +1,4 @@
:: :: /van/jael !: :: /van/jael
:: :: %reference/0 :: :: %reference/0
!? 150 !? 150
:: ::
@ -2065,7 +2065,37 @@
=* val (sign:as:(nol:nu:crub q.pev) *@ ash) =* val (sign:as:(nol:nu:crub q.pev) *@ ash)
new(syg (~(put by syg.new) dad [p.pev val])) 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 :::: # vane :: interface
:: :::: :: ::::

51
sys/zuse.hoon
View File

@ -36,6 +36,57 @@
:::: :: :: (1) models :::: :: :: (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 :::: ++ames :: (1a) network
:: :::: :: ::::