summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/xelatex/xgreek
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-07-11 23:27:07 +0000
committerKarl Berry <karl@freefriends.org>2013-07-11 23:27:07 +0000
commitb0c1f2170d2a8b9c940d94e002098245a566b6b0 (patch)
tree53fa2f7738410cc5ba477815a19107c29e95fcc1 /Master/texmf-dist/tex/xelatex/xgreek
parent73f6b8fbb951d9acae74a72fb07cc8e237fe3bc3 (diff)
xgreek (11jul13)
git-svn-id: svn://tug.org/texlive/trunk@31170 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/xelatex/xgreek')
-rw-r--r--Master/texmf-dist/tex/xelatex/xgreek/xgreek.sty87
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
%%