Commit 6bd605ca authored by wlott's avatar wlott
Browse files

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.
parent 2e00ad30
#!/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..."
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment