summaryrefslogtreecommitdiff
path: root/tex/context/base/mkiv/char-act.mkxl
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/mkiv/char-act.mkxl')
-rw-r--r--tex/context/base/mkiv/char-act.mkxl99
1 files changed, 0 insertions, 99 deletions
diff --git a/tex/context/base/mkiv/char-act.mkxl b/tex/context/base/mkiv/char-act.mkxl
deleted file mode 100644
index 3fb4d2da6..000000000
--- a/tex/context/base/mkiv/char-act.mkxl
+++ /dev/null
@@ -1,99 +0,0 @@
-%D \module
-%D [ file=char-act,
-%D version=2006.12.05,
-%D title=\CONTEXT\ Character Support,
-%D subtitle=Active,
-%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 Character Support / Active}
-
-\unprotect
-
-\ifdefined\page_otr_fill_and_eject_page \else \let\page_otr_fill_and_eject_page\relax \fi % forward reference
-
-%D \macros
-%D {obeyedspace, obeyedtab, obeyedline, obeyedpage}
-%D
-%D We have followed Knuth in naming macros that make \SPACE, \NEWLINE\ and \NEWPAGE\
-%D active and assigning them \type {\obeysomething}, but first we set some default
-%D values.
-%D
-%D These are expandable:
-
-\permanent\def\obeyedspace{\space}
-\permanent\def\obeyedtab {\obeyedspace}
-\permanent\def\obeyedline {\par}
-\permanent\def\obeyedpage {\page_otr_fill_and_eject_page}
-
-%D \macros
-%D {controlspace,setcontrolspaces}
-%D
-%D First we define \type {\obeyspaces}. When we want visible spaces (control spaces)
-%D we only have to adapt the definition of \type {\obeyedspace} to:
-
-\immutable\chardef\asciispacechar\spaceasciicode % a real space character
-
-\permanent\protected\def\naturalspace{\asciispacechar}
-\permanent\protected\def\controlspace{\hbox{\asciispacechar}} % rather tex, we need the unicode value
-\permanent\protected\def\normalspaces{\catcode\spaceasciicode\spacecatcode}
-
-% \bgroup
-% \catcode\spaceasciicode\activecatcode
-% \protected\gdef\obeyspaces {\catcode\spaceasciicode\activecatcode\def {\obeyedspace }}
-% \protected\gdef\setcontrolspaces{\catcode\spaceasciicode\activecatcode\def {\controlspace}}
-% \egroup
-
-%permanent\protected\def\obeyspaces {\catcode\spaceasciicode\activecatcode\letcharcode\spaceasciicode\obeyedspace }
-%permanent\protected\def\setcontrolspaces{\catcode\spaceasciicode\activecatcode\letcharcode\spaceasciicode\controlspace}
-
-%D \macros
-%D {obeytabs, obeylines, obeypages,ignoretabs, ignorelines, ignorepages}
-%D
-%D Next we take care of \NEWLINE\ and \NEWPAGE\ and because we want to be able to
-%D typeset listings that contain \TAB, we have to handle those too. Because we have
-%D to redefine the \NEWPAGE\ character locally, we redefine the meaning of this
-%D (often already) active character.
-
-% \expandafter\def\activeformfeedtoken{\par}
-
-\letcharcode\formfeedasciicode\par
-
-%D The following indirect definitions enable us to implement all kind of \type
-%D {\obeyed} handlers.
-
-% \protected\def\obeytabs {\catcode\tabasciicode \activecatcode\expandafter\def\activetabtoken {\obeyedtab }}
-% \protected\def\obeylines {\catcode\endoflineasciicode\activecatcode\expandafter\def\activeendoflinetoken{\obeyedline}}
-% \protected\def\obeypages {\catcode\formfeedasciicode \activecatcode\expandafter\def\activeformfeedtoken {\obeyedpage}}
-
-% \protected\def\ignoretabs {\catcode\tabasciicode \activecatcode\expandafter\def\activetabtoken {\obeyedspace}}
-% \protected\def\ignorelines{\catcode\endoflineasciicode\activecatcode\expandafter\def\activeendoflinetoken{\obeyedspace}}
-% \protected\def\ignorepages{\catcode\formfeedasciicode \ignorecatcode}
-% \protected\def\ignoreeofs {\catcode\endoffileasciicode\ignorecatcode}
-
-% but ... as we don't want to freeze to \obeyedspace etc which can be set after
-% \obeyspaces, we use an idirectness
-
-\def\syst_obeyed_space{\obeyedspace}
-\def\syst_obeyed_tab {\obeyedtab}
-\def\syst_obeyed_line {\obeyedline}
-\def\syst_obeyed_page {\obeyedpage}
-
-\permanent\protected\def\obeyspaces {\catcode\spaceasciicode \activecatcode\enforced\letcharcode\spaceasciicode \syst_obeyed_space}
-\permanent\protected\def\obeytabs {\catcode\tabasciicode \activecatcode\enforced\letcharcode\tabasciicode \syst_obeyed_tab }
-\permanent\protected\def\obeylines {\catcode\endoflineasciicode\activecatcode\enforced\letcharcode\endoflineasciicode\syst_obeyed_line }
-\permanent\protected\def\obeypages {\catcode\formfeedasciicode \activecatcode\enforced\letcharcode\formfeedasciicode \syst_obeyed_page }
-
-\permanent\protected\def\ignoretabs {\catcode\tabasciicode \activecatcode\enforced\letcharcode\tabasciicode \syst_obeyed_space}
-\permanent\protected\def\ignorelines{\catcode\endoflineasciicode\activecatcode\enforced\letcharcode\endoflineasciicode\syst_obeyed_space}
-\permanent\protected\def\ignorepages{\catcode\formfeedasciicode \ignorecatcode}
-\permanent\protected\def\ignoreeofs {\catcode\endoffileasciicode\ignorecatcode}
-
-\permanent\protected\def\setcontrolspaces{\catcode\spaceasciicode\activecatcode\enforced\letcharcode\spaceasciicode\controlspace}
-
-\endinput \protect