generation command gt n

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

View File

@@ -71,8 +71,8 @@ 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)
"gt" : t -> aTerm (CGenerateRandom 1) t
--- "gr" : n : [] -> aUnit (CGenerateRandom (readIntArg n)) -- deprecated 12/5/2001
"gr" : t -> aTerm (CGenerateRandom 1) t
"gt" : n : [] -> aUnit (CGenerateTrees (readIntArg n))
"pt" : s -> aTerm CPutTerm s
----- "wt" : f : s -> aTerm (CWrapTerm (string2id f)) s
"ma" : s -> aString CMorphoAnalyse s