From f236a45a24597cb168f3d383280aa17c9acdaafc Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 4 Jun 1992 18:20:32 +0000 Subject: [PATCH] Added a -interactive switch which sets *interactive* to true when compiling. --- tools/compile-all | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/tools/compile-all b/tools/compile-all index 500bf2ce8..2b08e2b35 100755 --- a/tools/compile-all +++ b/tools/compile-all @@ -2,7 +2,7 @@ # # compile-all -- script to compile everything # -# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/compile-all,v 1.9 1992/03/04 09:55:21 wlott Exp $ +# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/compile-all,v 1.10 1992/06/04 18:20:32 ram Exp $ set features = () set misfeatures = () @@ -11,6 +11,7 @@ set subdir = alpha set core = "" set clean = 0 set update = 1 +set interactive = "nil" set bootstrap = "target:bootstrap" set systems = "" @@ -47,6 +48,9 @@ while ($#argv > 0) set misfeatures = ($misfeatures $argv[2]) shift breaksw + case "-interactive": + set interactive = "t" + breaksw # Source tree management: case "-clean": @@ -84,6 +88,9 @@ Try these: -bootstrap [target:bootstrap] File to load into lisp before compiling. + -interactive <no arg> + Print compiler output to terminal instead of log files. + -misfeature <feature> Remove <feature> from the features when compiling. May be used more than once. @@ -200,6 +207,7 @@ $lisp -noinit -eval '(eval (read))' << EOF (setf (search-list "target:") '("$dest/" $src)) (setq *compile-verbose* nil *compile-print* nil) (load "target:tools/setup" :if-source-newer :load-source) + (setf *interactive* $interactive *gc-verbose* nil) (comf "target:tools/setup" :load t) (when (probe-file "${bootstrap}.lisp") (comf "$bootstrap")) (quit)) @@ -225,10 +233,10 @@ while ($#sysinfo > 0) (setf *features* (set-difference (list* $features *features*) '($misfeatures))) (setf (search-list "target:") '("$dest/" $src)) - (setq *compile-verbose* nil *compile-print* nil) + (setq *compile-verbose* nil *compile-print* nil) (load "target:tools/setup") (load "$bootstrap" :if-does-not-exist nil) - (setf *interactive* nil *gc-verbose* nil) + (setf *interactive* $interactive *gc-verbose* nil) (load "target:tools/$this_comfile") (quit)) EOF -- GitLab