18.1 Floats, Inserts, and Captions

ltfloat.dtx

<..latex ltfloat..>
 \def\@xfloat #1[#2]{%
     \def \@captype {#1}%
    \:clearpage \bf:float \:clearpage
    \begingroup
       \expandafter\ifx\csname end#1\endcsname\o:end@float:
          \expandafter\let\csname end#1\endcsname\float@end
          \expandafter\let\csname end#1*\endcsname\float@dblend
       \fi
       \@parboxrestore
       \reset@font
       \normalsize
       \everypar{\HtmlPar}%
 }
 \let\o:end@float:=\end@float
 \def\end@float{\endgroup\:clearpage \af:float}
 \let\end@dblfloat=\end@float
 -_-_-

Need to fix also double float

‘#1’ before anchors, ‘#2’ after anchors, ‘#3’ after float.

<..latex ltfloat..>+
 \Odef\c:float:[#1]#2#3#4{%
    \def\bf:float{#2<.tags for captions.>#3}%
    \def\af:float{#4}}
 \gHAssign\capt:cnt=0
 \Configure{float}{}{}{}
 -_-_-

The initialization of the counter is for degenerated cases in which the captions don’t appear within floats. Does this work?

The anchors of the links are within the frames of the pictures, only if they are empty (or the default frame of horizontal lines before and after the picture are used ‘ \def\:tempa{\HCode{<HR>}}\def\:tempb{#1}% \ifx \:tempa\:tempb \else ’).

The following has been changed for getting links in ‘.aux’ files to ‘.lot’ (list of tables) and ‘lof’ (list of figures) files.

<..latex ltfloat..>+
 \long\def\:tempc#1[#2]#3{\par \cur:lbl{}%
   <.write caption to toc.>\begingroup
     \@parboxrestore \normalsize
     \@makecaption{\csname fnum@#1\endcsname}{\ignorespaces #3}\par
   \endgroup <.cancel if-label anchors.>}
 \def\numberline#1{\hbox to\@tempdima{#1\hfil} }
 \HLet\@caption=\:tempc
 -_-_-

The |<cancel if-label anchors|> request no the \label commands to avoid duplicating the anchor already set by the \caption command.

<..config book-report-article utilities..>+
 <.book-report-article caption.>
 \pend:def\caption{\SkipRefstepAnchor}
 -_-_-

<..book-report-article caption..>
 <.config makecaption.>
 -_-_-

<..config makecaption..>
 \NewConfigure{caption}[4]{\c:def\cptA:{#1}\c:def\cptB:{#2}%
    \c:def\cptC:{#3}\c:def\cptD:{#4}}
 \long\def\@makecaption#1#2{%   \:makecaption
    {\cptA: <.caption and ref/tag.>\cptB:}{\cptC:{#2}\cptD:}}
 -_-_-

<..write caption to toc..>
 \begingroup
    \gHAdvance\TitleCount by 1
    \protect:wrtoc
    \edef\:temp{#2}%
    \edef\:temp{\the\:tokwrite{\string\doTocEntry
      \string\toc<.caption type.>{\csname
         the#1\endcsname}{\string\csname\space a:TocLink\string\endcsname
       {\FileNumber}{\cur:th
         \:currentlabel}{}{\ifx\:temp\empty\else \ignorespaces #2\fi}}%
      {#1}\relax}}\:temp
 \endgroup
 -_-_-

<..caption type..>
 \expandafter\ifx\csname ext@#1\endcsname\relax
 #1\else\csname ext@#1\endcsname\fi
 -_-_-