1structure mosmlmain =
2struct
3
4val name = CommandLine.name()
5val _ = case CommandLine.arguments() of
6          [] => (TextIO.output(TextIO.stdErr, name ^ ": no arguments\n");
7                 OS.Process.exit OS.Process.failure)
8        | args => List.app LexGen.lexGen args
9
10end
11