%%
%% This is file `euler.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% euler.dtx  (with options: `package')
%% 
%% File `euler.dtx'.
%% Copyright (C) 1992 Frank Jensen.  All rights reserved.
%% Copyright (C) 1993--1995 Frank Jensen and Frank Mittelbach.
%% All rights reserved.

\def\fileversion{v2.5}
\def\filedate{1995/03/05}

%% \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}[1994/12/01]
\ProvidesPackage{euler}[\filedate\space\fileversion]
\typeout{Package: `euler' \fileversion\space <\filedate> (FJ and FMi)}
\DeclareSymbolFont{letters}{U}{eur}{m}{n}
\SetSymbolFont{letters}{bold}{U}{eur}{b}{n}
\DeclareMathSymbol{0}\mathalpha{letters}{"30}
\DeclareMathSymbol{1}\mathalpha{letters}{"31}
\DeclareMathSymbol{2}\mathalpha{letters}{"32}
\DeclareMathSymbol{3}\mathalpha{letters}{"33}
\DeclareMathSymbol{4}\mathalpha{letters}{"34}
\DeclareMathSymbol{5}\mathalpha{letters}{"35}
\DeclareMathSymbol{6}\mathalpha{letters}{"36}
\DeclareMathSymbol{7}\mathalpha{letters}{"37}
\DeclareMathSymbol{8}\mathalpha{letters}{"38}
\DeclareMathSymbol{9}\mathalpha{letters}{"39}
\DeclareMathSymbol\Gamma  \mathord{letters}{"00}
\DeclareMathSymbol\Delta  \mathord{letters}{"01}
\DeclareMathSymbol\Theta  \mathord{letters}{"02}
\DeclareMathSymbol\Lambda \mathord{letters}{"03}
\DeclareMathSymbol\Xi     \mathord{letters}{"04}
\DeclareMathSymbol\Pi     \mathord{letters}{"05}
\DeclareMathSymbol\Sigma  \mathord{letters}{"06}
\DeclareMathSymbol\Upsilon\mathord{letters}{"07}
\DeclareMathSymbol\Phi    \mathord{letters}{"08}
\DeclareMathSymbol\Psi    \mathord{letters}{"09}
\DeclareMathSymbol\Omega  \mathord{letters}{"0A}
\let\varsigma=\sigma
\let\varrho=\rho
\DeclareOption{mathbf}
   {\AtBeginDocument{\DeclareMathAlphabet\mathbf{U}{eur}{b}{n}}}
\DeclareSymbolFont{EulerFraktur}{U}{euf}{m}{n}
\SetSymbolFont{EulerFraktur}{bold}{U}{euf}{b}{n}
\DeclareSymbolFontAlphabet\mathfrak{EulerFraktur}
\@ifpackageloaded{amsfonts}{}{\newcommand\frak{\mathfrak}}
\DeclareMathSymbol{!}\mathord  {EulerFraktur}{"21}
\DeclareMathSymbol{(}\mathopen {EulerFraktur}{"28}
\DeclareMathSymbol{)}\mathclose{EulerFraktur}{"29}
\DeclareMathSymbol{+}\mathbin  {EulerFraktur}{"2B}
\DeclareMathSymbol{-}\mathbin  {EulerFraktur}{"2D}
\DeclareMathSymbol{=}\mathrel  {EulerFraktur}{"3D}
\DeclareMathSymbol{[}\mathopen {EulerFraktur}{"5B}
\DeclareMathSymbol{]}\mathclose{EulerFraktur}{"5D}
\DeclareMathSymbol{"}\mathord  {EulerFraktur}{"7D}
\DeclareMathSymbol{&}\mathord  {EulerFraktur}{"26}
\DeclareMathSymbol{:}\mathrel  {EulerFraktur}{"3A}
\DeclareMathSymbol{;}\mathpunct{EulerFraktur}{"3B}
\DeclareMathSymbol{?}\mathord  {EulerFraktur}{"3F}
\DeclareMathSymbol{^}\mathord  {EulerFraktur}{"5E}
\DeclareMathSymbol{`}\mathord  {EulerFraktur}{"12}
\DeclareMathDelimiter{(}{EulerFraktur}{"28}{largesymbols}{"00}
\DeclareMathDelimiter{)}{EulerFraktur}{"29}{largesymbols}{"01}
\DeclareMathDelimiter{[}{EulerFraktur}{"5B}{largesymbols}{"02}
\DeclareMathDelimiter{]}{EulerFraktur}{"5D}{largesymbols}{"03}
\DeclareRobustCommand\oldstylenums[1]%
  {\begingroup
      \spaceskip\fontdimen\tw@\font
      \TextOldstyle \MathOldstyle #1%
   \endgroup}
\def\MathOldstyle{\mathgroup\symEulerFraktur}
\providecommand\TextOldstyle{\usefont{OML}{cmm}\f@series{it}}
\DeclareSymbolFont{EulerScript}{U}{eus}{m}{n}
\SetSymbolFont{EulerScript}{bold}{U}{eus}{b}{n}
\DeclareSymbolFontAlphabet\mathscr{EulerScript}
\newcommand\scr{\mathscr}
\DeclareOption{mathcal}{\renewcommand\mathcal{\mathscr}}
\DeclareMathSymbol\aleph\mathord{EulerScript}{"40}
\DeclareMathSymbol\Re   \mathord{EulerScript}{"3C}
\DeclareMathSymbol\Im   \mathord{EulerScript}{"3D}
\DeclareMathDelimiter\vert
                 \mathord{EulerScript}{"6A}{largesymbols}{"0C}
\DeclareMathDelimiter\backslash
                 \mathord{EulerScript}{"6E}{largesymbols}{"0F}
\DeclareMathSymbol{|}\mathord{EulerScript}{"6A}
\DeclareMathDelimiter{|}{EulerScript}{"6A}{largesymbols}{"0C}
\DeclareMathSymbol\neg     \mathord{EulerScript}{"3A}
\let\lnot=\neg
\DeclareMathSymbol\wedge   \mathbin{EulerScript}{"5E}
\let\land=\wedge
\DeclareMathSymbol\vee     \mathbin{EulerScript}{"5F}
\let\lor=\vee
\DeclareMathSymbol\setminus\mathbin{EulerScript}{"6E}
\DeclareMathSymbol\sim     \mathrel{EulerScript}{"18}
\DeclareMathSymbol\mid     \mathrel{EulerScript}{"6A}
\DeclareMathDelimiter\arrowvert
        \mathord{EulerScript}{"6A}{largesymbols}{"3C} % ???
\DeclareMathSymbol\mathsection\mathord{EulerScript}{"78}
\DeclareSymbolFont{EulerExtension}{U}{euex}{m}{n}
\@ifpackageloaded{amsmath}
   {\DeclareMathSymbol\coprod@\mathop{EulerExtension}{"60}%
    \DeclareMathSymbol\prod@  \mathop{EulerExtension}{"51}%
    \DeclareMathSymbol\sum@   \mathop{EulerExtension}{"50}}
   {\DeclareMathSymbol\coprod \mathop{EulerExtension}{"60}%
    \DeclareMathSymbol\prod   \mathop{EulerExtension}{"51}%
    \DeclareMathSymbol\sum    \mathop{EulerExtension}{"50}}
\AtBeginDocument
   {\@ifpackageloaded{amstex}%
       {\PackageWarningNoLine{euler}{Please do not use `amstex'.
                 Use `amsmath' instead}{}}}
\DeclareMathSymbol\intop  \mathop {EulerExtension}{"52}
\DeclareMathSymbol\ointop \mathop {EulerExtension}{"48}
\DeclareMathSymbol\braceld\mathord{EulerExtension}{"7A}
\DeclareMathSymbol\bracerd\mathord{EulerExtension}{"7B}
\DeclareMathSymbol\bracelu\mathord{EulerExtension}{"7C}
\DeclareMathSymbol\braceru\mathord{EulerExtension}{"7D}
\DeclareMathSymbol\infty  \mathord{EulerExtension}{"31}
\AtBeginDocument
   {\@ifpackageloaded{amsmath}%
       {\def\intkern@{\mkern -6mu }%
        \def\ints@#1{\mkern -3mu
           \mathop{\mkern 3mu
              \intop
              \ifnum #1=\z@ \intdots@ \else
                 \intkern@
                 \ifnum #1>\tw@ \intop\intkern@
                    \ifnum #1>\thr@@ \intop\intkern@ \fi
                 \fi
              \fi
              \intop
           }\ilimits@
        }%
       }{}}
\DeclareMathSymbol\nearrow\mathrel{EulerExtension}{"25}
\DeclareMathSymbol\searrow\mathrel{EulerExtension}{"26}
\DeclareMathSymbol\nwarrow\mathrel{EulerExtension}{"2D}
\DeclareMathSymbol\swarrow\mathrel{EulerExtension}{"2E}
\DeclareMathSymbol\Leftrightarrow\mathrel{EulerExtension}{"2C}
\DeclareMathSymbol\Leftarrow     \mathrel{EulerExtension}{"28}
\DeclareMathSymbol\Rightarrow    \mathrel{EulerExtension}{"29}
\DeclareMathSymbol\leftrightarrow\mathrel{EulerExtension}{"24}
\DeclareMathSymbol\leftarrow     \mathrel{EulerExtension}{"20}
\let\gets=\leftarrow
\DeclareMathSymbol\rightarrow    \mathrel{EulerExtension}{"21}
\let\to=\rightarrow
\DeclareMathDelimiter\uparrow
              \mathrel{EulerExtension}{"22}{largesymbols}{"78}
\DeclareMathDelimiter\downarrow
              \mathrel{EulerExtension}{"23}{largesymbols}{"79}
\DeclareMathDelimiter\updownarrow
              \mathrel{EulerExtension}{"6C}{largesymbols}{"3F}
\DeclareMathDelimiter\Uparrow
              \mathrel{EulerExtension}{"2A}{largesymbols}{"7E}
\DeclareMathDelimiter\Downarrow
              \mathrel{EulerExtension}{"2B}{largesymbols}{"7F}
\DeclareMathDelimiter\Updownarrow
              \mathrel{EulerExtension}{"6D}{largesymbols}{"77}
\DeclareMathSymbol\leftharpoonup   \mathrel{EulerExtension}{"18}
\DeclareMathSymbol\leftharpoondown \mathrel{EulerExtension}{"19}
\DeclareMathSymbol\rightharpoonup  \mathrel{EulerExtension}{"1A}
\DeclareMathSymbol\rightharpoondown\mathrel{EulerExtension}{"1B}
\DeclareMathDelimiter\lbrace
              \mathopen{EulerScript}{"66}{EulerExtension}{"08}
\DeclareMathDelimiter\rbrace
             \mathclose{EulerScript}{"67}{EulerExtension}{"09}
\DeclareMathAlphabet\cm@equals@alphabet{OT1}{cmr}{m}{n}
\DeclareMathAlphabet\cm@minus@alphabet{OMS}{cmsy}{m}{n}
\def\Relbar{\mathrel{\cm@equals@alphabet{\mathchar"703D}}}
\def\cm@minus{{\cm@minus@alphabet{\mathchar"7000}}}
\def\relbar{\mathrel{\smash\cm@minus}}
          % \smash, because - has the same height as +
\def\leftarrowfill
   {$\m@th\mathord\leftarrow\mkern-6mu%
     \cleaders\hbox{$\mkern-2mu\cm@minus\mkern-2mu$}\hfill
     \mkern-6mu\cm@minus$}
\def\rightarrowfill
   {$\m@th\cm@minus\mkern-6mu%
     \cleaders\hbox{$\mkern-2mu\cm@minus\mkern-2mu$}\hfill
     \mkern-6mu\mathord\rightarrow$}
\DeclareSymbolFont{cmmigroup}{OML}{cmm}{m}{it}
\SetSymbolFont{cmmigroup}{bold}{OML}{cmm}{b}{it}
\DeclareMathAccent\vec          \mathord{cmmigroup}{"7E}
\DeclareMathSymbol\triangleleft \mathbin{cmmigroup}{"2F}
\DeclareMathSymbol\triangleright\mathbin{cmmigroup}{"2E}
\DeclareMathSymbol\star         \mathbin{cmmigroup}{"3F}
\DeclareMathSymbol\lhook        \mathrel{cmmigroup}{"2C}
\DeclareMathSymbol\rhook        \mathrel{cmmigroup}{"2D}
\DeclareMathSymbol\flat         \mathord{cmmigroup}{"5B}
\DeclareMathSymbol\natural      \mathord{cmmigroup}{"5C}
\DeclareMathSymbol\sharp        \mathord{cmmigroup}{"5D}
\DeclareMathSymbol\smile        \mathrel{cmmigroup}{"5E}
\DeclareMathSymbol\frown        \mathrel{cmmigroup}{"5F}
\begingroup
   \catcode`\'=\active
   \gdef'{^\bgroup\mskip2mu\prim@s} % more space before '
\endgroup
\newif\ifCorkEncoding
\edef\@tempa{\encodingdefault}\def\@tempb{T1}
\ifx\@tempa\@tempb
   \CorkEncodingtrue
\else
   \CorkEncodingfalse
\fi
\ifCorkEncoding
  \AtBeginDocument
    {\DeclareSymbolFont{operators}{T1}\rmdefault\mddefault\updefault
     \SetSymbolFont{operators}{bold}{T1}\rmdefault\bfdefault\updefault
     \DeclareMathAlphabet\mathbf{T1}\rmdefault\bfdefault\updefault
     \DeclareMathAlphabet\mathsf{T1}\sfdefault\mddefault\updefault
     \DeclareMathAlphabet\mathit{T1}\rmdefault\mddefault\itdefault
     \DeclareMathAlphabet\mathtt{T1}\ttdefault\mddefault\updefault
     \SetMathAlphabet\mathsf{bold}{T1}\sfdefault\bfdefault\updefault
     \SetMathAlphabet\mathit{bold}{T1}\rmdefault\bfdefault\itdefault}
\else
  \AtBeginDocument
    {\DeclareSymbolFont{operators}{OT1}\rmdefault\mddefault\updefault
     \SetSymbolFont{operators}{bold}{OT1}\rmdefault\bfdefault\updefault
     \DeclareMathAlphabet\mathbf{OT1}\rmdefault\bfdefault\updefault
     \DeclareMathAlphabet\mathsf{OT1}\sfdefault\mddefault\updefault
     \DeclareMathAlphabet\mathit{OT1}\rmdefault\mddefault\itdefault
     \DeclareMathAlphabet\mathtt{OT1}\ttdefault\mddefault\updefault
     \SetMathAlphabet\mathsf{bold}{OT1}\sfdefault\bfdefault\updefault
     \SetMathAlphabet\mathit{bold}{OT1}\rmdefault\bfdefault\itdefault}
\fi
\ifCorkEncoding
   \DeclareMathAccent\grave\mathalpha{operators}{"00}
   \DeclareMathAccent\acute\mathalpha{operators}{"01}
   \DeclareMathAccent\tilde\mathalpha{operators}{"03}
   \DeclareMathAccent\ddot \mathalpha{operators}{"04}
   \DeclareMathAccent\check\mathalpha{operators}{"07}
   \DeclareMathAccent\breve\mathalpha{operators}{"08}
   \DeclareMathAccent\bar  \mathalpha{operators}{"09}
   \DeclareMathAccent\dot  \mathalpha{operators}{"0A}
\fi
\DeclareMathAccent\hat\mathalpha{EulerFraktur}{"5E}
\DeclareOption{text-hat-accent}
   {\ifCorkEncoding
       \DeclareMathAccent\hat\mathalpha{operators}{"02}%
    \else
       \DeclareMathAccent\hat\mathalpha{operators}{"5E}%
    \fi}
\ifCorkEncoding
   \DeclareMathSymbol\euler@hbar\mathord{operators}{"09}
\else
   \DeclareMathSymbol\euler@hbar\mathord{operators}{"16}
\fi
\def\hbar{{\euler@hbar\mkern-8muh}}
\def\@makefnmark{\hbox{$\operator@font^{\@thefnmark}\m@th$}}
\ProcessOptions
\endinput
%%
%% End of file `euler.sty'.
