GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-16 14:42:50 -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 926ac1b1e5
commit b67b5e1d5f
7 changed files with 122 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Shell.hs
View File

@@ -54,6 +54,7 @@ data Command =
| CParse
| CTranslate Language Language
| CGenerateRandom Int
| CGenerateTrees Int
| CPutTerm
| CWrapTerm Ident
| CMorphoAnalyse
@@ -187,6 +188,8 @@ execC co@(comm, opts0) sa@((st,(h,_)),a) = case comm of
_ -> do
ts <- randomTreesIO opts gro (optIntOrN opts flagNumber n)
returnArg (ATrms ts) sa
CGenerateTrees n -> returnArg (ATrms $ generateTrees opts gro n) sa
CPutTerm -> changeArg (opTT2CommandArg (optTermCommand opts gro) . s2t) sa
----- CWrapTerm f -> changeArg (opTT2CommandArg (return . wrapByFun opts gro f)) sa