69.28 gloss

ctan

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

<..shared gloss..>
 \def\:tempc{\a:glosslist\o:glosslist:}
 \HLet\glosslist=\:tempc
 \append:def\endglosslist{\b:glosslist}
 \renewcommand\setglosslabel[1]{%
    \def\gls@label##1##2##3{\def\gls@short{##3}%
       \c:glosslist #1\d:glosslist }}
 \NewConfigure{glosslist}{4}
 \NewConfigure{gloss}{2}
 -_-_-

<..2002 gloss..>
 \AtBeginDocument{%
      \def\gls@hyperlink#1#2{\a:gloss{#1}{}#2\b:gloss}%
      \def\gls@raisedlink#1{\gls:raisedlink#1}}
 \def\gls:raisedlink#1#2#3{%
    \c:glosslist\a:GlossAnchor{}{#2}\b:GlossAnchor
    \let\gls:label=\gls@label
    \def\gls@label##1##2##3{\gls:label{##1}{##2}{##3}%
       \let\gls@label=\gls:label
       \d:glosslist }%
 }
 \Configure{gloss}  {\Link}  {\EndLink}
 \NewConfigure{GlossAnchor}{2}
 \Configure{GlossAnchor} {\Link} {\EndLink}
 -_-_-

<..pre 2002 gloss..>
 \pend:def\glso@default{\append:def\glso@word{%
    \def\:tempc{%
       \let\gls@refpage=\gls:refpage
       \csname gls@refpage\endcsname
       \let\gls:printtext=\gls@printtext
       \let\gls@printtext=\gls:prtxt
    }%
    \ifx \gls@refpage\:tempc  \else
      \ifx   \gls:refpage\:UnDef   \let\gls:refpage=\gls@refpage \fi
      \let\gls@refpage=\:tempc
    \fi
 }}
 \def\gls:prtxt#1\fi{\a:gloss \gls:printtext#1\b:gloss\fi}
 -_-_-

<..pre 2002 gloss..>+
 \let\o:glossitem:=\glossitem
 \def\glossitem#1{\gdef\GlossLabel{#1}\o:glossitem:{#1}}
 \expandafter\let\csname glossitem*\endcsname\glossitem
 -_-_-

<..pre 2002 gloss..>+
 \pend:defIII\gls@label{\c:glosslist}
 \append:defIII\gls@label{\d:glosslist}
 -_-_-