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
|
%
% 92check.tex
%
%% Cyrillic font container with T2 encoding beta-support
%
% This file is future part of lxfonts package
% Version 3.5 // Patchlevel=0
% (c) O.Lapko
%
% This package is freeware product under conditions similar to
% those of D. E. Knuth specified for the Computer Modern family of fonts.
% In particular, only the authors are entitled to modify this file
% (and all this package as well) and to save it under the same name.
%
% Content:
%
% TeX file for creation Cyrillic Computer Modern font
% all non-T2 letters
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% set defaults
\input cfhead
\lhvercheck(3,5)
\newcount\Test
\def\itest{\Test=0
\let\phanfont\undefined%
\def\charteststart{-1}
\def\chartestfinish{999}
\def\fonttwoletters{xx}
}
\def\iitest{\Test=1
\def\phanfont{}%
\def\charteststart{-1}
\def\chartestfinish{216}
\def\fonttwoletters{yy}
}
\def\iiitest{\Test=1
\def\phanfont{}%
\def\charteststart{215}
\def\chartestfinish{999}
\def\fonttwoletters{zz}
}
% Two first font/enc letters:
\def\encodingletters{vf}%any encoding
% Encoding data file: enc-t2.tex (default)
% Text for ??begin:
\def\defamily{%
%boolean TFMonly; TFMonly=true;^^J%
\ifnum\Test=0
autocount:=3;^^J^^J%
\else
autocount:=2;^^J^^J%
\fi
def cyrchar(suffix $)(expr w_sharp,h_sharp,d_sharp) =^^J
\ifnum\Test=0
if unknown CYR_.$: message "char CYR_."&(str $)&" uncoded"; message ""; fi^^J
\fi
iff known CYR_.$:^^J
beginchar(charcode,w_sharp,h_sharp,d_sharp);^^J
charcode:=charcode+1; if charcode=255: charcode:=0; fi^^J
CYR_.$:=charcode+1;^^J
def getcharcode(suffix $) = CYR_.$:=charcode+1; enddef;^^J%
enddef;^^J%
^^J%
def cyrchar_twice(suffix $)(expr w_sharp,h_sharp,d_sharp) =^^J
\ifnum\Test=0
if unknown CYR_.$: message "char CYR_."&(str $)&" uncoded"; message ""; fi^^J
\fi
iff known CYR_.$:^^J
beginchar_twice(charcode,w_sharp,h_sharp,d_sharp);^^J
charcode:=charcode+1; if charcode=255: charcode:=0; fi^^J
CYR_.$:=charcode+1;^^J
def getcharcode(suffix $) = CYR_.$:=charcode+1; enddef;^^J%
enddef;^^J%
^^J^^J%
def testchar (suffix $) = if CYR_.$=-1:^^J%
\| message "char CYR_."&(str $)&" absent"; fi enddef;^^J^^J%
^^J^^J%
vfcoding:=true;^^J%
other_cyr:=true;^^J%
unic:=true;^^J%
more_letters:=true;^^J%
old_cyr:=true;^^J%
genmode:="ec";^^J^^J%
}
% Font headers data file:
\def\fontfile{\fntallec}
\iffalse
\long\def\FontsToBeGenerated{
\tablevalues ( 10 )
\makefont \fonttwoletters r ( 10 )()
\makefont \fonttwoletters ti ( 10 )()
\makefont \fonttwoletters csc ( 10 )()
\makefont \fonttwoletters tt ( 10 )()
}
\fi
\chartesttrue
\MakeFontEncfalse % Create TeX encoding files ?
\itest
\doBatchtrue % Create Batch file
% [true option is only for experts; that was heavily
% borrowed from EC's ecstdedt.tex and had not any testing]
\def\BatchOutput#1{
% \BatchLine{$ MF "\string\mode=localfont; input #1"}
\BatchLine{MF "\string\mode=epstyplo; input #1"}
}
\MakeFileHeadstrue
\doMFJobtrue % Create MFJob file ?
\TFMonlytrue % Create tfm-files only ?
\input cod-edt % creates encoding file
\input rliker % creates kern&ligature files
\input cfstdedt % creates font headers; batch and mfjob files
\end
|