diff options
Diffstat (limited to 'Master/texmf-dist/source/fonts/lh/tex/92check.tex')
| -rw-r--r-- | Master/texmf-dist/source/fonts/lh/tex/92check.tex | 119 |
1 files changed, 119 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/fonts/lh/tex/92check.tex b/Master/texmf-dist/source/fonts/lh/tex/92check.tex new file mode 100644 index 00000000000..372d1e522f8 --- /dev/null +++ b/Master/texmf-dist/source/fonts/lh/tex/92check.tex @@ -0,0 +1,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 |