2020-11-23 18:39:00

1 files changed, 0 insertions, 97 deletions

diff --git a/tex/context/base/mkiv/pack-ori.mkxl b/tex/context/base/mkiv/pack-ori.mkxl
deleted file mode 100644
index 4365db3ac..000000000
--- a/tex/context/base/mkiv/pack-ori.mkxl
+++ /dev/null
@@ -1,97 +0,0 @@
-%D \module
-%D   [       file=pack-ori, % was experimental
-%D        version=2019.07.30,
-%D          title=\CONTEXT\ Packaging Macros,
-%D       subtitle=Anchoring,
-%D         author=Hans Hagen,
-%D           date=\currentdate,
-%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
-%C
-%C This module is part of the \CONTEXT\ macro||package and is
-%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
-%C details.
-
-\writestatus{loading}{ConTeXt Packaging Macros / Anchoring}
-
-\registerctxluafile{pack-ori}{autosuffix}
-
-\unprotect
-
-%D Possible options are:
-%D
-%D \starttabulate[|T|T|]
-%D \NC orientation \NC up left down right top bottom
-%D \NC vertical    \NC line top bottom middle
-%D \NC horizontal  \NC middle flushleft flushright left right
-%D \stoptabulate
-
-\installcorenamespace{orientation}
-\installcorenamespace{orientations}
-
-\installcommandhandler \??orientation {orientation} \??orientation
-
-\setuporientation
-  [\c!orientation=\v!normal,
-   \c!horizontal=\v!normal,
-   \c!vertical=\v!normal]
-
-\appendtoks
-    \expandafter\chardef\csname\??orientations\currentorientation\endcsname\toorientation
-        orientation {\orientationparameter\c!orientation}
-        horizontal  {\orientationparameter\c!horizontal}
-        vertical    {\orientationparameter\c!vertical}
-    \relax\relax
-\to \everydefineorientation
-
-\defineorientation[\v!normal]
-
-\defineorientation[\v!up]    [\c!orientation=\v!up]
-\defineorientation[\v!down]  [\c!orientation=\v!down]
-\defineorientation[\v!left]  [\c!orientation=\v!left]
-\defineorientation[\v!right] [\c!orientation=\v!right]
-\defineorientation[\v!top]   [\c!orientation=\v!top]
-\defineorientation[\v!bottom][\c!orientation=\v!bottom]
-
-%D There will be some more helpers here.
-
-\permanent\def\theorientation#1%
-  {\numexpr
-     \ifcsname\??orientations#1\endcsname
-       \lastnamedcs
-     \else
-       \zerocount
-     \fi
-  \relax}
-
-\permanent\def\autoorientation#1%
-  {\numexpr
-     \ifcsname\??orientations#1\endcsname
-       \lastnamedcs
-     \else
-       \auto_orientation{#1}%
-     \fi
-   \relax}
-
-%D The \type {\immediateassignment} and \type {\immediateassigned} primitives are
-%D kind of obsolete and might be dropped (if not already) from \LUAMETATEX. Local
-%D scanning is, although it is a bit slower, more general. We didn't really need and
-%D use these primitives in \CONTEXT\ anyway, apart from some playing around with
-%D some full expansion, which made no sense in the end so it was dropped. When
-%D things get that hairy it's often a good reason to look into \LUA\ variants.
-
-\def\auto_orientation#1%
- %{\immediateassignment\global\expandafter\chardef\csname\??orientations#1\endcsname\stringtoorientation{#1}%              % quite fast
-  {\beginlocalcontrol\global\expandafter\chardef\csname\??orientations#1\endcsname\stringtoorientation{#1}\endlocalcontrol % good enough
- %{\localcontrolled{\global\expandafter\chardef\csname\??orientations#1\endcsname\stringtoorientation{#1}}%                % a bit slower
-   \csname\??orientations#1\endcsname}
-
-\permanent\protected\def\doifelseorientation#1%
-  {\ifcsname\??orientations#1\endcsname
-     \expandafter\firstoftwoarguments
-   \else
-     \expandafter\secondoftwoarguments
-   \fi}
-
-% \def\iforientationcsname#1{\ifcsname\??orientations}
-
-\protect \endinput