diff options
Diffstat (limited to 'src/GF/Shell')
| -rw-r--r-- | src/GF/Shell/Commands.hs | 2 | ||||
| -rw-r--r-- | src/GF/Shell/PShell.hs | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/src/GF/Shell/Commands.hs b/src/GF/Shell/Commands.hs index 19148c1bc..678d3d7da 100644 --- a/src/GF/Shell/Commands.hs +++ b/src/GF/Shell/Commands.hs @@ -238,6 +238,8 @@ execECommand env c = case c of replaceByTermCommand der gr c (actTree (stateSState s)) s ---- "transfer" -> action2commandNext $ ---- transferSubTree (stateTransferFun sgr) gr + "generate" -> \s -> + replaceByTermCommand der gr c (actTree (stateSState s)) s _ -> replaceByEditCommand gr c CAddOption o -> changeStOptions (addOption o) diff --git a/src/GF/Shell/PShell.hs b/src/GF/Shell/PShell.hs index befdb8ea2..7a7f1e702 100644 --- a/src/GF/Shell/PShell.hs +++ b/src/GF/Shell/PShell.hs @@ -73,6 +73,7 @@ pCommand ws = case ws of "gr" : [] -> aUnit CGenerateRandom "gr" : t -> aTerm CGenerateRandom t "gt" : [] -> aUnit CGenerateTrees + "gt" : t -> aTerm CGenerateTrees t "pt" : s -> aTerm CPutTerm s ----- "wt" : f : s -> aTerm (CWrapTerm (string2id f)) s "ma" : s -> aString CMorphoAnalyse s |