summaryrefslogtreecommitdiff
path: root/tex/context/base/page-ini.tex
diff options
context:
space:
mode:
authorHans Hagen <pragma@wxs.nl>2004-03-09 00:00:00 +0100
committerHans Hagen <pragma@wxs.nl>2004-03-09 00:00:00 +0100
commitb3e51f52d2070a709e3089ada6054cd2080590ca (patch)
treeb14c8903849be35210f217cfa559862a750a87fd /tex/context/base/page-ini.tex
parentaff54a32fba80a11d2349133324c2c90064b938b (diff)
downloadcontext-b3e51f52d2070a709e3089ada6054cd2080590ca.tar.gz
stable 2004.03.09
Diffstat (limited to 'tex/context/base/page-ini.tex')
-rw-r--r--tex/context/base/page-ini.tex27
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