Artifact 82a3b6c7e4b86932d37bad4acaa31a55f0470f3cd42128d9826d2f3c227bc2b3:

• Executable file r34/util/mkfasl — 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: 869) [annotate] [blame] [check-ins using] [more...]

#!/bin/csh -f

# mkfasl --- Make a fasl file.

# Author: Anthony C. Hearn.

rm -f $reduce/log/mk$1.log

$reduce/reduce >& $reduce/log/mk$1.log << EOF

symbolic;

% Compiler loading and modifications.

dskin "$reduce/src/symget.dat";         % Fast symprp access
load compiler;
remprop('wplus2,'one);                  % For hilbertp.
remprop('log,'no!-side!-effects!?);     % So that math can be fasled.
remprop('atan,'no!-side!-effects!?);    % So that math can be fasled.
load fast!-vector;                      % To use IGETV, etc.

dskin "$reduce/src/compat.sl";          % Some improvements ?!

!*verboseload := t;   % To help debugging.
!*fastcar := t;       % Since we assume all car/cdr calls are correct.

for each x in '( $3 ) do eval list('load, x);  % $3 is normally null.

faslout "$reduce/fasl/$1";
in "$reduce/src/$1.red"\$
faslend;

showtime;

bye;

EOF