Artifact 1de9477a1796b855cbd6d3d1692df6728f6c6ebf4571f067e257424a6bd5974a:

• Executable file r37/help/mkinfo.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: 1186) [annotate] [blame] [check-ins using] [more...]

• Executable file r38/help/mkinfo.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: 1186) [annotate] [blame] [check-ins using]

%
% This file arranges to convert the TEX-formatted Reduce help files
% info GNU-info format.
%

symbolic;
off echo;
on comp;

fluid '(package);

package := "redhelp";

symbolic procedure inf x;
   char!-code x;

symbolic procedure channellinelength(f, l);
  begin
    f := wrs f;
    l := linelength l;
    wrs f;
    return l
  end;

symbolic procedure channelprin2(f, x);
  begin
    f := wrs f;
    prin2 x;
    wrs f;
    return x
  end;

symbolic macro procedure channelprintf u;
  begin
    scalar g;
    g := gensym();
    return list('prog, list g,
       list('setq, g, list('wrs, cadr u)),
       'printf . cddr u,
       list('wrs, g))
  end;

symbolic procedure channelterpri f;
  begin
    f := wrs f;
    terpri();
    wrs f;
  end;

symbolic procedure channelreadch f;
  begin
    scalar c;
    f := rds f;
    c := readch();
    rds f;
    return c
  end;

in "comphelp.red"$
in "helpunx.red"$
in "minitex.red"$
 
dir_src := "~/reduce/doc/help/";

job(bldmsg("%w.tex",package), "null.fil");

delete!-file "null.fil";

job(bldmsg("%w.tex",package), bldmsg("%w.x",package));

in "sed.red"$

bye;