%%
%% 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 files textgreek.dtx and textgreek.ins
%% and the derived files textgreek.sty and textgreek.pdf
%% 
\NeedsTeXFormat{LaTeX2e}[2009/09/24]
\ProvidesPackage{textgreek}
   [2011/10/09 v0.7 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/*/*}{U/eur/*/*}
  {phv/*/*}{U/psy/*/*}}}%
\DeclareOption{euler}{%
\renewcommand*{\textgreekfontmap}{%
  {phv/*/*}{U/psy/*/*}
  {*/bx/n}{U/eur/b/n}
  {*/b/n}{U/eur/b/n}
  {*/*/n}{U/eur/m/n}
  {*/*/it}{OML/*/*/*}}}%
\DeclareOption{artemisia}{%
\renewcommand*{\textgreekfontmap}{%
  {eur/*/*}{U/eur/*/*}
  {phv/*/*}{U/psy/*/*}
  {*/b/n}{LGR/artemisia/b/n}
  {*/bx/n}{LGR/artemisia/bx/n}
  {*/*/n}{LGR/artemisia/m/n}
  {*/b/it}{LGR/artemisia/b/it}
  {*/bx/it}{LGR/artemisia/bx/it}
  {*/*/it}{LGR/artemisia/m/it}
  {*/b/sl}{LGR/artemisia/b/sl}
  {*/bx/sl}{LGR/artemisia/bx/sl}
  {*/*/sl}{LGR/artemisia/m/sl}
  {*/*/sc}{LGR/artemisia/m/sc}
  {*/*/sco}{LGR/artemisia/m/sco}}}%
\newcommand*{\textgreekfontmap}{}%
\ExecuteOptions{cbgreek}
\ProcessOptions\relax%
\PackageInfo{textgreek}{Loaded fontmap: \textgreekfontmap.}
\def\textgreek@setfont#1/#2/#3/#4\relax{%
\textgreek@ematch{#1}{*}{}{\fontencoding{#1}}%
\textgreek@ematch{#2}{*}{}{\fontfamily{#2}}%
\textgreek@ematch{#3}{*}{}{\fontseries{#3}}%
\textgreek@ematch{#4}{*}{}{\fontshape{#4}}}%
\def\textgreek@eof{}%
\def\textgreek@return#1#2\textgreek@eof{%
\fi#1}%
\def\textgreek@ematch#1#2#3#4{%
  \begingroup%
  \edef\tempa{#1}\edef\tempb{#2}\def\tempc{*}%
  \def\return##1##2\endgroup{\fi\endgroup##1}%
  \ifx\tempa\tempb\return{#3}\fi%
  \ifx\tempa\tempc\return{#3}\fi%
  \iftrue\return{#4}\fi%
  \endgroup}%
\def\textgreek@matchfont#1/#2/#3\relax#4#5{%
  \textgreek@ematch{#1}{\f@family}{%
    \textgreek@ematch{#2}{\f@series}{%
      \textgreek@ematch{#3}{\f@shape}{#4}{#5}}%
    {#5}}%
  {#5}%
}%
\def\textgreek@findfont@#1#2#3\textgreek@eof{%
  \textgreek@matchfont#1\relax%
  {\textgreek@setfont#2\relax}%
  {\textgreek@findfont#3\textgreek@eof}}%
\def\textgreek@findfont#1\textgreek@eof{%
  \begingroup%
  \def\temp{#1}%
  \def\return##1##2\endgroup{\fi\endgroup##1}%
  \ifx\temp\textgreek@eof\else%
  \return{\textgreek@findfont@#1\textgreek@eof}%
  \fi\endgroup}%
\newcommand*{\textgreekfont}{%
  \fontencoding{LGR}%
  \edef\textgreek@fontmap{\textgreekfontmap}%
  \expandafter\textgreek@findfont\textgreek@fontmap\textgreek@eof%
  \selectfont%
}%
\DeclareRobustCommand*{\TextGreek}[1]{%
\begingroup%
\textgreekfont%
\edef\tempa{\f@family}%
\let\tempd\f@encoding%
\def\tempb{eur}\def\tempc{psy}%
\def\tempe{OML}%
\ifx\tempd\tempe\textgreek@return{\lgrtoeuler#1}\fi%
\ifx\tempa\tempb\textgreek@return{\lgrtoeuler#1}\fi%
\ifx\tempa\tempc\textgreek@return{\lgrtosymbol#1}\fi%
#1%
\textgreek@eof%
\endgroup}%
\DeclareRobustCommand*{\TextGreek@Select}[3]{%
\begingroup%
\textgreekfont%
\edef\tempa{\f@family}%
\let\tempd\f@encoding%
\def\tempb{eur}\def\tempc{psy}%
\def\tempe{OML}%
\ifx\tempd\tempe\textgreek@return{#2}\fi%
\ifx\tempa\tempb\textgreek@return{#2}\fi%
\ifx\tempa\tempc\textgreek@return{#3}\fi%
#1%
\textgreek@eof%
\endgroup}%
\def\DeclareTextGreekSymbol#1#2{%
  \@ifnextchar[%
  {\DeclareTextGreekSymbol@{#1}{#2}}%
  {\@DeclareTextGreekSymbol{#1}{#2}%
    {\fontencoding{LGR}\fontfamily{cmr}\selectfont#2}{#2}}%
}%
\def\@DeclareTextGreekSymbol#1#2#3#4{%
  \expandafter\DeclareTextCommandDefault\csname text#1\endcsname%
  {\TextGreek@Select{#2}{#3}{#4}}%
}%
\def\DeclareTextGreekSymbol@#1#2[#3]{%
  \ifx\textgreek@eof#3\textgreek@return{%
    \DeclareTextGreekSymbol@@{#1}{#2}%
    {\fontencoding{LGR}\fontfamily{cmr}\selectfont#2}}%
  \else\textgreek@return{%
    \DeclareTextGreekSymbol@@{#1}{#2}{#3}}\fi%
  \textgreek@eof}%
\def\DeclareTextGreekSymbol@@#1#2#3{%
  \@ifnextchar[%
  {\DeclareTextGreekSymbol@@@{#1}{#2}{#3}}%
  {\@DeclareTextGreekSymbol{#1}{#2}{#3}{#2}}%
}%
\def\DeclareTextGreekSymbol@@@#1#2#3[#4]{%
  \ifx\textgreek@eof#4\textgreek@return{%
    \@DeclareTextGreekSymbol{#1}{#2}{#3}{#2}}%
  \else\textgreek@return{%
    \@DeclareTextGreekSymbol{#1}{#2}{#3}{#4}}\fi%
  \textgreek@eof}%
\DeclareTextGreekSymbol{alpha}{a}[\char11]
\DeclareTextGreekSymbol{beta}{b}[\char12]
\DeclareTextGreekSymbol{gamma}{g}[\char13]
\DeclareTextGreekSymbol{delta}{d}[\char14]
\DeclareTextGreekSymbol{epsilon}{e}[\char34]
\DeclareTextGreekSymbol{zeta}{z}[\char16]
\DeclareTextGreekSymbol{eta}{h}[\char17]
\DeclareTextGreekSymbol{theta}{j}[\char18][q]
\DeclareTextGreekSymbol{iota}{i}[\char19]
\DeclareTextGreekSymbol{kappa}{k}[\char20]
\DeclareTextGreekSymbol{lambda}{l}[\char21]
\expandafter\ifx\csname?\string\textmu\endcsname\relax%
\DeclareTextGreekSymbol{mu}{m}[\char22]
\fi
\DeclareTextGreekSymbol{mugreek}{m}[\char22]
\DeclareTextGreekSymbol{nu}{n}[\char23]
\DeclareTextGreekSymbol{xi}{x}[\char24]
\DeclareTextGreekSymbol{omikron}{o}
\DeclareTextGreekSymbol{pi}{p}[\char25]
\DeclareTextGreekSymbol{rho}{r}[\char26]
\DeclareTextGreekSymbol{sigma}{s\noboundary}[\char27][s]
\DeclareTextGreekSymbol{varsigma}{c}[][V]
\DeclareTextGreekSymbol{tau}{t}[\char28]
\DeclareTextGreekSymbol{upsilon}{u}[\char29]
\DeclareTextGreekSymbol{phi}{f}[\char39][j]
\DeclareTextGreekSymbol{chi}{q}[\char31][c]
\DeclareTextGreekSymbol{psi}{y}[\char32]
\DeclareTextGreekSymbol{omega}{w}[\char33]
\DeclareTextGreekSymbol{Alpha}{A}
\DeclareTextGreekSymbol{Beta}{B}
\DeclareTextGreekSymbol{Gamma}{G}[\char0]
\DeclareTextGreekSymbol{Delta}{D}[\char1]
\DeclareTextGreekSymbol{Epsilon}{E}
\DeclareTextGreekSymbol{Zeta}{Z}
\DeclareTextGreekSymbol{Eta}{H}
\DeclareTextGreekSymbol{Theta}{J}[\char2][Q]
\DeclareTextGreekSymbol{Iota}{I}
\DeclareTextGreekSymbol{Kappa}{K}
\DeclareTextGreekSymbol{Lambda}{L}[\char3]
\DeclareTextGreekSymbol{Mu}{M}
\DeclareTextGreekSymbol{Nu}{N}
\DeclareTextGreekSymbol{Xi}{X}[\char4]
\DeclareTextGreekSymbol{Omikron}{O}
\DeclareTextGreekSymbol{Pi}{P}[\char5]
\DeclareTextGreekSymbol{Rho}{R}
\DeclareTextGreekSymbol{Sigma}{S}[\char6]
\DeclareTextGreekSymbol{Tau}{T}
\DeclareTextGreekSymbol{Upsilon}{U}[\char7]
\DeclareTextGreekSymbol{Phi}{F}[\char8]
\DeclareTextGreekSymbol{Chi}{Q}[][C]
\DeclareTextGreekSymbol{Psi}{Y}[\char9]
\DeclareTextGreekSymbol{Omega}{W}[\char10]
\DeclareTextCommand{\straightphi}{PU}%
  {\83\325} % U+03D5 GREEK PHI SYMBOL
\DeclareTextCommandDefault{\straightphi}{%
\begingroup\textgreekfont%
\edef\tempa{\f@family}%
\edef\tempb{\f@shape}%
\def\tempc{eur}\def\tempd{psy}%
\def\tempe{it}%
\ifx\tempa\tempc\textgreek@return{\char30}\fi%
\ifx\tempa\tempd\textgreek@return{f}\fi%
\ifx\tempb\tempe\textgreek@return{%
  \fontencoding{OML}\selectfont\char30}\fi%
\textgreek@ematch{\f@series}{bx}{\fontseries{b}}{}%
\fontencoding{U}\fontfamily{eur}\selectfont\char30%
\textgreek@eof%
\endgroup}%
\DeclareTextCommand{\scripttheta}{PU}%
  {\83\321}% U+03D1 GREEK THETA SYMBOL
\DeclareTextCommandDefault{\scripttheta}{%
  \TextGreek@Select{j}{\char35}{J}}%
\DeclareTextCommand{\straighttheta}{PU}%
  {\83\270} % U+03B8 GREEK THETA SYMBOL
\DeclareTextCommandDefault{\straighttheta}{%
\begingroup\textgreekfont%
\edef\tempa{\f@family}%
\edef\tempb{\f@shape}%
\def\tempc{eur}\def\tempd{psy}%
\def\tempe{it}%
\ifx\tempa\tempc\textgreek@return{\char18}\fi%
\ifx\tempa\tempd\textgreek@return{q}\fi%
\ifx\tempb\tempe\textgreek@return{%
  \fontencoding{OML}\selectfont\char18}\fi%
\textgreek@ematch{\f@series}{bx}{\fontseries{b}}{}%
\fontencoding{U}\fontfamily{eur}\selectfont\char18%
\textgreek@eof%
\endgroup}%
%% U+03F5 GREEK LUNATE EPSILON SYMBOL
\DeclareTextCommand{\straightepsilon}{PU}{\83\365}%
\DeclareTextCommandDefault{\straightepsilon}{%
\begingroup\textgreekfont%
\edef\tempa{\f@family}%
\edef\tempb{\f@shape}%
\def\tempc{eur}\def\tempd{psy}%
\def\tempe{it}%
\ifx\tempa\tempc\textgreek@return{\char15}\fi%
\ifx\tempa\tempd\textgreek@return{%
  \fontfamily{eur}\fontseries{b}\selectfont\char15}\fi%
\ifx\tempb\tempe\textgreek@return{%
  \fontencoding{OML}\selectfont\char15}\fi%
\textgreek@ematch{\f@series}{bx}{\fontseries{b}}{}%
\fontencoding{U}\fontfamily{eur}\selectfont\char15%
\textgreek@eof%
\endgroup}%
\endinput
%%
%% End of file `textgreek.sty'.
