reduce-historical/r37/lisp/csl/util/getconf.red

% getconf.red

% Hearn keeps his master configuration data (at least in a pre-release
% version of 3.7) in two DOS batch files. This script extracts the
% information and puts it here where I want it!


% To run this script you need a working REDUCE. If you were having to
% build for the VERY first time and did not have an existing config.lsp
% file you would need to transcribe the information from the batch files
% mentioned here by hand. But once you have a REDUCE built you can select
% the reduce build directory as current and go
%     r37 ../util/getconf.red
% to refresh ../util/config.lsp from that top-level data.

symbolic;

a := open("../../../upackage.bat", 'input);
p1 := nil;
while atom p1 and p1 neq !$eof!$ do <<
   a := rds a; p1 := read(); a := rds a >>;

p2 := w := nil;
while w neq !$eof!$ do <<
   w := nil;
   while atom w and w neq !$eof!$ do <<
      a := rds a; w := read(); a := rds a >>;
   if not atom w then p2 := append(p2, w) >>;

close a;
a := open("../../../xpackage.bat", 'input);

p3 := w := nil;
while w neq !$eof!$ do <<
   w := nil;
   while atom w and w neq !$eof!$ do <<
      a := rds a; w := read(); a := rds a >>;
   if not atom w then p3 := append(p3, w) >>;

close a;

a := open("../util/config.lsp", 'output);
<< a := wrs a; linelength 72;
   print p1; terpri();
   print p2; terpri();
   print p3; terpri();
   close wrs a >>;

end;