From 3cf803129da54f950d479f4886b57f24af078aca Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C5=8Dshin?= <git@wholezero.org>
Date: Fri, 21 Jan 2022 22:09:01 +0000
Subject: [PATCH] khan: basic +call, types

---
 pkg/arvo/sys/lull.hoon      |  4 ++--
 pkg/arvo/sys/vane/khan.hoon | 13 ++++++++++++-
 2 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/pkg/arvo/sys/lull.hoon b/pkg/arvo/sys/lull.hoon
index 50a857a99f..5b3c7fcea2 100644
--- a/pkg/arvo/sys/lull.hoon
+++ b/pkg/arvo/sys/lull.hoon
@@ -2098,12 +2098,12 @@
 ++  khan  ^?
   |%
   +$  gift                                              ::  out result <-$
-    $%  [%avow ~]
+    $%  [%avow (each cage [term tang])]                 ::  thread result
     ==
   +$  task                                              ::  in request ->$
     $~  [%vega ~]
     $%  $>(%born vane-task)                             ::  new unix process
-        [%fyrd ~]
+        [%fyrd =beak name=term data=*]                  ::  run thread v0
         $>(%trim vane-task)                             ::  trim state
         $>(%vega vane-task)                             ::  report upgrade
     ==
diff --git a/pkg/arvo/sys/vane/khan.hoon b/pkg/arvo/sys/vane/khan.hoon
index 52ceab7f9c..076eed6ef3 100644
--- a/pkg/arvo/sys/vane/khan.hoon
+++ b/pkg/arvo/sys/vane/khan.hoon
@@ -30,7 +30,17 @@
   ^-  [(list move) _khan-gate]
   ::
   =/  =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
@@ -50,5 +60,6 @@
   ^-  [(list move) _khan-gate]
   ?^  dud
     ~|(%khan-take-dud (mean tang.u.dud))
+  ::  switch on type of thing you get back, update state
   [~ khan-gate]
 --