%%
%% This is file `textgreek.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% textgreek.dtx  (with options: `package')
%% 
%% This is a generated file.
%% 
%% Copyright 2010,2011 Leonard Michlmayr
%% 
%% This work may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License, either version 1.3
%% of this license or (at your option) any later version.
%% The latest version of this license is in
%%   http://www.latex-project.org/lppl.txt
%% and version 1.3 or later is part of all distributions of LaTeX
%% version 2005/12/01 or later.
%% 
%% This work has the LPPL maintenance status `author-maintained'.
%% 
%% The Current Maintainer of this work is Leonard Michlmayr
%% <leonard.michlmayr at gmail.com>.
%% 
%% This work consists of the file textgreek.dtx
%% and the derived files textgreek.sty and textgreek.pdf
%% 
\NeedsTeXFormat{LaTeX2e}[2009/09/24]
\ProvidesPackage{textgreek}
   [2011/03/30 v0.4 greek symbols in text]
\InputIfFileExists{lgrenc.def}{%
  \PackageInfo{textgreek}{Loading the definitions for the Greek font%
    encoding.}}{%
  \PackageError{textgreek}{Cannot find the file lgrenc.def}{%
    lgrenc.def is a file that contains the definitions for the Greek
    font encoding LGR. Maybe it comes with the babel package.}}
\DeclareOption{cbgreek}{%
\renewcommand*{\textgreekfontmap}{%
{eur/m/n}{U/eur/m/n}
{eur/b/n}{U/eur/b/n}
{phv/m/n}{U/psy/m/n}}}%
\DeclareOption{euler}{%
\renewcommand*{\textgreekfontmap}{%
{eur/m/n}{U/eur/m/n}
{eur/b/n}{U/eur/b/n}
{cmr/m/n}{U/eur/m/n}
{cmr/b/n}{U/eur/b/n}
{cmr/bx/n}{U/eur/b/n}
{lmr/m/n}{U/eur/m/n}
{lmr/b/n}{U/eur/b/n}
{lmr/bx/n}{U/eur/b/n}
{phv/m/n}{U/psy/m/n}}}%
\DeclareOption{artemisia}{%
\renewcommand*{\textgreekfontmap}{%
{eur/m/n}{U/eur/m/n}
{eur/b/n}{U/eur/b/n}
{cmr/m/n}{LGR/artemisia/m/n}
{cmr/b/n}{LGR/artemisia/b/n}
{cmr/bx/n}{LGR/artemisia/bx/n}
{lmr/m/n}{LGR/artemisia/m/n}
{lmr/b/n}{LGR/artemisia/b/n}
{lmr/bx/n}{LGR/artemisia/bx/n}
{phv/m/n}{U/psy/m/n}}}%
\newcommand*{\textgreekfontmap}{}%
\ExecuteOptions{cbgreek}
\ProcessOptions\relax%
\PackageInfo{textgreek}{Loaded fontmap: \textgreekfontmap.}
\def\textgreek@setfont#1/#2/#3/#4\relax{\usefont{#1}{#2}{#3}{#4}}%
\def\textgreek@skipencoding#1/#2\relax{#2}%
\def\textgreek@substfont#1#2{%
\begingroup\edef\tempa{#1}\edef\tempb{\curr@fontshape}%
\edef\tempc{\expandafter\textgreek@skipencoding\tempb\relax}%
\def\spit##1##2\endgroup{\fi\endgroup##1}%
\ifx\tempa\tempc\spit{\expandafter\textgreek@setfont #2\relax}\fi\endgroup}%
\def\textgreek@eof{}%
\def\textgreek@return#1#2\textgreek@eof{%
\fi #1}
\newcommand{\textgreeksubstfonts}[1]{%
  \ifx#1\textgreek@eof%
  \else\textgreek@return{\textgreek@substfonts#1\textgreek@eof}%
  \fi\textgreek@eof}
\def\textgreek@substfonts#1#2#3\textgreek@eof{%
  \textgreek@substfont{#1}{#2}%
  \def\textgreek@temp{#3}\ifx\textgreek@temp\textgreek@eof\else%
  \textgreek@return{\textgreek@substfonts#3\textgreek@eof}%
  \fi\textgreek@eof}
\newcommand*{\textgreekfont}{%
  \fontencoding{LGR}%
  \expandafter\textgreeksubstfonts\expandafter{\textgreekfontmap}%
  \selectfont}%
\newcommand*{\lgrtoeuler}[1]{%
\if G#1\textgreek@return{\char0}\fi%
\if D#1\textgreek@return{\char1}\fi%
\if J#1\textgreek@return{\char2}\fi%
\if L#1\textgreek@return{\char3}\fi%
\if X#1\textgreek@return{\char4}\fi%
\if P#1\textgreek@return{\char5}\fi%
\if S#1\textgreek@return{\char6}\fi%
\if U#1\textgreek@return{\char7}\fi%
\if F#1\textgreek@return{\char8}\fi%
\if Y#1\textgreek@return{\char9}\fi%
\if W#1\textgreek@return{\char10}\fi%
\if a#1\textgreek@return{\char11}\fi%
\if b#1\textgreek@return{\char12}\fi%
\if g#1\textgreek@return{\char13}\fi%
\if d#1\textgreek@return{\char14}\fi%
\if 3#1\textgreek@return{\char15}\fi% element-of style epsilon
\if z#1\textgreek@return{\char16}\fi%
\if h#1\textgreek@return{\char17}\fi%
\if 0#1\textgreek@return{\char18}\fi% temperature style theta
\if i#1\textgreek@return{\char19}\fi%
\if k#1\textgreek@return{\char20}\fi%
\if l#1\textgreek@return{\char21}\fi%
\if m#1\textgreek@return{\char22}\fi%
\if n#1\textgreek@return{\char23}\fi%
\if x#1\textgreek@return{\char24}\fi%
\if p#1\textgreek@return{\char25}\fi%
\if r#1\textgreek@return{\char26}\fi%
\if s#1\textgreek@return{\char27}\fi%
\if t#1\textgreek@return{\char28}\fi%
\if u#1\textgreek@return{\char29}\fi%
\if v#1\textgreek@return{\char30}\fi% o-slash style phi
\if q#1\textgreek@return{\char31}\fi%
\if y#1\textgreek@return{\char32}\fi%
\if w#1\textgreek@return{\char33}\fi%
\if e#1\textgreek@return{\char34}\fi%
\if j#1\textgreek@return{\char35}\fi%
\if f#1\textgreek@return{\char39}\fi%
\fontencoding{LGR}\selectfont #1%
\textgreek@eof}%
\DeclareRobustCommand*{\TextGreek}[1]{%
\begingroup%
\textgreekfont%
\def\tempa{eur}\edef\tempb{\f@family}%
\ifx\tempa\tempb\expandafter\lgrtoeuler\expandafter#1\else#1\noboundary\fi%
\endgroup}
\newcommand*{\DeclareTextGreekSymbol}[2]{%
\expandafter\DeclareTextCommandDefault\csname text#1\endcsname%
{\TextGreek#2}}%
\DeclareTextGreekSymbol{alpha}{a}
\DeclareTextGreekSymbol{beta}{b}
\DeclareTextGreekSymbol{gamma}{g}
\DeclareTextGreekSymbol{delta}{d}
\DeclareTextGreekSymbol{epsilon}{e}
\DeclareTextGreekSymbol{zeta}{z}
\DeclareTextGreekSymbol{eta}{h}
\DeclareTextGreekSymbol{theta}{j}
\DeclareTextGreekSymbol{iota}{i}
\DeclareTextGreekSymbol{kappa}{k}
\DeclareTextGreekSymbol{lambda}{l}
\expandafter\ifx\csname?\string\textmu\endcsname\relax%
\DeclareTextGreekSymbol{mu}{m}\fi
\DeclareTextGreekSymbol{mugreek}{m}
\DeclareTextGreekSymbol{nu}{n}
\DeclareTextGreekSymbol{xi}{x}
\DeclareTextGreekSymbol{omikron}{o}
\DeclareTextGreekSymbol{pi}{p}
\DeclareTextGreekSymbol{rho}{r}
\DeclareTextGreekSymbol{sigma}{s}
\DeclareTextGreekSymbol{tau}{t}
\DeclareTextGreekSymbol{upsilon}{u}
\DeclareTextGreekSymbol{phi}{f}
\DeclareTextGreekSymbol{chi}{q}
\DeclareTextGreekSymbol{psi}{y}
\DeclareTextGreekSymbol{omega}{w}
\DeclareTextGreekSymbol{Alpha}{A}
\DeclareTextGreekSymbol{Beta}{B}
\DeclareTextGreekSymbol{Gamma}{G}
\DeclareTextGreekSymbol{Delta}{D}
\DeclareTextGreekSymbol{Epsilon}{E}
\DeclareTextGreekSymbol{Zeta}{Z}
\DeclareTextGreekSymbol{Eta}{H}
\DeclareTextGreekSymbol{Theta}{J}
\DeclareTextGreekSymbol{Iota}{I}
\DeclareTextGreekSymbol{Kappa}{K}
\DeclareTextGreekSymbol{Lambda}{L}
\DeclareTextGreekSymbol{Mu}{M}
\DeclareTextGreekSymbol{Nu}{N}
\DeclareTextGreekSymbol{Xi}{X}
\DeclareTextGreekSymbol{Omikron}{O}
\DeclareTextGreekSymbol{Pi}{P}
\DeclareTextGreekSymbol{Rho}{R}
\DeclareTextGreekSymbol{Sigma}{S}
\DeclareTextGreekSymbol{Tau}{T}
\DeclareTextGreekSymbol{Upsilon}{U}
\DeclareTextGreekSymbol{Phi}{F}
\DeclareTextGreekSymbol{Chi}{Q}
\DeclareTextGreekSymbol{Psi}{Y}
\DeclareTextGreekSymbol{Omega}{W}
\endinput
%%
%% End of file `textgreek.sty'.
