#! /bin/csh -fx
##############################################################################
#
# File:         PDIST:MAKE-pslcomp_pvm
# Description:  This file constructs a new pslcomp_pvm.
# 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_pvm, which does not use objects or pathnames. See pslcomp_pvm.sl
#   in the comp directory.
#
###############################################################################

pushd $psys
if ( -e $psys/.imago) then
    mv -f $psys/pslcomp_pvm.img $psys/old-pslcomp_pvm.img
  else
    mv -f $psys/pslcomp_pvm $psys/old-pslcomp_pvm
endif

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_pvm"
   '((read-init-file "pslcomp_pvm")))
(exitlisp)
EOF

@ pslcomp_pvmstatus = $status
popd
if ( -e $psys/.imago) then
    $psys/sparsify $psys/pslcomp_pvm.img
  else
    $psys/sparsify $psys/pslcomp_pvm
endif

@ status = $pslcompstatus

# End of file.
