Improved gt; Karin C's examples.

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

View File

@@ -70,9 +70,9 @@ pCommand ws = case ws of
"p" : s -> aString CParse s
"t" : i:o: s -> aString (CTranslate (language i) (language o)) s
"gr" : [] -> aUnit (CGenerateRandom 1)
"gr" : t -> aTerm (CGenerateRandom 1) t
"gt" : n : [] -> aUnit (CGenerateTrees (readIntArg n))
"gr" : [] -> aUnit CGenerateRandom
"gr" : t -> aTerm CGenerateRandom t
"gt" : [] -> aUnit CGenerateTrees
"pt" : s -> aTerm CPutTerm s
----- "wt" : f : s -> aTerm (CWrapTerm (string2id f)) s
"ma" : s -> aString CMorphoAnalyse s