msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Use ATK_HOME variable to find resources.

Browse Source
This commit is contained in:
bringert
2005-12-14 15:11:26 +00:00
parent f505e18ea2
commit d284e54aed
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -23,6 +23,7 @@ import Speech.ATKRec
import Control.Monad
import Data.IORef
import System.Environment
import System.IO
import System.IO.Unsafe
@@ -30,7 +31,7 @@ import System.IO.Unsafe
config = "/home/aarne/atk/atkrec/atkrec.cfg"
res = "/home/aarne/atk/atk/Resources"
res = "/home/bjorn/src/atk/Resources"
hmmlist = res ++ "/UK_SI_ZMFCC/hmmlistbg"
mmf0 = res ++ "/UK_SI_ZMFCC/WI4"
mmf1 = res ++ "/UK_SI_ZMFCC/BGHMM2"
@@ -44,6 +45,12 @@ 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