%%
%% This is lhcyrwin.sty
%%
\def\fileversion{v1.0}
\def\filedate{1998/12/15}
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{lhcyrwin}[\filedate\space\fileversion^^J%
lh fonts in windows (cp1251) encoding (V.V.Zhytnikov)]

\catcode'340=11 %a
\catcode'341=11 %b
\catcode'342=11 %v
\catcode'343=11 %g
\catcode'344=11 %d
\catcode'345=11 %e
\catcode'346=11 %zh
\catcode'347=11 %z
\catcode'350=11 %i
\catcode'351=11 %ii
\catcode'352=11 %k
\catcode'353=11 %l
\catcode'354=11 %m
\catcode'355=11 %n
\catcode'356=11 %o
\catcode'357=11 %p
\catcode'360=11 %r
\catcode'361=11 %s
\catcode'362=11 %t
\catcode'363=11 %u
\catcode'364=11 %f
\catcode'365=11 %kh
\catcode'366=11 %ts
\catcode'367=11 %ch
\catcode'370=11 %sh
\catcode'371=11 %shch
\catcode'372=11 %hard
\catcode'373=11 %y
\catcode'374=11 %soft
\catcode'375=11 %'e
\catcode'376=11 %yu
\catcode'377=11 %ya
\catcode'270=11 %yo
\catcode'300=11 %A
\catcode'301=11 %B
\catcode'302=11 %V
\catcode'303=11 %G
\catcode'304=11 %D
\catcode'305=11 %E
\catcode'306=11 %ZH
\catcode'307=11 %Z
\catcode'310=11 %I
\catcode'311=11 %II
\catcode'312=11 %K
\catcode'313=11 %L
\catcode'314=11 %M
\catcode'315=11 %N
\catcode'316=11 %O
\catcode'317=11 %P
\catcode'320=11 %R
\catcode'321=11 %S
\catcode'322=11 %T
\catcode'323=11 %U
\catcode'324=11 %F
\catcode'325=11 %KH
\catcode'326=11 %TS
\catcode'327=11 %CH
\catcode'330=11 %SH
\catcode'331=11 %SHCH
\catcode'332=11 %HARD
\catcode'333=11 %Y
\catcode'334=11 %SOFT
\catcode'335=11 %'E
\catcode'336=11 %YU
\catcode'337=11 %YA
\catcode'250=11 %YO
\catcode'271=11 %Number

\AtBeginDocument{%
\uccode'340='300 \lccode'340='340 %a
\uccode'341='301 \lccode'341='341 %b
\uccode'342='302 \lccode'342='342 %v
\uccode'343='303 \lccode'343='343 %g
\uccode'344='304 \lccode'344='344 %d
\uccode'345='305 \lccode'345='345 %e
\uccode'346='306 \lccode'346='346 %zh
\uccode'347='307 \lccode'347='347 %z
\uccode'350='310 \lccode'350='350 %i
\uccode'351='311 \lccode'351='351 %ii
\uccode'352='312 \lccode'352='352 %k
\uccode'353='313 \lccode'353='353 %l
\uccode'354='314 \lccode'354='354 %m
\uccode'355='315 \lccode'355='355 %n
\uccode'356='316 \lccode'356='356 %o
\uccode'357='317 \lccode'357='357 %p
\uccode'360='320 \lccode'360='360 %r
\uccode'361='321 \lccode'361='361 %s
\uccode'362='322 \lccode'362='362 %t
\uccode'363='323 \lccode'363='363 %u
\uccode'364='324 \lccode'364='364 %f
\uccode'365='325 \lccode'365='365 %kh
\uccode'366='326 \lccode'366='366 %ts
\uccode'367='327 \lccode'367='367 %ch
\uccode'370='330 \lccode'370='370 %sh
\uccode'371='331 \lccode'371='371 %shch
\uccode'372='332 \lccode'372='372 %hard
\uccode'373='333 \lccode'373='373 %iy
\uccode'374='334 \lccode'374='374 %soft
\uccode'375='335 \lccode'375='375 %'e
\uccode'376='336 \lccode'376='376 %yu
\uccode'377='337 \lccode'377='377 %ya
\uccode'270='250 \lccode'270='270 %yo
\uccode'300='300 \lccode'300='340 %A
\uccode'301='301 \lccode'301='341 %B
\uccode'302='302 \lccode'302='342 %V
\uccode'303='303 \lccode'303='343 %G
\uccode'304='304 \lccode'304='344 %D
\uccode'305='305 \lccode'305='345 %E
\uccode'306='306 \lccode'306='346 %ZH
\uccode'307='307 \lccode'307='347 %Z
\uccode'310='310 \lccode'310='350 %I
\uccode'311='311 \lccode'311='351 %II
\uccode'312='312 \lccode'312='352 %K
\uccode'313='313 \lccode'313='353 %L
\uccode'314='314 \lccode'314='354 %M
\uccode'315='315 \lccode'315='355 %N
\uccode'316='316 \lccode'316='356 %O
\uccode'317='317 \lccode'317='357 %P
\uccode'320='320 \lccode'320='360 %R
\uccode'321='321 \lccode'321='361 %S
\uccode'322='322 \lccode'322='362 %T
\uccode'323='323 \lccode'323='363 %U
\uccode'324='324 \lccode'324='364 %F
\uccode'325='325 \lccode'325='365 %KH
\uccode'326='326 \lccode'326='366 %TS
\uccode'327='327 \lccode'327='367 %CH
\uccode'330='330 \lccode'330='370 %SH
\uccode'331='331 \lccode'331='371 %SHCH
\uccode'332='332 \lccode'332='372 %HARD
\uccode'333='333 \lccode'333='373 %IY
\uccode'334='334 \lccode'334='374 %SOFT
\uccode'335='335 \lccode'335='375 %'E
\uccode'336='336 \lccode'336='376 %YU
\uccode'337='337 \lccode'337='377 %YA
\uccode'250='250 \lccode'250='270 %YO
}

\renewcommand{\rmdefault}{wcr}
\renewcommand{\sfdefault}{wcss}
\renewcommand{\ttdefault}{wctt}

% Characters \"e \"E and \"i
% Russian double quotes  \"< \">  ->  << >>
\AtBeginDocument{%
\let\@dqtmp\"
\def\"#1{{\def\@tmpzzz{#1}\def\@tmpye{е}\def\@tmpcye{Е}%
           \def\@tmplt{<}\def\@tmpgt{>}\def\@tmpi{i}%
        \if\@tmpzzz\@tmpye\char'250%
        \else\if\@tmpzzz\@tmpcye\char'270%
        \else\if\@tmpzzz\@tmplt\char'253%
        \else\if\@tmpzzz\@tmpgt\char'273%
        \else\if\@tmpzzz\@tmpi\@dqtmp{\i}%
        \else\@dqtmp#1\fi\fi\fi\fi\fi%
        \let\@tmpzzz\relax\let\@tmpye\relax\let\@tmpi\relax%
        \let\@tmplt\relax\let\@tmpgt\relax\let\@tmpcye\relax}}
}
% Russian number symbol \No
\def\No{{\char'271}}
% Russian double quotes  \< \>  ->  << >>
\def\<{{\char'253}}
\def\>{{\char'273}}

% Russian Style. Partially borrowed from ruscorr.sty
\DeclareOption{russtyle}{%
\def\prefacename{Предисловие}%
\def\refname{Ссылки}%
\def\abstractname{Аннотация}%
\def\bibname{Литература}%
\@ifundefined{chapter}{}{\def\chaptername{Глава}}%
\def\appendixname{Приложение}%
\def\contentsname{Оглавление}%
\def\listfigurename{Список иллюстраций}%
\def\listtablename{Список таблиц}%
\def\indexname{Предметный указатель}%
\def\figurename{Рис.}%
\def\tablename{Табл.}%
\def\partname{Часть}%
\def\enclname{Приложение}%
\def\ccname{Копия}%
\def\pagename{Стр.}%
\def\headtoname{Кому:}%
\def\seename{см.}%
\def\alsoname{см.~также}%
% Saving english \today
\let\etoday\today%
\def\today{\number\day~\ifcase\month\or
  января\or февраля\or марта\or апреля\or мая\or июня\or
  июля\or августа\or сентября\or октября\or ноября\or
  декабря\fi \space \number\year~г.}%
% Russian counters
\def\ralph#1{\@ralph{\@nameuse {c@#1}}}
\def\@ralph#1{\ifcase #1\or а\or б\or в\or г\or д\or е\or ж\or з\or
и\else\@iralph{#1}\fi
}
\def\@iralph#1{\ifcase #1\or\or\or\or\or\or\or\or\or\or
     к\or л\or м\or н\or о\or п\or р\or с\or т\or у\or
     ф\or х\or ц\or ч\or ш\or щ\or э\or ю\or я\else\@ctrerr
     \fi}
\def\Ralph#1{\@Ralph{\@nameuse {c@#1}}}
\def\@Ralph#1{\ifcase #1%
     \or А\or Б\or В\or Г\or Д\or Е\or Ж\or З\or
     И\else\@iRalph{#1}\fi}
\def\@iRalph#1{\ifcase #1%
     \or\or\or\or\or\or\or\or\or\or К\or Л\or М\or
     Н\or О\or П\or Р\or С\or Т\or У\or Ф\or Х\or Ц\or
     Ч\or Ш\or Щ\or Э\or Ю\or Я\else\@ctrerr
     \fi}
% Russian enumerate
\def\labelenumi{\theenumi)}
\def\theenumii{\ralph{enumii}}
\def\labelenumii{\theenumii)}
\def\p@enumii{\theenumi}
\def\labelenumiii{{\bf--}}
\let\theenumiii\relax
\def\p@enumiii{\theenumi\theenumii}
\def\enumerate{\ifnum \@enumdepth >2%
\@toodeep\else
      \advance\@enumdepth \@ne
      \edef\@enumctr{enum\romannumeral\the\@enumdepth}\list
      {\csname label\@enumctr\endcsname}{\usecounter
        {\@enumctr}\def\makelabel##1{\hss\llap{##1}}}\fi}
% Russian appendix
\@ifundefined{chapter}{% Article
   \def\appendix{\par
   \setcounter{section}{0}%
   \setcounter{subsection}{0}%
   \def\thesection{\Ralph{section}}}
}{% Book or Report
   \def\appendix{\par
   \setcounter{chapter}{0}%
   \setcounter{section}{0}%
   \def\@chapapp{\appendixname}%
   \def\thechapter{\Ralph{chapter}}}
}
% Correct Russian hyphenation
\frenchspacing
\righthyphenmin=2
\lefthyphenmin=2
}
\ProcessOptions

\endinput
%%
%% End of lhcyrwin.sty
%%
