sml-projects/dotscape/imperative-shell/shell.sml

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 ()