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

generation command gt n

Browse Source
This commit is contained in:
aarne
2004-04-30 15:18:38 +00:00
parent c9d10ab5ed
commit fc99b225a7
7 changed files with 122 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/GF/API.hs
View File

@@ -23,6 +23,7 @@ import qualified Macros as M
import TypeCheck
import CMacros
import Transfer
import qualified Generate as Gen
import Option
import Custom
@@ -156,10 +157,21 @@ randomTreesIO opts gr n = do
g = grammar gr
mx = optIntOrN opts flagDepth 41
generateTrees :: Options -> GFGrammar -> Int -> [Tree]
generateTrees opts gr n =
optIntOrAll opts flagNumber
[tr | t <- Gen.generateTrees gr' cat n, Ok tr <- [mkTr t]]
where
mkTr = annotate gr' . qualifTerm (absId gr)
gr' = grammar gr
cat = firstAbsCat opts gr
speechGenerate :: Options -> String -> IO ()
speechGenerate opts str = do
let lan = maybe "" (" --language" +++) $ getOptVal opts speechLanguage
system ("echo" +++ "\"" ++ str ++ "\" | festival --tts" ++ lan)
system ("flite" +++ "\" " ++ str ++ "\"")
--- system ("echo" +++ "\"" ++ str ++ "\" | festival --tts" ++ lan)
return ()
optLinearizeTreeVal :: Options -> GFGrammar -> Tree -> String