testing grammar distr

This commit is contained in:
aarne
2004-08-03 15:21:01 +00:00
parent a843c8e0ec
commit 166a32b1e7
6 changed files with 51 additions and 2 deletions

View File

@@ -129,7 +129,7 @@ testValidFlag st f x = case f of
optionsOfCommand :: Command -> ([String],[String])
optionsOfCommand co = case co of
CImport _ -> both "old v s opt src retain nocf nocheckcirc cflexer"
CImport _ -> both "old v s opt src retain nocf nocheckcirc cflexer noemit o"
"abs cnc res path"
CRemoveLanguage _ -> none
CEmptyState -> none