From a78acc722ec26be2be20f22f74e98329d57008b1 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 5 Oct 2005 19:02:19 +0000
Subject: grep etc

---
 src/GF/Shell/PShell.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/GF/Shell/PShell.hs')

diff --git a/src/GF/Shell/PShell.hs b/src/GF/Shell/PShell.hs
index b555317aa..d01366728 100644
--- a/src/GF/Shell/PShell.hs
+++ b/src/GF/Shell/PShell.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/06/20 16:14:20 $ 
+-- > CVS $Date: 2005/10/05 20:02:20 $ 
 -- > CVS $Author: aarne $
--- > CVS $Revision: 1.25 $
+-- > CVS $Revision: 1.26 $
 --
 -- parsing GF shell commands. AR 11\/11\/2001
 -----------------------------------------------------------------------------
@@ -133,6 +133,7 @@ pCommand ws = case ws of
   "st" : s      -> aTerm   CShowTerm s
   "!"  : s      -> aUnit   (CSystemCommand (unwords s))
   "sc" : s      -> aUnit   (CSystemCommand (unwords s))
+  "g"  : f : s  -> aString (CGrep (unquote f)) s
   
   "sf" : l : [] -> aUnit (CSetLocalFlag (language l))
   "sf" : []     -> aUnit CSetFlag
-- 
cgit v1.2.3