From 1eb8d4fb119786820e35b966a795ad48d3ae7d8f Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 15 Feb 2008 00:14:55 +0000 Subject: xgreek with all sources git-svn-id: svn://tug.org/texlive/trunk@6631 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/xelatex/xgreek/xgreek.sty | 184 ++++++++++++++++++++++++ 1 file changed, 184 insertions(+) create mode 100644 Master/texmf-dist/tex/xelatex/xgreek/xgreek.sty (limited to 'Master/texmf-dist/tex') 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..5ccdbb793f4 --- /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/11/18 v1.0c 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'. -- cgit v1.2.3