diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/polyglossia/gloss-greek.ldf')
-rw-r--r-- | Master/texmf-dist/tex/latex/polyglossia/gloss-greek.ldf | 346 |
1 files changed, 346 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/polyglossia/gloss-greek.ldf b/Master/texmf-dist/tex/latex/polyglossia/gloss-greek.ldf new file mode 100644 index 00000000000..229688ef5bc --- /dev/null +++ b/Master/texmf-dist/tex/latex/polyglossia/gloss-greek.ldf @@ -0,0 +1,346 @@ +\ProvidesFile{gloss-greek.ldf}[polyglossia: module for greek] +\PolyglossiaSetup{greek}{ + script=Greek, + scripttag=grek, + frenchspacing=true, + indentfirst=true, + fontsetup=true, + %TODO localalph={greek@alph,greek@Alph} +} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% The code in this file was initially adapted from the antomega +%% module for greek. Currently large parts of it derive from the +%% package xgreek.sty (c) Apostolos Syropoulos +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% this file imported from xgreek fixes the \lccode and \uccode of Greek letters: +\input{xgreek-fixes.def} + +%TODO: set these in \define@key instead: +\ifx\l@greek\@undefined + \ifx\l@polygreek\@undefined + \xpg@nopatterns{Greek}% + \adddialect\l@greek\l@nohyphenation + \else + \let\l@greek\l@polygreek + \fi +\fi +\ifx\l@monogreek\@undefined + \xpg@warning{No hyphenation patterns were loaded for Monotonic Greek\MessageBreak + I will use the patterns loaded for \string\l@greek instead} + \adddialect\l@monogreek\l@greek +\fi +\ifx\l@ancientgreek\@undefined + \xpg@warning{No hyphenation patterns were loaded for Ancient Greek\MessageBreak + I will use the patterns loaded for \string\l@greek instead} + \adddialect\l@ancientgreek\l@greek +\fi + +%set monotonic as default +\def\greek@variant{\l@monogreek}% monotonic +\def\captionsgreek{\monogreekcaptions}% +\def\dategreek{\datemonogreek}% + +\def\tmp@mono{mono} +\def\tmp@monotonic{monotonic} +\def\tmp@poly{poly} +\def\tmp@polytonic{polytonic} +\def\tmp@ancient{ancient} +\def\tmp@ancientgreek{ancientgreek} + +\define@key{greek}{variant}[monotonic]{% + \def\@tmpa{#1}% + \ifx\@tmpa\tmp@poly\def\@tmpa{polytonic}\fi + \ifx\@tmpa\tmp@ancientgreek\def\@tmpa{ancient}\fi + \ifx\@tmpa\tmp@polytonic% + \def\greek@variant{\l@polygreek}% + \def\captionsgreek{\polygreekcaptions}% + \def\dategreek{\datepolygreek}% + \xpg@info{Option: Polytonic Greek}% + \else + \ifx\@tmpa\tmp@ancient + \def\greek@variant{\l@ancientgreek}% + \def\captionsgreek{\ancientgreekcaptions}% + \def\dategreek{\dateancientgreek}% + \xpg@info{Option: Ancient Greek}% + \else %monotonic + \def\greek@variant{\l@monogreek}% monotonic + \def\captionsgreek{\monogreekcaptions}% + \def\dategreek{\datemonogreek}% + \xpg@info{Option: Monotonic Greek}% + \fi + \fi} + +\def\greek@language{\language=\greek@variant} + +\newif\if@greek@numerals +\define@key{greek}{numerals}[greek]{% +\ifstrequal{#1}{arabic}{\@greek@numeralsfalse}{\@greek@numeralstrue}} + +\define@boolkey{greek}{attic}[true]{\xpg@warning{Greek option `attic' is no longer required.}} + +% This sets the defaults +\setkeys{greek}{numerals} + +\def\monogreekcaptions{% + \def\refname{Αναφορές}% + \def\abstractname{Περίληψη}% + \def\bibname{Βιβλιογραφία}% + \def\prefacename{Πρόλογος}% + \def\chaptername{Κεφάλαιο}% + \def\appendixname{Παράρτημα}% + \def\contentsname{Περιεχόμενα}% + \def\listfigurename{Κατάλογος σχημάτων}% + \def\listtablename{Κατάλογος πινάκων}% + \def\indexname{Ευρετήριο}% + \def\figurename{Σχήμα}% + \def\tablename{Πίνακας}% + \def\partname{Μέρος}% + \def\pagename{Σελίδα}% + \def\seename{βλέπε}% + \def\alsoname{βλέπε επίσης}% + \def\enclname{Συνημμένα}% + \def\ccname{Κοινοποίηση}% + \def\headtoname{Προς}% + \def\proofname{Απόδειξη}% + \def\glossaryname{Γλωσσάρι}}% + +\def\datemonogreek{% + \def\today{\number\day\space% + \greek@month% + \space\number\year}% + \def\greektoday{\greeknumber\day\space% + \greek@month% + \space\greeknumber\year}% + \def\Greektoday{\Greeknumber\day\space% + \greek@month% + \space\Greeknumber\year}% + \def\greek@month{\ifcase\month\or% + Ιανουαρίου\or + Φεβρουαρίου\or + Μαρτίου\or + Απριλίου\or + Μαΐου\or + Ιουνίου\or + Ιουλίου\or + Αυγούστου\or + Σεπτεμβρίου\or + Οκτωβρίου\or + Νοεμβρίου\or + Δεκεμβρίου\fi}}% + +\def\polygreekcaptions{% + \def\refname{Ἀναφορές}% + \def\abstractname{Περίληψη}% + \def\bibname{Βιβλιογραφία}% + \def\prefacename{Πρόλογος}% + \def\chaptername{Κεφάλαιο}% + \def\appendixname{Παράρτημα}% + \def\contentsname{Περιεχόμενα}% + \def\listfigurename{Κατάλογος σχημάτων}% + \def\listtablename{Κατάλογος πινάκων}% + \def\indexname{Εὑρετήριο}% + \def\figurename{Σχῆμα}% + \def\tablename{Πίνακας}% + \def\partname{Μέρος}% + \def\pagename{Σελίδα}% + \def\seename{βλέπε}% + \def\alsoname{βλέπε ἐπίσης}% + \def\enclname{Συνημμένα}% + \def\ccname{Κοινοποίηση}% + \def\headtoname{Πρὸς}% + \def\proofname{Ἀπόδειξη}}% + +\def\datepolygreek{% + \def\today{\number\day\space% + \greek@month% + \space\number\year}% + \def\greektoday{\greeknumber\day\space% + \greek@month% + \space\greeknumber\year}% + \def\Greektoday{\Greeknumber\day\space% + \greek@month% + \space\Greeknumber\year}% + \def\greek@month{\ifcase\month\or% + Ἰανουαρίου\or + Φεβρουαρίου\or + Μαρτίου\or + Ἀπριλίου\or + Μαΐου\or + Ἰουνίου\or + Ἰουλίου\or + Αὐγούστου\or + Σεπτεμβρίου\or + Ὀκτωβρίου\or + Νοεμβρίου\or + Δεκεμβρίου\fi}}% + +% this is copied verbatim from xgreek.sty: +\def\ancientgreekcaptions{% + \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\refname{Ἀναφοραὶ}% + \def\indexname{Εὑρετήριο}% + \def\figurename{Σχῆμα}% + \def\headtoname{Πρὸς}}% + +\def\dateancientgreek{% + \def\today{\number\day\space% + \greek@month% + \space\number\year}% + \def\greektoday{\greeknumber\day\space% + \greek@month% + \space\greeknumber\year}% + \def\Greektoday{\Greeknumber\day\space% + \greek@month% + \space\Greeknumber\year}% + \def\greek@month{\ifcase\month\or% + Ἰανουαρίου\or + Φεβρουαρίου\or + Μαρτίου\or + Ἀπριλίου\or + Μαΐου\or + Ἰουνίου\or + Ἰουλίου\or + Αὐγούστου\or + Σεπτεμβρίου\or + Ὀκτωβρίου\or + Νοεμβρίου\or + Δεκεμβρίου\fi}} + +% the code for alphabetic numbers and attic numerals +% is copied verbatim from xgreek.sty +\DeclareRobustCommand\anw@false{% + \DeclareRobustCommand\anw@print{}} +\DeclareRobustCommand\anw@true{% + \DeclareRobustCommand\anw@print{ʹ}} +\anw@true + +\def\greeknumber#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\Greeknumber#1{% + \expandafter\MakeUppercase\expandafter{\greeknumber{#1}}} +\let\greeknumeral=\greeknumber +\let\Greeknumeral=\Greeknumber +\def\gr@num@i#1{% + \ifcase#1\or α\or β\or γ\or δ\or ε\or Ϛ\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 ϟ\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 ϡ\fi + \ifnum#1=\z@\anw@false\else\anw@true\fi\gr@num@ii} +\def\gr@num@iv#1{% + \ifnum#1=\z@\else ͵\fi + \ifcase#1\or α\or β\or γ\or δ\or ε\or Ϛ\or ζ\or η\or θ\fi + \gr@num@iii} +\def\gr@num@v#1{% + \ifnum#1=\z@\else ͵\fi + \ifcase#1\or ι\or κ\or λ\or μ\or ν\or ξ\or ο\or π\or ϟ\fi + \gr@num@iv} +\def\gr@num@vi#1{% + ͵\ifcase#1\or ρ\or σ\or τ\or υ\or φ\or χ\or ψ\or ω\or ϡ\fi + \gr@num@v} + +%%%% Attic numerals (no longer optional) +\newcount\@attic@num +\DeclareRobustCommand*{\@@atticnum}[1]{% + \@attic@num#1\relax + \ifnum\@attic@num<\@ne% + \space% + \xpg@warning{Illegal value (\the\@attic@num) for acrophonic Attic numeral}% + \else\ifnum\@attic@num>249999% + \space% + \xpg@warning{Illegal value (\the\@attic@num) for acrophonic Attic numeral}% + \else + \@whilenum\@attic@num>49999\do{% + \char"10147\advance\@attic@num-50000}% + \@whilenum\@attic@num>9999\do{% + M\advance\@attic@num-\@M}% + \ifnum\@attic@num>4999% + \char"10146\advance\@attic@num-5000% + \fi\relax + \@whilenum\@attic@num>999\do{% + Χ\advance\@attic@num-\@m}% + \ifnum\@attic@num>499% + \char"10145\advance\@attic@num-500% + \fi\relax + \@whilenum\@attic@num>99\do{% + Η\advance\@attic@num-100}% + \ifnum\@attic@num>49% + \char"10144\advance\@attic@num-50% + \fi\relax + \@whilenum\@attic@num>9\do{% + Δ\advance\@attic@num by-10}% + \@whilenum\@attic@num>4\do{% + Π\advance\@attic@num-5}% + \ifcase\@attic@num\or Ι\or ΙΙ\or ΙΙΙ\or ΙΙΙΙ\fi% + \fi\fi} +\def\@atticnum#1{% + \expandafter\@@atticnum\expandafter{\the#1}} +\def\atticnumeral#1{% + \@attic@num#1\relax + \@atticnum{\@attic@num}} +\let\atticnum=\atticnumeral + +\def\greek@numbers{% + \let\latin@alph\@alph% + \let\latin@Alph\@Alph% + \if@greek@numerals + \def\greek@alph##1{\protect\greeknumber{##1}}% + \def\greek@Alph##1{\protect\Greeknumber{##1}}% + \let\@alph\greek@alph% + \let\@Alph\greek@Alph% + \fi} + +\def\nogreek@numbers{% + \let\@alph\latin@alph% + \let\@Alph\latin@Alph% + \let\greek@alph\@undefined% + \let\greek@Alph\@undefined% + } + +\endinput + |