\Configure{tsent}
{\HCode{<table:table-cell table:style-name="tsent-td">%
<text:p text:style-name="tsent-p">}%
\gHAdvance\tsent:cnt by 1
}
{\HCode{</text:p></table:table-cell>}}
{\HCode{<text:line-break />}}
-_-_-
\HAssign\gll:Cnt = 0
\Configure{gll}
{\ifvmode \IgnorePar\fi \EndP
\gHAdvance\gll:Cnt by 1
\bgroup
\ConfigureEnv{flushleft}
{\ifvmode \IgnorePar\fi \EndP}
{\ShowPar}
{\EndP\IgnorePar
<.boxed env.>%
\HCode{<table:table table:name="gll-\gll:Cnt"
table:style-name="gll-table"\Hnewline>}%
\ifnum 0<0\LikeRef{gll-\gll:Cnt}
<.set gll’s table-column.>%
\fi
\HCode{<table:table-row table:style-name="gll-tr">}%
\IgnorePar
}
{\IgnorePar\EndP
\csname :glend\endcsname
\HCode{</table:table-row></table:table>}%
<.end boxed env.>}%
\Configure{HtmlPar}{}{}{}{}%
\gHAssign\tsent:cnt=0
}
{}
{\Tag{gll-\gll:Cnt}{\tsent:cnt}\egroup} -_-_-
\tmp:cnt=0
\loop
\advance\tmp:cnt by 1
\HCode{<table:table-column table:style-name="gll-col"/>}%
\ifnum \LikeRef{gll-\gll:Cnt}>\tmp:cnt
\repeat
-_-_-
\Configure{glt}
{\expandafter\ifx\csname :glend\endcsname\relax\else
\HCode{</text:p></table:table-cell>}%
\fi
\HCode{</table:table-row><table:table-row
table:style-name="glt"><table:table-cell
table:number-columns-spanned="\tsent:cnt"><text:p
text:style-name="p-glt">}%
\gdef\:glend{\global\let\:glend\relax
\HCode{</text:p></table:table-cell>}}%
}
\NewConfigureOO{p-glt}
\ConfigureOO{p-glt}{\Hnewline
<style:style style:name="p-glt"
style:family="paragraph"
style:parent-style-name="Standard" >
<style:paragraph-properties fo:margin-top="0.2cm"/>
</style:style>
}
-_-_-
\Configure{gln}
{\expandafter\ifx\csname :glend\endcsname\relax\else
\HCode{</text:p></table:table-cell>}%
\fi
\gHAdvance\tsent:cnt by 1
\HCode{<table:table-cell><text:p
text:style-name="p-gln">}%
\gdef\:glend{\global\let\:glend\relax
\HCode{</text:p></table:table-cell>}}%
}
\NewConfigureOO{p-gln}
\ConfigureOO{p-gln}{\Hnewline
<style:style style:name="p-gln"
style:family="paragraph"
style:parent-style-name="Standard" >
<style:paragraph-properties fo:text-align="end"/>
</style:style>
}
-_-_-
\NewConfigureOO{gll-table}
\ConfigureOO{gll-table}{\Hnewline
<style:style style:name="gll-table" style:family="table">
<style:table-properties
fo:margin-top="0.3cm"
fo:margin-bottom="0.3cm"
/>
</style:style>
}
-_-_-