From ede9f1e89e5436f4dac261f76a3fc4e1de78bac8 Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Mon, 4 May 2015 11:10:02 -0700
Subject: [PATCH] restored :hi

---
 base/app/hi/core.hook      | 50 ++++++++++++++++++++++++++++++++++++++
 base/cat/hi/args/gate.hook |  1 +
 base/cat/hi/txt/gate.hook  |  2 ++
 3 files changed, 53 insertions(+)
 create mode 100644 base/app/hi/core.hook
 create mode 100644 base/cat/hi/args/gate.hook
 create mode 100644 base/cat/hi/txt/gate.hook

diff --git a/base/app/hi/core.hook b/base/app/hi/core.hook
new file mode 100644
index 000000000..286cdfd6b
--- /dev/null
+++ b/base/app/hi/core.hook
@@ -0,0 +1,50 @@
+::  Hi, send optional message to a ship
+::
+::::  /hook/core/hi/bin
+  ::
+/+    sh-utils
+::
+::::
+  ::
+|%
+++  sign                                                ::
+  $%  $:  %g                                            ::
+  $%  [%nice ~]                                         ::
+      [%mean p=ares]                                    ::
+  ==  ==  ==
+++  flog                                                ::  sent to %dill
+          $%  [%crud p=@tas q=(list tank)]              ::
+              [%text p=tape]                            ::
+          ==                                            ::
+--
+!:
+::::
+  ::
+|_  [hid=hide ~]
+++  peer  
+  |=  [ost=bone ^]
+  ~&  per=ost
+  `+>
+++  poke--args
+  |=  [bone you=ship her=ship mes=?(~ [tex=tape ~])]
+  %.  +<
+  %+  add-resp
+    =+  mez=[%txt !>(?~(mes '' (crip tex.mes)))]
+    [%pass /hi/(scot %p her) %g %mess [her /hi] you mez]  
+  (add-nice ,_`+>.$)
+::
+++  poke-txt
+  %-  add-nice
+  |=  [ost=bone him=ship cor=@t]
+  ~&  from=ost
+  :_  +>.$
+  [ost %pass /di %d %flog %text "< {<him>}: {(trip cor)}"]~
+::
+++  pour
+  |=  [ost=bone pax=path sih=sign]
+  ?>  ?=([%hi @t ~] pax)
+  %.  +<
+  =+  ack=?+(+<.sih "unsuccesful" %nice "succesful")
+  (add-exit (print +>.$ "hi {(trip i.t.pax)} {ack}"))
+::
+--
diff --git a/base/cat/hi/args/gate.hook b/base/cat/hi/args/gate.hook
new file mode 100644
index 000000000..cc33d23f0
--- /dev/null
+++ b/base/cat/hi/args/gate.hook
@@ -0,0 +1 @@
+|=([^ args=[ship $|(~ [tape ~])] ~] hi-args/args) 
diff --git a/base/cat/hi/txt/gate.hook b/base/cat/hi/txt/gate.hook
new file mode 100644
index 000000000..9ad747bf3
--- /dev/null
+++ b/base/cat/hi/txt/gate.hook
@@ -0,0 +1,2 @@
+|=  [^ [arg=cord ~] ~]
+txt/arg