#! /bin/csh -fx
##############################################################################
#
# File:         PDIST:MAKE-PSLCOMP
# Description:  This file constructs a new PSLCOMP.
# Author:       Leigh Stoller
# Created:      03-Nov-86
# Modified:     
# Mode:         Text
#
# (c) Copyright 1986, University of Utah, all rights reserved.
#
##############################################################################
#
# Revisions:
#
# 03-Mar-87 (Leigh Stoller)
#  Now load pslcomp, which does not use objects or pathnames. See pslcomp.sl
#   in the comp directory.
#
###############################################################################

pushd $psys
mv -f $psys/pslcomp.img $psys/old-pslcomp.img

setenv SavingPSL yes		# skip user startup before savesystem

$psys/bare-psl << EOF
(setq loaddirectories* '("" "\$pl/" "\$pll/"))
(on verboseload)
(load pslcomp init-file)
(load strings common)
(savesystem "PSL 3.4 Compiler" "\$psys/pslcomp"
   '((read-init-file "pslcomp")))
(exitlisp)
EOF

@ pslcompstatus = $status
popd
$psys/sparsify $psys/pslcomp.img
@ status = $pslcompstatus

# End of file.
