Source Browser ?

1
%D \module
2
%D   [       file=char-act,
3
%D        version=2006.12.05,
4
%D          title=\CONTEXT\ Character Support,
5
%D       subtitle=Active,
6
%D         author=Hans Hagen,
7
%D           date=\currentdate,
8
%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9
%C
10
%C This module is part of the \CONTEXT\ macro||package and is
11
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12
%C details.
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
 
% forward reference
19
20
%D \macros
21
%D   {obeyedspace, obeyedtab, obeyedline, obeyedpage}
22
%D
23
%D We have followed Knuth in naming macros that make \SPACE,
24
%D \NEWLINE\ and \NEWPAGE\ active and assigning them
25
%D \type{\obeysomething}, but first we set some default values.
26
27
% These are expandable!
28
29
\def
\obeyedspace
 
{
\space
}
30
\def
\obeyedtab
   
{
\obeyedspace
}
31
\def
\obeyedline
  
{
\par
}
32
\def
\obeyedpage
  
{
\page_otr_fill_and_eject_page
}
33
34
%D \macros
35
%D   {controlspace,setcontrolspaces}
36
%D
37
%D First we define \type{\obeyspaces}. When we want visible
38
%D spaces (control spaces) we only have to adapt the definition
39
%D of \type{\obeyedspace} to:
40
41
\chardef
\asciispacechar\spaceasciicode
 
% a real space character
42
43
\unexpanded
\def
\naturalspace
{
\asciispacechar
}
44
\unexpanded
\def
\controlspace
{
\hbox
{
\asciispacechar
}}
               
% rather tex, we need the unicode value
45
\unexpanded
\def
\normalspaces
{
\catcode
\spaceasciicode\spacecatcode
}
46
47
% \bgroup
48
%     \catcode\spaceasciicode\activecatcode
49
%     \unexpanded\gdef\obeyspaces      {\catcode\spaceasciicode\activecatcode\def {\obeyedspace }}
50
%     \unexpanded\gdef\setcontrolspaces{\catcode\spaceasciicode\activecatcode\def {\controlspace}}
51
% \egroup
52
53
%unexpanded\def\obeyspaces      {\catcode\spaceasciicode\activecatcode\letcharcode\spaceasciicode\obeyedspace }
54
\unexpanded
\def
\setcontrolspaces
{
\catcode
\spaceasciicode\activecatcode
\letcharcode
\spaceasciicode
\controlspace
}
55
56
%D \macros
57
%D   {obeytabs, obeylines, obeypages,ignoretabs, ignorelines, ignorepages}
58
%D
59
%D Next we take care of \NEWLINE\ and \NEWPAGE\ and because we
60
%D want to be able to typeset listings that contain \TAB, we
61
%D have to handle those too. Because we have to redefine the
62
%D \NEWPAGE\ character locally, we redefine the meaning of
63
%D this (often already) active character.
64
65
% \expandafter\def\activeformfeedtoken{\par}
66
67
\letcharcode
\formfeedasciicode
\par
68
69
%D The following indirect definitions enable us to implement
70
%D all kind of \type{\obeyed} handlers.
71
72
% \unexpanded\def\obeytabs   {\catcode\tabasciicode      \activecatcode\expandafter\def\activetabtoken      {\obeyedtab }}
73
% \unexpanded\def\obeylines  {\catcode\endoflineasciicode\activecatcode\expandafter\def\activeendoflinetoken{\obeyedline}}
74
% \unexpanded\def\obeypages  {\catcode\formfeedasciicode \activecatcode\expandafter\def\activeformfeedtoken {\obeyedpage}}
75
76
% \unexpanded\def\ignoretabs {\catcode\tabasciicode      \activecatcode\expandafter\def\activetabtoken      {\obeyedspace}}
77
% \unexpanded\def\ignorelines{\catcode\endoflineasciicode\activecatcode\expandafter\def\activeendoflinetoken{\obeyedspace}}
78
% \unexpanded\def\ignorepages{\catcode\formfeedasciicode \ignorecatcode}
79
% \unexpanded\def\ignoreeofs {\catcode\endoffileasciicode\ignorecatcode}
80
81
% but ... as we don't want to freeze to \obeyedspace etc which can be set after \obeyspaces, we
82
% use an idirectness
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
%D \macros
102
%D   {naturaltextext}
103
%D
104
%D When one uses \ETEX, switching to normal \TEX\ is possible
105
%D too. We also introduce a switch that can be used in the
106
%D drivers and set in higher level shell macros.
107
108
\unexpanded
\def
\naturaltextext
#
1
\relax
 
% this command will become obsolete
109  
{
\begingroup
110   
\def
\ascii
{
#
1
}
%
111   
\setcatcodetable
\ctxcatcodes
112   
\prettynaturalfont
{
\scantextokens\expandafter
{
\ascii
}
\ifhmode
\unskip\fi
}
%
113   
\endgroup
}
114
115
\endinput
 
\protect
116