summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/fonts/lh/tex/92check.tex
blob: 967583c16f5064517fab9554ff3911440abb4b22 (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
%
% 92check.tex
%
%% Cyrillic font container with T2 encoding beta-support
%
% This file is future part of lxfonts package
% Version 3.4 // Patchlevel=0
% (c) O.Lapko
%
% This package belongs to the public domain 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 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,4)

\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)
% Font headers data file:
\long\def\FontsToBeGenerated{
     \tablevalues			( 10 )

     \makefont \fonttwoletters r	( 10 )()
     \makefont \fonttwoletters ti	( 10 )()
     \makefont \fonttwoletters csc	( 10 )()
     \makefont \fonttwoletters tt	( 10 )()
}
% 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%
}

\chartesttrue
\MakeFontEncfalse        % Create TeX encoding files ?

\itest
\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