diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/sys-driver.boot | 14 |
2 files changed, 15 insertions, 4 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index c718ec7e..6628929f 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2008-02-10 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * interp/sys-driver.boot (executeSpadScript): By default make + script execution quiet. Support --verbose for verbose processing. + 2008-02-09 Gabriel Dos Reis <gdr@cs.tamu.edu> Add support for batch processing. diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index f2fe5d7f..e6faafe4 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -53,6 +53,8 @@ $verboseInterprerter := true $PrintCompilerMessageIfTrue := true +++ +$options := [] +++ Initialization routine run by the core system before handing off +++ to the interpreter or compiler. @@ -191,10 +193,14 @@ executeSpadScript(progname,options,file) == $BOOT := NIL $NEWSPAD := true $SPAD := true - -- $EchoLines := false - -- ECHO_-META : fluid := false - -- $verboseInterprerter := false - -- $ProcessInteractiveValue := true + if getOption(Option '"verbose",%systemOptions()) then + $verboseInterprerter := true + $options := [] + $ProcessInteractiveValue := false + else + $verboseInterprerter := false + $options := [["quiet"]] + $ProcessInteractiveValue := true CATCH($intCoerceFailure, CATCH($intSpadReader,read [file])) coreQuit (errorCount()> 0 => 1; 0) |