new xelatex package xgreek (19feb07)

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

1 files changed, 184 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/xelatex/xgreek/xgreek.sty b/Master/texmf-dist/tex/xelatex/xgreek/xgreek.sty
new file mode 100644
index 00000000000..e8e0f498e9a
--- /dev/null
+++ b/Master/texmf-dist/tex/xelatex/xgreek/xgreek.sty
@@ -0,0 +1,184 @@
+%%
+%% This is file `xgreek.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% xgreek.dtx  (with options: `xgreek')
+%% 
+%%  (c) Copyright 2007 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
+%%  version 1.3c of the License, or any later version.
+%% 
+%%  This work has the LPPL maintenance status `maintained'.
+%% 
+%%  Please report errors or suggestions for improvement to
+%% 
+%%     Apostolos Syropoulos  (asyropoulos@yahoo.com)
+%% 
+%% \CharacterTable
+%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%%   Digits        \0\1\2\3\4\5\6\7\8\9
+%%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%%   Dollar        \$     Percent       \%     Ampersand     \&
+%%   Acute accent  \'     Left paren    \(     Right paren   \)
+%%   Asterisk      \*     Plus          \+     Comma         \,
+%%   Minus         \-     Point         \.     Solidus       \/
+%%   Colon         \:     Semicolon     \;     Less than     \<
+%%   Equals        \=     Greater than  \>     Question mark \?
+%%   Commercial at \@     Left bracket  \[     Backslash     \\
+%%   Right bracket \]     Circumflex    \^     Underscore    \_
+%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%%   Right brace   \}     Tilde         \~}
+%%
+\ProvidesFile{xgreek.sty}
+ [2007/01/09 v1.0b Package `xgreek.sty']
+\def\prefacename{Πρόλογος}%
+\def\refname{Αναφορές}%
+\def\abstractname{Περίληψη}%
+\def\bibname{Βιβλιογραφία}%
+\def\chaptername{Κεφάλαιο}%
+\def\appendixname{Παράρτημα}%
+\def\contentsname{Περιεχόμενα}%
+\def\listfigurename{Κατάλογος σχημάτων}%
+\def\listtablename{Κατάλογος πινάκων}%
+\def\indexname{Ευρετήριο}%
+\def\figurename{Σχήμα}%
+\def\tablename{Πίνακας}%
+\def\partname{Μέρος}%
+\def\enclname{Συνημμένα}%
+\def\ccname{Κοινοποίηση}%
+\def\headtoname{Προς}%
+\def\pagename{Σελίδα}%
+\def\seename{βλέπε}%
+\def\alsoname{βλέπε επίσης}%
+\def\proofname{Απόδειξη}%
+\def\glossaryname{Γλωσσάρι}%
+\def\gr@month{%
+  \ifcase\month\or Ιανουαρίου\or Φεβρουαρίου\or Μαρτίου\or Απριλίου\or
+    Μαΐου\or Ιουνίου\or Ιουλίου\or Αυγούστου\or
+     Σεπτεμβρίου\or Οκτωβρίου\or Νοεβρίου\or Δεκεμβρίου\fi}
+\def\today{\number\day \space \gr@month\space \number\year}
+\def\polytonicn@mes{%
+  \def\refname{Ἀναφορὲς}%
+  \def\indexname{Εὑρετήριο}%
+  \def\figurename{Σχῆμα}%
+  \def\headtoname{Πρὸς}%
+  \def\alsoname{βλέπε ἐπίσης}%
+  \def\proofname{Ἀπόδειξη}%
+}
+\def\gr@c@month{%
+  \ifcase\month\or Ἰανουαρίου\or Φεβρουαρίου\or Μαρτίου\or Ἀπριλίου\or
+   Μαΐου\or Ἰουνίου\or Ἰουλίου\or Αὐγούστου\or Σεπτεμβρίου\or
+  Ὀκτωβρίου\or Νοεμβρίου\or Δεκεμβρίου\fi}
+\DeclareOption{monotonic}{%
+   \language\moderngreek
+}
+\DeclareOption{polytonic}{%
+   \language\moderngreek%
+   \polytonicn@mes%
+   \let\gr@month\gr@c@month%
+}
+\DeclareOption{ancient}{%
+   \language\ancientgreek%
+   \polytonicn@mes%
+   \let\gr@month\gr@c@month%
+}
+\ExecuteOptions{monotonic}
+\frenchspacing
+\ProcessOptions
+\def\anwtonos{\char"0374\relax}
+\def\katwtonos{\char"0375\relax}
+\def\koppa{\char"03DF\relax}
+\def\stigma{\char"03DA\relax}
+\def\sampi{\char"03E1\relax}
+\def\Digamma{\char"03DC\relax}
+\def\ddigamma{\char"03DD\relax}
+\def\euro{\char"20AC\relax}
+\def\permill{\char"2030\relax}
+\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}}
+\anw@true
+\def\greeknumeral#1{%
+  \ifnum#1<\@ne\space\gr@ill@value{#1}%
+  \else
+    \ifnum#1<10\expandafter\gr@num@i\number#1%
+    \else
+      \ifnum#1<100\expandafter\gr@num@ii\number#1%
+      \else
+        \ifnum#1<\@m\expandafter\gr@num@iii\number#1%
+        \else
+          \ifnum#1<\@M\expandafter\gr@num@iv\number#1%
+          \else
+            \ifnum#1<100000\expandafter\gr@num@v\number#1%
+            \else
+              \ifnum#1<1000000\expandafter\gr@num@vi\number#1%
+              \else
+                \space\gr@ill@value{#1}%
+              \fi
+            \fi
+          \fi
+        \fi
+      \fi
+    \fi
+  \fi
+}
+\def\Greeknumeral#1{%
+  \expandafter\MakeUppercase\expandafter{\greeknumeral{#1}}}
+\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}}
+  \let\@alph\greek@alph
+  \let\@Alph\greek@Alph
+\def\nogreekalph{%
+  \let\@alph\latin@alph
+  \let\@Alph\latin@Alph}
+\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 #1\endcsname\relax%
+   \typeout{^^J Error: No hyphenation pattern for language #1 loaded,}%
+   \typeout{ default hyphenation patterns are used.^^J}%
+   \language=0%
+   \else\language=\csname #1\endcsname\fi}
+\def\grtoday{%
+  \expandafter\greeknumeral\expandafter{\the\day}\space
+  \gr@c@month \space
+  \expandafter\greeknumeral\expandafter{\the\year}}
+\def\Grtoday{%
+  \expandafter\Greeknumeral\expandafter{\the\day}\space
+  \gr@c@month \space
+  \expandafter\Greeknumeral\expandafter{\the\year}}
+\endinput
+%%
+%% End of file `xgreek.sty'.