From dfcb6fda06fcb6dd67198beee6cc04ab61f6ec10 Mon Sep 17 00:00:00 2001
From: pcmonk <pcmonk@asu.edu>
Date: Tue, 29 Jul 2014 17:18:17 -0700
Subject: [PATCH] added protocols necessary for chat

---
 main/pro/user/core.hoon  | 15 +++++++++++++++
 main/pro/users/core.hoon | 15 +++++++++++++++
 main/pro/zing/core.hoon  | 15 +++++++++++++++
 main/pro/zongs/core.hoon | 15 +++++++++++++++
 main/str/user/gate.hoon  |  3 +++
 main/str/users/gate.hoon |  1 +
 main/str/zing/gate.hoon  |  8 ++++++++
 main/str/zong/gate.hoon  | 17 ++++++-----------
 8 files changed, 78 insertions(+), 11 deletions(-)
 create mode 100644 main/pro/user/core.hoon
 create mode 100644 main/pro/users/core.hoon
 create mode 100644 main/pro/zing/core.hoon
 create mode 100644 main/pro/zongs/core.hoon
 create mode 100644 main/str/user/gate.hoon
 create mode 100644 main/str/users/gate.hoon
 create mode 100644 main/str/zing/gate.hoon

diff --git a/main/pro/user/core.hoon b/main/pro/user/core.hoon
new file mode 100644
index 000000000..ce997e172
--- /dev/null
+++ b/main/pro/user/core.hoon
@@ -0,0 +1,15 @@
+::
+::::  /hoon/core/user/pro
+  ::
+/?  314
+/-  user
+|_  use=user
+::
+++  grab                                                ::  convert from
+  |%
+  ++  noun                                              ::  convert from %noun
+    |=  src=*
+    ^+  +>+
+    +>+(use (user src))
+  --
+--
diff --git a/main/pro/users/core.hoon b/main/pro/users/core.hoon
new file mode 100644
index 000000000..a4b4eaf8c
--- /dev/null
+++ b/main/pro/users/core.hoon
@@ -0,0 +1,15 @@
+::
+::::  /hoon/core/users/pro
+  ::
+/?  314
+/-  users
+|_  use=users
+::
+++  grab                                                ::  convert from
+  |%
+  ++  noun                                              ::  convert from %noun
+    |=  src=*
+    ^+  +>+
+    +>+(use (users src))
+  --
+--
diff --git a/main/pro/zing/core.hoon b/main/pro/zing/core.hoon
new file mode 100644
index 000000000..3f3ac35a6
--- /dev/null
+++ b/main/pro/zing/core.hoon
@@ -0,0 +1,15 @@
+::
+::::  /hoon/core/zing/pro
+  ::
+/?  314
+/-  zing
+|_  zig=zing
+::
+++  grab                                                ::  convert from
+  |%
+  ++  noun                                              ::  convert from %noun
+    |=  src=*
+    ^+  +>+
+    +>+(zig (zing src))
+  --
+--
diff --git a/main/pro/zongs/core.hoon b/main/pro/zongs/core.hoon
new file mode 100644
index 000000000..16f32b109
--- /dev/null
+++ b/main/pro/zongs/core.hoon
@@ -0,0 +1,15 @@
+::
+::::  /hoon/core/zing/pro
+  ::
+/?  314
+/-  zong
+|_  zog=(list zong)
+::
+++  grab                                                ::  convert from
+  |%
+  ++  noun                                              ::  convert from %noun
+    |=  src=*
+    ^+  +>+
+    +>+(zog ((list zong) src))
+  --
+--
diff --git a/main/str/user/gate.hoon b/main/str/user/gate.hoon
new file mode 100644
index 000000000..f61703ded
--- /dev/null
+++ b/main/str/user/gate.hoon
@@ -0,0 +1,3 @@
+$%  [%in p=[p=@p q=@t]]
+    [%out q=[p=@p q=@t]]
+==
diff --git a/main/str/users/gate.hoon b/main/str/users/gate.hoon
new file mode 100644
index 000000000..2d6c0119e
--- /dev/null
+++ b/main/str/users/gate.hoon
@@ -0,0 +1 @@
+(list ,[p=@p q=@t])
diff --git a/main/str/zing/gate.hoon b/main/str/zing/gate.hoon
new file mode 100644
index 000000000..dcd5c0395
--- /dev/null
+++ b/main/str/zing/gate.hoon
@@ -0,0 +1,8 @@
+$%  [%backlog p=path q=?(%da %dr %ud) r=@]
+    [%hola p=path]
+    $:  %mess  p=path
+      $=  q
+        $%  [%do p=@t]
+            [%exp p=@t q=tank]
+            [%say p=@t]
+==  ==  ==
diff --git a/main/str/zong/gate.hoon b/main/str/zong/gate.hoon
index c00847610..fa07797d2 100644
--- a/main/str/zong/gate.hoon
+++ b/main/str/zong/gate.hoon
@@ -1,11 +1,6 @@
-=<  zong
-|%
-++  mess                                            ::  message
-  $%  [%do p=@t]                                    ::  act
-      [%exp p=@t q=tank]                            ::  code
-      [%say p=@t]                                   ::  speak
-  ==
-++  zong
-  $%  [%mess p=@da q=ship r=mess]
-  ==
---
+$%  $:  %mess  p=@da  q=ship
+      $=  r
+        $%  [%do p=@t]
+            [%exp p=@t q=tank]
+            [%say p=@t]
+==  ==  ==