diff options
| author | bringert <bringert@cs.chalmers.se> | 2005-12-14 15:11:26 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2005-12-14 15:11:26 +0000 |
| commit | 82cb712132a99692f794a7b9b13408e3f7a55c3f (patch) | |
| tree | b7d849e003dbc96be9424117271e6ae05ce53a4a /src | |
| parent | e3a896685cda238603d3fc24388cd52a74f8ff25 (diff) | |
Use ATK_HOME variable to find resources.
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/System/ATKSpeechInput.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/GF/System/ATKSpeechInput.hs b/src/GF/System/ATKSpeechInput.hs index a470fe9e7..eac9765c1 100644 --- a/src/GF/System/ATKSpeechInput.hs +++ b/src/GF/System/ATKSpeechInput.hs @@ -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 |