GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 08:32:50 -06:00
Code Issues Packages Projects Releases Wiki 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 e3a896685c
commit 82cb712132
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 Control.Monad
import Data.IORef import Data.IORef
import System.Environment
import System.IO import System.IO
import System.IO.Unsafe import System.IO.Unsafe
@@ -30,7 +31,7 @@ import System.IO.Unsafe
config = "/home/aarne/atk/atkrec/atkrec.cfg" 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" hmmlist = res ++ "/UK_SI_ZMFCC/hmmlistbg"
mmf0 = res ++ "/UK_SI_ZMFCC/WI4" mmf0 = res ++ "/UK_SI_ZMFCC/WI4"
mmf1 = res ++ "/UK_SI_ZMFCC/BGHMM2" mmf1 = res ++ "/UK_SI_ZMFCC/BGHMM2"
@@ -44,6 +45,12 @@ initATK = do
b <- readIORef initialized b <- readIORef initialized
when (not b) $ do when (not b) $ do
hPutStrLn stderr "Initializing..." 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 initialize config
loadHMMSet "hmm_english" hmmlist mmf0 mmf1 loadHMMSet "hmm_english" hmmlist mmf0 mmf1
loadDict "dict_english" dict loadDict "dict_english" dict