testing grammar distr

This commit is contained in:
aarne
2004-08-03 15:21:01 +00:00
parent b01e79de2c
commit 29b3d08046
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