69.8 Covington

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

<..config covington..>
 \pend:defI\sentence{\a:sentence}
 \append:defI\sentence{\b:sentence}
 \NewConfigure{sentence}{2}
 -_-_-

<..config covington..>+
 \bgroup
 \catcode‘\^^M=12 \endlinechar=-1 % 12 = other
 <.covington twosent.>
 <.covington threesent.>
 \egroup
 \NewConfigure{tsent}{3}
 \pend:def\gll{\a:gll}
 \pend:def\glll{\a:gll}
 \NewConfigure{gll}{3}
 \def\:tempc{\b:gll\end{flushleft}\c:gll}
 \HLet\glend\:tempc
 -_-_-

<..config covington..>+
 \def\glt{{\hskip -\glossglue}\unhbox\gline\smallskip\a:glt}
 \NewConfigure{glt}{1}
 \def\gln{{\hskip -\glossglue}\unhbox\gline\hfill\a:gln}
 \NewConfigure{gln}{1}
 -_-_-

<..covington twosent..>
 \gdef\twosent#1^^M#2^^M%
    {\getwords(\lineone,\eachwordone)#1 ^^M%
     \getwords(\linetwo,\eachwordtwo)#2 ^^M%
     \loop\lastword{\eachwordone}{\lineone}{\wordone}%
          \lastword{\eachwordtwo}{\linetwo}{\wordtwo}%
          \global\setbox\gline=\hbox{\unhbox\gline
                                     \hskip\glossglue
                                     \vtop{\a:tsent\box\wordone
                                           \c:tsent
                                           \box\wordtwo
                                           \b:tsent
                                          }%
                                    }%
          \testdone
          \ifnotdone
     \repeat
     \egroup % matches \bgroup in \gloss
 }
 -_-_-

<..covington threesent..>
 \gdef\threesent#1^^M#2^^M#3^^M%
    {\getwords(\lineone,\eachwordone)#1 ^^M%
     \getwords(\linetwo,\eachwordtwo)#2 ^^M%
     \getwords(\linethree,\eachwordthree)#3 ^^M%
     \loop\lastword{\eachwordone}{\lineone}{\wordone}%
          \lastword{\eachwordtwo}{\linetwo}{\wordtwo}%
          \lastword{\eachwordthree}{\linethree}{\wordthree}%
          \global\setbox\gline=\hbox{\unhbox\gline
                                     \hskip\glossglue
                                     \vtop{\a:tsent\box\wordone
                                           \c:tsent
                                           \box\wordtwo
                                           \c:tsent
                                           \box\wordthree
                                           \b:tsent
                                          }%
                                    }%
          \testdone
          \ifnotdone
     \repeat
     \egroup % matches \bgroup in \gloss
    }
 -_-_-