mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-09-20 23:18:00 +03:00
Stash.
This commit is contained in:
parent
68443f26eb
commit
7283b40e3a
@ -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
|
||||||
-- ::
|
-- ::
|
||||||
-- ::
|
-- ::
|
||||||
-- ::
|
-- ::
|
||||||
|
@ -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
|
||||||
:: ::::
|
:: ::::
|
||||||
|
@ -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
|
||||||
:: ::::
|
:: ::::
|
||||||
|
Loading…
Reference in New Issue
Block a user