command tb for creating treebanks

This commit is contained in:
aarne
2006-02-08 10:18:00 +00:00
parent 9758029c55
commit 39846cc94c
8 changed files with 94 additions and 1 deletions

View File

@@ -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))