#!/bin/csh -fx
#
#  compile-all -- script to compile everything
#
# $Header: compile-all,v 1.3 91/12/12 02:35:37 wlott Exp $

if ($#argv) then
	set subdir = $argv[1]
else
	set subdir = alpha
endif

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 *features* (list* $features *features*))
(setf (search-list "target:") '("$dest/" "$src/"))
(load "target:tools/setup")
(setf *interactive* nil *gc-verbose* nil)
(load "target:tools/worldcom")
(quit)
EOF

$lisp -noinit << EOF
(setf *features* (list* $features *features*))
(setf (search-list "target:") '("$dest/" "$src/"))
(setf (search-list "clx:") '("target:clx/"))
(load "target:tools/setup")
(setf *interactive* nil *gc-verbose* nil)
(load "target:tools/clxcom")
(quit)
EOF

$lisp -noinit << EOF
(setf *features* (list* $features *features*))
(setf (search-list "target:") '("$dest/" "$src/"))
(load "target:tools/setup")
(setf *interactive* nil *gc-verbose* nil)
(load "target:tools/hemcom")
(quit)
EOF

$lisp -noinit << EOF
(setf *features* (list* $features *features*))
(setf (search-list "target:") '("$dest/" "$src/"))
(load "target:tools/setup")
(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..."
