summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/polyglossia/gloss-greek-new.ldf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/polyglossia/gloss-greek-new.ldf')
-rw-r--r--Master/texmf-dist/tex/latex/polyglossia/gloss-greek-new.ldf410
1 files changed, 410 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/polyglossia/gloss-greek-new.ldf b/Master/texmf-dist/tex/latex/polyglossia/gloss-greek-new.ldf
new file mode 100644
index 00000000000..1b8864cd214
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/polyglossia/gloss-greek-new.ldf
@@ -0,0 +1,410 @@
+\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 not copied verbatim from xgreek.sty any more
+% it has been proposed by eg9 on issue 36 of the repository
+% see https://github.com/reutenauer/polyglossia/issues/36
+\newrobustcmd\anw@print{}
+\newrobustcmd\anw@false{%
+\renewrobustcmd\anw@print{}}
+\newrobustcmd\anw@true{%
+\renewrobustcmd\anw@print{ʹ}}
+\anw@true
+
+\protected\def\greeknumber#1{\expandafter\@greeknumber\expandafter{\number#1}}
+
+\def\@greeknumber#1{%
+\ifnum#1<\@ne\space\gr@ill@value{#1}%
+\else %
+\ifnum#1<10 \gr@num@i#1%
+\else %
+\ifnum#1<100 \gr@num@ii#1%
+\else %
+\ifnum#1<\@m \gr@num@iii#1%
+\else %
+\ifnum#1<\@M \gr@num@iv#1%
+\else %
+\ifnum#1<100000 \gr@num@v#1%
+\else %
+\ifnum#1<1000000 \gr@num@vi#1%
+\else %
+\space\gr@ill@value{#1}%
+\fi %
+\fi %
+\fi %
+\fi %
+\fi %
+\fi %
+\fi %
+}
+
+\protected\def\Greeknumber#1{\expandafter\@Greeknumber\expandafter{\number#1}}
+\def\@Greeknumber#1{%
+\ifnum#1<\@ne\space\gr@ill@value{#1}%
+\else %
+\ifnum#1<10 \gr@Num@i#1%
+\else %
+\ifnum#1<100 \gr@Num@ii#1%
+\else %
+\ifnum#1<\@m\gr@Num@iii#1%
+\else %
+\ifnum#1<\@M\gr@Num@iv#1%
+\else %
+\ifnum#1<100000 \gr@Num@v#1%
+\else %
+\ifnum#1<1000000 \gr@Num@vi#1%
+\else %
+\space\gr@ill@value{#1}%
+\fi %
+\fi %
+\fi %
+\fi %
+\fi %
+\fi %
+\fi %
+}
+
+\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}%
+
+\def\gr@Num@i#1{%
+\ifcase#1 \or Α\or Β\or Γ\or Δ\or Ε\or \MakeUppercase{Ϛ}\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 \MakeUppercase{ϟ}\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 \MakeUppercase{ϡ}\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 \MakeUppercase{Ϛ}\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 \MakeUppercase{ϟ}\fi %
+\gr@Num@iv}
+
+\def\gr@Num@vi#1{%
+͵ \ifcase#1 \or Ρ\or Σ\or Τ\or Υ\or Φ\or Χ\or Ψ\or Ω\or \MakeUppercase{ϡ}\fi %
+\gr@Num@v}
+
+\def\gr@ill@value#1{\xpg@warning{Illegal value (#1) for Greek numeral}[$#1$]}
+
+%%%% 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
+