diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-02-10 20:47:41 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-02-10 20:47:41 +0000 |
| commit | 10e4d901b94a029bd9a6f62c421ecdf0baafd139 (patch) | |
| tree | 9e8ae01a489089eac309038bf85ade7bd601f8f1 /src | |
| parent | 3323315437ba6092fdab0d1fc46240c0d963fb43 (diff) | |
| download | open-axiom-10e4d901b94a029bd9a6f62c421ecdf0baafd139.tar.gz | |
* interp/sys-driver.boot (executeSpadScript): By default make
script execution quiet. Support --verbose for verbose processing.
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) |