steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

-e command line switch to eval code

slava 2006-11-27 01:36:36 +00:00
parent 26c1a2f4ba
commit 2a260ea6e4
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
library/cli.factor
View File

@ -40,6 +40,7 @@ parser sequences strings ;
: default-cli-args : default-cli-args
#! Some flags are *on* by default, unless user specifies #! Some flags are *on* by default, unless user specifies
#! -no-<flag> CLI switch #! -no-<flag> CLI switch
"e" off
"user-init" on "user-init" on
"compile" on "compile" on
"native-io" on "native-io" on
@ -54,5 +55,8 @@ parser sequences strings ;
macosx? "shell" get "ui" = and ; macosx? "shell" get "ui" = and ;
: parse-command-line ( -- ) : parse-command-line ( -- )
[
cli-args [ cli-arg ] subset cli-args [ cli-arg ] subset
ignore-cli-args? [ drop ] [ [ ?run-file ] each ] if ; ignore-cli-args? [ drop ] [ [ run-file ] each ] if
"e" get eval
] try ;