From 5a480fac520db1bab6f1336bee9b2031dbd36cab Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Tue, 13 Dec 2005 21:03:56 +0000
Subject: Added semi-working speech_input command.

---
 src/GF/Shell/PShell.hs | 1 +
 1 file changed, 1 insertion(+)

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

diff --git a/src/GF/Shell/PShell.hs b/src/GF/Shell/PShell.hs
index cd54c71ed..77264fee9 100644
--- a/src/GF/Shell/PShell.hs
+++ b/src/GF/Shell/PShell.hs
@@ -134,6 +134,7 @@ pCommand ws = case ws of
   "af" : f : s  -> aString (CAppendFile (unquote f)) s
   "rf" : f : [] -> aUnit   (CReadFile (unquote f))
   "sa" : s      -> aString CSpeakAloud s
+  "si" : []     -> aUnit   CSpeechInput
   "ps" : s      -> aString CPutString s
   "st" : s      -> aTerm   CShowTerm s
   "!"  : s      -> aUnit   (CSystemCommand (unwords s))
-- 
cgit v1.2.3