1val _ = PolyML.Compiler.prompt1:=""; 2val _ = PolyML.Compiler.prompt2:=""; 3val _ = PolyML.print_depth 0; 4val _ = use "mllex.sml"; 5 6fun main() = let 7 val name = CommandLine.name() 8in 9 case CommandLine.arguments() of 10 [] => (TextIO.output(TextIO.stdErr, name ^ ": no arguments\n"); 11 OS.Process.exit OS.Process.failure) 12 | args => List.app LexGen.lexGen args 13end; 14