Artifact 4608c709867ecfecf2c2e65f059da06a27f39a929f624c8b67b300a5da50c19d:

• File psl-1983/emode/build-emode.csh — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

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

#! /bin/csh -f
# Build a compiled version of EMODE for Vax Unix.
#
# This builds a "COMPLETE SYSTEM"--modifying Rlisp to use the "Rlisp
# interface".

rlisp << 'EOF'              # Portable Standard Lisp version of RLISP
load Useful$    % Don Morrison's utilities.
load Nstruct$   % Routines for structures.
load common$
load SysLisp$
load If!-System$ % Routines for condition exectution based on machine.

OFF USERMODE$   % So we can redefine things.

% Cause constants and structures to be defined at both compile and runtime.
flag( '(DefStruct DefConst), ' EVAL);

% Build EMODE in two parts, due to size problems with FASL
% builder.  (May be unnecessary these days.)
% emode-b-1.b and emode-b-2.b are to be loaded with emode.lap.
faslout "emode-b-1"$
in "emode-files-1.r";
faslend;

faslout "emode-b-2"$
in "emode-files-2.r";
!*GC := NIL$           % Turn off garbage collection messages after
                       % EMODE is loaded, since printing messages
                       % causes consing.
faslend;
quit;
'EOF'