summaryrefslogtreecommitdiff
path: root/tex/context/base/page-ini.tex
diff options
context:
space:
mode:
authorHans Hagen <pragma@wxs.nl>2003-09-26 00:00:00 +0200
committerHans Hagen <pragma@wxs.nl>2003-09-26 00:00:00 +0200
commit70b6b86404ca9e9de782a577d1dfda3b15f0544d (patch)
tree91a5d9d80b0e611d40cfaf1f6d69d9fbdcf683c6 /tex/context/base/page-ini.tex
parent006ade39648b1d3cdc89a4bdc16cbe29882d70d3 (diff)
downloadcontext-70b6b86404ca9e9de782a577d1dfda3b15f0544d.tar.gz
stable 2003.09.26
Diffstat (limited to 'tex/context/base/page-ini.tex')
-rw-r--r--tex/context/base/page-ini.tex345
1 files changed, 176 insertions, 169 deletions
diff --git a/tex/context/base/page-ini.tex b/tex/context/base/page-ini.tex
index e7cded9e8..3100aded7 100644
--- a/tex/context/base/page-ini.tex
+++ b/tex/context/base/page-ini.tex
@@ -2,7 +2,7 @@
%D [ file=page-ini,
%D version=2000.10.20,
%D title=\CONTEXT\ Page Macros,
-%D subtitle=Initializations,
+%D subtitle=Initializations,
%D author=Hans Hagen,
%D date=\currentdate,
%D copyright={PRAGMA / Hans Hagen \& Ton Otten}]
@@ -11,20 +11,20 @@
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
-\writestatus{loading}{Context Page Macros / Initializations}
+\writestatus{loading}{Context Page Macros / Initializations}
-%D This class of modules implements the output routines and
-%D floating body support. Although the modules are relatively
-%D new, the code herein is rather old. This reordering was
-%D needed when column sets were implemented and sharing code
-%D started to make sense.
+%D This class of modules implements the output routines and
+%D floating body support. Although the modules are relatively
+%D new, the code herein is rather old. This reordering was
+%D needed when column sets were implemented and sharing code
+%D started to make sense.
-%D The history shows from the code, since both column
-%D mechanism use a different way of looping over columns.
+%D The history shows from the code, since both column
+%D mechanism use a different way of looping over columns.
\unprotect
-% message will be distributed
+% message will be distributed
\startmessages dutch library: systems
title: systeem
@@ -317,7 +317,7 @@
title: layout
1: teksthøyde tilpasset med -- på side --
2: -- ganger forskjøvet tekst plassert
- 3: -- ganger tekst forskjøvet
+ 3: -- ganger tekst forskjøvet
4: margblokker aktive
5: margblokker inaktive
6: delside sett -- behandlet (størrelse --)
@@ -331,7 +331,7 @@
title: aranjamente
1: textheight adaptat cu -- la pagina --
2: textul amanat de -- ori a fost plasat
- 3: textul amanat de -- ori
+ 3: textul amanat de -- ori
4: blocuri marginale active
5: blocuri marginale inactive
6: setul -- de subpagini procesat (dimensiunea --)
@@ -351,14 +351,14 @@
\let \recalculatelayout \relax
-\fi
+\fi
\ifx\recalculatelogos\undefined
\let \recalculatelogos \relax
\let \addlogobackground \gobbleoneargument % <box>
-\fi
+\fi
\ifx\recalculatebackgrounds\undefined
@@ -369,18 +369,18 @@
\let \addprintbackground \gobbleoneargument % <box>
\let \addstatusinfo \gobbleoneargument % <box>
-\fi
+\fi
\ifx\realpageno\undefined
\countdef\realpageno\zerocount \realpageno\plusone
-\fi
+\fi
-\ifx\realfolio\undefined
+\ifx\realfolio\undefined
+
+ \def\realfolio{\the\realpageno}
- \def\realfolio{\the\realpageno}
-
\fi
\newcount\nofshipouts
@@ -388,7 +388,7 @@
\appendtoks
\global\advance\nofshipouts\plusone
\to \everyaftershipout
-
+
% principle:
%
% multiple otr's
@@ -507,7 +507,7 @@
9: kontrola nerovnost
10: zbyl (mene nez) 1 radek
11: plovouci objekt je pro sloupec prilis siroky
- 12: plovouci objekt je presunut do nasledujiciho sloupce / --
+ 12: plovouci objekt je presunut do nasledujiciho sloupce / --
13: siroky plovouci objekt je presunut nad sloupce
\stopmessages
@@ -562,26 +562,26 @@
13: blocul lat este mutat in partea de sus a coloanelor
\stopmessages
-\ifx\dosetuplayout\undefined % overloaded in page-lay !
+\ifx\dosetuplayout\undefined % overloaded in page-lay !
\def\setuplayout{\dodoubleempty\getparameters[\??ly]}
-\fi
+\fi
-%D In case we're not running \ETEX, we need to bypass a
-%D couple of primitives.
+%D In case we're not running \ETEX, we need to bypass a
+%D couple of primitives.
\beginTEX \...discards
\chardef \savingvdiscards \zerocount
- \let \splitdiscards \relax
- \let \pagediscards \relax
+ \let \splitdiscards \relax
+ \let \pagediscards \relax
\endTEX
-% ONE = single column
+% ONE = single column
% MUL = multi column
-% SET = columns sets
+% SET = columns sets
\def\@@OTR{OTR}
@@ -593,8 +593,8 @@
{\csname\@@OTR
\ifcsname\@@OTR\OTRidentifier\strippedcsname#1\endcsname
\OTRidentifier
- \else\ifcsname\@@OTR\OTRdefault\strippedcsname#1\endcsname % fallback
- \OTRdefault
+ \else\ifcsname\@@OTR\OTRdefault\strippedcsname#1\endcsname % fallback
+ \OTRdefault
\fi\fi
\strippedcsname#1\endcsname}
@@ -605,7 +605,7 @@
\def\OTRcommand#1%
{\csname\@@OTR
\@EA\ifx\csname\@@OTR\OTRidentifier\strippedcsname#1\endcsname\relax
- \@EA\ifx\csname\@@OTR\OTRdefault\strippedcsname#1\endcsname\relax % fallback
+ \@EA\ifx\csname\@@OTR\OTRdefault\strippedcsname#1\endcsname\relax % fallback
\else
\OTRdefault
\fi
@@ -616,7 +616,7 @@
\endTEX
-% obsolete
+% obsolete
\def\installotr#1% andere naam, beter \connectotr of zo
{\def\OTRidentifier{#1}}
@@ -626,7 +626,7 @@
\def\OTRdefault {#2}}
%D The initialization of the \type {\hsize} and \type {\vsize}
-%D depends on the OTR used.
+%D depends on the OTR used.
\def\setvsize {\OTRcommand\setvsize}
\def\sethsize {\OTRcommand\sethsize}
@@ -642,7 +642,7 @@
\def\doflushfloats {\OTRcommand\doflushfloats}
\def\flushfloatbox {\OTRcommand\flushfloatbox}
\def\docheckiffloatfits {\OTRcommand\docheckiffloatfits}
-
+
\def\someherefloat {\OTRcommand\someherefloat}
\def\somefixdfloat {\OTRcommand\somefixdfloat}
\def\somepagefloat {\OTRcommand\somepagefloat}
@@ -655,19 +655,19 @@
\def\synchronizehsize {\OTRcommand\synchronizehsize}
\def\gotonextpage {\OTRcommand\gotonextpage }
-\def\gotonextpageX {\OTRcommand\gotonextpageX} % will become obsolete
+\def\gotonextpageX {\OTRcommand\gotonextpageX} % will become obsolete
-% beter een \installotr#1 met #1 = macro en auto test
+% beter een \installotr#1 met #1 = macro en auto test
-\newif \iftraceotr
+\newif \iftraceotr
\newif \ifinotr
-\newtoks \mainoutput
-\newcount\otrlevel
+\newtoks \mainoutput
+\newcount\otrlevel
-% When issuing two \par\penalty-\@M's, only the first
-% triggers the otr; obscure feature or optimization?
+% When issuing two \par\penalty-\@M's, only the first
+% triggers the otr; obscure feature or optimization?
-\def\outputcounter{-100010} % -10010
+\def\outputcounter{-100010} % -10010
\def\doinvokeoutput
{\iftraceotr
@@ -685,15 +685,15 @@
\outputmessage-{special}{#1}}
\def\dodotracedoutput#1%
- {\outputmessage+{traced}{#1/\the\outputpenalty}%
+ {\outputmessage+{traced}{#1/\the\outputpenalty}%
\writestatus\m!otr{c:\number\mofcolumns,v:\the\vsize,g:\the\pagegoal,t:\the\pagetotal}%
\dodoinvokeoutput{#1}%
\writestatus\m!otr{c:\number\mofcolumns,v:\the\vsize,g:\the\pagegoal,t:\the\pagetotal}%
\outputmessage-{traced}{#1/\the\outputpenalty}}
-\def\installoutput#1#2% \invoke \action
+\def\installoutput#1#2% \invoke \action
{\decrement\outputcounter
- \edef#1{\noexpand\doinvokeoutput{\outputcounter}}%
+ \edef#1{\noexpand\doinvokeoutput{\outputcounter}}%
\setvalue{\@@OTR\outputcounter}{#2}}
\def\invokeoutputroutine
@@ -708,30 +708,33 @@
\mainoutput{\invokeoutputroutine} \output{\inotrtrue\the\mainoutput}
-\installoutput\synchronizeoutput % maybe add pagediscards
+\installoutput\synchronizeoutput % maybe add pagediscards
{\ifvoid\normalpagebox\else\unvbox\normalpagebox\fi}
+
+\installoutput\discardpage
+ {\setbox\scratchbox\box\normalpagebox}
-%D In order to force consistent use of variables, we
-%D predefine a lot of them here.
+%D In order to force consistent use of variables, we
+%D predefine a lot of them here.
-%D The next two registers can be used to store pre column
-%D material as well as footnotes or so.
+%D The next two registers can be used to store pre column
+%D material as well as footnotes or so.
\newbox\precolumnbox \newdimen\precolumnboxheight
\newbox\postcolumnbox \newdimen\postcolumnboxheight
-%D We reserve a counter for the number of columns as well as
-%D the current column. Both are not to be changed by users!
+%D We reserve a counter for the number of columns as well as
+%D the current column. Both are not to be changed by users!
\newcount\nofcolumns \nofcolumns = 1
\newcount\mofcolumns \mofcolumns = 1
-\chardef\maxnofcolumns = 50
+\chardef\maxnofcolumns = 50
\chardef\allocatednofcolumns = 0
-%D The next dimensions reports the final column height
+%D The next dimensions reports the final column height
-\newdimen\finalcolumnheights
+\newdimen\finalcolumnheights
\newcount\finalcolumnlines
%D During initialization the temporary boxes are allocated.
@@ -796,7 +799,7 @@
%D and only parameter can do something with \type
%D {\currentcolumnbox}. In case of the mid columns, \type
%D {\firstcolumnbox} and \type {\lastcolumnbox} are handled
-%D outside these macro's.
+%D outside these macro's.
\def\dohandlecolumn#1%
{\mofcolumns\recurselevel
@@ -811,20 +814,20 @@
\def\dohandlemidcolumns#1%
{\dohandleallcolumns
- {\ifnum\recurselevel>\plusone
+ {\ifnum\recurselevel>\plusone
\ifnum\recurselevel<\nofcolumns
\dohandlecolumn{#1}%
\fi
\fi}}
-%D This register can be used as a temporary storage for page
-%D content.
+%D This register can be used as a temporary storage for page
+%D content.
\newbox\restofpage
%D Features.
-\newif\ifintermediatefootnotes
+\newif\ifintermediatefootnotes
\newif\ifcarryoverfootnotes %\carryoverfootnotestrue
\newif\iflastcolumnfootnotes %\lastcolumnfootnotestrue
\newif\ifbalancecolumns %\balancecolumnstrue
@@ -834,11 +837,11 @@
\newif\ifinheritcolumns \inheritcolumnsfalse
\newif\ifheightencolumns \heightencolumnsfalse
-\newif\ifbalancingcolumns
-\newif\ifcollectingcontent
+\newif\ifbalancingcolumns
+\newif\ifcollectingcontent
\newif\ifcolumnoverflow
\newif\iffinalflushingfloats
-\newif\ifpackflushedfloats \packflushedfloatstrue % for the moment
+\newif\ifpackflushedfloats \packflushedfloatstrue % for the moment
\newdimen\intercolumnwidth
\newdimen\localcolumnwidth
@@ -857,18 +860,18 @@
%D The \type {\ifdim} test is needed, because otherwise the
%D last line of a text end up on top of the baseline instead of
-%D on the baseline, as is the case with preceding pages.
-%D Also, a \type {\vfil} better than a \type {\vfill}.
+%D on the baseline, as is the case with preceding pages.
+%D Also, a \type {\vfil} better than a \type {\vfill}.
-\def\eject {\par\penalty-\@M } % == {\par\break} % plain
-\def\supereject {\par\penalty-\@MM} % also plain
+\def\eject {\par\penalty-\@M } % == {\par\break} % plain
+\def\supereject {\par\penalty-\@MM} % also plain
\def\doejectpage {\par\ifdim\pagetotal>\pagegoal\else\normalvfil\fi}
\def\ejectpage {\doejectpage\eject}
\def\superejectpage{\doejectpage\supereject}
-% floats
-%
+% floats
+%
% \def\ejectinsert
% {\flushnotes
% \bgroup
@@ -882,18 +885,18 @@
\bgroup
\noftopfloats\plusthousand
\nofbotfloats\zerocount
- % this is needed in case a float that has been stored
- % ends up at the current page; this border case occurs when
+ % this is needed in case a float that has been stored
+ % ends up at the current page; this border case occurs when
% the calculated room is 'eps' smaller that the room available
- % when just flushing; so now we have (maybe optional):
+ % when just flushing; so now we have (maybe optional):
\pagebaselinecorrection
% alas, this is tricky but needed (first surfaced in prikkels)
\doflushfloats
\egroup}
\def\ejectdummypage
- {\ejectinsert
- \hardespatie % will be different
+ {\ejectinsert
+ \hardespatie % will be different
\vfill
\gotonextpage}
@@ -907,13 +910,13 @@
\unvbox\normalpagebox
\penalty\outputpenalty
\fi
- % not really needed, replaced by \flushsavedfloats
+ % not really needed, replaced by \flushsavedfloats
\ifnum\outputpenalty>-\@MM \else % better use a proper otr signal
- \dosupereject
+ \dosupereject
\fi
- % but does not hurt either
+ % but does not hurt either
\inpagebodytrue % needed for enabling \blanko !
- \flushsavedfloats % was \dosetbothinserts; only otr one !
+ \flushsavedfloats % was \dosetbothinserts; only otr one !
\setvsize % this is needed for interacting components, like floats and multicolumns
\adaptfuzzypagegoal} % watch this hack!
@@ -937,7 +940,7 @@
\setpagecounters
\message{[-\the\realpageno]}%
\setbox\scratchbox\hbox
- {%\the\everyshipout % still needed here ?
+ {%\the\everyshipout % still needed here ?
\dopagebody#1#2}%
\deadcycles\zerocount
\gotonextrealpage
@@ -966,17 +969,17 @@
\ifnum\outputpenalty>-\@MM \else
\dosupereject
\fi
- \doflushspread
+ \doflushspread
\douitstellen}
-\ifx\doflushspread\undefined \let\doflushspread\relax \fi
+\ifx\doflushspread\undefined \let\doflushspread\relax \fi
\def\dooutput
{\finaloutput\unvbox\normalpagebox}
\maxdeadcycles=1000
-% will be installable tracer; better use chardef
+% will be installable tracer; better use chardef
\newif\ifvoorlopig \voorlopigfalse
@@ -990,16 +993,16 @@
\def\plaatsversieaanduiding% nog engels maken
{\ifcase\conceptmode
- % nothing
- \or
- % simple
+ % nothing
+ \or
+ % simple
\vskip\!!sixpoint
\hbox to \zetbreedte
{\infofont
Concept: \currentdate
\hss\reportpagedimensions}%
- \or
- % extensive
+ \or
+ % extensive
\vskip\!!sixpoint
\hbox to \zetbreedte
{\infofont
@@ -1019,10 +1022,10 @@
\overfullrule\zeropoint
\processaction % \v!definitief=>
[#1]
- [ \v!concept=>\chardef\conceptmode\plusone,% simple banner
- \v!file=>\chardef\conceptmode\plustwo,% full banner
- \v!voorlopig=>\chardef\conceptmode\plustwo % full banner plus
- \overfullrule5\s!pt]} % info in the margin
+ [ \v!concept=>\chardef\conceptmode\plusone,% simple banner
+ \v!file=>\chardef\conceptmode\plustwo,% full banner
+ \v!voorlopig=>\chardef\conceptmode\plustwo % full banner plus
+ \overfullrule5\s!pt]} % info in the margin
\def\versie
{\dosingleargument\doversie}
@@ -1030,14 +1033,14 @@
%\def\addstatusinfo
% {\ifvoorlopig
% \@EA\doaddstatusinfo
-% \else\ifcase\conceptmode
+% \else\ifcase\conceptmode
% \@EAEAEA\gobbleoneargument
% \else
% \@EAEAEA\doaddstatusinfo
% \fi\fi}
\def\addstatusinfo
- {\ifcase\conceptmode
+ {\ifcase\conceptmode
\@EA\gobbleoneargument
\else
\@EA\doaddstatusinfo
@@ -1045,12 +1048,12 @@
\def\doaddstatusinfo#1%
{\setbox#1\vbox to \papierhoogte
- {\vsmashbox#1\box#1%
+ {\vsmashbox#1\box#1%
\offinterlineskip
- \vskip\kopwit
+ \vskip\kopwit
\hsize\papierbreedte
\hfill\hbox{\plaatstestinfo\hskip.5cm}\vss
- \settexthoffset\hskip\texthoffset % brrrr
+ \settexthoffset\hskip\texthoffset % brrrr
%\tlap{\plaatsversieaanduiding}\vskip.5cm}}
\vbox to 1cm{\vss\plaatsversieaanduiding\vss}}}
@@ -1062,7 +1065,7 @@
{#2 \ascii}%
\gdef\totaltestinfo
{\global\setbox#1\vbox
- {\unvbox#1\relax
+ {\unvbox#1\relax
\infofont \setupinterlinespace
\hbox
{\strut
@@ -1079,9 +1082,9 @@
% this will be inserts some day
-% \installinsertion\referentieinfobox
-% \installinsertion\registerinfobox
-% \installinsertion\floatinfobox
+% \installinsertion\referentieinfobox
+% \installinsertion\registerinfobox
+% \installinsertion\floatinfobox
\newbox\referentieinfobox
\newbox\registerinfobox
@@ -1125,12 +1128,12 @@
\newif\ifinpagebody
-\ifx\pushcolor\undefined
+\ifx\pushcolor\undefined
\let \pushcolor \relax
\let \popcolor \relax
\let \startcolorpage \relax
\let \stopcolorpage \relax
-\fi
+\fi
% bewaren tvb documentatie
%
@@ -1166,7 +1169,7 @@
\newtoks\afterpage \newtoks\aftereverypage
\newtoks\beforepage \newtoks\beforeeverypage
-\chardef\showgridstate=0
+\chardef\showgridstate=0
\def\showgrid
{\dosingleempty\doshowgrid}
@@ -1198,21 +1201,21 @@
\newif\ifpagebodyornaments \pagebodyornamentstrue
\newif\ifarrangingpages \arrangingpagesfalse
-\appendtoks
+\appendtoks
\global\pagebodyornamentstrue
-\to \everyaftershipout
+\to \everyaftershipout
\let\poparrangedpages\relax
\let\pusharrangedpage\relax
-\ifx\shiftprintpagebox\undefined
+\ifx\shiftprintpagebox\undefined
\let\shiftprintpagebox\gobbleoneargument
\let\shiftpaperpagebox\gobbleoneargument
-\fi
+\fi
\ifx\registerpageposition\undefined
\let\registerpageposition\gobbleoneargument
-\fi
+\fi
\def\reportarrangedpage#1%
{\showmessage\m!systems
@@ -1221,7 +1224,7 @@
\newif\ifsavepagebody \newbox\savedpagebody
% \def\buildpagebody#1#2%
-% {\ifsavepagebody\global\setbox\savedpagebody\fi
+% {\ifsavepagebody\global\setbox\savedpagebody\fi
% \vbox
% {\beginrestorecatcodes
% \forgetall % igv problemen, check: \boxmaxdepth\maxdimen
@@ -1233,14 +1236,14 @@
% % \getbackgroundbox
% % \getlogobox
% \bgroup % else footnotes get inconsistent font/baseline
-% % \doconvertfont\@@lyletter\empty
+% % \doconvertfont\@@lyletter\empty
% \dostartattributes\??ly\c!letter\c!kleur\empty
-% \offinterlineskip
+% \offinterlineskip
% \gettextboxes
% \dostopattributes
% \egroup
% \fi
-% \getmainbox#1#2}% including footnotes
+% \getmainbox#1#2}% including footnotes
% \ifpagebodyornaments
% \addmainbackground \pagebox
% \addlogobackground \pagebox
@@ -1251,16 +1254,16 @@
% \addpagebackground \pagebox
% \fi
% \registerpageposition\pagebox
-% \ifarrangingpages
+% \ifarrangingpages
% \shiftpaperpagebox \pagebox % \v!papier
% \else
% \clippagebox \pagebox
-% \addpagecutmarks \pagebox
+% \addpagecutmarks \pagebox
% \replicatepagebox \pagebox
% \scalepagebox \pagebox
% \mirrorpaperbox \pagebox
% \rotatepaperbox \pagebox
-% \addpagecolormarks \pagebox
+% \addpagecolormarks \pagebox
% \centerpagebox \pagebox
% \addprintbackground\pagebox
% \mirrorprintbox \pagebox
@@ -1273,12 +1276,12 @@
% \endrestorecatcodes}%
% \ifsavepagebody\copy\savedpagebody\fi}
-% beware, \??ly is used before defined, i.e. bad module design
+% beware, \??ly is used before defined, i.e. bad module design
\setuplayout[\c!methode=\v!normaal]
\def\buildpagebody#1#2%
- {\ifsavepagebody\global\setbox\savedpagebody\fi
+ {\ifsavepagebody\global\setbox\savedpagebody\fi
\vbox
{\beginrestorecatcodes
\forgetall % igv problemen, check: \boxmaxdepth\maxdimen
@@ -1287,22 +1290,22 @@
% the following plugin uses and sets pagebox; beware: this
% will change and is for my (hh) personal experiments
\executeifdefined{\??ly\c!methode\@@lymethode}%
- {\getvalue{\??ly\c!methode\v!normaal}}#1#2%
- % the finishing touch
+ {\getvalue{\??ly\c!methode\v!normaal}}#1#2%
+ % the finishing touch
\ifpagebodyornaments
\addpagebackground \pagebox
\fi
\registerpageposition\pagebox
- \ifarrangingpages
+ \ifarrangingpages
\shiftpaperpagebox \pagebox % \v!papier
\else
\clippagebox \pagebox
- \addpagecutmarks \pagebox
+ \addpagecutmarks \pagebox
\replicatepagebox \pagebox
\scalepagebox \pagebox
\mirrorpaperbox \pagebox
\rotatepaperbox \pagebox
- \addpagecolormarks \pagebox
+ \addpagecolormarks \pagebox
\centerpagebox \pagebox
\addprintbackground\pagebox
\mirrorprintbox \pagebox
@@ -1321,12 +1324,12 @@
\ifpagebodyornaments
\bgroup % else footnotes get inconsistent font/baseline
\dostartattributes\??ly\c!letter\c!kleur\empty
- \offinterlineskip
+ \offinterlineskip
\gettextboxes
\dostopattributes
\egroup
\fi
- \getmainbox#1#2}% including footnotes
+ \getmainbox#1#2}% including footnotes
\ifpagebodyornaments
\addmainbackground \pagebox
\addlogobackground \pagebox
@@ -1336,7 +1339,7 @@
\def\finishpagebox#1%
{\ifarrangingpages
- \addpagecutmarks #1%
+ \addpagecutmarks #1%
\addpagecolormarks#1%
\centerpagebox #1%
\mirrorprintbox #1%
@@ -1348,8 +1351,12 @@
\appendtoks \restoreglobalbodyfont \to \everybeforepagebody
\appendtoks \restorecolumnsettings \to \everybeforepagebody
+\ifx\nestednewbox\undefined \newbox\nestednextbox \fi
+
+\prependtoks \let\nextbox\nestednextbox \to \everybeforepagebody
+
\def\dopagebody#1#2%
- {%\getallmarks % now in following token register
+ {%\getallmarks % now in following token register
\the\everybeforepagebody
\startcolorpage
\gotonextsubpage % nog eens: als in pagina (tbv standaard opmaak)
@@ -1374,7 +1381,7 @@
\let\checkpageversion=\relax
-% not here
+% not here
\newif\ifpaginageblokkeerd \paginageblokkeerdfalse
@@ -1382,9 +1389,9 @@
{\dodoubleempty\dotestpage}
\def\dotestpage[#1][#2]%
- {%\relax % needed before \if
+ {%\relax % needed before \if
\endgraf
- \ifpaginageblokkeerd \else \ifdim\pagegoal<\maxdimen
+ \ifpaginageblokkeerd \else \ifdim\pagegoal<\maxdimen
\ifdim\pagetotal<\pagegoal % \relax
\scratchdimen\lineheight
\multiply\scratchdimen#1\relax
@@ -1395,11 +1402,11 @@
\ifsecondargument
\advance\scratchdimen#2\relax
\fi
- % quite inaccurate, better pagegoal 1pt or so
- \ifdim\scratchdimen>.99\pagegoal
+ % quite inaccurate, better pagegoal 1pt or so
+ \ifdim\scratchdimen>.99\pagegoal
\penalty-\!!tenthousand\relax
\fi
- \fi
+ \fi
\else
\goodbreak
\fi \fi}
@@ -1413,16 +1420,16 @@
\ifdim\pagegoal<\maxdimen \ifdim\pagetotal<\pagegoal % \relax
\scratchdimen\pagegoal
\advance\scratchdimen-\pagetotal
- \ifdim\lastskip<\parskip
- \advance\scratchdimen \parskip
+ \ifdim\lastskip<\parskip
+ \advance\scratchdimen \parskip
\fi
\ifsecondargument
\advance\scratchdimen#2%
\fi
- \getrawnoflines\scratchdimen % raw !
- % \message{[\number#1>\number\noflines ?}\wait
+ \getrawnoflines\scratchdimen % raw !
+ % \message{[\number#1>\number\noflines ?}\wait
\ifnum#1>\noflines
- \column
+ \column
\fi
\else
\penalty-\!!tenthousand % untested ! ! \column
@@ -1432,7 +1439,7 @@
% was: \resetsectionmarks\firstsection, zie \handelpaginaaf
-\def\page {\pagebreak} % the short form of \pagebreak (mult-com one)
+\def\page {\pagebreak} % the short form of \pagebreak (mult-com one)
\def\pagina{\pagebreak} % for the moment, keep this one
\def\resetpagebreak
@@ -1458,9 +1465,9 @@
{\flushnotes
\executepagebreakhandler\v!ja}
-\def\complexpagebreak[#1]% if empty, do nothing and avoid processing,
- {\flushnotes % see head's; watch how we group
- \doifsomething{#1}{\bgroup\executepagebreakhandlers{#1}\egroup}}
+\def\complexpagebreak[#1]% if empty, do nothing and avoid processing,
+ {\flushnotes % see head's; watch how we group
+ \doifsomething{#1}{\bgroup\executepagebreakhandlers{#1}\egroup}}
\def\executepagebreakhandlers#1%
{\processcommacommand[#1]\executepagebreakhandler}
@@ -1493,13 +1500,13 @@
\installpagebreakhandler \v!ja
{\ifpaginageblokkeerd\else
\ejectinsert
- \gotonextpage
- \ifbinnenkolommen % this will move to MUL
+ \gotonextpage
+ \ifbinnenkolommen % this will move to MUL
\ejectpage % anders soms geen overgang
\fi
\fi}
-\installpagebreakhandler \v!opmaak % ??
+\installpagebreakhandler \v!opmaak % ??
{\ifpaginageblokkeerd\else
\eject
\fi}
@@ -1514,7 +1521,7 @@
\installpagebreakhandler \v!voorkeur
{\ifpaginageblokkeerd\else
- \ifbinnenkolommen % this will move to MUL
+ \ifbinnenkolommen % this will move to MUL
\dosomebreak\goodbreak
\else
\testpage[3][\zeropoint]%
@@ -1569,7 +1576,7 @@
\doifoddpageelse
\donothing{\resetcurrentsectionmarks\ejectdummypage}}
-\installpagebreakhandler \v!viertal % not yet ok inside columnsets
+\installpagebreakhandler \v!viertal % not yet ok inside columnsets
{\ifdubbelzijdig
\!!counta\realpageno
\!!countb\realpageno
@@ -1596,7 +1603,7 @@
\od
\filluparrangedpages}
-% nb: \executepagebreakhandler\v!hoofd in other ones
+% nb: \executepagebreakhandler\v!hoofd in other ones
\installpagebreakhandler \v!hoofd
{\doifnotvalue{\??tk\v!hoofd\c!status}\v!stop
@@ -1609,14 +1616,14 @@
% \definepagebreak
% [chapter]
% [yes,header,right]
-%
+%
% \setuphead
% [chapter]
% [page=chapter,
% header=empty,
% footer=chapter]
-% public page handler, beware: definepage already in use (core-ref)
+% public page handler, beware: definepage already in use (core-ref)
%
% \definepagebreak[instance][forsure]
% \definepagebreak[forsure][yes,+4]
@@ -1634,10 +1641,10 @@
% \setupbackgrounds[state=repeat]
% \setupbackgrounds[text][text][background=whatever]
% \couplepage[chapter][before={\defineoverlay[whatever][ON]}]
-% \setuphead[chapter][before={\pagetype[chapter]}]
-% \chapter{First} \page test \chapter{second} \page test
+% \setuphead[chapter][before={\pagetype[chapter]}]
+% \chapter{First} \page test \chapter{second} \page test
-\long\def\installcolumnbreakhandler#1#2#3% #1=otr-id #2=tag
+\long\def\installcolumnbreakhandler#1#2#3% #1=otr-id #2=tag
{\long\setvalue{\??cn:#1:#2}{#3}}
\def\definecolumnbreak
@@ -1658,12 +1665,12 @@
{\executecolumnbreakhandler\v!ja}
\def\complexcolumnbreak[#1]% if empty, do nothing and avoid processing
- {\doifsomething{#1}{\executecolumnbreakhandlers{#1}}}
+ {\doifsomething{#1}{\executecolumnbreakhandlers{#1}}}
\def\executecolumnbreakhandlers#1%
{\processcommacommand[#1]\executecolumnbreakhandler}
-\def\executecolumnbreakhandler#1% here no commalist
+\def\executecolumnbreakhandler#1% here no commalist
{\edef\@@columnspecification{#1}%
\doifdefinedelse{\??cn:\OTRidentifier:\@@columnspecification}
{\getvalue{\??cn:\OTRidentifier:\@@columnspecification}}
@@ -1687,12 +1694,12 @@
\let\ignorerestoftext\donothing
-\prependtoks % only ignore in a symmetrical doc
- \globallet\ignorerestoftext\doignorerestoftext
+\prependtoks % only ignore in a symmetrical doc
+ \globallet\ignorerestoftext\doignorerestoftext
\to \everystarttext
-\appendtoks
- \ignorerestoftext
+\appendtoks
+ \ignorerestoftext
\to \everylastshipout
\newif\ifgeselecteerd \geselecteerdtrue
@@ -1732,11 +1739,11 @@
{\doifsomething\paginasoort
{\processcommacommand[\paginasoort]\dodonapagina}}
-% Dit wordt eigenlijk nooit en moet worden vervangen door
+% Dit wordt eigenlijk nooit en moet worden vervangen door
% het meer algemene mechanisme.
\def\dosoortpagina[#1]%
- {\edef\desoortpagina{#1}%
+ {\edef\desoortpagina{#1}%
\ifx\desoortpagina\empty \else
\@EA\doglobal\@EA\addtocommalist\@EA{\desoortpagina}\paginasoort
\ifselecteren
@@ -1790,19 +1797,19 @@
\od
\fi}
-\newif\ifregistertextareas
+\newif\ifregistertextareas
\newif\iftracetextareas
\newbox\registertextbox
-% \def\registeredtextarea#1#2#3% #1=lower-dp #2=correct-ht #3=box
+% \def\registeredtextarea#1#2#3% #1=lower-dp #2=correct-ht #3=box
% {\hbox{\box#3}}
\def\enabletextarearegistration{\global\registertextareastrue}
-\def\registeredtextarea#1#2#3% #1=lower-dp #2=correct-ht #3=box
+\def\registeredtextarea#1#2#3% #1=lower-dp #2=correct-ht #3=box
{\hbox\bgroup
- \ifregistertextareas \ifx\registerMPtextarea\undefined \else
+ \ifregistertextareas \ifx\registerMPtextarea\undefined \else
\setbox\registertextbox\null
\wd\registertextbox\wd#3%
\ht\registertextbox\ht#3%
@@ -1810,11 +1817,11 @@
\ifcase#1\or % 1
\setbox\registertextbox\hbox{\lower\strutdp\box\registertextbox}%
\fi
- \ifcase#2\or % 1
+ \ifcase#2\or % 1
\setbox\registertextbox\hbox{\raise\topskip\hbox{\lower\strutht\box\registertextbox}}%
\dp\registertextbox\strutdp
\fi
- \dp\registertextbox\strutdp % needed
+ \dp\registertextbox\strutdp % needed
%\setbox\registertextbox\hbox
% {\iftracetextareas\gray\boxrulewidth2pt\ruledhbox\fi
% {\registerMPtextarea{\box\registertextbox}}}%
@@ -1822,8 +1829,8 @@
{\registerMPtextarea{\box\registertextbox}}%
\smashbox\registertextbox
\box\registertextbox
- \fi \fi
+ \fi \fi
\box#3%
\egroup}
-\protect \endinput
+\protect \endinput