Skip to content
Snippets Groups Projects
Commit f236a45a authored by ram's avatar ram
Browse files

Added a -interactive switch which sets *interactive* to true when compiling.

parent 75e62b4b
No related branches found
No related tags found
No related merge requests found
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
# #
# compile-all -- script to compile everything # 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 features = ()
set misfeatures = () set misfeatures = ()
...@@ -11,6 +11,7 @@ set subdir = alpha ...@@ -11,6 +11,7 @@ set subdir = alpha
set core = "" set core = ""
set clean = 0 set clean = 0
set update = 1 set update = 1
set interactive = "nil"
set bootstrap = "target:bootstrap" set bootstrap = "target:bootstrap"
set systems = "" set systems = ""
...@@ -47,6 +48,9 @@ while ($#argv > 0) ...@@ -47,6 +48,9 @@ while ($#argv > 0)
set misfeatures = ($misfeatures $argv[2]) set misfeatures = ($misfeatures $argv[2])
shift shift
breaksw breaksw
case "-interactive":
set interactive = "t"
breaksw
# Source tree management: # Source tree management:
case "-clean": case "-clean":
...@@ -84,6 +88,9 @@ Try these: ...@@ -84,6 +88,9 @@ Try these:
-bootstrap [target:bootstrap] -bootstrap [target:bootstrap]
File to load into lisp before compiling. File to load into lisp before compiling.
-interactive <no arg>
Print compiler output to terminal instead of log files.
-misfeature <feature> -misfeature <feature>
Remove <feature> from the features when compiling. May be used more Remove <feature> from the features when compiling. May be used more
than once. than once.
...@@ -200,6 +207,7 @@ $lisp -noinit -eval '(eval (read))' << EOF ...@@ -200,6 +207,7 @@ $lisp -noinit -eval '(eval (read))' << EOF
(setf (search-list "target:") '("$dest/" $src)) (setf (search-list "target:") '("$dest/" $src))
(setq *compile-verbose* nil *compile-print* nil) (setq *compile-verbose* nil *compile-print* nil)
(load "target:tools/setup" :if-source-newer :load-source) (load "target:tools/setup" :if-source-newer :load-source)
(setf *interactive* $interactive *gc-verbose* nil)
(comf "target:tools/setup" :load t) (comf "target:tools/setup" :load t)
(when (probe-file "${bootstrap}.lisp") (comf "$bootstrap")) (when (probe-file "${bootstrap}.lisp") (comf "$bootstrap"))
(quit)) (quit))
...@@ -225,10 +233,10 @@ while ($#sysinfo > 0) ...@@ -225,10 +233,10 @@ while ($#sysinfo > 0)
(setf *features* (setf *features*
(set-difference (list* $features *features*) '($misfeatures))) (set-difference (list* $features *features*) '($misfeatures)))
(setf (search-list "target:") '("$dest/" $src)) (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 "target:tools/setup")
(load "$bootstrap" :if-does-not-exist nil) (load "$bootstrap" :if-does-not-exist nil)
(setf *interactive* nil *gc-verbose* nil) (setf *interactive* $interactive *gc-verbose* nil)
(load "target:tools/$this_comfile") (load "target:tools/$this_comfile")
(quit)) (quit))
EOF EOF
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment