command-line: adding command-line-options for easy options parsing

basis/command-line/command-line-docs.factor

@@ -1,4 +1,4 @@
-USING: help.markup help.syntax io.pathnames strings system vocabs vocabs.loader ;
+USING: help.markup help.syntax io.pathnames sequences strings system vocabs vocabs.loader ;
 IN: command-line
 
 HELP: run-bootstrap-init
@@ -30,6 +30,11 @@ HELP: command-line
 { $var-description "When Factor is run with a script, this variable contains the list of command line arguments which follow the name of the script on the command line. In deployed applications, it contains the full list of command line arguments. In all other cases it is set to " { $link f } "." }
 { $see-also vm-path } ;
 
+HELP: command-line-options
+{ $values { "args" sequence } { "args'" sequence } }
+{ $description "Used to pop off command-line arguments specified by a '" { $snippet "-" } "' (dash) prefix, setting them as string variables with optional values." } ;
+
+
 HELP: main-vocab-hook
 { $var-description "Global variable holding a quotation which outputs a vocabulary name. UI backends set this so that the UI can automatically start if the prerequisites are met (for example, " { $snippet "$DISPLAY" } " being set on X11)." } ;
 

basis/command-line/command-line-tests.factor

@@ -33,3 +33,9 @@ USING: command-line namespaces tools.test ;
 { "a:b:c" } [ { "factor" "-roots=a:b:c" } parse-command-line
     "roots" get-global
 ] unit-test
+
+{ { "arg1" "arg2" } t "12" f } [
+    { "-foo" "-bar=12" "-no-baz" "arg1" "arg2" }
+    command-line-options
+    "foo" get "bar" get "baz" get
+] unit-test

basis/command-line/command-line.factor

@@ -62,6 +62,11 @@ SYMBOL: command-line
 : param ( param -- )
     "=" split1 [ var-param ] [ bool-param ] if* ;
 
+: command-line-options ( args -- args' )
+    [ dup ?first "-" ?head ] [
+        [ CHAR: - = ] trim-head param rest
+    ] while drop ;
+
 : (parse-command-line) ( args -- )
     [
         unclip "-" ?head [