1
2
3
4
5
6
7
8
9
10
11
12
13
14\writestatus
{
loading
}{
ConTeXt
Character
Support
Active
}
15
16\unprotect
17
18\ifdefined
\page_otr_fill_and_eject_page
\else
\let
\page_otr_fill_and_eject_page
\relax
\fi
19
20
21
22
23
24
25
26
27
28
29\def
\obeyedspace
{
\space
}
30\def
\obeyedtab
{
\obeyedspace
}
31\def
\obeyedline
{
\par
}
32\def
\obeyedpage
{
\page_otr_fill_and_eject_page
}
33
34
35
36
37
38
39
40
41\chardef
\asciispacechar\spaceasciicode
42
43\unexpanded
\def
\naturalspace
{
\asciispacechar
}
44\unexpanded
\def
\controlspace
{
\hbox
{
\asciispacechar
}}
45\unexpanded
\def
\normalspaces
{
\catcode
\spaceasciicode\spacecatcode
}
46
47
48
49
50
51
52
53
54\unexpanded
\def
\setcontrolspaces
{
\catcode
\spaceasciicode\activecatcode
\letcharcode
\spaceasciicode
\controlspace
}
55
56
57
58
59
60
61
62
63
64
65
66
67\letcharcode
\formfeedasciicode
\par
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84\def
\_obeyed_space_
{
\obeyedspace
}
85\def
\_obeyed_tab_
{
\obeyedtab
}
86\def
\_obeyed_line_
{
\obeyedline
}
87\def
\_obeyed_page_
{
\obeyedpage
}
88
89\unexpanded
\def
\obeyspaces
{
\catcode
\spaceasciicode
\activecatcode
\letcharcode
\spaceasciicode
\_obeyed_space_
}
90\unexpanded
\def
\obeytabs
{
\catcode
\tabasciicode
\activecatcode
\letcharcode
\tabasciicode
\_obeyed_tab_
}
91\unexpanded
\def
\obeylines
{
\catcode
\endoflineasciicode\activecatcode
\letcharcode
\endoflineasciicode
\_obeyed_line_
}
92\unexpanded
\def
\obeypages
{
\catcode
\formfeedasciicode
\activecatcode
\letcharcode
\formfeedasciicode
\_obeyed_page_
}
93
94\unexpanded
\def
\ignoretabs
{
\catcode
\tabasciicode
\activecatcode
\letcharcode
\tabasciicode
\_obeyed_space_
}
95\unexpanded
\def
\ignorelines
{
\catcode
\endoflineasciicode\activecatcode
\letcharcode
\endoflineasciicode
\_obeyed_space_
}
96\unexpanded
\def
\ignorepages
{
\catcode
\formfeedasciicode
\ignorecatcode
}
97\unexpanded
\def
\ignoreeofs
{
\catcode
\endoffileasciicode\ignorecatcode
}
98
99\unexpanded
\def
\setcontrolspaces
{
\catcode
\spaceasciicode\activecatcode
\letcharcode
\spaceasciicode
\_control_space_
}
100
101
102
103
104
105
106
107
108\unexpanded
\def
\naturaltextext
#
1
\relax
109 {
\begingroup
110 \def
\ascii
{
#
1
}
111 \setcatcodetable
\ctxcatcodes
112 \prettynaturalfont
{
\scantextokens\expandafter
{
\ascii
}
\ifhmode
\unskip\fi
}
113 \endgroup
}
114
115\endinput
\protect
116