From 10e4d901b94a029bd9a6f62c421ecdf0baafd139 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 10 Feb 2008 20:47:41 +0000
Subject: * interp/sys-driver.boot (executeSpadScript): By default make
script execution quiet. Support --verbose for verbose processing.
---
src/ChangeLog | 5 +++++
src/interp/sys-driver.boot | 14 ++++++++++----
2 files changed, 15 insertions(+), 4 deletions(-)
(limited to 'src')
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)
--
cgit v1.2.3