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/interp/sys-driver.boot | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

(limited to 'src/interp')

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