1structure main = 2struct 3 4open TextIO 5fun usage () = 6 (output(stdErr, "Usage: " ^ CommandLine.name() ^ " file.grm\n"); 7 OS.Process.exit OS.Process.failure) 8 9 10 11fun main args = 12 case args of 13 [file] => ParseGen.parseGen file 14 | _ => usage() 15 16val _ = main (CommandLine.arguments()) 17 18end 19