summaryrefslogtreecommitdiff
path: root/tex/context/base/filt-ini.mkii
diff options
context:
space:
mode:
authorContext Git Mirror Bot <phg42.2a@gmail.com>2016-01-12 17:15:07 +0100
committerContext Git Mirror Bot <phg42.2a@gmail.com>2016-01-12 17:15:07 +0100
commit8d8d528d2ad52599f11250cfc567fea4f37f2a8b (patch)
tree94286bc131ef7d994f9432febaf03fe23d10eef8 /tex/context/base/filt-ini.mkii
parentf5aed2e51223c36c84c5f25a6cad238b2af59087 (diff)
downloadcontext-8d8d528d2ad52599f11250cfc567fea4f37f2a8b.tar.gz
2016-01-12 16:26:00
Diffstat (limited to 'tex/context/base/filt-ini.mkii')
-rw-r--r--tex/context/base/filt-ini.mkii121
1 files changed, 0 insertions, 121 deletions
diff --git a/tex/context/base/filt-ini.mkii b/tex/context/base/filt-ini.mkii
deleted file mode 100644
index f2f59349a..000000000
--- a/tex/context/base/filt-ini.mkii
+++ /dev/null
@@ -1,121 +0,0 @@
-%D \module
-%D [ file=filt-ini,
-%D version=2000.09.19,
-%D title=\CONTEXT\ Filter Macros,
-%D subtitle=Initialization,
-%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 Filter Macros / Initialization}
-
-% \ifx\OmegaVersion\undefined
-
-% \let\definefiltersynonym \gobbledoubleempty
-% \let\definefiltersequence \gobbledoubleempty
-% \unexpanded\def\usefiltersequence {\gobblesingleempty}
-% \let\usefilter \gobblesingleempty
-% \let\truefiltername \gobbleoneargument
-
-% \expandafter \endinput
-% \fi
-
-\unprotect
-
-%D The real work starts here.
-
-% We need the {\??ot::#1} check because otherwise aleph will crash. Taco's
-% torture test:
-%
-% \ocp\ArabicContext = contextual
-%
-% \dorecurse {5000} {
-% \message{[\recurselevel]}
-% \ocplist\Arabic=\addbeforeocplist 1 \ArabicContext \nullocplist
-% }
-
-%D \macros
-%D {definefiltersynonym}
-
-\def\definefiltersynonym
- {\dodoubleargument\dodefinefiltersynonym}
-
-\def\dodefinefiltersynonym[#1][#2]%
- {\setvalue{\??or#1}{#2}}
-
-%D \macros
-%D {truefiltername}
-
-\def\truefiltername#1%
- {\ifundefined{\??or#1}#1\else\truefiltername{\getvalue{\??or#1}}\fi}
-
-%D \macros
-%D {definefiltersequence}
-
-\def\definefiltersequence
- {\dodoubleargument\dodefinefiltersequence}
-
-% \def\dodefinefiltersequence[#1][#2]%
-% {\setvalue{\??ot#1}{#2}}
-
-\def\dodefinefiltersequence[#1][#2]%
- {\setxvalue{\??ot#1}{#2}%
- \letgvalue{\??ot::#1}\v!stop}
-
-%D \macros
-%D {usefiltersequence}
-%D
-
-\def\magicocpnumber{1}
-
-% one can do:
-%
-% \definefiltersequence
-% [farsi]
-% [utf8 to unicode16=>5,
-% persian fix,
-% arabic analysis=>3,
-% arabic glyphs]
-%
-% so, => is used to signal a priority
-
-\def\dodousefiltersequence#1%
- {\expandafter\ocp\csname\??or:#1\endcsname=\truefiltername{#1}\relax
- \splitstring#1\at=>\to\!!stringa\and\!!stringb
- \edef\!!stringb{\number\ifx\!!stringb\empty\magicocpnumber\else\!!stringb\fi}%
- \appendetoks
- \noexpand\addbeforeocplist
- \!!stringb\space
- \expandafter\noexpand\csname\??or:\!!stringa\endcsname
- \to \scratchtoks}
-
-\unexpanded\def\usefiltersequence[#1]%
- {\doifdefined{\??ot::#1}%
- {\doifvalue{\??ot::#1}\v!stop
- {\scratchtoks\emptytoks
- \expanded{\processcommalist[\getvalue{\??ot#1}]}\dodousefiltersequence
- \expanded{\global\ocplist\csname\??ot:#1\endcsname=\the\scratchtoks}\nullocplist
- \letgvalue{\??ot::#1}\v!start}%
- \expanded{\pushocplist\csname\??ot:#1\endcsname}\relax}}
-
-%D \macros
-%D {usefilter}
-
-\def\dousefilter#1%
- {\doifundefined{\c!file\f!filterprefix#1}%
- {\letvalue{\c!file\f!filterprefix#1}\empty
- \makeshortfilename[\truefilename{\f!filterprefix#1}]%
- \startreadingfile
- \readsysfile{\shortfilename.mkii}
- {\showmessage\m!filters1{#1}}
- {\showmessage\m!filters2{#1}}%
- \stopreadingfile}}
-
-\def\usefilter[#1]%
- {\processcommalist[#1]\dousefilter}
-
-\protect \endinput