You can put this code in a file foo.smland run
mosmlc -P full foo.sml
, CommandLine.arguments, , ,
val (cx, cy, s, imgLocation) =
case CommandLine.arguments ()
of [a, b, c, d] -> (a, b, c, d)
| _ -> (usage(); Process.exit Process.failure)
usage.
P.S. mosmlc, , , mosml, help string -> unit.