65.8 texpower

<..texpower.4ht..>
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % texpower.4ht                          2014-07-12-22:36 %
 % Copyright (C) 2003--2009       Eitan M. Gurari         %
 <.TeX4ht copyright.>
  <.undo texpower.>
 \Hinput{texpower}
 \endinput
 -_-_-

<..undo texpower..>
 \expandafter\def\csname\string\@stepwise@TP\endcsname[#1]{}
 \def\step#1{#1}
 \def\bstep#1{#1}
 \def\restep#1{#1}
 \let\switch=\empty
 \let\pause=\empty
 -_-_-

<..texpower configs..>
 \def\pause{\a:pause}
 \NewConfigure{pause}{1}
 \Configure{pause}
    {\gHAdvance\ShipoutCount by 1
      \hbox{\HCode{<!--[(\ShipoutCount) pause PPPPPPPPPPPP-->}}}
 
 \Configure{pause}{}
 
 \HAssign\ShipoutCount=0
 
 \ConfigureEnv{stepcapsule}
    {\hbox{\HCode{<!-- step, l. \the\inputlineno -->}}}
    {\hbox{\HCode{<!-- /step, l. \the\inputlineno-->}}}
    {}{}
 
 \pend:def\insertfirstduplicate@TP{\a:tp}
 \append:def\insertfirstduplicate@TP{\b:tp}
 
 \NewConfigure{tp}{2}
 
 \Configure{tp}
    {\hbox{\HCode{<!-- first, l. \the\inputlineno -->}}}
    {\hbox{\HCode{<!-- /first, l. \the\inputlineno-->}}}
 
 \pend:def\insertsecondduplicate@TP{\a:tpp}
 \append:def\insertsecondduplicate@TP{\b:tpp}
 
 \NewConfigure{tpp}{2}
 
 \Configure{tpp}
    {\hbox{\HCode{<!-- second, l. \the\inputlineno -->}}}
    {\hbox{\HCode{<!-- /second, l. \the\inputlineno -->}}}
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
 \:CheckOption{1} \if:Option
   \let\slide=\slide:
   \pend:def\slide{\let\slide:\:UnDef}
   \Configure{AtShipout}
    {\ifnum\ShipoutCount>0
        \NextFile{\jobname-sl\ShipoutCount.\:html}%
        \HPage{\ShipoutCount}%
     \fi
    }
    {\ifnum\ShipoutCount>0 \rightline{%
          \ifnum \ShipoutCount>1
          \bgroup
              \HAdvance\ShipoutCount by -1
              [\Link[\jobname-sl\ShipoutCount.\:html]{}{}prev\EndLink]
          \egroup
          \fi
          \ShipoutCount{}
          \ifnum \ShipoutCount<0\LikeRef{LastShipout}%
          \bgroup
              \HAdvance\ShipoutCount by 1
              [\Link[\jobname-sl\ShipoutCount.\:html]{}{}next\EndLink]
          \egroup
          \fi
        }\EndHPage{}%
     \fi
    }
 \else
   \Configure{AtShipout}
      {\ifnum\ShipoutCount>0 \HCode{<!--[\ShipoutCount]-->}\fi }
      {\ifnum\ShipoutCount>0 \HCode{<!--[/\ShipoutCount]--><hr />}\fi}
 \fi
 \ConfigureEnv{slide}
    {\ifvmode \IgnorePar\fi \EndP}
    {\ifvmode \IgnorePar\fi \EndP}
    {}{}
 \Configure{stepwise}
    {}
    {\IgnorePar\par\leavevmode\EndP}
 \Configure{@/BODY}
    {\relax \ifnum \FileNumber=1
       \Tag{LastShipout}{\ShipoutCount}%
       \gHAssign\ShipoutCount=-2
     \fi}
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 -_-_-

<..texpower configs..>+
 \pend:def\at@shipout@once@TP{\aftergroup\:AtShipout}
 \def\:AtShipout#1\vtop#2{#1\vtop{\hbox{%
   \Configure{HtmlPar}{}{}{}{}%
   \a:AtShipout
      \box \@cclv
   \b:AtShipout
   \gHAdvance\ShipoutCount by 1
   \global\def\at@shipout@once@TP{\aftergroup\:AtShipout}}}}
 
 \NewConfigure{AtShipout}{2}
 
 \HAssign\ShipoutCount=0
 \expandafter\let \expandafter \:stepwise@TP
                       \csname \string\@stepwise@TP\endcsname
 \expandafter\long\expandafter\def\csname \string\@stepwise@TP\endcsname
        [#1]#2{\:stepwise@TP[#1]{\a:stepwise#2\b:stepwise}}
 
 \NewConfigure{stepwise}{2}
 
 \pend:def\pause{\ifvmode\IgnorePar\fi \EndP}
 \append:def\pause{\par\ShowPar}
 -_-_-