diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/base/char-act.mkiv')
-rw-r--r-- | Master/texmf-dist/tex/context/base/char-act.mkiv | 64 |
1 files changed, 34 insertions, 30 deletions
diff --git a/Master/texmf-dist/tex/context/base/char-act.mkiv b/Master/texmf-dist/tex/context/base/char-act.mkiv index 2dc7823f0bf..1045d59758c 100644 --- a/Master/texmf-dist/tex/context/base/char-act.mkiv +++ b/Master/texmf-dist/tex/context/base/char-act.mkiv @@ -49,12 +49,12 @@ \def\controlspace{\hbox{\char32}} % rather tex \def\normalspace { } -\def\normalspaces{\catcode`\ =\@@space} +\def\normalspaces{\catcode\spaceasciicode\spacecatcode} \bgroup -\catcode`\ =\@@active -\gdef\obeyspaces{\catcode`\ =\@@active\def {\obeyedspace}} -\gdef\setcontrolspaces{\catcode`\ =\@@active\def {\controlspace}} +\catcode\spaceasciicode\activecatcode +\gdef\obeyspaces{\catcode\spaceasciicode\activecatcode\def {\obeyedspace}} +\gdef\setcontrolspaces{\catcode\spaceasciicode\activecatcode\def {\controlspace}} \egroup %D \macros @@ -66,27 +66,44 @@ %D \NEWPAGE\ character locally, we redefine the meaning of %D this (often already) active character. -\catcode`\^^L=\@@active \def^^L{\par} +% \bgroup \permitcircumflexescape + +% \catcode\formfeedasciicode\activecatcode + +% \gdef^^L{\par} + +% \egroup + +\expandafter\def\activeformfeedtoken{\par} %D The following indirect definitions enable us to implement %D all kind of \type{\obeyed} handlers. -\bgroup +% \bgroup \permitcircumflexescape -\catcode`\^^I=\@@active -\catcode`\^^M=\@@active -\catcode`\^^L=\@@active +% \catcode\tabasciicode \activecatcode +% \catcode\endoflineasciicode\activecatcode +% \catcode\formfeedasciicode \activecatcode -\gdef\obeytabs {\catcode`\^^I=\@@active\def^^I{\obeyedtab}} -\gdef\obeylines {\catcode`\^^M=\@@active\def^^M{\obeyedline}} -\gdef\obeypages {\catcode`\^^L=\@@active\def^^L{\obeyedpage}} +% \gdef\obeytabs {\catcode\tabasciicode \activecatcode\def^^I{\obeyedtab }} +% \gdef\obeylines {\catcode\endoflineasciicode\activecatcode\def^^M{\obeyedline}} +% \gdef\obeypages {\catcode\formfeedasciicode \activecatcode\def^^L{\obeyedpage}} -\gdef\ignoretabs {\catcode`\^^I=\@@active\def^^I{\obeyedspace}} -\gdef\ignorelines {\catcode`\^^M=\@@active\def^^M{\obeyedspace}} -\gdef\ignorepages {\catcode`\^^L=\@@ignore} % \@@active\def^^L{\obeyedline}} -\gdef\ignoreeofs {\catcode`\^^Z=\@@ignore} +% \gdef\ignoretabs {\catcode\tabasciicode \activecatcode\def^^I{\obeyedspace}} +% \gdef\ignorelines{\catcode\endoflineasciicode\activecatcode\def^^M{\obeyedspace}} +% \gdef\ignorepages{\catcode\formfeedasciicode \ignorecatcode} +% \gdef\ignoreeofs {\catcode\endoffileasciicode\ignorecatcode} -\egroup +% \egroup + +\def\obeytabs {\catcode\tabasciicode \activecatcode\expandafter\def\activetabtoken {\obeyedtab }} +\def\obeylines {\catcode\endoflineasciicode\activecatcode\expandafter\def\activeendoflinetoken{\obeyedline}} +\def\obeypages {\catcode\formfeedasciicode \activecatcode\expandafter\def\activeformfeedtoken {\obeyedpage}} + +\def\ignoretabs {\catcode\tabasciicode \activecatcode\expandafter\def\activetabtoken {\obeyedspace}} +\def\ignorelines{\catcode\endoflineasciicode\activecatcode\expandafter\def\activeendoflinetoken{\obeyedspace}} +\def\ignorepages{\catcode\formfeedasciicode \ignorecatcode} +\def\ignoreeofs {\catcode\endoffileasciicode\ignorecatcode} %D \macros %D {naturaltextext} @@ -102,19 +119,6 @@ \prettynaturalfont{\scantextokens\expandafter{\ascii}\ifhmode\unskip\fi}% \egroup} -%D What-a-mess: - -% \def\normalspacecodes -% {\catcode`\^^I = 10 -% \catcode`\^^M = 5 -% \catcode`\^^L = 5 -% \catcode`\ = 10 -% \catcode`\^^Z = 9 } - -% \appendtoks -% \normalspacecodes -% \to \everybeforeoutput - \endinput \protect % obsolete (old hack for idris) |