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