Artifact 7b35ddbf2ef2639493ce0a2f89d7d596f9ee146841bad2f0ecfdc08c0500ca39:

• Executable file r37/packages/crack/crstart.red — 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: 1363) [annotate] [blame] [check-ins using] [more...]

module crstart;  % CRACK Startup code

% Moved here from crack header module.
% FJW, 15 July 1998

% load_package ezgcd,odesolve,factor,int,algint$

% Do this load_package only at load time, not at compile time,
% otherwise Win32-PSL can run out of memory during compilation:
% apply1('load_package, '(ezgcd odesolve factor int algint))$

packages_to_load ezgcd,odesolve,factor,int,algint$ % only at load time

% The following procedure definition should not really be here, but it
% also should not be in crack.red, which flags setprop lose if
% necessary.  This flag must be set before the file defining setprop
% is compiled, so that the lose takes effect at compile time rather
% than load time!

% The following is defined in PSL but not CSL:

symbolic procedure setprop(U, L);
   %% Store item L as the property list of U.
   %% FJW: Defined (but NOT flagged lose) in PSL only.
   %% FJW: A crude implementation for CSL.
   %% Note that in CSL flags are properties with value t.
   << for each p in plist U do remprop(U, car p);
      for each p in L do put(U, car p, cdr p) >>$

setcrackflags()$

!*fullroots := t$                       % FJW: should all be local!
!*dfprint := t$
!*nopowers := t$                        % FJW
!*allowdfint := t$                      % FJW: moved here from crintfix

endmodule;

end$