diff options
author | Hans Hagen <pragma@wxs.nl> | 2004-03-09 00:00:00 +0100 |
---|---|---|
committer | Hans Hagen <pragma@wxs.nl> | 2004-03-09 00:00:00 +0100 |
commit | b3e51f52d2070a709e3089ada6054cd2080590ca (patch) | |
tree | b14c8903849be35210f217cfa559862a750a87fd /tex/context/base/page-ini.tex | |
parent | aff54a32fba80a11d2349133324c2c90064b938b (diff) | |
download | context-b3e51f52d2070a709e3089ada6054cd2080590ca.tar.gz |
stable 2004.03.09
Diffstat (limited to 'tex/context/base/page-ini.tex')
-rw-r--r-- | tex/context/base/page-ini.tex | 27 |
1 files changed, 23 insertions, 4 deletions
diff --git a/tex/context/base/page-ini.tex b/tex/context/base/page-ini.tex index 1a4fda7f0..07ca4dea2 100644 --- a/tex/context/base/page-ini.tex +++ b/tex/context/base/page-ini.tex @@ -664,6 +664,19 @@ \newtoks \mainoutput \newcount\otrlevel +% Shipout handler (see page[stop] for example usage) + +\ifx\undefined\normalshipout \let\normalshipout=\shipout \fi + +\def\noshipout + {\writestatus\m!systems{ignoring further shipouts}% + \dowithnextbox{\deadcycles\zerocount}} + +\def\doignorerestoftext + {\ifarrangingpages \else \ifnum\textlevel>\zerocount \else + \globallet\shipout\noshipout + \fi \fi} + % When issuing two \par\penalty-\@M's, only the first % triggers the otr; obscure feature or optimization? @@ -1185,9 +1198,9 @@ {\chardef\showgridstate\plusone % downward compatible default \processaction [#1]% - [\v!reset=>\chardef\showgridstate0, - %\v!onder=>\chardef\showgridstate1,% - \v!boven=>\chardef\showgridstate2]} + [\v!reset=>\chardef\showgridstate\zerocount, + %\v!onder=>\chardef\showgridstate\plusone, + \v!boven=>\chardef\showgridstate\plustwo]} \def\buildpagebox#1% {\setbox#1\vbox to \papierhoogte @@ -1610,6 +1623,12 @@ \od \filluparrangedpages} +\installpagebreakhandler \v!start + {\globallet\shipout\normalshipout} + +\installpagebreakhandler \v!stop + {\globallet\shipout\noshipout} + % nb: \executepagebreakhandler\v!hoofd in other ones \installpagebreakhandler \v!hoofd @@ -1838,4 +1857,4 @@ \box#3% \egroup} -\protect \endinput +\protect \endinput
\ No newline at end of file |