Artifact c5dd0960bf6085b6e4bef76b6530158b8b93d61e5e82198a1957a143695ae559:

• File psl-1983/20-util/whereis.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: 714) [annotate] [blame] [check-ins using] [more...]

• File psl-1983/3-1/util/20/whereis.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: 714) [annotate] [blame] [check-ins using]

% Scan the *.ins files
% for a special Token
Loadtime Load DIR!-STUFF$

InsList!*:=Vector2List GetCleanDir "<psl.util.ins>*.ins"$

Procedure ShowAllIns();
Begin scalar  R,C,OldC;
 For each F in InsList!* do
    <<C:=OPEN(F,'input);
      OldC:=RDS C; R:=READ(); RDS OldC;
      Close C;
      Print F;
      Print R>>;
End;

Procedure LoadAllIns();
Begin scalar  R,C,OldC;
 For each F in InsList!* do
    <<C:=OPEN(F,'input);
      OldC:=RDS C; R:=READ(); RDS OldC;
      Close C;
      For Each x in R do Put(x,'DefinedIn,F);
      PrintF(" %r  loaded %n",F)>>
End;

Procedure WhereIs X;
 Begin scalar y;
   if(y:=get(x,'DefinedIn)) then Return y;
   if getd x then return "In The Kernel ";
   return NIL;
 end;