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

khan: basic +call, types

Browse Source
This commit is contained in:
Jōshin 2022-01-21 22:09:01 +00:00
parent 575ff61fa6
commit 3cf803129d
No known key found for this signature in database
GPG Key ID: A8BE5A9A521639D0
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkg/arvo/sys/lull.hoon
View File

@ -2098,12 +2098,12 @@
++ khan ^? ++ khan ^?
|% |%
+$ gift :: out result <-$ +$ gift :: out result <-$
$% [%avow ~] $% [%avow (each cage [term tang])] :: thread result
== ==
+$ task :: in request ->$ +$ task :: in request ->$
$~ [%vega ~] $~ [%vega ~]
$% $>(%born vane-task) :: new unix process $% $>(%born vane-task) :: new unix process
[%fyrd ~] [%fyrd =beak name=term data=*] :: run thread v0
$>(%trim vane-task) :: trim state $>(%trim vane-task) :: trim state
$>(%vega vane-task) :: report upgrade $>(%vega vane-task) :: report upgrade
== ==

13
pkg/arvo/sys/vane/khan.hoon
View File

@ -30,7 +30,17 @@
^- [(list move) _khan-gate] ^- [(list move) _khan-gate]
:: ::
=/ =task:khan ((harden task:khan) wrapped-task) =/ =task:khan ((harden task:khan) wrapped-task)
[~ khan-gate] ?- -.task
%vega
[~ khan-gate]
%trim
[~ khan-gate]
%born
[~ khan-gate(unix-duct hen)]
%fyrd
:: send to gall, sub for updates
!!
==
:: +load: migrate an old state to a new khan version :: +load: migrate an old state to a new khan version
:: ::
++ load ++ load
@ -50,5 +60,6 @@
^- [(list move) _khan-gate] ^- [(list move) _khan-gate]
?^ dud ?^ dud
~|(%khan-take-dud (mean tang.u.dud)) ~|(%khan-take-dud (mean tang.u.dud))
:: switch on type of thing you get back, update state
[~ khan-gate] [~ khan-gate]
-- --