diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/base/syst-prm.tex')
-rw-r--r-- | Master/texmf-dist/tex/context/base/syst-prm.tex | 79 |
1 files changed, 61 insertions, 18 deletions
diff --git a/Master/texmf-dist/tex/context/base/syst-prm.tex b/Master/texmf-dist/tex/context/base/syst-prm.tex index 4eda366e5c7..e54c2e20cb1 100644 --- a/Master/texmf-dist/tex/context/base/syst-prm.tex +++ b/Master/texmf-dist/tex/context/base/syst-prm.tex @@ -100,11 +100,29 @@ \fi +\ifx\directlua\undefined + + \long\gdef\beginMETATEX#1\endMETATEX% + {} + +\else + + \gdef\beginMETATEX% + {\bgroup\obeylines\dobeginMETATEX} + + \gdef\dobeginMETATEX#1 + {\egroup\immediate\write16% + {system (METATEX) : [line \the\inputlineno] \detokenize{#1}}} + + \global\let\endMETATEX\relax + +\fi + \egroup %D Let's get rid of this one: -\def\wlog#1{} +% \def\wlog#1{} %D Just for tracing purposes we set: @@ -131,22 +149,47 @@ \def\dump{\the\everydump\normaldump} -%D Ligature prevention (for instance, ec encoding has ligatures -%D in mono spaced fonts). Alas, we need to do some testing in order -%S to get to the ptex'd one. - -\def\checkpdftexprimitive #1 - {\expandafter\ifx\csname #1\endcsname\relax - \expandafter\ifx\csname pdf#1\endcsname\relax - \expandafter\ifx\csname ptex#1\endcsname\relax - \expandafter\let\csname normal#1\endcsname \undefined \else - \expandafter\let\csname normal#1\expandafter\endcsname\csname ptex#1\endcsname \fi \else - \expandafter\let\csname normal#1\expandafter\endcsname\csname pdf#1\endcsname \fi \else - \expandafter\let\csname normal#1\expandafter\endcsname\csname #1\endcsname \fi} - -\checkpdftexprimitive quitvmode -\checkpdftexprimitive noligatures -\checkpdftexprimitive setrandomseed -\checkpdftexprimitive uniformdeviate +%D \macros +%D {bindprimitive} + +\beginTEX + +\def\bindprimitive#1 #2 % new old + {\expandafter\ifx\csname#1\endcsname\relax \expandafter\ifx\csname#2\endcsname\relax \else + \expandafter\let\csname#1\expandafter\endcsname\csname#2\endcsname + \fi\fi} + +\endTEX + +\beginETEX + +\def\bindprimitive#1 #2 % new old + {\ifcsname#1\endcsname \else\ifcsname#2\endcsname + \expandafter\let\csname#1\expandafter\endcsname\csname#2\endcsname + \fi\fi} + +\endETEX + +% %D Ligature prevention (for instance, ec encoding has ligatures +% %D in mono spaced fonts). Alas, we need to do some testing in order +% %D to get to the ptex'd one. + +% \def\checkpdftexprimitive #1 +% {\expandafter\ifx\csname #1\endcsname\relax +% \expandafter\ifx\csname pdf#1\endcsname\relax +% \expandafter\ifx\csname ptex#1\endcsname\relax +% \expandafter\let\csname normal#1\endcsname \undefined \else +% \expandafter\let\csname normal#1\expandafter\endcsname\csname ptex#1\endcsname \fi \else +% \expandafter\let\csname normal#1\expandafter\endcsname\csname pdf#1\endcsname \fi \else +% \expandafter\let\csname normal#1\expandafter\endcsname\csname #1\endcsname \fi} + +% \checkpdftexprimitive quitvmode +% \checkpdftexprimitive noligatures +% \checkpdftexprimitive setrandomseed +% \checkpdftexprimitive uniformdeviate + +%D We preserve \TEX's ending: + +\ifx\normalend\undefined \let\normalend\end \fi \protect \endinput |