summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/catc-act.mkiv
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-04-22 22:14:39 +0000
committerKarl Berry <karl@freefriends.org>2016-04-22 22:14:39 +0000
commitfc4466b32ed330a956ac603b00fd145524cff49a (patch)
tree2c50e2b8de13aa9233b2c76dffe201558f169e86 /Master/texmf-dist/tex/context/base/catc-act.mkiv
parent50e2368597d5f6fe2057195d0ae6a9f2044923e4 (diff)
context (22apr16)
git-svn-id: svn://tug.org/texlive/trunk@40691 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/context/base/catc-act.mkiv')
-rw-r--r--Master/texmf-dist/tex/context/base/catc-act.mkiv72
1 files changed, 0 insertions, 72 deletions
diff --git a/Master/texmf-dist/tex/context/base/catc-act.mkiv b/Master/texmf-dist/tex/context/base/catc-act.mkiv
deleted file mode 100644
index 8c7935d4d57..00000000000
--- a/Master/texmf-dist/tex/context/base/catc-act.mkiv
+++ /dev/null
@@ -1,72 +0,0 @@
-%D \module
-%D [ file=catc-act,
-%D version=2006.09.18,
-%D title=\CONTEXT\ Catcode Macros,
-%D subtitle=Default Catcode Tables,
-%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.
-
-%D This module deals with some active character handling. Use
-%D with care.
-
-\unprotect
-
-%D \macros
-%D {installactivecharacter}
-
-\let\m_syst_catcodes_temp\empty
-
-\normalprotected\def\installactivecharacter#1 %
- {\edef\m_syst_catcodes_temp{\detokenize{#1}}%
- \c_syst_catcodes_c\expandafter`\m_syst_catcodes_temp\relax % relax needed
- \expandafter\startextendcatcodetable
- \expandafter\ctxcatcodes\expandafter\catcode\the\c_syst_catcodes_c\activecatcode
- \stopextendcatcodetable
- \letcatcodecommand \ctxcatcodes \c_syst_catcodes_c \m_syst_catcodes_temp \relax
- \ifnum\currentcatcodetable=\ctxcatcodes \setcatcodetable\ctxcatcodes \fi
- \let\m_syst_catcodes_temp\empty}
-
-%D \macros
-%D {defineactivecharacter}
-%D
-%D Use this one with care, esp in combination with catcode
-%D vectors. There are better ways now.
-
-\setnewconstant\c_syst_catcodes_hack\tildeasciicode % also defined in catc-ini.mkiv
-
-\normalprotected\def\defineactivecharacter #1#2 #3% uses \doifelsenumber which is not yet defined
- {\c_syst_catcodes_c\uccode\c_syst_catcodes_hack
- \if#1"\uccode\c_syst_catcodes_hack\expandafter\doifelsenumber\expandafter{\string#1#2}\empty #1#2\else
- \uccode\c_syst_catcodes_hack\expandafter\doifelsenumber\expandafter{\string#1#2}\empty`#1#2\fi
- \catcode\uccode\c_syst_catcodes_hack\activecatcode
- \uppercase{\def\m_syst_catcodes_temp{~}}% brrr
- \uccode\c_syst_catcodes_hack\c_syst_catcodes_c
- \expandafter\expandafter\expandafter\def\expandafter\m_syst_catcodes_temp\expandafter
- {\expandafter\syst_catcodes_handle\m_syst_catcodes_temp{#3}}%
- \let\m_syst_catcodes_temp\empty}
-
-\chardef\activecharactermode\plusone % overloading still backward compatible
-
-\def\syst_catcodes_handle
- {\ifcase\activecharactermode
- \expandafter\syst_catcodes_handle_nop
- \else
- \expandafter\syst_catcodes_handle_yes
- \fi}
-
-\def\syst_catcodes_handle_yes#1#2{#2}
-\def\syst_catcodes_handle_nop#1#2{\noexpand#1}
-
-\normalprotected\def\makecharacteractive #1 %
- {\catcode`#1\activecatcode}
-
-\normalprotected\def\installanddefineactivecharacter #1 % #2%
- {\normalexpanded{\noexpand\installactivecharacter \utfchar{#1} }%
- \defineactivecharacter #1 }% {#2}}
-
-\protect \endinput