summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/tex4ht/context.4ht
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/tex4ht/context.4ht')
-rw-r--r--Master/texmf-dist/tex/generic/tex4ht/context.4ht605
1 files changed, 540 insertions, 65 deletions
diff --git a/Master/texmf-dist/tex/generic/tex4ht/context.4ht b/Master/texmf-dist/tex/generic/tex4ht/context.4ht
index cc0d750c0f4..b222414f22a 100644
--- a/Master/texmf-dist/tex/generic/tex4ht/context.4ht
+++ b/Master/texmf-dist/tex/generic/tex4ht/context.4ht
@@ -1,6 +1,6 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% context.4ht 2005-10-23-04:19 %
-% Copyright (C) 2004--2005 Eitan M. Gurari %
+% context.4ht 2006-12-01-16:02 %
+% Copyright (C) 2004--2006 Eitan M. Gurari %
% %
% This work may be distributed and/or modified under the %
% conditions of the LaTeX Project Public License, either %
@@ -24,7 +24,7 @@
% gurari@cse.ohio-state.edu %
% http://www.cse.ohio-state.edu/~gurari %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\immediate\write-1{version 2005-10-23-04:19}
+\immediate\write-1{version 2006-12-01-16:02}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\putVBorder{\expandafter\put:VBorder\VBorder</>!*?: }
@@ -130,6 +130,49 @@
\headertextcontent={}
\footertextcontent={}
+ \def\dodocomplexplacefloat[#1][#2][#3]#4%
+ {\flushnotes
+ \flushsidefloats
+ \ifsomefloatwaiting
+ \doifinsetelse\v!always{#2}
+ {\showmessage\m!floatblocks5\empty}
+ {\expanded{\doifcommonelse{#2}{\flushfloatslist}}\doflushfloats
+ \donothing}%
+ \fi
+ \ifmargeblokken
+ \doifinset\v!margin{#2}\endgraf
+ \fi
+ \global\insidefloattrue
+ \a:placefloat
+ \begingroup
+ \ifmargeblokken
+ \doifinset\v!margin{#2}{\hsize\@@mbwidth}%
+ \fi
+ \the\everyinsidefloat
+ \let\@@extrafloat\empty
+ \presetmorefloatvariables{#2}%
+ \aftergroup \b:placefloat
+ \dowithnextboxcontent
+ {\setlocalfloathsize
+ \getvalue{\??fl#1\c!inner}%
+ \fuzzysnappingfalse
+ \postponenotes} % new
+ {\doifvaluesomething{\??fl#1\c!criterium}
+ {\ifdim\wd\nextbox>\getvalue{\??fl#1\c!criterium}\relax
+ \edef\forcedfloatmethod{\executeifdefined
+ {\??fl#1\c!fallback}\v!here}%
+ \fi}%
+ \xdocompletefloat{#1}{#3}{#1}{#2}{#1}{#4}%
+ \doifnotinset\v!text{#2}{\carryoverpar\endgroup}%
+ \global\sidefloatdownshift \zeropoint
+ \global\sidefloatextrashift\zeropoint
+ \ifparfloat
+ \doifinset\v!reset{#2}\forgetsidefloats
+ \doinhibitblank
+ \fi}%
+ \vbox}
+\NewConfigure{placefloat}{2}
+
\let\:doplaatskopnummertekst=\doplaatskopnummertekst
\def\doplaatskopnummertekst#1#2#3#4#5{%
\expandafter\ifx \csname teskt:#1\endcsname\relax
@@ -166,66 +209,89 @@
\:warning{Unconfigured `#1'}%
\expandafter\let\csname warn:#1\endcsname=\def
\fi }
+\pend:defI\beginheadplacement{%
+ \expandafter\ifx \csname c:##1-head:\endcsname\relax
+ \:warning{adding \string\NewConfigure{##1-head}{3}
+ to equal \string\Configure{headplacement}{...}{...}{...}}%
+ \NewConfigure{##1-head}{3}%
+ \Configure{##1-head}%
+ {\a:headplacement}{\b:headplacement}{\c:headplacement}%
+ \fi
+ \csname c:##1-head\endcsname}
+\pend:defII\endheadplacement{\csname a:##1-head\endcsname}
+\append:defII\endheadplacement{\csname b:#1-head\endcsname}
+\NewConfigure{headplacement}{3}
+\Configure{headplacement}{}{}{\IgnorePar}
\def\:tmp#1{%
\let\:tempb=#1%
\Def:Section#1{\finalsectionnumber}{##1}%
\expandafter\let
\csname teskt:\expandafter\:gobble\string #1\endcsname=#1%
- \let#1=\:tempb}
-\def\:tempd#1{\edef\:temp{#1}%
- \expandafter\:tmp\csname \:temp\endcsname}
-\:tempd{\v!hoofdstuk
+ \let#1=\:tempb }
+\def\:tempd#1{%
+ \NewConfigure{#1-ko}{2}
+\NewConfigure{#1-head}{3}
+\Configure{#1-head}
+ {}
+ {\csname teskt:#1\endcsname{\text:headplacement}}
+ {%
+ \Configure{#1-ko}{}{}%
+ \expandafter\def\csname \??ko #1\c!numbercommand
+ \endcsname{\gdef\deepnummber:headplacement}%
+ \expandafter\def\csname \??ko #1\c!deeptextcommand
+ \endcsname{\gdef\text:headplacement}%
+ \IgnorePar
+ }
+%
+ \edef\:temp{#1}%
+ \expandafter\:tmp\csname \:temp\endcsname
}
-\:tempd{\v!paragraaf
+\:tempd{\v!chapter
}
-\:tempd{\v!sub \v!paragraaf
+\:tempd{\v!section
}
-\:tempd{\v!sub \v!sub \v!paragraaf
+\:tempd{\v!subsection
}
-\:tempd{\v!sub \v!sub \v!sub \v!paragraaf
+\:tempd{\v!subsubsection
}
-\:tempd{\v!sub \v!sub \v!sub \v!sub \v!paragraaf
+\:tempd{\v!subsubsubsection
}
-\def\:tempc#1#2#3#4{%
-\ifverhoognummer
- \ifplaatskop
- \ifkopnummer \else
- \expandafter\ifx
- \csname teskt:\v!sub \v!paragraaf\endcsname\relax
- \:warning{Sectioning \expandafter\string
- \csname \v!sub \v!paragraaf\endcsname ?}%
- \else
- \let\sv:endheadplacement\endheadplacement
- \def\endheadplacement##1##2{%
- \global\let\endheadplacement\sv:endheadplacement
- \setbox0=\hbox{}\endheadplacement{#1}{#4}%
- \def\finalsectionnumber{}%
- \csname teskt:\v!sub \v!paragraaf\endcsname{#3}%
- }%
-\fi\fi\fi\fi
-\o:doplaatskoptekst:{#1}{#2}{#3}{#4}%
+\:tempd{\v!subsubsubsubsection
}
-\HLet\doplaatskoptekst\:tempc
- \NewConfigure{layout}{2}
-\NewConfigure{sectie}{2}
+\expand:after{\let\o:normalend}\csname normalend\endcsname
+\expandafter\def\csname normalend\endcsname{\HtmlEnv
+ \at:docend
+ \csname export:hook\endcsname \csname o:normalend\endcsname}
+
+
+ \NewConfigure{sectie}{2}
+\NewConfigure{layout}{2}
\NewConfigure{context-attr}{2}
\NewConfigure{startstop}{2}
- \def\:tempc[#1]{%
+ \append:def\crlf{\ifhmode \a:crlf\fi}
+\NewConfigure{crlf}{1}
+\def\:tempc[#1]{%
\o:complexstartsmaller:[#1]%
\a:narrower\bgroup\aftergroup\b:narrower\aftergroup\egroup}
\HLet\complexstartsmaller\:tempc
\NewConfigure{narrower}{2}
\def\:tempc#1#2{%
- \ifx #1\hss
- \ifx #2\hss\a:midaligned \bgroup \aftergroup \b:midaligned
- \else \a:rightaligned \bgroup \aftergroup \b:rightaligned
- \fi
- \else \a:leftaligned \bgroup \aftergroup \b:leftaligned
- \fi
- \let\:temp\bgroup \def\bgroup{\let\bgroup=\:temp}%
- \o:doalignline:{#1}{#2}}
+ \o:doalignline:{\ifx #1\hss
+ \ifx #2\hss\a:midaligned
+ \else \a:rightaligned
+ \fi
+\else \a:leftaligned
+\fi
+}{\ifx #1\hss
+ \ifx #2\hss\b:midaligned
+ \else \b:rightaligned
+ \fi
+\else \b:leftaligned
+\fi
+\hss
+}}
\HLet\doalignline\:tempc
\NewConfigure{midaligned}{2}
\NewConfigure{leftaligned}{2}
@@ -297,9 +363,12 @@
\csname a:\currentregister-env\endcsname
}
\HLet\dostartopelkaar\:tempc
-\pend:def\stopopelkaar{%
- \csname b:\currentregister-env\endcsname
-}
+%%%%%% pre 2005
+\ifx \stopopelkaar\:UnDef \else
+ \pend:def\stopopelkaar{%
+ \csname b:\currentregister-env\endcsname
+ }
+\fi
\let\:doplaatssamengesteldelijst\doplaatssamengesteldelijst
\def\doplaatssamengesteldelijst[#1][#2]{%
@@ -336,6 +405,9 @@ subsubsubsection,subsubsubsubsection%
\def\a:v!inhoud:head{#1}\def\b:v!inhoud:head{#2}}
\Configure{contenthead}{}{}
\NewConfigure{listelement}{2}
+\pend:def\dobeginoflist{\a:dolist}
+\append:def\doendoflist{\b:dolist}
+\NewConfigure{dolist}{2}
\def\:tempc[#1][#2]{\o:redostartitemgroup:[#1][#2]%
\verify:config{\currentitemgroup-group}{itemgroup}%
@@ -346,30 +418,72 @@ subsubsubsection,subsubsubsubsection%
\NewConfigure{itemgroup}{2}
\pend:def\dolistitem{\HLet\noindent\item:noindent}
\append:def\dolistitem{%
- \csname b:\currentitemgroup -\ifheaditem head\else
-\ifsymbolitem symbol\else
- other\fi\fi
+ \csname b:\currentitemgroup -\ifconditional\headlistitem
+ \ifconditional\symbollistitem
+ symbol%
+ \else
+ head%
+ \fi
+\else
+ \ifconditional\symbollistitem
+ symbol%
+ \else
+ other%
+ \fi
+\fi
%
-item\endcsname}
\def\item:noindent#1\strutdepth{#1\strutdepth
\let\noindent\o:noindent:
- \verify:config{\currentitemgroup -\ifheaditem head\else
-\ifsymbolitem symbol\else
- other\fi\fi
+ \verify:config{\currentitemgroup -\ifconditional\headlistitem
+ \ifconditional\symbollistitem
+ symbol%
+ \else
+ head%
+ \fi
+\else
+ \ifconditional\symbollistitem
+ symbol%
+ \else
+ other%
+ \fi
+\fi
%
-item}%
- {\ifheaditem head\else
-\ifsymbolitem symbol\else
- other\fi\fi
+ {\ifconditional\headlistitem
+ \ifconditional\symbollistitem
+ symbol%
+ \else
+ head%
+ \fi
+\else
+ \ifconditional\symbollistitem
+ symbol%
+ \else
+ other%
+ \fi
+\fi
-listitem}%
- \csname a:\currentitemgroup -\ifheaditem head\else
-\ifsymbolitem symbol\else
- other\fi\fi
+ \csname a:\currentitemgroup -\ifconditional\headlistitem
+ \ifconditional\symbollistitem
+ symbol%
+ \else
+ head%
+ \fi
+\else
+ \ifconditional\symbollistitem
+ symbol%
+ \else
+ other%
+ \fi
+\fi
%
-item\endcsname}%
\NewConfigure{head-listitem}{2}
\NewConfigure{symbol-listitem}{2}
\NewConfigure{other-listitem}{2}
+\NewConfigure{itemize-group}{2}
+\NewConfigure{itemize-other-item}{2}
\def\normal@@definitiewoord#1[#2]#3#4{%
\verify:config{#1-des}{description-word}%
@@ -406,6 +520,8 @@ subsubsubsection,subsubsubsubsection%
\Configure{HtmlPar}{\c:typing}{\c:typing}{}{}%
}
\NewConfigure{typing}{4}
+\let\o:dodotypefile:=\dodotypefile
+\def\dodotypefile{\a:typing \o:dodotypefile:}
\def\:tempc[#1]{%
\expandafter\ifx \csname c:#1:\endcsname\relax
@@ -439,6 +555,7 @@ subsubsubsection,subsubsubsubsection%
\HLet\dodocomplexplaatsblok=\:tempc
\NewConfigure{plaatsblok}{2}
\def\:tempc#1#2#3#4{%
+ \ifvmode \IgnorePar\fi
\o:putcompletecaption:{#1}%
{\a:caption#2\b:caption}%
{\c:caption#3\d:caption}{#4}}
@@ -466,7 +583,11 @@ subsubsubsection,subsubsubsubsection%
\NewConfigure{title-ko}{2}
\NewConfigure{-@@kjfigure}{2}
- \let\normalreqno\eqno
+ \def\:tempc#1#2#3{\relax\mathematics{{\a:frac{#1{#2}}\b:frac
+ \over\c:frac{#1{#3}}\d:frac}}}
+\HLet\dofrac\:tempc
+\NewConfigure{frac}{4}
+\let\normalreqno\eqno
\let\normalleqno\leqno
\def\:tempc#1#2#3#4{%
\a:formulenummer
@@ -486,6 +607,76 @@ subsubsubsection,subsubsubsubsection%
{\ifvmode \IgnorePar\fi \EndP \HCode{<div class="displaymath">}}
{\ifvmode \IgnorePar\fi \EndP \HCode{</div>}}
\Css{div.displaymath {text-align:center;}}
+\NewConfigure{-@@fm}{2}
+\def\:tempc#1%
+ {\ifmmode
+ \displ@y
+ \global\chardef\mathnumberstatus\plusone
+ %
+ \vcenter\bgroup
+ \def\finishalignno{\f:mtable\d:mtable\b:mtable\crcr
+ \egroup\egroup}%
+ \else
+ \def\finishalignno{\f:mtable\d:mtable\b:mtable\crcr
+ \egroup}%
+ \fi
+ #1%
+ \TeXhalign \@EA \bgroup \the\scratchtoks\crcr}
+\HLet\dobothaligneqalignno\:tempc
+\let\:tempc\dointertext
+\pend:defI\:tempc{\a:intertext}
+\append:defI\:tempc{\b:intertext}
+\HLet\dointertext\:tempc
+\NewConfigure{intertext}{2}
+\def\:tempc[#1][#2]%
+ {%
+ \expandafter\ifx \csname a:#1\endcsname\relax
+ \Configure{mtable}
+ {\a:mathalignment}
+ {\b:mathalignment}
+ {\c:mathalignment}
+ {\d:mathalignment}
+ {\e:mathalignment}
+ {\f:mathalignment}%
+ \else
+ \Configure{mtable}
+ {\csname a:#1\endcsname}
+ {\csname b:#1\endcsname}
+ {\csname c:#1\endcsname}
+ {\csname d:#1\endcsname}
+ {\csname e:#1\endcsname}
+ {\csname f:#1\endcsname}%
+ \fi
+ \pushmacro\doalignNC
+ \edef\currentmathalignment{#1}%
+ \doifassignmentelse{#2}{\setupmathalignment[#1][#2]}\donothing
+ \def\NC{\doalignNC }%
+ \global\let\doalignNC\dodoalignNC
+ \def\EQ{\HCode{<!--??? 1-->}&=}%
+ \def\NR{\f:mtable&\e:mtable \global\let\doalignNC \dodoalignNC
+ \doxxdoubleempty\doalignNR}%
+ %
+ \def\notag{\def\\{\HCode{<!--??? 2-->}&\crcr}}%
+ \doifelse{#2}{*}{\def\\{\HCode{<!--??? 3-->}&\crcr}}%
+ {\def\\{\HCode{<!--??? 4-->}&\doalignNR[+][]\crcr}}%
+ %
+ \eqaligncolumn\zerocount
+ \a:mtable \c:mtable \e:mtable
+ \processcommacommand
+ [\mathalignmentparameter\c!align]
+ {\advance\eqaligncolumn\plusone\doseteqaligncolumn}% takes argument
+ %
+ \global\eqaligncolumn\plusone
+ \numberedeqalign}
+\HLet\dostartmathalignment\:tempc
+\def\:tempc{\gdef\doalignNC##1{\f:mtable&\e:mtable ##1}}
+\HLet\dodoalignNC\:tempc
+\def\:tempc[#1][#2]%
+ {\donestedformulanumber{#1}{#2}\f:mtable\d:mtable
+ \c:mtable\e:mtable\crcr}
+\HLet\doalignNR\:tempc
+\NewConfigure{mtable}{6}
+\NewConfigure{mathalignment}{6}
\gdef\cc:table{\c:table}
@@ -709,6 +900,81 @@ subsubsubsection,subsubsubsubsection%
\HRestore\noalign \let\halign\TeXhalign
\dodoubleempty\donormalstarttabulate}
\NewConfigure{\v!tabulate}{2}
+\catcode`\|=13
+\def\nexttabulate#1|%
+ {\chardef\tabulatealign\@@tabulatealign
+ \chardef\tabulatemodus\zerocount
+ \chardef\tabulatedimen\zerocount
+ \tabulatebefore \emptytoks
+ \tabulateafter \emptytoks
+ \tabulatebmath \emptytoks
+ \tabulateemath \emptytoks
+ \tabulatefont \emptytoks
+ \tabulatesettings\emptytoks
+ \global\advance\tabulatecolumns\plusone
+ \letvalue{\@@tabsetups@@\the\tabulatecolumns}\donothing
+ \settabulatepreamble#1\relax\relax % permits i without n
+ \ifcase\tabulatemodus\relax
+ \ifcase\tabulatealign\relax
+ \dodosettabulatepreamble{{<}\empty}
+ {\tabulate:endcol\tabulatehss} \or
+ \dodosettabulatepreamble{{<}\empty}
+ {\tabulate:endcol\tabulatehss} \or
+ \dodosettabulatepreamble{{>}\tabulatehss}
+ {\tabulate:endcol\empty} \or
+ \dodosettabulatepreamble{{-}\tabulatehss}
+ {\tabulate:endcol\tabulatehss} \fi
+ \or % fixed width
+ \ifcase\tabulatealign\relax
+ \dodosettabulatepreamble{{-}\bskip}
+ {\tabulate:endcol\eskip} \or
+ \dodosettabulatepreamble{{<}\bskip\tabulateraggedright }
+ {\tabulate:endcol\eskip} \or
+ \dodosettabulatepreamble{{>}\bskip\tabulateraggedleft }
+ {\tabulate:endcol\eskip} \or
+ \dodosettabulatepreamble{{-}\bskip\tabulateraggedcenter}
+ {\tabulate:endcol\eskip} \fi
+ \or % auto width
+ \global\advance\nofautotabulate\plusone
+ \ifcase\tabulatealign\relax
+ \dodosettabulatepreamble{{-}\bskip}
+ {\tabulate:endcol\eskip} \or
+ \dodosettabulatepreamble{{<}\bskip\tabulateraggedright }
+ {\tabulate:endcol\eskip} \or
+ \dodosettabulatepreamble{{>}\bskip\tabulateraggedleft }
+ {\tabulate:endcol\eskip} \or
+ \dodosettabulatepreamble{{-}\bskip\tabulateraggedcenter}
+ {\tabulate:endcol\eskip} \fi
+ \or % simple
+ \dodosettabulatepreamble {{-}\xbskip} {\tabulate:endcol\xeskip}
+ \fi
+ \futurelet\next\donexttabulate}
+\catcode`\|=11
+\let\o:dodosettabulatepreamble=\dodosettabulatepreamble
+\def\dodosettabulatepreamble#1#2{%
+ \let\tabulate:col=\relax
+ \let\tabulate:endcol=\relax
+ \edef\:temp{\tabulate:col{\the\tabulatecolumns}}%
+ \expandafter\o:dodosettabulatepreamble
+ \expandafter{\expandafter{\:temp #1}}{#2}%
+ \let\tabulate:col=\tabulate:Col
+ \let\tabulate:endcol=\tabulate:Endcol
+}
+\def\tabulate:Col#1#2{\def\HCol{#1}\edef\HRow{\noftabulatelines}\def\HAlign{#2}%
+ \ifnum #1=1
+ \ifnum \noftabulatelines=0
+ \else \csname d:\v!tabulate\endcsname\fi
+ \csname c:\v!tabulate\endcsname
+ \fi
+ \csname e:\v!tabulate\endcsname}
+\def\tabulate:Endcol{\csname f:\v!tabulate\endcsname}
+\expandafter\def\csname \e!start\v!tabulate\endcsname{%
+ \csname a:\v!tabulate\endcsname \bgroup
+ \expandafter\aftergroup\csname d:\v!tabulate\endcsname
+ \expandafter\aftergroup\csname b:\v!tabulate\endcsname
+ \HRestore\noalign \let\halign\TeXhalign
+ \dodoubleempty\donormalstarttabulate}
+\NewConfigure{\v!tabulate}{6}
\def\:tempc[#1]#2#3{%
\o:doprocesspageregister:[#1]{#2}{#3}%
@@ -719,13 +985,19 @@ subsubsubsection,subsubsubsubsection%
\HLet\doprocesspageregister\:tempc
\NewConfigure{index}{1}
\NewConfigure{index-env}{2}
-\expandafter\pend:def\csname
- \??id\v!index\c!voor\endcsname{\everypar{\HtmlPar}}
-\expandafter\append:def\csname
- \??id\v!index\c!na\endcsname{\everypar{\HtmlPar}}
-\expandafter\pend:defI\csname
- \??id\v!index\c!commando\endcsname{\a:indexchar}
-\expandafter\append:defI\csname \??id\v!index\c!commando\endcsname{\b:indexchar}
+\ifx \c!voor\:UnDef \else %%%%%% pre 2005
+ \expandafter\pend:def\csname
+ \??id\v!index\c!voor\endcsname{\everypar{\HtmlPar}}
+\fi
+\ifx \c!na\:UnDef \else %%%%%% pre 2005
+ \expandafter\append:def\csname
+ \??id\v!index\c!na\endcsname{\everypar{\HtmlPar}}
+\fi
+\ifx \c!commando\:UnDef \else %%%%%% pre 2005
+ \expandafter\pend:defI\csname
+ \??id\v!index\c!commando\endcsname{\a:indexchar}
+ \expandafter\append:defI\csname \??id\v!index\c!commando\endcsname{\b:indexchar}
+\fi
\NewConfigure{indexchar}{2}
\def\:tempc#1#2#3#4{%
\def\:temp{#1}\def\:tempa{\s!ind}\ifx \:temp\:tempa
@@ -741,6 +1013,197 @@ subsubsubsection,subsubsubsubsection%
\HLet\ConTeXt\:tempc
\NewConfigure{-@@ur}{2}
+\NewConfigure{pubs-li}{2}
+\catcode`\:=12
+\expandafter\def\csname :temp\endcsname{\def\redospecialfrom[##1::##2]}
+\catcode`\:=11
+
+\:temp
+ {\ifundefined{\v!file :::#1}%
+ \tttf[#1]%
+ \else
+ \def\doexternaldocument##1##2##3{\a:externaldocument
+ [##1]{}{}\goto{##3}[#1::#2]\b:externaldocument}%
+ \csname\v!file :::#1\endcsname
+ \fi }
+\NewConfigure{externaldocument}{2}
+\def\:tempc[#1][#2]{%
+ \o:docite:[#1][#2]%
+ \expandafter\ifx \csname o:bib\@@citedefault ref:\endcsname\relax
+ \expandafter\global\expandafter\let
+ \csname o:bib\@@citedefault ref:\endcsname = \empty
+ \:warning{No configuration is available for \expandafter
+ \string \csname bib\@@citedefault ref\endcsname}%
+ \fi
+}
+\HLet\docite\:tempc
+\ifx \dotypesetapublication\:UnDef\else
+ \pend:defI\dotypesetapublication{\Link{}{##1}\EndLink}
+\fi
+\def\:tempc[#1]{%
+ \Link{#1}{}\o:bibauthoryearref:[#1]\EndLink
+}
+\HLet\bibauthoryearref\:tempc
+\def\:tempc[#1]{%
+ \bibalternative\v!left
+ \bgroup
+ \let\v!left=\empty
+ \let\v!right=\empty
+ \Link{#1}{}\o:bibauthoryearsref:[#1]\EndLink
+ \egroup
+ \bibalternative\v!right
+}
+\HLet\bibauthoryearsref\:tempc
+\def\:tempc[#1]{%
+ \bibalternative\v!left
+ \bgroup
+ \let\v!left=\empty
+ \let\v!right=\empty
+ \Link{#1}{}\o:bibauthorref:[#1]\EndLink
+ \egroup
+ \bibalternative\v!right
+}
+\HLet\bibauthorref\:tempc
+\def\:tempc[#1]{%
+ \bibalternative\v!left
+ \bgroup
+ \let\v!left=\empty
+ \let\v!right=\empty
+ \Link{#1}{}\o:bibyearref:[#1]\EndLink
+ \egroup
+ \bibalternative\v!right
+}
+\HLet\bibyearref\:tempc
+
+
+ \def\:tempc{\dontshowcomposition
+ \a:framed \box\framebox \b:framed
+ \egroup
+ \egroup
+}
+\HLet\stoplocalframed\:tempc
+\NewConfigure{framed}{2}
+
+ \def\begintbl
+ {\doglobal\newcounter\colTBL
+ \doglobal\newcounter\rowTBL
+ \doglobal\decrement\rowTBL
+ \tabskip\zeropoint
+ \TeXhalign\bgroup
+ \registerparoptions
+ \ignorespaces\ifnum\rowTBL=0 \a:bTABLE\else\d:bTABLE\fi
+ \c:bTABLE\e:bTABLE##\f:bTABLE\unskip&&
+ \ignorespaces\e:bTABLE##\f:bTABLE\unskip\cr}
+\def\endtbl
+ {\o:noalign:{\d:bTABLE\b:bTABLE}\egroup}
+\NewConfigure{bTABLE}{6}
+\def\begintblrow
+ {\o:noalign:
+ {\doglobal\increment\rowTBL
+ \doglobal\newcounter\colTBL}%
+ \nexttblcol}
+\def\endtblrow{\crcr
+ \o:noalign:
+ {\nointerlineskip
+ \allowbreak
+ \bgroup % protect local vars
+ \@@tblsplitafter
+ \egroup
+}}
+\def\spanTBL#1#2%
+ {\scratchcounter\gettblcol{#1}{#2}\relax
+ \ifnum\scratchcounter>\zerocount
+ \advance\scratchcounter \minusone
+% \dorecurse\scratchcounter{\appendtoks\spantblcol\to\tbltoks}%
+ \dorecurse\scratchcounter{\appendtoks\skiptblcol\to\tbltoks}%
+ \appendtoks\nexttblcol\to\tbltoks
+ \fi}
+\let\o:settbltxt:\settbltxt
+\def\settbltxt{%
+ \edef\:tempc{\maximumrow}\HAdvance\:tempc by -1
+ \expandafter\edef\csname bTBL\:tempc,\currentcol
+ \endcsname{{\csname\@@tbl\c!ny\endcsname}{\csname\@@tbl\c!nx\endcsname}}%
+ \o:settbltxt:
+}
+
+ % \appendtoks
+ \let\o:forgetall:\forgetall
+ \append:def\forgetall{\expandafter\everypar\expandafter{\the\everypar
+% \ifnum\textlevel>0
+ \ifx\EndPicture\:Undef \HtmlPar\fi
+% \fi
+ }}
+% \to \everystarttext
+
+\def\:temp{\everybeforeshipout\bgroup\let\forgetall\o:forgetall: }
+\expandafter\:temp\the\everybeforeshipout}
+
+ \def\dostartnote% nog gobble als in pagebody
+ {\bgroup
+ \settrue\processingnote
+ \iftypesettinglines \ignorelines \fi
+ \begingroup
+ \a:footnotemark
+ \let\rawreference\:gobbleII
+ \ifnotesymbol \dolastnotesymbol
+ \else \unskip\unskip \globallet\lastnotesymbol\dolastnotesymbol
+ \fi
+ \b:footnotemark
+\endgroup
+%
+ \ignorespaces
+ \a:footnote
+ \bgroup
+ \penalty\notepenalty
+ \forgetall
+ \setnotebodyfont
+ \redoconvertfont
+ \bgroup
+ {\ifx\lastnotenumber\empty \else
+ \c:footnote
+\preparefullnumber{\??vn\currentnote}\lastnotenumber\preparednumber
+\doifelse{\noteparameter\c!interaction}\v!no
+ {\noteparameter\c!numbercommand
+ {\preparednumber\domovednote\v!nextpage\v!previouspage}}%
+ {\gotobox{\noteparameter\c!command
+ {\preparednumber\domovednote\v!nextpage\v!previouspage}}%
+ [\s!fnt :f:\internalfootreference]}%
+\d:footnote
+%
+ \fi
+ \doifelse{\noteparameter\c!interaction}\v!no
+ {\ifconditional\pagewisenotes
+ \rawreference\s!fnt{\s!fnt :t:\internalfootreference}{}%
+ \fi}%
+ {\rawreference\s!fnt{\s!fnt :t:\internalfootreference}{}}%
+}%
+ \aftergroup\dostopnote
+ \let\next}
+\def\dostopnote{%
+ \egroup
+ \b:footnote
+ \egroup
+ \kern\notesignal\relax}
+
+\NewConfigure{footnote}{4}
+\NewConfigure{footnotemark}{2}
+
+ \def\dodoprocessTEXbuffer[#1][#2]{%
+ \expandafter\ifx \csname c:#1-buffer:\endcsname\relax
+ \:warning{adding \string\NewConfigure{#1-buffer}{2}
+ to equal \string\Configure{buffer}{...}{...}}%
+ \NewConfigure{#1-buffer}{2}%
+ \Configure{#1-buffer}{\a:buffer}{\b:buffer}%
+\fi
+%
+ \csname a:##1-buffer\endcsname
+ \getvalue{\??bu#1\c!before}%
+ \dobuffer{16}[#2]\readjobfile
+ \getvalue{\??bu#1\c!after}%
+ \csname b:#1-buffer\endcsname
+}
+\NewConfigure{-buffer}{2}
+\NewConfigure{buffer}{2}
\tmp:cnt\normaltime \divide\tmp:cnt 60
\edef\:temp{\the\tmp:cnt}
@@ -750,6 +1213,18 @@ subsubsubsection,subsubsubsubsection%
\space\ifnum \:temp<10 0\fi \:temp
:\ifnum \tmp:cnt<10 0\fi\the\tmp:cnt :00}
+ \long\def\:temp{\begingroup \obeyMPlines \dostartMPcode}
+\ifx \startMPcode\:temp
+ \pend:def \startMPcode{%
+ \let\:temp\begingroup
+ \def\begingroup{\let\begingroup\:temp
+ \a:MPcode
+ \begingroup
+ \aftergroup\b:MPcode }%
+ }
+\fi
+\NewConfigure{MPcode}{2}
+
\catcode`\!=12
\catcode`\?=12
\Hinput{context}