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

Improved gt; Karin C's examples.

Browse Source
This commit is contained in:
aarne
2004-04-30 19:52:34 +00:00
parent fc99b225a7
commit 487571a685
8 changed files with 36 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/GF/API.hs
View File

@@ -157,15 +157,16 @@ randomTreesIO opts gr n = do
g = grammar gr
mx = optIntOrN opts flagDepth 41
generateTrees :: Options -> GFGrammar -> Int -> [Tree]
generateTrees opts gr n =
generateTrees :: Options -> GFGrammar -> [Tree]
generateTrees opts gr =
optIntOrAll opts flagNumber
[tr | t <- Gen.generateTrees gr' cat n, Ok tr <- [mkTr t]]
[tr | t <- Gen.generateTrees gr' cat dpt mn, Ok tr <- [mkTr t]]
where
mkTr = annotate gr' . qualifTerm (absId gr)
gr' = grammar gr
cat = firstAbsCat opts gr
dpt = maybe 3 id $ getOptInt opts flagDepth
mn = getOptInt opts flagAlts
speechGenerate :: Options -> String -> IO ()
speechGenerate opts str = do