diff options
author | Karl Berry <karl@freefriends.org> | 2016-04-22 22:14:39 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2016-04-22 22:14:39 +0000 |
commit | fc4466b32ed330a956ac603b00fd145524cff49a (patch) | |
tree | 2c50e2b8de13aa9233b2c76dffe201558f169e86 /Master/texmf-dist/tex/context/base/catc-act.mkiv | |
parent | 50e2368597d5f6fe2057195d0ae6a9f2044923e4 (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.mkiv | 72 |
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 |