Add option to cli interface to stop scanning options.

src/mainclient/init.dst

@@ -5,22 +5,25 @@
 (var *should-repl* :private false)
 (var *no-file* :private true)
 (var *raw-stdin* :private false)
+(var *handleopts* :private true)
 
 # Flag handlers
 (def handlers :private {
   "h" (fn [] 
     (print "usage: " (get args 0) " [options] scripts...")
-    (print "Options are:")
-    (print "  -h Show this help")
-    (print "  -v Print the version string")
-    (print "  -s Use raw stdin instead of getline like functionality")
-    (print "  -e Execute a string of dst")
-    (print "  -r Enter the repl after running all scripts")
+    (print `Options are:
+  -h Show this help
+  -v Print the version string
+  -s Use raw stdin instead of getline like functionality
+  -e Execute a string of dst
+  -r Enter the repl after running all scripts
+  -- Stop handling options`)
     (os.exit 0)
     1)
   "v" (fn [] (print VERSION) (os.exit 0) 1)
   "s" (fn [] (:= *raw-stdin* true) (:= *should-repl* true) 1)
   "r" (fn [] (:= *should-repl* true) 1)
+  "-" (fn [] (:= *handleopts* false) 1)
   "e" (fn [i] 
     (:= *no-file* false)
     (eval (get args (+ i 1)))
@@ -36,7 +39,7 @@
 (def lenargs (length args))
 (while (< i lenargs)
   (def arg (get args i))
-  (if (= "-" (string.slice arg 0 1))
+  (if (and *handleopts* (= "-" (string.slice arg 0 1)))
     (+= i (dohandler (string.slice arg 1 2) i))
     (do
       (:= *no-file* false)