From 0c6944433bc78512bc6d6255d43893066dadc9d6 Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohaitch@gmail.com>
Date: Tue, 7 Oct 2014 16:51:49 -0700
Subject: [PATCH] Tank grep done

---
 main/app/grep/core.hook | 34 +++++++++++++++++++++++++---------
 1 file changed, 25 insertions(+), 9 deletions(-)

diff --git a/main/app/grep/core.hook b/main/app/grep/core.hook
index 2dffd7d2b..ee03a4f1c 100644
--- a/main/app/grep/core.hook
+++ b/main/app/grep/core.hook
@@ -24,20 +24,36 @@
   =+  sih=;;(sign sih)
   ?^  pax  `+>.$
   :_  +>.$
-  ?-    +<.sih
+  ?-    &2.sih
       %nice
     [ost %give %nice ~]~
       %rush
-    =+  lin=?-(+>-.sih %txt (trip p.sih), %tang ~(ram re -.p.sih))
-    =+  tag=(trip arg)
     %-  spam
-    |-
-    ?:  =(tag (scag (lent tag) lin))
+    ?-  &3.sih
+        %txt
+      ?.  (match (trip p.sih))  [%rush %tang ~]
       +.sih
-    ?~  lin
-      [%rush %tang ~]
-    $(lin t.lin)
-  ==
+        %tang
+    =<  [%rush %tang .]
+    %+  murn  p.sih
+    |=  a=tank
+    ^-  (unit tank)
+    ?-  -.a
+        %leaf
+      ?.((match p.a) ~ `a)
+        ?(%palm %rose)
+      =.  q.a  (murn q.a ..$)
+      ?~  q.a  ~
+      (some a)
+    ==
+  ==  ==
+++  match
+  |=  a=tape
+  =+  tag=(trip arg)
+  ?:  =(tag (scag (lent tag) a))
+    &
+  ?~  a  |
+  $(a t.a)
 ++  spam
   |*  git=*
   %+  turn