summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/textgreek
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-03-31 23:15:45 +0000
committerKarl Berry <karl@freefriends.org>2011-03-31 23:15:45 +0000
commit9b5b68f1b52141b996604acd11553ddb703a735f (patch)
tree1d89677046094ea7db3962c2edfdd01ba486bd5d /Master/texmf-dist/tex/latex/textgreek
parent6b5cac75927920639405a1c1ba5cac760861b184 (diff)
textgreek (31mar11)
git-svn-id: svn://tug.org/texlive/trunk@21905 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/textgreek')
-rw-r--r--Master/texmf-dist/tex/latex/textgreek/textgreek.sty193
1 files changed, 193 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/textgreek/textgreek.sty b/Master/texmf-dist/tex/latex/textgreek/textgreek.sty
new file mode 100644
index 00000000000..a12cd504d25
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/textgreek/textgreek.sty
@@ -0,0 +1,193 @@
+%%
+%% 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'.