%% 
%% This is file `levy.sty',
%% generated with the docstrip utility.
%% 
%% The original source files were:
%% 
%% levy.dtx  (with options: `package')
%% 
%% This file is part of the LEVY.STY package, 
%% a package for writing greek texts with LaTeX version 2e. 
%% 
%% Copyright (C) 1991--1995 by Andreas Dafferner. All rights reserved 
%% 
%% Copying of this file is authorized only if either 
%% (1) you make absolutely no changes to your copy, including name, or 
%% (2) if you do make changes, you name it something other than 
%% levy.ins, levy.dtx, levy.sty, ulevy.fd or ody.tex 
%% This restriction helps ensure that all styles remain identical. 
%% 
%% You are NOT ALLOWED to distribute this file alone. You are NOT 
%% ALLOWED to take money for the distribution or use of either this 
%% file or a changed version, except for some nominal charge for 
%% copying etc. 
%% 
%% Error Reports in case of UNCHANGED versions to 
%% 
%% Andreas Dafferner 
%% Odenwaldstr. 38 
%% 68259 Mannheim 
%% Federal Republic of Germany 
%% email: andreas.dafferner@urz.uni-heidelberg.de 
%% 
%%
%% This is LEVY.DTX    1995/04/20 v1.0a
%%
%% Copyright (C) 1991--1995 by Andreas Dafferner
%% All rights reserved
%%
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
%%
\NeedsTeXFormat{LaTeX2e}
\message{Package `levy', 1995/04/20 v1.0a}
\ProvidesPackage{levy}[1995/04/20 v1.0a %
                       Package for writing greek texts (AdaF)]
\def\ifnextchar#1#2#3{\let\tempe #1\def\tempa{#2}\def\tempb{#3}\futurelet
    \tempc\ifnch}
\def\ifnch{\ifx\tempc\tempe\let\tempd\tempa\else\let\tempd\tempb\fi\tempd}
\def\gobble#1{}
\def\d@greek{\fontencoding{U}\fontfamily{levy}\selectfont}
\def\greek#1{{\d@greek #1}}
\def\greekmode{%
\catcode`\<=13
\catcode`\>=13
\catcode`\'=11
\catcode`\`=11
\catcode`\~=11
\catcode`\"=11
\catcode`\|=11
\lccode`\<=`\<%
\lccode`\>=`\>%
\lccode`\'=`\'%
\lccode`\`=`\`%
\lccode`\~=`\~%
\lccode`\"=`\"%
\lccode`\|=`\|%
\d@greek
}
\newcount\vwl
\newcount\acct
\def\lt{<}
\def\gt{>}
{
  \greekmode
  \gdef>{\ifnextchar `{\expandafter\smoothgrave\gobble}{\char\lq\>}}
  \gdef<{\ifnextchar `{\expandafter\roughgrave\gobble}{\char\lq\<}}
  \gdef\smoothgrave#1{\acct=\rq137 \vwl=\lq#1 \dobreathinggrave}
  \gdef\roughgrave#1{\acct=\rq103 \vwl=\lq#1 \dobreathinggrave}
  \gdef\dobreathinggrave{\ifnum\vwl\lt\rq140 %if uppercase
    \char\the\acct\char\the\vwl\else\expandafter\testiota\fi}
  \gdef\testiota{\ifnextchar |{\addiota\doaccent\gobble}{\doaccent}}
  \gdef\addiota{\ifnum\vwl=\lq a\vwl=\rq370
    \else\ifnum\vwl=\lq h\vwl=\rq371 \else\vwl=\rq372 \fi\fi}
  \gdef\doaccent{\accent\the\acct \char\the\vwl\relax}
}
\newif\ifgreek\greekfalse
\def\begingreek{\bgroup\greektrue\greekmode}
\def\endgreek{\egroup}
\let\math=$
{\catcode`\$=13
\gdef\greekdelims{\catcode`\$=13
\def${\ifgreek\endgreek\else\begingreek\fi}
\def\display{\math\math}\def\enddisplay{\math\math}}}
\def\bgr{\begingreek}
\def\egr{\endgreek}
\def\d@gr{\usefont{U}{levy}{m}{n}}
\def\textgr#1{{\d@gr #1}}
\def\d@gb{\usefont{U}{levy}{b}{n}}
\def\textgb#1{{\d@gb #1}}
\def\d@gt{\usefont{U}{levyt}{m}{n}}
\def\textgt#1{{\d@gt #1}}
\def\dig{\textsf{F}}
\renewcommand{\bfdefault}{b}
\newbox\fnbox
\def\bfn{\setbox\fnbox=\hbox\bgroup\footnotesize}
\def\efn{\egroup\footnote{\unhbox\fnbox}}
\newcommand{\grpart}[1]{\IfFileExists{\jobname.toc}%
   {\addtocontents{toc}{\begingroup\protect\greekmode\rmfamily}}{}%
   \part{#1}\addtocontents{toc}{\endgroup}}
\newcommand{\grchapter}[1]{\IfFileExists{\jobname.toc}%
   {\addtocontents{toc}{\begingroup\protect\greekmode\rmfamily}}{}%
   \chapter{#1}\addtocontents{toc}{\endgroup}}
\newcommand{\grsection}[1]{\IfFileExists{\jobname.toc}%
   {\addtocontents{toc}{\begingroup\protect\greekmode\rmfamily}}{}%
   \section{#1}\addtocontents{toc}{\endgroup}}
\newcommand{\grsubsection}[1]{\IfFileExists{\jobname.toc}%
   {\addtocontents{toc}{\begingroup\protect\greekmode\rmfamily}}{}%
   \subsection{#1}\addtocontents{toc}{\endgroup}}
\newcommand{\grsubsubsection}[1]{\IfFileExists{\jobname.toc}%
   {\addtocontents{toc}{\begingroup\protect\greekmode\rmfamily}}{}%
   \subsubsection{#1}\addtocontents{toc}{\endgroup}}
\newcommand{\grparagraph}[1]{\IfFileExists{\jobname.toc}%
   {\addtocontents{toc}{\begingroup\protect\greekmode\rmfamily}}{}%
   \paragraph{#1}\addtocontents{toc}{\endgroup}}
\newcommand{\grsubparagraph}[1]{\IfFileExists{\jobname.toc}%
   {\addtocontents{toc}{\begingroup\protect\greekmode\rmfamily}}{}%
   \subparagraph{#1}\addtocontents{toc}{\endgroup}}
\endinput
%% 
%% End of file `levy.sty'.