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

Improved gt; Karin C's examples.

Browse Source
This commit is contained in:
aarne
2004-04-30 19:52:34 +00:00
parent b67b5e1d5f
commit 126753651a
10 changed files with 293 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