diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-04-13 13:32:58 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-04-13 13:32:58 +0000 |
| commit | 293a0eb98879646643d6f3919f80cd83066a8b1b (patch) | |
| tree | 62360df21f73410952c6d63ddff3e82d1549e03e /src/GF/System | |
| parent | 97956fc13f46d747bd9d1d24b4d00c2f1c673b6c (diff) | |
Added -startcat flag to the pg command.
Diffstat (limited to 'src/GF/System')
| -rw-r--r-- | src/GF/System/ATKSpeechInput.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/GF/System/ATKSpeechInput.hs b/src/GF/System/ATKSpeechInput.hs index 2b46915f5..2e9e5c0a1 100644 --- a/src/GF/System/ATKSpeechInput.hs +++ b/src/GF/System/ATKSpeechInput.hs @@ -110,7 +110,6 @@ recognizeSpeech :: Ident -- ^ Grammar name -> IO [String] recognizeSpeech name language cfg start number = do - -- FIXME: use cat let slf = slfPrinter name start cfg n = prIdent name hmmName = "hmm_" ++ language @@ -119,10 +118,10 @@ recognizeSpeech name language cfg start number = recName = "rec_" ++ language ++ "_" ++ n writeFile "debug.net" slf initATK language - hPutStrLn stderr "Loading grammar..." + hPutStrLn stderr $ "Loading grammar " ++ n ++ " ..." loadGrammarString slfName slf createRecognizer recName hmmName dictName slfName - hPutStrLn stderr "Listening..." + hPutStrLn stderr $ "Listening in category " ++ start ++ "..." s <- replicateM number (recognize recName) return s |