Artifact 7b20d5790593fe28d66ec33a66889b9f77efbd6fe5d48f7c2076038afbafe887:

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

#!/bin/csh -f

# Compile a single package.

# Author: Anthony C. Hearn.

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

$reduce/reduce.$lisp >& $reduce/log/$1.blg << EOF

symbolic;

if getenv "lisp" = "csl"   % 'csl memq lispsystem!*
  then <<on backtrace;  % In case something goes wrong.
	 !*savedef := nil>>
 else <<load compiler;
	errorset('(load compat),nil,nil); % PSL compiler support.
        on verboseload;
	% Specific package loads to avoid BPS problems.
	if '$1 eq 'susy2 then flag('(susy2),'lap)
	 else if '$1 eq 'fps
	  then load_package limits,factor,specfn,sfgamma
	 else if '$1 eq 'mrvlimit then load_package taylor
	% Memory increases to avoid heap allocation problems.
	 else if getenv "MACHINE" neq "sunos" then nil
	 else if '$1 eq 'defint
	  then set_heap_size 1200000 % 1000000 too small.
	 else if '$1 memq '(specfn ztrans)
	  then set_heap_size 1000000  % 700000 is too small.
%        else if '$1 eq 'conlaw % Needs more ID space.
%         then <<load big!-faslend; initcodemax!* := 200>>
	>>;

load remake;

!*argnochk := t;

in "$reduce/package.red"\$

package!-remake '$1;

if !*faslp and flagp('$1,'core_package)
  then system "touch $reduce/lisp/$lisp/$MACHINE/mkreduce";

bye;
EOF