diff options
author | Karl Berry <karl@freefriends.org> | 2011-03-31 23:15:45 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-03-31 23:15:45 +0000 |
commit | 9b5b68f1b52141b996604acd11553ddb703a735f (patch) | |
tree | 1d89677046094ea7db3962c2edfdd01ba486bd5d /Master/texmf-dist/tex/latex | |
parent | 6b5cac75927920639405a1c1ba5cac760861b184 (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')
-rw-r--r-- | Master/texmf-dist/tex/latex/textgreek/textgreek.sty | 193 |
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'. |