1(*
2 * @TAG(OTHER_PRINCETON_OSS)
3 *)
4
5fun main() = let
6  val name = CommandLine.name()
7in
8  case CommandLine.arguments() of
9    [] => (TextIO.output(TextIO.stdErr, name ^ ": no arguments\n");
10           OS.Process.exit OS.Process.failure)
11  | args => List.app LexGen.lexGen args
12end;
13
14main();
15
16
17