summaryrefslogtreecommitdiff
path: root/Master/texmf-dist
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-10-01 17:22:17 +0000
committerKarl Berry <karl@freefriends.org>2007-10-01 17:22:17 +0000
commit0c5d3dc9d9bb75c5861ef9b20c301f5d21bbef73 (patch)
tree109208e39817e4d3530d3e17ac17b9336db79cf2 /Master/texmf-dist
parentd9bbb72cdcd88fad17175e9065e539dbc111c054 (diff)
new xelatex package xgreek (19feb07)
git-svn-id: svn://tug.org/texlive/trunk@5083 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
-rw-r--r--Master/texmf-dist/doc/xelatex/xgreek/README.1ST18
-rw-r--r--Master/texmf-dist/tex/xelatex/xgreek/xgreek.sty184
2 files changed, 202 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/xelatex/xgreek/README.1ST b/Master/texmf-dist/doc/xelatex/xgreek/README.1ST
new file mode 100644
index 00000000000..9c55ef2a8d8
--- /dev/null
+++ b/Master/texmf-dist/doc/xelatex/xgreek/README.1ST
@@ -0,0 +1,18 @@
+Beta release of package xgreek
+
+Package xgreek has been designed so to allow people to
+typeset Greek language documents using XeLaTeX. And it is
+released in the hope that people will use it and spot errors,
+bugs, features so to improve it. Practically,
+it provides all the capabilities of the greek option of
+the babel package. The package can be invoced with any of
+the following options: monotonic (for typesetting modern monotonic Greek),
+polytonic (for typesetting modern polytonic Greek), and ancient (for
+typesetting ancient texts). The default option is monotonic. The command
+\setlanguage{lang} to activate the hyphenation patterns of the lang.
+This, however, can be done only if the format file has not been built
+with the babel mechanism.
+
+Apostolos Syropoulos
+Xanthi, Greece
+2007/02/15
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'.