Artifact 2f8b8ee3c20179200bbf545e665fa7711f7a55406a6418eee48cc9f40781bfea:

• Executable file r36/cslsrc/make.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: 790) [annotate] [blame] [check-ins using] [more...]

%
% "makefile" style code for CSL for the recompilation of parts of REDUCE
%
%         A C Norman.   July 1995



module 'make;


fluid '(r36_modules source_directory);

if null source_directory then source_directory := "..";

r36_modules := '(
   (module   "src/module.red")
   (patches  "src/patches.red")
   (arith    "src/arith.red")
   (alg      "src/alg.red")
   );


symbolic procedure bring_up_to_date();
  begin
    scalar done, m, s;
    for each w in r36_modules do <<
      m := car w;
      s := cadr w;
      file := bldmsg("""%w/%w""", source_directory, m);
      file_date := datestamp file;
      module_date := modulep m;
      prin m; ttab 15; prin file; ttab 40; prin module_date;
      ttab 60; print file_date >>;
%   eval '(begin)
    nil
  end;


endmodule;

end;