Add 'dotscape/' from commit 'f306501a68a51b634e895c5fdac70788ae899d75'

git-subtree-dir: dotscape
git-subtree-mainline: 6b91d64fc3
git-subtree-split: f306501a68

dotscape/imperative-shell/shell.sml

@@ -0,0 +1,17 @@
+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 ()