You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
409 lines
13 KiB
409 lines
13 KiB
\ProvidesFile{gloss-greek.ldf}[polyglossia: module for greek]
|
|
|
|
\PolyglossiaSetup{greek}{
|
|
bcp47=el-monoton,
|
|
script=Greek,
|
|
scripttag=grek,
|
|
langtag=ELL,
|
|
frenchspacing=true,
|
|
indentfirst=true,
|
|
fontsetup=true,
|
|
localnumeral=greeknumerals,
|
|
Localnumeral=Greeknumerals
|
|
%TODO localalph={greek@alph,greek@Alph}
|
|
}
|
|
|
|
% BCP-47 compliant aliases
|
|
\setlanguagealias*[variant=ancient]{greek}{grc}
|
|
\setlanguagealias*[varant=polytonic]{greek}{el-polyton}
|
|
\setlanguagealias*[variant=monotonic]{greek}{el-monoton}
|
|
\setlanguagealias*{greek}{el}
|
|
|
|
% Babel aliases
|
|
\setlanguagealias[variant=polytonic]{greek}{polutonikogreek}
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
%% 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}
|
|
|
|
\def\tmp@mono{mono}
|
|
\def\tmp@monotonic{monotonic}
|
|
\def\tmp@poly{poly}
|
|
\def\tmp@polytonic{polytonic}
|
|
\def\tmp@ancient{ancient}
|
|
\def\tmp@ancientgreek{ancientgreek}
|
|
|
|
\def\greek@variant{monogreek}
|
|
|
|
\define@key{greek}{variant}[monotonic]{%
|
|
\def\@tmpa{#1}%
|
|
\xpg@ifdefined{greek}{}{%
|
|
\xpg@nopatterns{greek}%
|
|
\adddialect\l@greek\l@nohyphenation
|
|
}%
|
|
\ifx\@tmpa\tmp@poly\def\@tmpa{polytonic}\fi
|
|
\ifx\@tmpa\tmp@ancientgreek\def\@tmpa{ancient}\fi
|
|
\ifx\@tmpa\tmp@polytonic%
|
|
\xpg@ifdefined{polygreek}{}%
|
|
{\xpg@warning{No hyphenation patterns were loaded for Polytonic Greek\MessageBreak
|
|
I will use the patterns loaded for \string\l@greek\space instead}%
|
|
\adddialect\l@polygreek\l@greek\relax}%
|
|
\def\greek@variant{polygreek}%
|
|
\def\captionsgreek{\polygreekcaptions}%
|
|
\def\dategreek{\datepolygreek}%
|
|
\SetLanguageKeys{greek}{babelname=polutonikogreek,bcp47=el-polyton}%
|
|
\xpg@info{Option: Polytonic Greek}%
|
|
\else
|
|
\ifx\@tmpa\tmp@ancient
|
|
\xpg@ifdefined{ancientgreek}{}%
|
|
{\xpg@warning{No hyphenation patterns were loaded for Ancient Greek\MessageBreak
|
|
I will use the patterns loaded for \string\l@greek\space instead}%
|
|
\adddialect\l@ancientgreek\l@greek\relax}%
|
|
\def\greek@variant{ancientgreek}%
|
|
\def\captionsgreek{\ancientgreekcaptions}%
|
|
\def\dategreek{\dateancientgreek}%
|
|
\SetLanguageKeys{greek}{babelname=greek,bcp47=grc}%
|
|
\xpg@info{Option: Ancient Greek}%
|
|
\else %monotonic
|
|
\xpg@ifdefined{monogreek}{}%
|
|
{\xpg@warning{No hyphenation patterns were loaded for Monotonic Greek\MessageBreak
|
|
I will use the patterns loaded for \string\l@greek\space instead}%
|
|
\adddialect\l@monogreek\l@greek\relax}%
|
|
\def\greek@variant{monogreek}% monotonic
|
|
\def\captionsgreek{\monogreekcaptions}%
|
|
\def\dategreek{\datemonogreek}%
|
|
\SetLanguageKeys{greek}{babelname=greek,bcp47=el-monoton}%
|
|
\xpg@info{Option: Monotonic Greek}%
|
|
\fi
|
|
\fi}
|
|
|
|
\def\greek@language{%
|
|
\polyglossia@setup@language@patterns{\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.}}
|
|
|
|
% Register default options
|
|
\xpg@initialize@gloss@options{greek}{variant=monotonic,numerals=greek}
|
|
% Register alias options
|
|
\xpg@set@alias@values{greek}{variant}{monotonic}{mono}
|
|
\xpg@set@alias@values{greek}{variant}{polytonic}{poly}
|
|
|
|
\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
|
|
\newrobustcmd\anw@print{}
|
|
\newrobustcmd\anw@false{%
|
|
\renewrobustcmd\anw@print{}}
|
|
\newrobustcmd\anw@true{%
|
|
\renewrobustcmd\anw@print{ʹ}}
|
|
\anw@true
|
|
|
|
\newcommand{\greeknumerals}[2]{\greeknumber{#2}}
|
|
\newcommand{\Greeknumerals}[2]{\Greeknumber{#2}}
|
|
|
|
\protected\def\greeknumber#1{\expandafter\@greeknumber\expandafter{\number#1}}
|
|
\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
|
|
}
|
|
\protected\def\Greeknumber#1{\expandafter\@Greeknumber\expandafter{\number#1}}
|
|
\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
|
|
}
|
|
\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{%
|
|
\if@greek@numerals
|
|
\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%
|
|
\fi}
|
|
|
|
\def\nogreek@numbers{%
|
|
\let\@alph\latin@alph%
|
|
\let\@Alph\latin@Alph%
|
|
\let\greek@alph\@undefined%
|
|
\let\greek@Alph\@undefined%
|
|
}
|
|
|
|
\endinput
|
|
|
|
|