% $Id: common-info.tex 237 2017-01-29 18:20:42Z karl $
% Common TeX definitions used only in the *-info.tex literate sources.
% Not installed.
% 
% Copyright 2009-2017 TeX Users Group
% Copyright 1996-2009 Eitan M. Gurari
% Released under LPPL 1.3c+.
% See tex4ht-cpright.tex for license text.

\expandafter\ifx \csname YES\HTML\endcsname\relax
    % begin comment. 21/07/2016 (dg)
    %   on first run \infoIVht expects \ConfigureHinput
    %   ( \def\infoIVht#1\ConfigureHinput{..} )
    %   so we feed it with "\ConfigureHinput" (no expansion here, merely
    %   a delimiter); the rest is slurped until the "//".
    % end
    \def\CleanComment{[0]\ConfigureHinput\id:gobble}
\else
    \let\saveCd=\<
    \def\<{\edef\FIRST{\the\inputlineno}\let\<\saveCd \saveCd}
    %
    % Eitan's commented-out definition started like this (and doesn't work):
    %\def\CleanComment#1tex4ht-info#2#3#4.#5>#6//{[\eatIV#4%     <--jobname
    %
    % Eitan's active definition started like this:
    %\def\CleanComment#1tex4ht-info#2#3#4.#5>#6//{[#4%     <--jobname
    %
    % However, that didn't work either.  #4 is not the jobname. 
    % The arguments when running htlatex tex4ht-info-mml.tex are these:
    % %#1<-
    %\CleanComment #1tex4ht-info#2#3#4.#5>#6//->
    %[\if ,\ifnum \FIRST =#6 .\else ,0\fi
    %#1<-
    %#2<--
    %#3<-m
    %#4<-ml
    %#5<-html#QPrTx1"\<infomml\
    %#6<-92\ifx \CodeId \:gobbleii \else ...\fi 
    %
    % As a result, when running  mzlatex hello.tex xhtml,info  there was
    % an error on the first line of infomml.4ht, which looked like this:
    % \ifx\infoIVht\UnDeF\def\infoIVht#1//{}\fi\infoIVht[ml0]28...//
    % That "ml" is not a number, so \ifnum fails.  This only happens
    % mzlatex and the info option, not htlatex.  We don't understand.
    %
    % This version avoids the spurious "ml" but mzlatex hello.tex still
    % fails, trying to process the \ConfigureHinput blocks as text.
    % Changing the bracketed number in infomml.4ht to small values seems
    % to make it pass, but can't see how to generate it.  The number
    % after the brackets (#6) changes also.
    % 
    % Since all this is only about the info option with mzlatex,
    % just leaving it failing for now.  Other things to do.
    \def\CleanComment#1tex4ht-info#2#3#4.#5>#6//{[1\empty %
                  \if,\ifnum \FIRST=#6 .\else ,0\fi\fi]#6//}
    \def\eatIV#1#2#3#4{}
\fi

\Comment{

\string\ifx\string\infoIVht\string\UnDeF\string\def\string\infoIVht#1//{}\string\fi\string\infoIVht\CleanComment}{//

}

\def\>>>#1<<<{\bgroup\csname no:catcodes\endcsname0{255}{12}%
   \csname no:catcodes\endcsname{13}{13}{13}% ^^M
   \def\temp##1>>>{\egroup
      \expandafter \def\csname #1\endcsname{##1}}\temp}
