Artifact 1e0c21765361cf251ebc94b13a4cba453c99a29e7e19d33378d23fe138586eb0:

• File psl-1983/emode/temporary-emode-fixes.red — 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: 1292) [annotate] [blame] [check-ins using] [more...]

%
% TEMPORARY-EMODE-FIXES.RED - Tempory "fixes" to PSL to allow EMODE to run.
% 
% Author:      William F. Galway
%              Symbolic Computation Group
%              Computer Science Dept.
%              University of Utah
% Date:        8 June 1982
% Copyright (c) 1982 University of Utah
%


% This file tends to overlap CUSTOMIZE-RLISP-FOR-EMODE.RED.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Measurement tools
fluid '(cons_count);

Symbolic Procedure counting_cons(x,y);
% Version of cons that counts each call, old_cons_function must be set up
% for this to work.
<<
    cons_count := cons_count + 1;
    old_cons_function(x,y)
>>;

Symbolic Procedure start_cons_count();
% Setup to count conses.  Replaces cons with a version that counts calls to
% itself.
begin scalar !*RedefMSG;
      % !*RedefMSG is a fluid, controls printing of "redefined" messages.
    cons_count := 0;
    !*RedefMSG := NIL;
    CopyD('old_cons_function, 'cons);
    CopyD('cons, 'counting_cons);
end;

Symbolic Procedure stop_cons_count();
% Stop "cons counting", return the count.
begin scalar !*RedefMSG;
        % !*RedefMSG is a fluid, controls printing of "redefined" messages.

    !*RedefMSG := NIL;
    CopyD('cons, 'old_cons_function);
    return cons_count;
end;