summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/meta-pag.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-11-16 01:02:47 +0000
committerKarl Berry <karl@freefriends.org>2006-11-16 01:02:47 +0000
commit3c85b55e2f245fb7edac7e445f107e6d0bb423ae (patch)
treec62b7f80edafe0455310d08e09f4218127bf9e87 /Master/texmf-dist/tex/context/base/meta-pag.tex
parente5ecff27a26ef59e1dbe9702677687fd7107be3a (diff)
context update
git-svn-id: svn://tug.org/texlive/trunk@2444 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/context/base/meta-pag.tex')
-rw-r--r--Master/texmf-dist/tex/context/base/meta-pag.tex45
1 files changed, 33 insertions, 12 deletions
diff --git a/Master/texmf-dist/tex/context/base/meta-pag.tex b/Master/texmf-dist/tex/context/base/meta-pag.tex
index 32473cb7499..cda7dbd96cb 100644
--- a/Master/texmf-dist/tex/context/base/meta-pag.tex
+++ b/Master/texmf-dist/tex/context/base/meta-pag.tex
@@ -19,24 +19,24 @@
\unprotect
-\appendtoks
+\startMPextensions
if unknown context_page: input mp-page; fi;
-\to \MPextensions
+\stopMPextensions
%D The next few macros tell \METAPOST\ how the \CONTEXT\
%D pagebody looks.
-\appendtoks
+\startMPextensions
boolean PageStateAvailable,OnRightPage,InPageBody;
PageStateAvailable:=true;
-\to \MPextensions
+\stopMPextensions
-\appendtoks
+\startMPinitializations
OnRightPage:=true;
InPageBody:=\ifinpagebody true \else false \fi;
-\to \MPinitializations
+\stopMPinitializations
-\appendtoks
+\startMPinitializations
def LoadPageState =
OnRightPage:=\MPonrightpage;
OnOddPage:=\MPonoddpage;
@@ -85,7 +85,7 @@
LayoutColumnDistance:=\the\layoutcolumndistance;
LayoutColumnWidth:=\the\layoutcolumnwidth;
enddef;
-\to \MPinitializations
+\stopMPinitializations
\def\MPonrightpage{true}
\def\MPonoddpage {true}
@@ -181,14 +181,35 @@
\hbox{#1}%
\fi}
+% better, so that we can force a key and share with e.g. renumbering
+%
+% \let\namedtextarea\empty
+%
+% \def\registerMPlocaltextarea#1%
+% {\ifpositioning
+% \bgroup
+% \ifx\namedtextarea\empty
+% \doglobal\increment\currentMPtextareadata
+% \edef\namedtextarea{gbd:\currentMPtextareadata}%
+% \fi
+% \hpos\namedtextarea{\iftracetextareas\boxrulewidth3pt\ruledhbox\fi{#1}}%
+% \edef\ascii{RegisterLocalTextArea(%
+% \MPx\namedtextarea,\MPy\namedtextarea,%
+% \MPw\namedtextarea,\MPh\namedtextarea,\MPd\namedtextarea);}%
+% \global\MPlocaltextareadata\@EA{\ascii}%
+% \egroup
+% \else
+% \hbox{#1}%
+% \fi}
+
\def\resetMPlocaltextarea
{\global\MPlocaltextareadata\emptytoks}
-\appendtoks
+\startMPextensions
path PlainTextArea;
-\to \MPextensions
+\stopMPextensions
-\appendtoks
+\startMPinitializations
ResetTextAreas;
\the\MPsavedtextareadata;
SaveTextAreas;
@@ -197,7 +218,7 @@
\the\MPlocaltextareadata;
PlainTextArea:=boundingbox(\MPxy{text:\realfolio}--\MPxy{text:\realfolio}
shifted (\MPw{text:\realfolio},\MPh{text:\realfolio}));
-\to \MPinitializations
+\stopMPinitializations
\appendtoks
\global\MPsavedtextareadata\MPtextareadata