% File: Cyrillic.Sty
% 10/18/87 Don Hosek
% Based on the file cyracc.def by Barbara Beeton.
%
% This file contains the definitions to allow the Cyrillic fonts to be
% used from within LaTeX. Extensions to macros inside of Lfonts.TeX are made
% to allow the cyrillic fonts to switch sizes when used with \small &c.
 
%
% Grab the fonts:
 
% Six point:
%\font\sixcyr=mcyr6      % Cyrillic roman
 
% Seven point:
%\font\svncyr=mcyr7      % Cyrillic roman
 
% Eight point:
%\font\egtcyr=mcyr8      % Cyrillic roman
%\font\egtcyb=mcyb8      % Cyrillic boldface
 
% Nine point:
%\font\nincyr=mcyr9      % Cyrillic roman
%\font\nincyb=mcyb9      % Cyrillic boldface
 
% Ten point:
\font\tencyr=mcyr10     % Cyrillic roman
\font\tencyb=mcyb10     % Cyrillic boldface
 
% Eleven point:
\font\elvcyr=mcyr10     \@halfmag    % Cyrillic roman
\font\elvcyb=mcyb10     \@halfmag    % Cyrillic boldface
 
% Twelve point:
\font\twlcyr=mcyr10     \@magscale1  % Cyrillic roman
\font\twlcyb=mcyb10     \@magscale1  % Cyrillic boldface
 
% Fourteen point:
\font\frtncyr=mcyr10    \@magscale2  % Cyrllic roman
\font\frtncyb=mcyb10    \@magscale2  % Cyrillic boldface
 
% Seventeen point:
\font\svtncyr=mcyr10    \@magscale3  % Cyrllic roman
\font\svtncyb=mcyb10    \@magscale3  % Cyrillic boldface
 
% Twenty point:
\font\twtycyr=mcyr10    \@magscale4  % Cyrllic roman
\font\twtycyb=mcyb10    \@magscale4  % Cyrillic boldface
 
% Twenty-five point:
\font\twfvcyr=mcyr10    \@magscale5  % Cyrllic roman
\font\twfvcyb=mcyb10    \@magscale5  % Cyrillic boldface
 
% Protected font names:
\def\cyr{\protect\pcyr}
\def\cyb{\protect\pcyb}
 
% Families:
\newfam\cyrfam
\newfam\cybfam
 
\def\ubar#1{\oalign{#1\crcr\hidewidth
    \vbox to.2ex{\hbox{\char22}\vss}\hidewidth}}
%       this is definition of \b from PLAIN; it may not work in math mode
\def\cydot{$\cdot$}     % temporary -- real dot will be in accent font
 
\def\cprime{$'$}
\def\Cprime{$'$}
\def\cdprime{$''$}
\def\Cdprime{$\ubar{\hbox{$''$}}$}
 
\def\dbar{dj}           % make real barred d when accent font available
\def\Dbar{Dj}           %  ""
 
\def\dz{dz}             % ultimately, d will have to become active, to
\def\Dz{Dz}             % make these control sequences unnecessary
\def\dzh{dzh\cydot }
\def\Dzh{Dzh\cydot }
 
\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 }}
 
% \@getcyrfont is similar to \@getfont (see lfonts.tex) except that it
% does not have the \FAM parameter and it appends the following to
% \@FONTSIZE: \def\STYLE{\FONTNAME \cyracc}
\def\@getcyrfont#1#2#3{\@ifundefined{\string #1\string #2}{\global\expandafter
   \font \csname \string #1\string #2\endcsname #3\relax
   \@addfontinfo#2{\def#1{\csname\string#1\string#3\endcsname \cyracc}}}{}#2#1}
 
\def\cyrlc@vipt{\@getcyrfont\pcyr\@vipt{mcyr6}%
        \def\pcyb{\@subfont\cyb\cyr}}
 
%\@addfontinfo\@vipt{\@prtct\@getcyrfont\@prtct\pcyr\@prtct\@vipt{mcyr6}%
%        \@prtct\def\@prtct\pcyb{\@prtct\@subfont\@prtct\cyb\@prtct\cyr}}
 
\@addfontinfo\@viipt{\@prtct\@getcyrfont\@prtct\pcyr\@prtct\@viipt{mcyr7}%
        \@prtct\def\@prtct\pcyb{\@prtct\@subfont\@prtct\cyb\@prtct\cyr}}
 
\@addfontinfo\@viiipt{\@prtct\@getcyrfont\@prtct\pcyr\@prtct\@viiipt{mcyr8}%
        \@prtct\@getcyrfont\@prtct\pcyb\@prtct\@viiipt{mcyb8}}
 
\@addfontinfo\@ixpt{\@prtct\@getcyrfont\@prtct\pcyr\@prtct\@ixpt{mcyr9}%
        \@prtct\@getcyrfont\@prtct\pcyb\@prtct\@ixpt{mcyb9}}
 
\@addfontinfo\@xpt{\@prtct\def\pcyr{\@prtct\tencyr\@prtct\cyracc}%
        \@prtct\def\pcyb{\@prtct\tencyb\@prtct\cyracc}}
 
\@addfontinfo\@xipt{\@prtct\def\@prtct\pcyr{\@prtct\elvcyr\@prtct\cyracc}%
        \@prtct\def\@prtct\pcyb{\@prtct\elvcyb\@prtct\cyracc}}
 
\@addfontinfo\@xiipt{\@prtct\def\@prtct\pcyr{\@prtct\twlcyr\@prtct\cyracc}%
        \@prtct\def\@prtct\pcyb{\@prtct\twlcyb\@prtct\cyracc}}
 
\@addfontinfo\@xivpt{\@prtct\@getcyrfont\@prtct\pcyr\@prtct\@xivpt{mcyr14}%
        \@prtct\@getcyrfont\@prtct\pcyb\@prtct\@xivpt{mcyb14}}
 
\@addfontinfo\@xviipt{\@prtct\@getcyrfont\@prtct\pcyr\@prtct\@xviipt{mcyr17}%
        \@prtct\@getcyrfont\@prtct\pcyb\@prtct\@xviipt{mcyb17}}
 
\@addfontinfo\@xxpt{\@prtct\@getcyrfont\@prtct\pcyr\@prtct\@xxpt{mcyr20}%
        \@prtct\@getcyrfont\@prtct\pcyb\@prtct\@xxpt{mcyb20}}
 
\@addfontinfo\@xxvpt{\@prtct\@getcyrfont\@prtct\pcyr\@prtct\@xxvpt{mcyr25}%
        \@prtct\@getcyrfont\@prtct\pcyb\@prtct\@xxvpt{mcyb25}}
 
%
% Finally, we shall define a cyrillic environment
\def\cyrillic{\let\rm=\cyr\let\bf=\cyb\rm}
\def\endcyrillic{}
 
\endinput