xgreek (11jul13)

git-svn-id: svn://tug.org/texlive/trunk@31170 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 53 insertions, 34 deletions

diff --git a/Master/texmf-dist/tex/xelatex/xgreek/xgreek.sty b/Master/texmf-dist/tex/xelatex/xgreek/xgreek.sty
index 9cbfc241f1e..c2c0ffa77ff 100644
--- a/Master/texmf-dist/tex/xelatex/xgreek/xgreek.sty
+++ b/Master/texmf-dist/tex/xelatex/xgreek/xgreek.sty
@@ -6,7 +6,7 @@
 %%
 %% xgreek.dtx  (with options: `xgreek')
 %% 
-%%  (c) Copyright 2007—2011 Apostolos Syropoulos
+%%  (c) Copyright 2007—2013 Apostolos Syropoulos
 %%  This program can be redistributed and/or modified under the
 %%  terms of the LaTeX Project Public License Distributed from
 %%  http://www.latex-project.org/lppl.txt; either
@@ -35,8 +35,8 @@
 %%   Right brace   \}     Tilde         \~}
 %%
 \ProvidesFile{xgreek.sty}
- [2012/04/08 v2.4 Package `xgreek.sty']
-\message{Package `xgreek' version 2.4 by Apostolos Syropoulos}
+ [2013/07/05 v2.5 Package `xgreek.sty']
+\message{Package `xgreek' version 2.5 by Apostolos Syropoulos}
 \global\lccode"0370="0371 \global\uccode"0370="0370
 \global\lccode"0371="0371 \global\uccode"0371="0370
 \global\lccode"0372="0373 \global\uccode"0372="0372
@@ -418,14 +418,20 @@
    Μαΐου\or Ἰουνίου\or Ἰουλίου\or Αὐγούστου\or Σεπτεμβρίου\or
   Ὀκτωβρίου\or Νοεμβρίου\or Δεκεμβρίου\fi}
 \def\anwtonos{\char"0374\relax}
+\let\numer@lsign\anwtonos
 \def\katwtonos{\char"0375\relax}
 \def\koppa{\char"03DF\relax}
 \def\sampi{\char"03E1\relax}
 \def\Digamma{\char"03DC\relax}
 \def\ddigamma{\char"03DD\relax}
+\def\anoteleia{\char"0387\relax}
 \def\euro{\char"20AC\relax}
 \def\permill{\char"2030\relax}
 \def\stigma{στ\relax}
+\frenchspacing
+\let\@saveafterindentfalse\@afterindentfalse
+\let\@afterindentfalse\@afterindenttrue
+\@afterindenttrue
 \DeclareOption{monogreek}{%
    \language\l@monogreek%
 }
@@ -442,19 +448,22 @@
 \DeclareOption{stigma}{%
    \def\stigma{\char"03DA\relax}
 }
+\DeclareOption{noindentfirst}{%
+   \let\@afterindentfalse\@saveafterindentfalse
+}
+\DeclareOption{nonumeralsign}{%
+   \let\numer@lsign\relax
+}
 \ExecuteOptions{monogreek}
 \ProcessOptions
-\frenchspacing
-\let\@afterindentfalse\@afterindenttrue
-\@afterindenttrue
 \def\gr@ill@value#1{%
   \PackageWarning{xgreek}{Illegal value (#1) for greeknumeral}}
 \DeclareRobustCommand\anw@false{%
   \DeclareRobustCommand\anw@print{}}
 \DeclareRobustCommand\anw@true{%
-  \DeclareRobustCommand\anw@print{\anwtonos}}
+  \DeclareRobustCommand\anw@print{\numer@lsign}}
 \anw@true
-\def\greeknumeral#1{%
+\def\@greeknumeral#1{%
   \ifnum#1<\@ne\space\gr@ill@value{#1}%
   \else
     \ifnum#1<10\expandafter\gr@num@i\number#1%
@@ -478,8 +487,39 @@
     \fi
   \fi
 }
+\def\gr@num@i#1{%
+  \ifcase#1\or α\or β\or γ\or δ\or ε\or \stigma\or ζ\or η\or θ\fi
+  \ifnum#1=\z@\else\anw@true\fi\anw@print}
+\def\gr@num@ii#1{%
+  \ifcase#1\or ι\or κ\or λ\or μ\or ν\or ξ\or ο\or π\or \koppa\fi
+  \ifnum#1=\z@\else\anw@true\fi\gr@num@i}
+\def\gr@num@iii#1{%
+  \ifcase#1\or ρ\or σ\or τ\or υ\or φ\or χ\or ψ\or ω\or \sampi\fi
+  \ifnum#1=\z@\anw@false\else\anw@true\fi\gr@num@ii}
+\def\gr@num@iv#1{%
+  \ifnum#1=\z@\else\katwtonos\fi
+  \ifcase#1\or α\or β\or γ\or δ\or ε\or \stigma\or ζ\or η\or θ\fi
+  \gr@num@iii}
+\def\gr@num@v#1{%
+  \ifnum#1=\z@\else\katwtonos\fi
+  \ifcase#1\or ι\or κ\or λ\or μ\or ν\or ξ\or ο\or π\or \koppa\fi
+  \gr@num@iv}
+\def\gr@num@vi#1{%
+  \katwtonos
+  \ifcase#1\or ρ\or σ\or τ\or υ\or φ\or χ\or ψ\or ω\or \sampi\fi
+  \gr@num@v}
+\def\@Greeknumeral#1{%
+  \expandafter\MakeUppercase\expandafter{\@greeknumeral{#1}}}
+\def\greeknumeral#1{%
+  \let\@numer@lsign\numer@lsign%
+  \let\numer@lsign\anwtonos%
+  \@greeknumeral{#1}
+  \let\numer@lsign\@numer@lsign}
 \def\Greeknumeral#1{%
-  \expandafter\MakeUppercase\expandafter{\greeknumeral{#1}}}
+  \let\@numer@lsign\numer@lsign%
+  \let\numer@lsign\anwtonos%
+  \@Greeknumeral{#1}
+  \let\numer@lsign\@numer@lsign}
 \newcount\@attic@num
 \DeclareRobustCommand*{\@@atticnum}[1]{%
         \@attic@num#1\relax
@@ -522,8 +562,8 @@
      \@atticnum{\@attic@num}}
 \let\latin@alph\@alph
 \let\latin@Alph\@Alph
-\def\greek@alph#1{\expandafter\greeknumeral\expandafter{\the#1}}
-\def\greek@Alph#1{\expandafter\Greeknumeral\expandafter{\the#1}}
+\def\greek@alph#1{\expandafter\@greeknumeral\expandafter{\the#1}}
+\def\greek@Alph#1{\expandafter\@Greeknumeral\expandafter{\the#1}}
   \let\@alph\greek@alph
   \let\@Alph\greek@Alph
 \def\nogreekalph{%
@@ -532,27 +572,6 @@
 \def\greekalph{%
   \let\@alph\greek@alph
   \let\@Alph\greek@Alph}
-\def\gr@num@i#1{%
-  \ifcase#1\or α\or β\or γ\or δ\or ε\or \stigma\or ζ\or η\or θ\fi
-  \ifnum#1=\z@\else\anw@true\fi\anw@print}
-\def\gr@num@ii#1{%
-  \ifcase#1\or ι\or κ\or λ\or μ\or ν\or ξ\or ο\or π\or \koppa\fi
-  \ifnum#1=\z@\else\anw@true\fi\gr@num@i}
-\def\gr@num@iii#1{%
-  \ifcase#1\or ρ\or σ\or τ\or υ\or φ\or χ\or ψ\or ω\or \sampi\fi
-  \ifnum#1=\z@\anw@false\else\anw@true\fi\gr@num@ii}
-\def\gr@num@iv#1{%
-  \ifnum#1=\z@\else\katwtonos\fi
-  \ifcase#1\or α\or β\or γ\or δ\or ε\or \stigma\or ζ\or η\or θ\fi
-  \gr@num@iii}
-\def\gr@num@v#1{%
-  \ifnum#1=\z@\else\katwtonos\fi
-  \ifcase#1\or ι\or κ\or λ\or μ\or ν\or ξ\or ο\or π\or \koppa\fi
-  \gr@num@iv}
-\def\gr@num@vi#1{%
-  \katwtonos
-  \ifcase#1\or ρ\or σ\or τ\or υ\or φ\or χ\or ψ\or ω\or \sampi\fi
-  \gr@num@v}
 \def\setlanguage#1{%
    \expandafter\ifx\csname l@#1\endcsname\relax%
    \typeout{^^J Error: No hyphenation pattern for language #1 loaded,}%
@@ -561,11 +580,11 @@
    \else\language=\csname l@#1\endcsname\fi}
 \def\grtoday{%
   \expandafter\greeknumeral\expandafter{\the\day}\space
-  \gr@c@month \space
+  \gr@c@month\space
   \expandafter\greeknumeral\expandafter{\the\year}}
 \def\Grtoday{%
   \expandafter\Greeknumeral\expandafter{\the\day}\space
-  \gr@c@month \space
+  \gr@c@month\space
   \expandafter\Greeknumeral\expandafter{\the\year}}
 \endinput
 %%