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

Update docs for -quiet switch, make require respect it

slava 2006-12-11 02:33:13 +00:00
parent 9e94b6d423
commit d0362576df
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/handbook/cli.facts
View File

@ -1,4 +1,4 @@
USING: help parser shells ; USING: help parser shells modules ;
ARTICLE: "cli" "Command line usage" ARTICLE: "cli" "Command line usage"
"Unless the " { $snippet "-no-user-init" } " command line switch is specified, The startup routine runs the " { $snippet ".factor-rc" } " file in the user's home directory, if it exists. This file can contain initialization and customization for your development environment." "Unless the " { $snippet "-no-user-init" } " command line switch is specified, The startup routine runs the " { $snippet ".factor-rc" } " file in the user's home directory, if it exists. This file can contain initialization and customization for your development environment."
@ -48,4 +48,5 @@ ARTICLE: "standard-cli-args" "General command line switches"
{ { $snippet "-e=" { $emphasis "code" } } { "This specifies a code snippet to evaluate. If you want Factor to exit immediately after, also specify " { $snippet "-shell=none" } "." } } { { $snippet "-e=" { $emphasis "code" } } { "This specifies a code snippet to evaluate. If you want Factor to exit immediately after, also specify " { $snippet "-shell=none" } "." } }
{ { $snippet "-shell=" { $emphasis "shell" } } { { $snippet { $emphasis "shell" } } " is either " { $link tty } ", " { $link ui } ", " { $link none } ", or the name of any other word in the " { $vocab-link "shells" } " vocabulary. This specifies the user interface to run on startup." } } { { $snippet "-shell=" { $emphasis "shell" } } { { $snippet { $emphasis "shell" } } " is either " { $link tty } ", " { $link ui } ", " { $link none } ", or the name of any other word in the " { $vocab-link "shells" } " vocabulary. This specifies the user interface to run on startup." } }
{ { $snippet "-no-user-init" } { "If specified, Factor will not run the " { $snippet "~/.factor-rc" } " file on startup" } } { { $snippet "-no-user-init" } { "If specified, Factor will not run the " { $snippet "~/.factor-rc" } " file on startup" } }
{ { $snippet "-quiet" } { "If set, " { $link run-file } " and " { $link require } " will not print load messages" } }
} ; } ;

9
core/modules.factor
View File

@ -27,9 +27,16 @@ TUPLE: module name loc directory files tests help main ;
: module-files* ( module -- seq ) : module-files* ( module -- seq )
dup module-directory swap module-files process-files ; dup module-directory swap module-files process-files ;
: loading-module ( name -- )
"quiet" get [
drop
] [
"Loading module " write write "..." print flush
] if ;
: load-module ( name -- ) : load-module ( name -- )
[ [
"Loading module " write dup write "..." print dup loading-module
[ dup module-def run-file ] assert-depth drop [ dup module-def run-file ] assert-depth drop
] no-parse-hook ; ] no-parse-hook ;