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/ShellCommands.hs | 3 +++
 1 file changed, 3 insertions(+)

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

diff --git a/src/GF/Shell/ShellCommands.hs b/src/GF/Shell/ShellCommands.hs
index bf7d4f1ff..27e027c50 100644
--- a/src/GF/Shell/ShellCommands.hs
+++ b/src/GF/Shell/ShellCommands.hs
@@ -65,6 +65,7 @@ data Command =
  | CWriteFile  FilePath
  | CAppendFile FilePath
  | CSpeakAloud
+ | CSpeechInput
  | CPutString
  | CShowTerm
  | CSystemCommand String
@@ -197,6 +198,8 @@ optionsOfCommand co = case co of
   CWriteFile  _ -> none
   CAppendFile _ -> none
   CSpeakAloud -> flags "language"
+  CSpeechInput -> flags "lang cat language number"
+
   CPutString -> both "utf8" "filter length"
   CShowTerm -> flags "printer"
   CShowTreeGraph -> opts "c f g o"
-- 
cgit v1.2.3