%
% 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:
\def\fontfile{\fntallcm}
% 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"; fi^^J
\fi
 iff known CYR_.$:^^J
 beginchar(charcode,w_sharp,h_sharp,d_sharp);^^J
 charcode:=charcode+1;^^J
 if not is_small_cap: CYR_.$:=charcode; fi^^J
 def getcharcode(suffix $) = CYR_.$:=charcode; 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"; fi^^J
\fi
 iff known CYR_.$:^^J
 beginchar_twice(charcode,w_sharp,h_sharp,d_sharp);^^J
 charcode:=charcode+1;^^J
 if not is_small_cap: CYR_.$:=charcode; fi^^J
 def getcharcode(suffix $) = CYR_.$:=charcode; enddef;^^J%
enddef;^^J%
^^J^^J%
def testchar (suffix $) = if CYR_.$=-1:^^J%
 \|  message "char CYR_."&(str $)&" absent"; fi enddef;^^J%
^^J^^J%
vfcoding:=true;^^J%
other_cyr:=true;^^J%
more_letters:=true;^^J%
old_cyr:=true;^^J%
%genmode:="ec";^^J^^J%
}

\chartesttrue
\MakeFontEncfalse        % Create TeX encoding files ?

\itest
\input cod-edt	% creates encoding file
\input rliker	% creates kern&ligature files
\input cfstdedt % creates font headers; batch and mfjob files
\end
