command tb for creating treebanks

src/GF/Shell/HelpFile.hs

@@ -229,6 +229,13 @@ txtHelpFile =
   "\n  examples:" ++
   "\n     p -lang=Cncdecimal \"123\" | at num2bin | l   -- convert dec to bin" ++
   "\n" ++
+  "\ntb, tree_bank: tb" ++
+  "\n      Generate a multilingual treebank from a list of trees." ++
+  "\n  flags:" ++
+  "\n     -xml      wrap the treebank with XML tags" ++
+  "\n  examples:" ++
+  "\n     gr -cat=S -number=100 | tb" ++
+  "\n" ++
   "\ntt, test_tokenizer: tt String" ++
   "\n      Show the token list sent to the parser when String is parsed." ++
   "\n      HINT: can be useful when debugging the parser." ++

src/GF/Shell/PShell.hs

@@ -113,6 +113,7 @@ pCommand ws = case ws of
   "tt" : s      -> aString CTestTokenizer s
   "cc" : s      -> aUnit   $ CComputeConcrete $ unwords s
   "so" : s      -> aUnit   $ CShowOpers $ unwords s
+  "tb" : []     -> aUnit   CTreeBank
 
   "tq" : i:o:[] -> aUnit   (CTranslationQuiz (language i) (language o))
   "tl":i:o:[]   -> aUnit   (CTranslationList (language i) (language o))

src/GF/Shell/ShellCommands.hs

@@ -48,6 +48,7 @@ data Command =
  | CTranslate Language Language
  | CGenerateRandom
  | CGenerateTrees
+ | CTreeBank
  | CPutTerm
  | CWrapTerm I.Ident
  | CApplyTransfer (Maybe I.Ident, I.Ident)
@@ -182,6 +183,7 @@ optionsOfCommand co = case co of
   CGenerateRandom -> both "cf prob" "cat lang number depth"
   CGenerateTrees -> both "metas" "atoms depth alts cat lang number"
   CPutTerm -> flags "transform number"
+  CTreeBank -> opts "xml"
   CWrapTerm _ -> opts "c"
   CApplyTransfer _ -> flags "lang transfer"
   CMorphoAnalyse -> both "short" "lang"