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