Artifact cd251a94cb3ba6e586627ef3faab073cdbcc1c96e695ca34840cf09434c2eb34:

• Executable file r38/util/dbuild.psl — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 850) [annotate] [blame] [check-ins using] [more...]

#!/bin/csh -f

# dbuild.psl --- Build a minimal PSL REDUCE sufficient to build all fasl files.

# Author: Anthony C. Hearn.

setenv rexec $reduce/lisp/psl/$MACHINE/red

if ( -e $rexec/reduce.img ) then
   mv $rexec/reduce.img $rexec/,reduce.img
# else if ( -e $rexec/reduce && `wc -c < $rexec/reduce` >> 10000 ) then
#  mv $rexec/reduce $rexec/,reduce
 endif

rm -f $reduce/log/dbuild.log

date > $reduce/log/dbuild.log

pushd $reduce/lisp/psl/$MACHINE/psl

$reduce/lisp/psl/$MACHINE/psl/bpsl -td 14000000 >>& $reduce/log/dbuild.log << EOF

(setq symbolfilename* "$reduce/lisp/psl/$MACHINE/psl/bpsl")

(setq loaddirectories* '("" "$reduce/lisp/psl/$MACHINE/red/"
			    "$reduce/lisp/psl/$MACHINE/psl/"))

(dskin "$reduce/packages/support/dbuild.sl")

(savesystem "Base REDUCE" "$rexec/reduce" nil)

(quit)

EOF

popd

date >> $reduce/log/dbuild.log