18 lines
420 B
Standard ML
18 lines
420 B
Standard ML
structure Shell =
|
|
struct
|
|
fun main () =
|
|
case CommandLine.arguments () of
|
|
["-r"] => Converter.main ()
|
|
| [filename] => InitGlfw.main filename
|
|
| [] => print "error: no arguments\n"
|
|
| args =>
|
|
let
|
|
val args = String.concatWith "" args
|
|
val msg = String.concat ["unknown arguments error: \"", args, "\"\n"]
|
|
in
|
|
print msg
|
|
end
|
|
end
|
|
|
|
val _ = Shell.main ()
|