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 b67b5e1d5f
commit 126753651a
10 changed files with 293 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/Shell/PShell.hs
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