blob: dbca87c4c4ae58fa302caafc4cf2d32e7a52b671 (
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
|
\ProvidesPackage{texnansi}[1998/05/30 v0.2 texnansi and ansinew support]
\RequirePackage[LY1]{fontenc}
\@tempcnta=224
\@tempcntb=192
\loop
\ifnum\@tempcnta<255
\lccode\@tempcnta=\@tempcnta
\lccode\@tempcntb=\@tempcnta
\uccode\@tempcntb=\@tempcntb
\uccode\@tempcnta=\@tempcntb
\advance\@tempcnta\@ne
\advance\@tempcntb\@ne
\repeat
% Then there are just a few odd ones that don't fit this pattern
% OE, oe
\lccode140=156\lccode156=156
\uccode140=140\uccode156=140
% Ydieresis, ydieresis
\lccode159=255\lccode255=255
\uccode159=159\uccode255=159
% Scaron, scaron
\lccode138=154\lccode154=154
\uccode138=138\uccode154=138
% Zcaron, zcaron
\lccode142=158\lccode158=158
\uccode158=142\uccode142=142
% Lslash, lslash
\lccode128=144\lccode144=144
\uccode144=128\uccode128=128
\DeclareOption{ansinew}{\let\caronfake\relax}
\ProcessOptions
% Stop here unless ansinew being used.
\ifx\caronfake\relax\else\endinput\fi
% Issue a warning in this case.
\PackageWarningNoLine{fontenc}{%
Modifying LY1 encoding for ansinew rather than texnansi}
% Use the `high' copies of these
\DeclareTextSymbol{\oe}{LY1} {156}
\DeclareTextSymbol{\OE}{LY1} {140}
\DeclareTextSymbol{\ss}{LY1} {223}
% Take out some characters.
% Some of the `fakes' used here are so bad it may be better to
% do nothing, but do this for now.
\DeclareTextCommand{\i}{LY1}{%
\TextSymbolUnavailable\i i}
\DeclareTextCommand{\l}{LY1}{%
\TextSymbolUnavailable\l \leavevmode\rlap-l}
\DeclareTextCommand{\L}{LY1}{%
\TextSymbolUnavailable\L \leavevmode\rlap-L}
\def\accentfake#1#2#3#4#5{%
\TextSymbolUnavailable#1%
{\let\vtop\vbox
\oalign{%
\hfil
\dimen@\f@size\p@
\fontsize{#2\dimen@}\z@\selectfont
\smash{\lower#3\dimen@\hbox{#4}}\hfil\cr\hfil#5\hfil}}}
\def\caronfake{\accentfake\v{.4}{.1}{$\vee$}}
\DeclareTextCommand{\v}{LY1}[1]{\caronfake{#1}}
\DeclareTextComposite{\v}{LY1}{S} {138}
\DeclareTextComposite{\v}{LY1}{s} {154}
% \DeclareTextCompositeCommand{\v}{LY1}{Z}{\caronfake{Z}}
% \DeclareTextCompositeCommand{\v}{LY1}{z}{\caronfake{z}}
\DeclareTextComposite{\v}{LY1}{Z} {142}
\DeclareTextComposite{\v}{LY1}{z} {158}
\DeclareTextCommand{\r}{LY1}[1]{\accentfake\r{.75}{.3}{\char176}{#1}}
\DeclareTextComposite{\r}{LY1}{A} {197}
\DeclareTextComposite{\r}{LY1}{a} {229}
\DeclareTextCommand{\H}{LY1}[1]{\TextSymbolUnavailable\H\"{#1}}
\DeclareTextCommand{\u}{LY1}[1]{\accentfake\u{.3}{.1}{$\smile$}{#1}}
\DeclareTextCommand{\k}{LY1}[1]{\TextSymbolUnavailable\k\c{#1}}
\DeclareTextCommand{\.}{LY1}[1]{\accentfake\.{1}{0}{.}{#1}}
% Need to deal with prime in math mode since 39 is remapped to 146
{\catcode146=\active \gdef^^92{{^\bgroup\prim@s}}}
\mathcode146="8000 % ^\prime
\chardef\lq=145 \chardef\rq=146
% Note that \lq and \rq also provide access to ` and '
% `quoteright' has moved from 39 to 146
% make space for `quotesingle' in ANSI:
{\catcode`\'=\active \global\chardef'=146}
% `quoteleft' has moved from 96 to 145
% make space for `grave' in ANSI:
{\catcode`\`=\active \global\chardef`=145}
% Delay making ` and ' active until after packages read.
% So they can be used in octal and character code numbers.
\AtBeginDocument{\catcode`\'\active \catcode`\`\active}
|
