summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-10-19 21:56:26 +0000
committerKarl Berry <karl@freefriends.org>2006-10-19 21:56:26 +0000
commitebdf66957b7129d843a8ec55cc530f08dc728e8a (patch)
tree0cee833b8be8f8a5bf855eb1f86a330cb5d7ce36 /Master
parenta73a3945e9262d5d9bf0ea6726166e9619ba2c97 (diff)
new supp-mis/pdf from hans
git-svn-id: svn://tug.org/texlive/trunk@2354 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/texmf-dist/tex/context/base/supp-mis.tex51
-rw-r--r--Master/texmf-dist/tex/context/base/supp-pdf.tex25
2 files changed, 36 insertions, 40 deletions
diff --git a/Master/texmf-dist/tex/context/base/supp-mis.tex b/Master/texmf-dist/tex/context/base/supp-mis.tex
index d2105e34cf7..51205dc1ef4 100644
--- a/Master/texmf-dist/tex/context/base/supp-mis.tex
+++ b/Master/texmf-dist/tex/context/base/supp-mis.tex
@@ -11,6 +11,8 @@
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
+%D I will clean up this module (a la supp-pdf.tex preamble).
+
%D Some support modules are more or less independant. This
%D module, which is not part of plain \CONTEXT, provides the
%D missing macros and declarations of registers.
@@ -20,23 +22,7 @@
%D Because \LATEX\ has no safe package loading mechanism, we
%D need to take care of possible interference.
-% \def\StartLatexHack
-% {\edef\StopLatexHack
-% {\catcode`\noexpand/=\the\catcode`/
-% \catcode`\noexpand-=\the\catcode`-
-% \catcode`\noexpand:=\the\catcode`:
-% \catcode`\noexpand;=\the\catcode`;
-% \catcode`\noexpand"=\the\catcode`"
-% \catcode`\noexpand<=\the\catcode`<
-% \catcode`\noexpand>=\the\catcode`>}%
-% \catcode`/=12 \catcode`-=12
-% \catcode`:=12 \catcode`;=12
-% \catcode`"=12 \catcode`<=12 \catcode`>=12 }
-
-%D Adapted conform request from morten.hoegholm@latex-project.org,
-%D i.e. untested by me; using strings makes Babel more happy.
-
-\def\StartLatexHack
+\def\StartLatexHack % replace this by the one in supp-pdf
{\edef\StopLatexHack
{\catcode\string`\noexpand/=\the\catcode\string`/
\catcode\string`\noexpand-=\the\catcode\string`-
@@ -189,20 +175,29 @@
\newdimen\scratchdimen % 21
\fi
-\ifnocontextobject \scratchcounter \do \newcount \scratchcounter \fi
-\ifnocontextobject \scratchtoks \do \newtoks \scratchtoks \fi
-\ifnocontextobject \scratchdimen \do \newdimen \scratchdimen \fi
-\ifnocontextobject \scratchskip \do \newskip \scratchskip \fi
-\ifnocontextobject \scratchmuskip \do \newmuskip \scratchmuskip \fi
-\ifnocontextobject \scratchbox \do \newbox \scratchbox \fi
-\ifnocontextobject \scratchread \do \newread \scratchread \fi
-\ifnocontextobject \scratchwrite \do \newwrite \scratchwrite \fi
+\def\stripnewabove#1%
+ {\ifnum10<9#1 #1\else\expandafter\stripnewabove\fi}%
+
+\def\newabove\csname#1\endcsname#2% \dimen \name
+ {\csname#1\endcsname#2%
+ \ifnum\expandafter\stripnewabove\meaning#2>20\else
+ \newabove\csname#1\endcsname#2%
+ \fi}
+
+\ifnocontextobject \scratchcounter \do \newabove \csname newcount\endcsname \scratchcounter \fi
+\ifnocontextobject \scratchtoks \do \newabove \csname newtoks\endcsname \scratchtoks \fi
+\ifnocontextobject \scratchdimen \do \newabove \csname newdimen\endcsname \scratchdimen \fi
+\ifnocontextobject \scratchskip \do \newabove \csname newskip\endcsname \scratchskip \fi
+\ifnocontextobject \scratchmuskip \do \newabove \csname newmuskip\endcsname \scratchmuskip \fi
+\ifnocontextobject \scratchbox \do \csname newbox\endcsname \scratchbox \fi
+\ifnocontextobject \scratchread \do \csname newread\endcsname \scratchread \fi
+\ifnocontextobject \scratchwrite \do \csname newwrite\endcsname \scratchwrite \fi
%D Watch out, in the past we ran into troubles with \type {\onepoint}
%D (and others) mening something different in \LATEX\ then here. In
%D such situations clashes are bound to happen. For this reason the
%D assignments are no inside the test. We try to catch those situations
-%D but we cannot keep ahead of teh future.
+%D but we cannot keep ahead of the future.
\ifnocontextobject \zeropoint \do \newdimen \zeropoint \zeropoint = 0pt \fi % else problems with dimen12
\ifnocontextobject \onepoint \do \newdimen \onepoint \onepoint = 1pt \fi
@@ -660,7 +655,7 @@
\def\dodohandletokens
{\ifx\next\end \else
- \docommando{\next}%
+ \docommand{\next}%
\expandafter\dohandletokens
\fi}
@@ -668,7 +663,7 @@
{\afterassignment\dodohandletokens\let\next= }
\long\def\handletokens#1\with#2%
- {\let\docommando=#2%
+ {\let\docommand=#2%
\dohandletokens#1\end}
\fi
diff --git a/Master/texmf-dist/tex/context/base/supp-pdf.tex b/Master/texmf-dist/tex/context/base/supp-pdf.tex
index a982fa1c7b2..5197e564d7f 100644
--- a/Master/texmf-dist/tex/context/base/supp-pdf.tex
+++ b/Master/texmf-dist/tex/context/base/supp-pdf.tex
@@ -118,25 +118,26 @@
\def\@@mptopdf@@withoutpt#1%
{\expandafter\@@MPTOPDF@@WITHOUTPT#1}
- \def\@@mptopdf@@newabove#1#2% \dimen \name
- {#1#2%
- \ifnum\expandafter\gobblesixarguments\meaning#2>20\else
- \expandafter\@@mptopdf@@newabove\expandafter#1\expandafter#2%
- \fi}
+% \def\@@mptopdf@@newabove#1#2% \dimen \name
+% {#1#2%
+% \ifnum\expandafter\gobblesixarguments\meaning#2>20\else
+% \expandafter\@@mptopdf@@newabove\expandafter#1\expandafter#2%
+% \fi}
\def\@@mptopdf@@stripnewabove#1%
{\ifnum10<9#1 #1\else\expandafter\@@mptopdf@@stripnewabove\fi}%
- \def\@@mptopdf@@newabove#1#2% \dimen \name
- {#1#2%
+ \def\@@mptopdf@@newabove\csname#1\endcsname#2% \dimen \name
+ {\csname#1\endcsname#2%
\ifnum\expandafter\@@mptopdf@@stripnewabove\meaning#2>20\else
- \expandafter\@@mptopdf@@newabove\expandafter#1\expandafter#2%
+ \@@mptopdf@@newabove\csname#1\endcsname#2%
\fi}
- \@@mptopdf@@newabove \newcount \scratchcounter
- \@@mptopdf@@newabove \newdimen \scratchdimen
- \newbox \scratchbox
- \expandafter \newif \csname ifdone\endcsname
+ \@@mptopdf@@newabove \csname newcount\endcsname \scratchcounter
+ \@@mptopdf@@newabove \csname newdimen\endcsname \scratchdimen
+ \csname newbox\endcsname \scratchbox
+
+ \expandafter \newif \csname ifdone\endcsname
\catcode`\@=\mptopdfstoredatcode