GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

Fixed conflict from Aarne's ATK path changes. Added NOILINE pragma to ATK initialized variable.

Browse Source
This commit is contained in:
bringert
2005-12-16 09:54:31 +00:00
parent d284e54aed
commit b569d80d50
1 changed files with 14 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
src/GF/System/ATKSpeechInput.hs
View File

@@ -31,30 +31,25 @@ import System.IO.Unsafe
config = "/home/aarne/atk/atkrec/atkrec.cfg"
res = "/home/bjorn/src/atk/Resources"
hmmlist = res ++ "/UK_SI_ZMFCC/hmmlistbg"
mmf0 = res ++ "/UK_SI_ZMFCC/WI4"
mmf1 = res ++ "/UK_SI_ZMFCC/BGHMM2"
dict = res ++ "/beep.dct"
{-# NOINLINE initialized #-}
initialized :: IORef Bool
initialized = unsafePerformIO $ newIORef False
initATK :: IO ()
initATK = do
b <- readIORef initialized
when (not b) $ do
hPutStrLn stderr "Initializing..."
atk_home <- getEnv "ATK_HOME"
let res = atk_home ++ "/Resources"
hmmlist = res ++ "/UK_SI_ZMFCC/hmmlistbg"
mmf0 = res ++ "/UK_SI_ZMFCC/WI4"
mmf1 = res ++ "/UK_SI_ZMFCC/BGHMM2"
dict = res ++ "/beep.dct"
initialize config
loadHMMSet "hmm_english" hmmlist mmf0 mmf1
loadDict "dict_english" dict
writeIORef initialized True
b <- readIORef initialized
when (not b) $ do
hPutStrLn stderr "Initializing..."
atk_home <- getEnv "ATK_HOME"
let res = atk_home ++ "/Resources"
hmmlist = res ++ "/UK_SI_ZMFCC/hmmlistbg"
mmf0 = res ++ "/UK_SI_ZMFCC/WI4"
mmf1 = res ++ "/UK_SI_ZMFCC/BGHMM2"
dict = res ++ "/beep.dct"
initialize config
loadHMMSet "hmm_english" hmmlist mmf0 mmf1
loadDict "dict_english" dict
writeIORef initialized True
recognizeSpeech :: Ident -- ^ Grammar name
-> Options -> CGrammar -> IO String