summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain/amsfonts/cyracc.def
blob: ddc4aaaf758bde162ccbe58b1eddaf337f4d7147 (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
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
%% filename: cyracc.def
%% version: 2.2b
%% date: 2001/10/01
%%
%% American Mathematical Society
%% Technical Support
%% Publications Technical Group
%% 201 Charles Street
%% Providence, RI 02904
%% USA
%% tel: (401) 455-4080
%%      (800) 321-4267 (USA and Canada only)
%% fax: (401) 331-3842
%% email: tech-support@ams.org
%% 
%% Copyright 1996, 2001, 2009 American Mathematical Society.
%% 
%% Unlimited copying and redistribution of this file are permitted as
%% long as this file is not modified.  Modifications, and distribution
%% of modified versions, are permitted, but only if the resulting file
%% is renamed.
%%
%% ====================================================================
%%
%%    This file is intended for use only with Plain TeX and AMS-TeX.
%%    It is not compatible with LaTeX.
%%
%%    The \font specification(s) should be made elsewhere, and should include
%%            \newfam\cyrfam
%%            \font\...cyr=wncyr...   (e.g. \font\tencyr=wncyr10 )
%%    An appropriate definition for cyrillic, usable in math and text, is
%%            \def\cyr{\fam\cyrfam\...cyr\cyracc}
%%    More extensive instructions for using cyrillic fonts are included
%%    in the AMSFonts 2.2 User's Guide.
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\chardef\tempcat=\the\catcode`\@
\catcode`\@=11

%  The first set of definitions is what will be in effect outside of cyrillic,
%  i.e., in transliterated text.

%  Definition of \cydot is not ideal; real dot should be in an accent font.
\def\cydot{{\mathsurround=0pt$\cdot$}}

%  \ubar is the definition of \b from PLAIN; it may not work in math mode.
\def\ubar#1{\oalign{#1\crcr\hidewidth
    \vbox to.2ex{\hbox{\char22}\vss}\hidewidth}}

%  Soft and hard signs are represented in transliteration by prime and
%  double prime respectively.
\def\cprime{\/{\mathsurround=0pt$'$}}
\def\Cprime{{\mathsurround=0pt$'$}}
\def\cdprime{\/{\mathsurround=0pt$''$}}
\def\Cdprime{{\mathsurround=0pt$\ubar{\hbox{$''$}}$}}

\def\dbar{dj}           % make real barred d when accent font available
\def\Dbar{Dj}           %  ""

%  It would be nice to make these control sequences unnecessary; that will
%  probably require d to become active.
\def\dz{dz}
\def\Dz{Dz}
\def\dzh{dzh\cydot }
\def\Dzh{Dzh\cydot }


%  Stress marks are sometimes used in cyrillic text, mainly for pedagogic
%  reasons.  These definitions support stress marks within {\cyr ...};
%  in transliteration, they are suppressed.  Stress is indicated in
%  input by \! preceding a letter on which a stress mark is to appear;
%  an acute accent will appear in the output.  Since \! is also a plain
%  command, for negative thin space in math mode, test for math mode and
%  include the plain definition as appropriate.

\def\@gobble#1{}
\def\@testgrave{\`}
\def\@stressit{\futurelet\chartest\@stresschar }

\def\@stresschar#1{%
  \ifx #1y\def\result{\futurelet\chartest\@yligature}%
  \else \ifx #1Y\def\result{\futurelet\chartest\@Yligature}%
  \else \ifx\chartest\@testgrave \def\result{\accent"26 }%
  \else \def\result{\accent"26 #1}%
  \fi \fi \fi
  \result }

\def\@yligature{%
  \ifx a\chartest \def\result{\accent"26 \char"1F \@gobble}%
  \else \ifx u\chartest \def\result{\accent"26 \char"18 \@gobble}%
  \else \def\result{\accent"26 y}%
  \fi \fi
  \result }

\def\@Yligature{%
  \ifx a\chartest \def\result{\accent"26 \char"17 \@gobble}%
  \else \ifx A\chartest \def\result{\accent"26 \char"17 \@gobble}%
  \else \ifx u\chartest \def\result{\accent"26 \char"10 \@gobble}%
  \else \ifx U\chartest \def\result{\accent"26 \char"10 \@gobble}%
  \else \def\result{\accent"26 Y}%
  \fi \fi \fi \fi
  \result }

\def\!{\ifmmode \mskip-\thinmuskip \fi}


%  These are the definitions that will produce cyrillic letters within
%  {\cyr ...} for letters represented in input by control sequences and
%  accented latin letters.

\def\cyracc{%
  \def\cydot{{\kern0pt}}%
  \def\cprime{\char"7E }\def\Cprime{\char"5E }%
  \def\cdprime{\char"7F }\def\Cdprime{\char"5F }%
  \def\dbar{dj}\def\Dbar{Dj}%
  \def\dz{\char"1E }\def\Dz{\char"16 }%
  \def\dzh{\char"0A }\def\Dzh{\char"02 }%
  \def\'##1{\if c##1\char"0F %
    \else \if C##1\char"07 %
    \else \accent"26 ##1\fi \fi }%
  \def\`##1{\if e##1\char"0B %
    \else \if E##1\char"03 %
    \else \errmessage{accent \string\` not defined in cyrillic}%
        ##1\fi \fi }%
  \def\=##1{\if e##1\char"0D %
    \else \if E##1\char"05 %
    \else \if \i##1\char"0C %
    \else \if I##1\char"04 %
    \else \errmessage{accent \string\= not defined in cyrillic}%
        ##1\fi \fi \fi \fi }%
  \def\u##1{\if \i##1\accent"24 i%
    \else \accent"24 ##1\fi }%
  \def\"##1{\if \i##1\accent"20 \char"3D %
    \else \if I##1\accent"20 \char"04 %
    \else \accent"20 ##1\fi \fi }%
  \def\!{\ifmmode \def\result{\mskip-\thinmuskip}%
    \else \def\result{\@stressit}\fi \result}}


%       If cyrillic strings are to be included in \mark's, the accents need
%       to be kept in unexpanded form until the \mark's are interpreted.
%       See note on \mark below for details.

\def\keep@cyracc{\let\cyr=\relax \let\i=\relax
        \let\ubar=\relax \let\cydot=\relax
        \let\cprime=\relax \let\Cprime=\relax
        \let\cdprime=\relax \let\Cdprime=\relax
        \let\dbar=\relax \let\Dbar=\relax
        \let\dz=\relax \let\Dz=\relax
        \let\dzh=\relax \let\Dzh=\relax
        \let\'=\relax \let\`=\relax \let\==\relax
        \let\u=\relax \let\"=\relax \let\!=\relax }


\catcode`\@=\tempcat
\endinput

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%                       *****   CYRACC.DEF      *****
%
%  Access to the cyrillic is through the MR 1980 transliteration scheme,
%  using TeX/Metafont ligature capability.  (An alternate set of ligatures
%  exists, for accessing letters beyond the 26 located in the font positions
%  of the 26 roman letters.  An authoritative list of the ligature rules is
%  given below, under the heading Ligatures.)  Successful use of this file
%  requires appropriate cyrillic and accent fonts, arranged according to
%  the AMS/MR scheme.
%
%  There are some weaknesses in this ligaturing and accent system.
%  The following are known to be less than satisfactory:
%
%       the intermediate `ligatures' for shch access numerals;
%       primes (transliteration of hard/soft signs) use math mode;
%       underbar on `cap' double prime is too low (hard sign);
%       thorn d's don't yet exist;
%       \cydot uses math mode;
%       this scheme is not compatible with automatic Russian hyphenation.
%
%
%  Notes on the macros:
%
%       The single space following each hex character code is necessary
%       to prevent the next input character from being gobbled.
%
%
%  Note on \mark :
%
%       Control sequences such as these cyrillic accents should remain
%       unexpanded when generating \mark's; otherwise, the definition of
%       the expanded strings in effect when the \mark is used may be
%       inappropriate.  By \let\...=\relax , the \... takes on the important
%       characteristic of a primitive that it will not be expanded further.
%       The following code has been shown to generate correct \mark entries
%       that can be used successfully in running heads:
%
%       \newtoks\marktoks
%       \def\domark{\keep@cyracc \mark{\the\marktoks}}
%
%       In running heads, the marks should be accessed using \the to expand
%       the tokens strings properly.
%
%
%  Ligatures
%
%  This is a list of all the letter ligatures in the AMS cyrillic fonts,
%  and in other cyrillic fonts (such as those developed at the University
%  of Washington that use the AMS arrangement).
%
%  LOWER CASE LIGATURES
%
%    A.  All-letter ligatures
%
%  ch = `q
%  dj = '016
%  kh = `h
%  lj = '011
%  nj = '010
%  sh = `x; xc = `7 (shc); 7h = `w (shch)
%  ts = `c
%  ya = '037
%  yu = '030
%  zh = '031
%
%    B.  Ligatures with keyed numerals
%
%  c1 = '017
%  d1 = '016 (dj); d2 = '012 (dzh); d3 = '036 (dz)
%  e0 = '033; e1 = '013; e2 = '015
%  i0 = '032; i1 = '014
%  j1 = '037 (ya); j2 = '030 (yu)
%  l1 = '011 (lj)
%  n1 = '010 (nj)
%  p1 = '176; p2 = '177
%  z1 = '031 (zh)
%
%  UPPER CASE LIGATURES
%    A.  All-letter ligatures
%
%  CH, Ch = `Q
%  KH, Kh = `H
%  LJ, Lj = '001
%  NJ, Nj = '000
%  SH, Sh = `X; XH, Xh = `6 (SHC, SHc, Shc);
%            6H, 6h = `W (SHCH, SHCh, SHch, Shch)
%  TS, Ts = `C
%  YA, Ya = '027
%  YU, Yu = '020
%  ZH, Zh = '021
%
%    B.  Ligatures with keyed numerals
%
%  C1 = '007
%  D1 = '006 (DJ); D2 = '002 (DZH); D3 = '026 (DZ)
%  E0 = '023; E1 = '003; E2 = '005
%  I0 = '022; I1 = '004
%  J1 = '027 (YA); J2 = '020 (YU)
%  L1 = '001 (LJ)
%  N0 = '175 (Number sign); N1 = '000 (NJ)
%  P1 = '136; P2 = '137
%  Z1 = '021 (ZH)
%
%  DEACTIVATED LIGATURES
%
%  The dzh and DZH ligatures were originally built in the following manner,
%  but the results were not compatible with desired keyboarding schemes.
%
%  dz = '036; '036(roman s)h = '012 (dzh)
%  DZ = '026; '026(roman S)H = '002 (DZH)
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%