summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/syst-prm.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/context/base/syst-prm.tex')
-rw-r--r--Master/texmf-dist/tex/context/base/syst-prm.tex79
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