aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog5
-rw-r--r--src/interp/sys-driver.boot14
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)