diff options
| author | bringert <bringert@cs.chalmers.se> | 2005-12-13 21:03:56 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2005-12-13 21:03:56 +0000 |
| commit | 5a480fac520db1bab6f1336bee9b2031dbd36cab (patch) | |
| tree | 01210f87844268c0652867df51f4831094fa3e17 /src/GF/Shell/PShell.hs | |
| parent | 9f867c4922cccb6e61b273a55103e2afaeac4bde (diff) | |
Added semi-working speech_input command.
Diffstat (limited to 'src/GF/Shell/PShell.hs')
| -rw-r--r-- | src/GF/Shell/PShell.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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)) |