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