From 6bd605ca4a902424cb99badebf7a1a80699d9ef1 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 26 Nov 1991 22:10:18 +0000 Subject: [PATCH] Put .../clisp/src/$subdir in target: also so we don't have to have symbolic links from the build area to the source area. Get additional features from .../$subdir/FEATURES instead of assuming :small. If the environment variable $LISP is set, use it instead of lisp when compiling. Also compile PCL. --- tools/compile-all | 59 ++++++++++++++++++++++++++++++++--------------- 1 file changed, 41 insertions(+), 18 deletions(-) diff --git a/tools/compile-all b/tools/compile-all index a93ca2266..62adf3344 100755 --- a/tools/compile-all +++ b/tools/compile-all @@ -1,59 +1,82 @@ -#!/bin/csh -f +#!/bin/csh -fx # -# compile-all -- script to compile everything but PCL +# compile-all -- script to compile everything # -# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/compile-all,v 1.1 1991/10/15 15:30:52 ram Exp $ +# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/compile-all,v 1.2 1991/11/26 22:10:18 wlott Exp $ if ($#argv) then set subdir = $argv[1] else set subdir = alpha endif -set lisp = /afs/cs/project/clisp/@sys/$subdir -lisp -noinit << EOF -(setf (search-list "target:") '("$lisp/")) +set dest = /afs/cs/project/clisp/build/@sys/$subdir +set src = /afs/cs/project/clisp/src/$subdir + +if ($?LISP) then + set lisp = $LISP +else + set lisp = lisp +endif + +if (-e $src/FEATURES) then + set features = (`cat $src/FEATURES`) +else + set features = () +endif + +$lisp -noinit << EOF +(setf *features* (list* $features *features*)) +(setf (search-list "target:") '("$dest/" "$src/")) (load "target:tools/setup") (comf "target:tools/setup") (comf "target:tools/rcs") (quit) EOF -lisp -noinit << EOF -(setf (search-list "target:") '("$lisp/")) +$lisp -noinit << EOF +(setf *features* (list* $features *features*)) +(setf (search-list "target:") '("$dest/" "$src/")) (load "target:tools/setup") -(push :small *features*) (setf *interactive* nil *gc-verbose* nil) (load "target:tools/worldcom") (quit) EOF -lisp -noinit << EOF -(setf (search-list "target:") '("$lisp/")) +$lisp -noinit << EOF +(setf *features* (list* $features *features*)) +(setf (search-list "target:") '("$dest/" "$src/")) (setf (search-list "clx:") '("target:clx/")) (load "target:tools/setup") -(push :small *features*) (setf *interactive* nil *gc-verbose* nil) (load "target:tools/clxcom") (quit) EOF -lisp -noinit << EOF -(setf (search-list "target:") '("$lisp/")) +$lisp -noinit << EOF +(setf *features* (list* $features *features*)) +(setf (search-list "target:") '("$dest/" "$src/")) (load "target:tools/setup") -(push :small *features*) (setf *interactive* nil *gc-verbose* nil) (load "target:tools/hemcom") (quit) EOF -lisp -noinit << EOF -(setf (search-list "target:") '("$lisp/")) +$lisp -noinit << EOF +(setf *features* (list* $features *features*)) +(setf (search-list "target:") '("$dest/" "$src/")) (load "target:tools/setup") -(push :small *features*) (setf *interactive* nil *gc-verbose* nil) (load "target:tools/comcom") (quit) EOF +$lisp -noinit << EOF +(setf *features* (list* $features *features*)) +(setf (search-list "target:") '("$dest/" "$src/")) +(setf *gc-verbose* nil) +(load "target:tools/pclcom") +(quit) +EOF + echo "Done..." -- GitLab