summaryrefslogtreecommitdiff
path: root/macros/generic/cptex/cp437.sty
blob: e76ddf69294f02f71cc351d0c3a57819ef11358f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
%
% TeX-Definitionen fr die Code Page 437, U.S. PC encoding
%
% (C) 1994 FuturaSoft (Martin Krmer, D-49179 Ostercappeln)
%
\typeout{Document Style Option `cp437' Version 1.0 <18 Feb 1994>.}
%
%
\@ifundefined{selectcodepage}{\input cp.sty}{}

\activatefullcharset

\newcodepage{437}{

  \selectcodepage[original]{texascii}
  \activatefullcharset

% Font: F = aktueller, MI = Mathe-Italic, MS = Mathe-Symbol, MA/B = msa/bm
  \mapchar{^^00}{\nbspace}				% F
  \mapchar{^^01}{\smiley}				% MS+MI
  \mapchar{^^02}{\blacksmiley}				% MS+MI
  \mapchar{^^03}{\mathsymbol{\heartsuit}}		% MS
  \mapchar{^^04}{\mathsymbol{\diamondsuit}}		% MS
  \mapchar{^^05}{\mathsymbol{\clubsuit}}		% MS
  \mapchar{^^06}{\mathsymbol{\spadesuit}}		% MS
  \mapchar{^^07}{\mathsymbol{\bullet}}			% MS
  \mapchar{^^08}{\invbullet}				% MS
 %\mapchar{^^09}{\mathsymbol{\circ}}			% MS
  \mapchar{^^0a}{\invcirc}				% MS
  \mapchar{^^0b}{\male}					% circle(ex)+MS
 %\mapchar{^^0c}{\female}				% circle+line(ex)
 %\mapchar{^^0d}{\musicalnote}				% circle+line(ex)
  \mapchar{^^0e}{\Musicalnote}				% circle+line(ex)
  \mapchar{^^0f}{\sun}					% MA
  \mapchar{^^10}{\mathsymbol{\blacktriangleright}}	% MA
  \mapchar{^^11}{\mathsymbol{\blacktriangleleft}}	% MA
  \mapchar{^^12}{\mathsymbol{\updownarrow}}		% MS
  \mapchar{^^13}{\Exclam}				% F
  \mapchar{^^14}{\P}					% MS
  \mapchar{^^15}{\S}					% MS
  \mapchar{^^16}{\Bar}					% F (no italic)
  \mapchar{^^17}{\mathsymbol{\underline{\updownarrow}}}	% MS
  \mapchar{^^18}{\mathsymbol{\uparrow}}			% MS
  \mapchar{^^19}{\mathsymbol{\downarrow}}		% MS
  \mapchar{^^1a}{\mathsymbol{\rightarrow}}		% MS
  \mapchar{^^1b}{\mathsymbol{\leftarrow}}		% MS
  \mapchar{^^1c}{\hookmark}				% line(ex)+MS
  \mapchar{^^1d}{\mathsymbol{\leftrightarrow}}		% MS
  \mapchar{^^1e}{\mathsymbol{\blacktriangle}}		% MA
  \mapchar{^^1f}{\mathsymbol{\blacktriangledown}}	% MA
%
  \mapchar{^^7f}{\hatmark}				% MA
%
  \mapchar{^^80}{\c C}\lcchar{^^87}
  \mapchar{^^81}{\"u}\ucchar{^^9a}
  \mapchar{^^82}{\'e}\ucchar{^^90}
  \mapchar{^^83}{\^a}\uctext{\^A}
  \mapchar{^^84}{\"a}\ucchar{^^8e}
  \mapchar{^^85}{\`a}\uctext{\`A}
  \mapchar{^^86}{\aa}\ucchar{^^8f}
  \mapchar{^^87}{\c c}\ucchar{^^80}
  \mapchar{^^88}{\^e}\uctext{\^E}
  \mapchar{^^89}{\"e}\uctext{\"E}
  \mapchar{^^8a}{\`e}\uctext{\`E}
  \mapchar{^^8b}{\"\i}\uctext{\"{\I}}
  \mapchar{^^8c}{\^\i}\uctext{\^{\I}}
  \mapchar{^^8d}{\`\i}\uctext{\`{\I}}
  \mapchar{^^8e}{\"A}\lcchar{^^84}
  \mapchar{^^8f}{\AA}\lcchar{^^86}
  \mapchar{^^90}{\'E}\lcchar{^^82}
  \mapchar{^^91}{\ae}\ucchar{^^92}
  \mapchar{^^92}{\AE}\lcchar{^^91}
  \mapchar{^^93}{\^o}\uctext{\^O}
  \mapchar{^^94}{\"o}\ucchar{^^99}
  \mapchar{^^95}{\`o}\uctext{\`O}
  \mapchar{^^96}{\^u}\uctext{\^U}
  \mapchar{^^97}{\`u}\uctext{\`U}
  \mapchar{^^98}{\"y}\uctext{\"Y}
  \mapchar{^^99}{\"O}\lcchar{^^94}
  \mapchar{^^9a}{\"U}\lcchar{^^81}
  \mapchar{^^9b}{\cent}
  \mapchar{^^9c}{\pounds}				% italic
  \mapchar{^^9d}{\yen}
  \mapchar{^^9e}{\Pt}					% MS
  \mapchar{^^9f}{\florin}				% MI
  \mapchar{^^a0}{\'a}\uctext{\'A}
  \mapchar{^^a1}{\'\i}\uctext{\'{\I}}
  \mapchar{^^a2}{\'o}\uctext{\'O}
  \mapchar{^^a3}{\'u}\uctext{\'U}
  \mapchar{^^a4}{\~n}\ucchar{^^a5}
  \mapchar{^^a5}{\~N}\lcchar{^^a4}
  \mapchar{^^a6}{\ordfeminine}				% F(ex)
  \mapchar{^^a7}{\ordmasculine}				% F(ex)
  \mapchar{^^a8}{\questiondown}
  \mapchar{^^a9}{\ulangle}
  \mapchar{^^aa}{\urangle}
  \mapchar{^^ab}{\mathsymbol{\slashfrac12}}		% F+MS
  \mapchar{^^ac}{\mathsymbol{\slashfrac14}}		% F+MS
  \mapchar{^^ad}{\exclamdown}
  \mapchar{^^ae}{\flqq}					% MS(ex)
  \mapchar{^^af}{\frqq}					% MS(ex)
  \mapchar{^^b0}{\graygraphbox}				% rules(ex)
  \mapchar{^^b1}{\Graygraphbox}				% rules(ex)
  \mapchar{^^b2}{\GRAYGRAPHBOX}				% rules(ex)
  \mapchar{^^b3}{\graphsymbol{\hfill\vline\hfill}}	% rules(ex)
  \mapchar{^^b4}{\graphsymbol{\hlinefill\vline\hfill}}	% rules(ex)
  \mapchar{^^b5}{\graphsymbol{\Hlinefill{0pt}{0pt}\vline\hfill}}
  \mapchar{^^b6}{\graphsymbol{\hlinefill\Vline \hfill}}
  \mapchar{^^b7}{\graphsymbol{\hlinefill\kern-\graphlinedist
      \Vline[b]{0.5\graphlinewidth}[b]{0.5\graphlinewidth}%
      \kern-\graphlinedist\hfill}}
  \mapchar{^^b8}{\graphsymbol{\Hlinefill{0pt}{0pt}\vline[b]\graphlineoutside
      \hfill}}
  \mapchar{^^b9}{\graphsymbol{\Hlinefill{0pt}{0pt}\Vline[p]\graphlineinside
      \hfill}}
  \mapchar{^^ba}{\graphsymbol{\hfill\Vline\hfill}}
  \mapchar{^^bb}{\graphsymbol{\Hlinefill{0pt}{\graphlinedist}%
      \Vline[b]\graphlineinside[b]\graphlineoutside \hfill}}
  \mapchar{^^bc}{\graphsymbol{\Hlinefill{0pt}{-\graphlinedist}%
      \Vline[t]\graphlineinside[t]\graphlineoutside \hfill}}
  \mapchar{^^bd}{\graphsymbol{\hlinefill\kern-\graphlinedist
      \Vline[t]{0.5\graphlinewidth}[t]{0.5\graphlinewidth}%
      \kern-\graphlinedist\hfill}}
  \mapchar{^^be}{\graphsymbol{\Hlinefill{0pt}{0pt}\vline[t]\graphlineoutside
      \hfill}}
  \mapchar{^^bf}{\graphsymbol{\hlinefill\vline[b]{0.5\graphlinewidth}\hfill}}
  \mapchar{^^c0}{\graphsymbol{\hfill\vline[t]{0.5\graphlinewidth}\hlinefill}}
  \mapchar{^^c1}{\graphsymbol{\hlinefill\vline[t]{0.5\graphlinewidth}%
      \hlinefill}}
  \mapchar{^^c2}{\graphsymbol{\hlinefill\vline[b]{0.5\graphlinewidth}%
      \hlinefill}}
  \mapchar{^^c3}{\graphsymbol{\hfill\vline\hlinefill}}
  \mapchar{^^c4}{\graphsymbol{\hlinefill}}
  \mapchar{^^c5}{\graphsymbol{\hlinefill\vline\hlinefill}}
  \mapchar{^^c6}{\graphsymbol{\hfill\vline\Hlinefill{0pt}{0pt}}}
  \mapchar{^^c7}{\graphsymbol{\hfill\Vline \hlinefill}}
  \mapchar{^^c8}{\graphsymbol{\hfill
      \Vline[t]\graphlineoutside[t]\graphlineinside
      \Hlinefill{-\graphlinedist}{0pt}}}
  \mapchar{^^c9}{\graphsymbol{\hfill
      \Vline[b]\graphlineoutside[b]\graphlineinside
      \Hlinefill{\graphlinedist}{0pt}}}
  \mapchar{^^ca}{\graphsymbol{\Hlinefill{0pt}{-\graphlinedist}%
      \Vline[t]\graphlineinside[t]\graphlineinside
      \Hlinefill{-2\graphlinewidth}{0pt}}}
  \mapchar{^^cb}{\graphsymbol{\Hlinefill{0pt}{\graphlinedist}%
      \Vline[b]\graphlineinside[b]\graphlineinside
      \Hlinefill{2\graphlinewidth}{0pt}}}
  \mapchar{^^cc}{\graphsymbol{\hfill\Vline[c][p]\graphlineinside
      \Hlinefill{0pt}{0pt}}}
  \mapchar{^^cd}{\graphsymbol{\Hlinefill{0pt}{0pt}}}
  \mapchar{^^ce}{\graphsymbol{\Hlinefill{0pt}{0pt}%
      \Vline[p]\graphlineinside[p]\graphlineinside \Hlinefill{0pt}{0pt}}}
  \mapchar{^^cf}{\graphsymbol{\Hlinefill{0pt}{0pt}\vline[t]\graphlineinside
      \Hlinefill{-2\graphlinewidth}{0pt}}}
  \mapchar{^^d0}{\graphsymbol{\hlinefill\kern-\graphlinedist
      \Vline[t]{0.5\graphlinewidth}[t]{0.5\graphlinewidth}%
      \kern-\graphlinedist\hlinefill}}
  \mapchar{^^d1}{\graphsymbol{\Hlinefill{0pt}{0pt}\vline[b]\graphlineinside
      \Hlinefill{2\graphlinewidth}{0pt}}}
  \mapchar{^^d2}{\graphsymbol{\hlinefill\kern-\graphlinedist
      \Vline[b]{0.5\graphlinewidth}[b]{0.5\graphlinewidth}%
      \kern-\graphlinedist\hlinefill}}
  \mapchar{^^d3}{\graphsymbol{\hfill\kern-\graphlinedist
      \Vline[t]{0.5\graphlinewidth}[t]{0.5\graphlinewidth}%
      \kern-\graphlinedist\hlinefill}}
  \mapchar{^^d4}{\graphsymbol{\hfill\vline[t]\graphlineoutside
      \Hlinefill{0pt}{0pt}}}
  \mapchar{^^d5}{\graphsymbol{\hfill\vline[b]\graphlineoutside
      \Hlinefill{0pt}{0pt}}}
  \mapchar{^^d6}{\graphsymbol{\hfill\kern-\graphlinedist
      \Vline[b]{0.5\graphlinewidth}[b]{0.5\graphlinewidth}%
      \kern-\graphlinedist\hlinefill}}
  \mapchar{^^d7}{\graphsymbol{\hlinefill\kern-\graphlinedist\Vline
      \kern-\graphlinedist\hlinefill}}
  \mapchar{^^d8}{\graphsymbol{\Hlinefill{0pt}{0pt}\vline
      \Hlinefill{0pt}{0pt}}}
  \mapchar{^^d9}{\graphsymbol{\hlinefill\vline[t]{0.5\graphlinewidth}\hfill}}
  \mapchar{^^da}{\graphsymbol{\hfill\vline[b]{0.5\graphlinewidth}\hlinefill}}
  \mapchar{^^db}{\graphsymbol{\leaders\vrule\hfill}}
  \mapchar{^^dc}{\graphsymbol{\leaders\vrule height0pt\hfill}}
  \mapchar{^^dd}{\graphsymbol{\leaders\vrule\hfill\hfill}}
  \mapchar{^^de}{\graphsymbol{\hfill\leaders\vrule\hfill}}
  \mapchar{^^df}{\graphsymbol{\leaders\vrule depth0pt\hfill}}
  \mapchar{^^e0}{\mathsymbol{\alpha}}
  \mapchar{^^e1}{\mathsymbol{\beta}}
  \mapchar{^^e2}{\mathsymbol{\Gamma}}
  \mapchar{^^e3}{\mathsymbol{\pi}}
  \mapchar{^^e4}{\mathsymbol{\Sigma}}
  \mapchar{^^e5}{\mathsymbol{\sigma}}
  \mapchar{^^e6}{\mathsymbol{\mu}}			% MI
  \mapchar{^^e7}{\mathsymbol{\tau}}
  \mapchar{^^e8}{\mathsymbol{\Phi}}
  \mapchar{^^e9}{\mathsymbol{\Theta}}
  \mapchar{^^ea}{\mathsymbol{\Omega}}
  \mapchar{^^eb}{\mathsymbol{\delta}}
  \mapchar{^^ec}{\mathsymbol{\infty}}
  \mapchar{^^ed}{\mathsymbol{\varnothing}}
  \mapchar{^^ee}{\mathsymbol{\in}}
  \mapchar{^^ef}{\mathsymbol{\cap}}
  \mapchar{^^f0}{\mathsymbol{\equiv}}
  \mapchar{^^f1}{\mathsymbol{\pm}}			% MS
  \mapchar{^^f2}{\mathsymbol{\ge}}
  \mapchar{^^f3}{\mathsymbol{\le}}
  \mapchar{^^f4}{\inttop}
  \mapchar{^^f5}{\intbot}
  \mapchar{^^f6}{\mathsymbol{\div}}			% MS
  \mapchar{^^f7}{\mathsymbol{\approx}}
  \mapchar{^^f8}{\degree}				% MS
  \mapchar{^^f9}{\bigcdot}
  \mapchar{^^fa}{\smallcdot}				% MS
  \mapchar{^^fb}{\mathsymbol{\surd}}
  \mapchar{^^fc}{\mathsymbol{\xnolimits^n}}		% F
  \mapchar{^^fd}{\mathsymbol{\xnolimits^2}}		% F
  \mapchar{^^fe}{\sqbullet}				% rules(ex)
  \mapchar{^^ff}{\nbspace}				% F

%
% Zuruecksetzen der Original-Definitionen
%
\def\cporiginal{%
  \mapchar{^^aa}{\urangle}%
  \mapchar{^^b3}{\graphsymbol{\hfill\vline\hfill}}%
  \mapchar{^^ba}{\graphsymbol{\hfill\Vline\hfill}}%
  \mapchar{^^c4}{\graphsymbol{\hlinefill}}%
  \mapchar{^^e1}{\mathsymbol{\beta}}}

%
% Modifizierte Definition fuer die Benutzung von `es-zet' statt `beta'
%
\def\cpgerman{\mapchar{^^e1}{\ss}\uctext{\SS{}}}

%
% Modifizierte Definition fuer manche Textverarbeitungen (z. B. Microsoft Word)
%
\def\cpemdash{\mapchar{^^c4}{\emdash}}

%
% Weitere moegliche Modifikationen
%
\def\cpneg{\mapchar{^^aa}{\mathsymbol{\neg}}}

\def\cpVert{%
  \mapchar{^^b3}{\mathsymbol{\vert}}%
  \mapchar{^^ba}{\mathsymbol{\Vert}}}

}%\end{newcodepage}

%
% Einstellen der Code Page 437
%
\selectcodepage{437}