#! /bin/csh
#-------------------------------------------------------------
#
# Compile REDUCE help info for Microsoft help compiler format
#
# After running this script, you need to do, on a PC,
# hc31 $package
# assuming the file $package.hpj is there.
#
#-------------------------------------------------------------
set package=redhelp
# if ("$1" != "") set package=$1
reduce <<EOF
ON ERRCONT;
symbolic;
on backtrace;
on comp;
!*windows := t;
in "comphelp.red"\$
in "helpwin.red"\$
in "minitex.red"\$
% TR minitex;
% package := "$1";
%if package="" then << dir_src := "redref/"; package := "redref">>
% else dir_src := "packages/";
dir_src := "$reduce/doc/help/";
package := "redhelp";
job(bldmsg("%w.tex",package),"/dev/null");
<<
terpri();
prin2t "=================================================";
prin2t " SECOND RUN ";
prin2t "=================================================";
>>;
job(bldmsg("%w.tex",package),"$package.rtf");
%===========================
%
%===========================
% for each s in section_list do print s;
bye;
EOF