progress parsing command line args

imperative-shell/init-glfw.sml

@@ -59,5 +59,6 @@ struct
       ()
     end
 
-  fun main () = RunCML.doit (init, NONE)
+  fun main () =
+    (RunCML.doit (init, NONE); ())
 end

imperative-shell/shell.sml

@@ -1,6 +1,16 @@
 structure Shell =
 struct
-  fun main () = InitGlfw.main ()
+  fun main () =
+    case CommandLine.arguments () of
+      ["-r"] => (print "todo: convert dsc files to sml file\n")
+    | [] => 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 ()