summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/supp-dir.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/context/base/supp-dir.tex')
-rw-r--r--Master/texmf-dist/tex/context/base/supp-dir.tex70
1 files changed, 70 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/context/base/supp-dir.tex b/Master/texmf-dist/tex/context/base/supp-dir.tex
new file mode 100644
index 00000000000..ad14eab1d10
--- /dev/null
+++ b/Master/texmf-dist/tex/context/base/supp-dir.tex
@@ -0,0 +1,70 @@
+%D \module
+%D [ file=supp-dir,
+%D version=2004.11.11,
+%D title=\CONTEXT\ Support Macros,
+%D subtitle=Directional Things,
+%D author=Hans Hagen,
+%D date=\currentdate,
+%D copyright={PRAGMA / Hans Hagen \& Ton Otten}]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
+
+%D Inspired by and needed for Adam Lindsay's \XETEX\ efforts:
+%D
+%D \starttyping
+%D \starttext
+%D \input tufte \par
+%D \pardir TRT \input tufte \par \input tufte \par
+%D \pardir TLT \input tufte \par
+%D \stoptext
+%D \stoptyping
+
+\unprotect
+
+\chardef \inlinedirection \zerocount % 0==notset 1==LR 2==RL
+\let \checkinlinedirection \donothing
+
+\beginETEX \beginL
+
+ \ifx\pardir \undefined
+
+ \def\pardir#1#2#3% messages end up in a higher level command
+ {\global\TeXXeTstate\plusone
+ \if#2L\chardef\inlinedirection\plusone\else
+ \if#2R\chardef\inlinedirection\plustwo\fi\fi
+ \checkinlinedirection} % needed / added
+
+ \let\normalpardir\pardir
+
+ \def\checkinlinedirection
+ {\ifcase\inlinedirection\or\beginL\or\beginR\fi}
+
+ \else
+
+% \let\normalpardir\pardir
+
+% \def\pardir#1#2#3%
+% {\if#2L\chardef\inlinedirection\plusone\else
+% \if#2R\chardef\inlinedirection\plustwo\fi\fi
+% \normalpardir#1#2#3}
+
+% \def\beginL
+% {} % todo: \normalpardir...
+
+% \def\beginR
+% {} % todo: \normalpardir...
+
+% \def\checkinlinedirection
+% {\ifcase\inlinedirection\or\beginL\or\beginR\fi}
+
+ \fi
+
+\endETEX
+
+% see core-ini.tex
+%
+% \appendtoks \checkinlinedirection \to \everypar
+
+\protect \endinput