ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-22 06:11:31 +03:00
Code Issues Packages Projects Releases Wiki Activity

khan: accepts thread arguments with marks

Browse Source
This commit is contained in:
Jōshin 2022-01-26 16:26:30 -08:00
parent 8ad57d8bd2
commit 425bf6b011
No known key found for this signature in database
GPG Key ID: A8BE5A9A521639D0
2 changed files with 22 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2098,16 +2098,19 @@
++ khan ^? ++ khan ^?
|% |%
+$ gift :: out result <-$ +$ gift :: out result <-$
$% [%avow p=(each [mark noun] [term tang])] :: thread result $% [%avow p=(each (cask) goof)] :: thread result
== == ::
+$ task :: in request ->$ +$ task :: in request ->$
$~ [%vega ~] $~ [%vega ~] ::
$% $>(%born vane-task) :: new unix process $% $>(%born vane-task) :: new unix process
[%done ~] :: socket closed [%done ~] :: socket closed
[%fyrd =desk name=term data=*] :: run thread v0 [%fyrd p=fyrd] :: run thread
$>(%trim vane-task) :: trim state $>(%trim vane-task) :: trim state
$>(%vega vane-task) :: report upgrade $>(%vega vane-task) :: report upgrade
== == ::
:: ::
+$ bear $@(=desk [=desk =case]) :: local desk/case
+$ fyrd [=bear name=term =mark data=(cask)] :: run-thread request
-- ::khan -- ::khan
:: ::
+$ gift-arvo :: out result <-$ +$ gift-arvo :: out result <-$

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

@ -53,24 +53,23 @@
%born %born
[~ khan-gate(unix-duct hen)] [~ khan-gate(unix-duct hen)]
%fyrd %fyrd
:: start the thread on %spider.
::
=/ wir=wire (head hen) =/ wir=wire (head hen)
=/ rid=@ta (rear wir) =/ rid=@ta (rear wir)
:: XX what if the client sends a duplicate rid? =* fyd p.task
:: is this fine? should we inject some randomness?
::
=/ tid=@ta =/ tid=@ta
(cat 3 'khan-fyrd--' rid) (cat 3 'khan-fyrd--' rid)
=/ =beak
?@(bear.fyd [our bear.fyd %da now] [our bear.fyd])
=/ =dais:clay
?~ ret=(rof ~ %cb beak /[p.data.fyd])
~|(%mark-unknown !!)
?~ u.ret
~|(%mark-invalid !!)
?> =(%dais p.u.u.ret)
!<(dais:clay q.u.u.ret)
=/ args =/ args
:* ~ `tid [our desk.task %da now] name.task :* ~ `tid beak name.fyd
:: XX can't do this: (vale.dais q.data.fyd)
::
:: !>(data.task)
::
:: special case for -hi:
::
!>(;;([~ arg=$@(who=ship [who=ship mez=tape])] data.task))
== ==
=/ start-moves=(list move) =/ start-moves=(list move)
%+ turn %+ turn