babel-greek (5aug14)

git-svn-id: svn://tug.org/texlive/trunk@34857 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 91 insertions, 14 deletions

diff --git a/Master/texmf-dist/tex/generic/babel-greek/greek.ldf b/Master/texmf-dist/tex/generic/babel-greek/greek.ldf
index cf87b52c22c..3c2c61da730 100644
--- a/Master/texmf-dist/tex/generic/babel-greek/greek.ldf
+++ b/Master/texmf-dist/tex/generic/babel-greek/greek.ldf
@@ -32,21 +32,30 @@
 %% and covered by LPPL is defined by the unpacking script (babel-greek.ins)
 %% which is part of the package.
 \ProvidesLanguage{greek}
-        [2013/12/03 v1.8a Greek support for the babel system]
+        [2014/07/20 v1.9 Greek support for the babel system]
 %% File `babel-greek.dtx'
 %% Greek language Definition File
 %% Copyright © 1997, 2005 Apostolos Syropoulos, Johannes Braams
-%% Copyright © 2013 Günter Milde
+%% Copyright © 2013-2014 Günter Milde
 %% Please report errors to: Günter Milde <milde@users.sf.net>
-
 \LdfInit\CurrentOption{captions\CurrentOption}
 \gdef\CurrentOption{greek}%
 \ifx\l@greek\@undefined
   \@nopatterns{greek}
-  \adddialect\l@greek0\fi
+  \adddialect\l@greek 0\fi
+\ifx\l@monogreek\@undefined
+  \adddialect\@monogreek 0\fi
+\ifx\l@ancientgreek\@undefined
+  \adddialect\@ancientgreek 0\fi
+\newcount\bbl@monogreek \bbl@monogreek=\l@monogreek
+\newcount\bbl@polygreek \bbl@polygreek=\l@greek
+\newcount\bbl@ancientgreek  \bbl@ancientgreek=\l@ancientgreek
+\addto\extrasgreek{\let\l@greek\bbl@monogreek\relax}
+\addto\extraspolutonikogreek{\l@greek=\bbl@polygreek}
+\addto\extrasancientgreek{\l@greek=\bbl@ancientgreek}
 \bbl@declare@ttribute{greek}{polutoniko}{%
   \expandafter\addto\expandafter\extrasgreek
-  \expandafter{\extraspolutonikogreek}%
+    \expandafter{\extraspolutonikogreek}%
   \let\captionsgreek\captionspolutonikogreek
   \let\gr@month\gr@c@month
   \let\l@polutonikogreek\l@greek
@@ -54,6 +63,14 @@
   \let\extraspolutonikogreek\extrasgreek
   \let\noextraspolutonikogreek\noextrasgreek
   }
+\bbl@declare@ttribute{greek}{ancient}{%
+  \expandafter\addto\expandafter\extrasgreek
+    \expandafter{\extraspolutonikogreek}% multi-accented letters
+  \expandafter\addto\expandafter\extrasgreek
+    \expandafter{\extrasancientgreek}%
+  \let\captionsgreek\captionsancientgreek
+  \let\gr@month\gr@c@month % (modern) polytonic month names
+  }
 \@ifl@aded{def}{eu1enc}{
   \providecommand*{\greekfontencoding}{EU1}
   \providecommand*{\bbl@greek@fontencdef}{greek-euenc}
@@ -163,6 +180,47 @@
   \def\proofname{\>\textAlpha\textpi\acctonos\textomicron
     \textdelta\textepsilon\textiota\textxi\texteta}%
 }
+\let\captionsancientgreek\captionsgreek
+\addto\captionsancientgreek{%
+  \def\prefacename{\textPi\textrho\textomicron\textomicron\acctonos\textiota\textmu
+    \textiota\textomicron\textnu}%
+  \def\refname{\>\textAlpha\textnu\textalpha\textphi\textomicron\textrho
+    \textalpha\accvaria\textiota}%
+  \def\abstractname{\textPi\textepsilon\textrho\acctonos\textiota\textlambda\texteta
+    \textpsi\textiota\textvarsigma}%
+  \def\bibname{\textBeta\textiota\textbeta\textlambda\textiota\textomicron
+    \textgamma\textrho\textalpha\textphi\acctonos\textiota\textalpha}%
+  \def\chaptername{\textKappa\textepsilon\textphi\acctonos\textalpha\textlambda
+    \textalpha\textiota\textomicron\textnu}%
+  \def\appendixname{\textPi\textalpha\textrho\acctonos\textalpha\textrho\texttau
+    \texteta\textmu\textalpha}%
+  \def\contentsname{\textPi\textepsilon\textrho\textiota\textepsilon\textchi
+    \acctonos\textomicron\textmu\textepsilon\textnu\textalpha}%
+  \def\listfigurename{\textKappa\textalpha\texttau\acctonos\textalpha\textlambda
+    \textomicron\textgamma\textomicron\textvarsigma{}
+    \textsigma\textchi\texteta\textmu\acctonos\textalpha\texttau\textomega\textnu}%
+  \def\listtablename{\textKappa\textalpha\texttau\acctonos\textalpha\textlambda
+    \textomicron\textgamma\textomicron\textvarsigma{}
+    \textpi\textiota\textnu\acctonos\textalpha\textkappa\textomega\textnu}%
+  \def\indexname{\textEpsilon\<\textupsilon\textrho\textepsilon\texttau
+    \acctonos\texteta\textrho\textiota\textomicron\textnu}%
+  \def\figurename{\textSigma\textchi\accperispomeni\texteta\textmu\textalpha}%
+  \def\tablename{\textPi\acctonos\textiota\textnu\textalpha\textxi}%
+  \def\partname{\textMu\acctonos\textepsilon\textrho\textomicron\textvarsigma}%
+  \def\enclname{\textSigma\textupsilon\textnu\texteta\textmu\textmu
+    \acctonos\textepsilon\textnu\textomega\textvarsigma}%
+  \def\ccname{\textKappa\textomicron\textiota\textnu\textomicron\textpi
+    \textomicron\acctonos\textiota\texteta\textsigma\textiota\textvarsigma}%
+  \def\headtoname{\textPi\textrho\accvaria\textomicron\textvarsigma}%
+  \def\pagename{\textSigma\textepsilon\textlambda\accvaria\textiota\textvarsigma}%
+  \def\seename{\<`\textomicron\textrho\textalpha}%
+  \def\alsoname{\<`\textomicron\textrho\textalpha{} \<\textomega\textsigma
+    \textalpha\acctonos\textupsilon\texttau\textomega\textvarsigma}%
+  \def\proofname{\>\textAlpha\textpi\acctonos\textomicron\textdelta\textepsilon
+    \textiota\textxi\textiota\textvarsigma}%
+  \def\glossaryname{\textGamma\textlambda\textomega\textsigma\textsigma
+    \acctonos\textalpha\textrho\textiota\textomicron\textnu}%
+ }
 \def\gr@month{%
   \ifcase\month\or
     \textIota\textalpha\textnu\textomicron\textupsilon\textalpha
@@ -300,7 +358,6 @@
     For correct up/down-casing of Greek text,\MessageBreak
     install the "polyglossia" package}%
   }
-  \addto\extraspolutonikogreek{} % prevent command missing error.
 }{}
 \@ifl@aded{def}{lgrenc}{%
   \begingroup
@@ -312,13 +369,32 @@
   \addto\extrasgreek{%
     \babel@savevariable{\lccode`v}\lccode`v=`v%
     \babel@savevariable{\lccode`\'}\lccode`\'=`\'%
-    \babel@savevariable{\lccode`\"}\lccode`\"=`\"}
+    \babel@savevariable{\lccode`\"}\lccode`\"=`\"%
+    % ``high bit characters'': set in a loop and correct exceptions
+    \@tempcnta=128
+    \@whilenum\@tempcnta<253\do{%
+      \babel@savevariable{\lccode\@tempcnta}\lccode\@tempcnta=\@tempcnta
+      \advance\@tempcnta\@ne
+      }
+    % Fix non-word characters:
+    \lccode151=0
+    \lccode155=0
+    \lccode159=0
+    \lccode199=0
+    % Fix capital letters:
+    \lccode195=147 % GREEK LETTER DIGAMMA
+    \lccode219=240 % GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
+    \lccode223=244 % GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
+    }
+
   \addto\extraspolutonikogreek{%
+    % \l@greek=\bbl@polygreek
     \babel@savevariable{\lccode`\<}\lccode`\<=`\<%
     \babel@savevariable{\lccode`\>}\lccode`\>=`\>%
     \babel@savevariable{\lccode`\~}\lccode`\~=`\~%
     \babel@savevariable{\lccode`\|}\lccode`\|=`\|%
-    \babel@savevariable{\lccode`\`}\lccode`\`=`\`}
+    \babel@savevariable{\lccode`\`}\lccode`\`=`\`
+    }
   \addto\extrasgreek{%
     \babel@savevariable{\uccode`\"}\uccode`\"=`\"%
     \babel@savevariable{\uccode`\'}\uccode`\'=159} %% 159 == ^^9f
@@ -327,18 +403,19 @@
     \babel@savevariable{\uccode`\>}\uccode`\>=159%
     \babel@savevariable{\uccode`\<}\uccode`\<=159%
     \babel@savevariable{\uccode`\|}\uccode`\|=`\|%
-    \babel@savevariable{\uccode`\`}\uccode`\`=159}
+    \babel@savevariable{\uccode`\`}\uccode`\`=159
+    }
   \@tempcnta=\lccode`\~
   \lccode`\~=159
   \lowercase{%
     \initiate@active@char{~}%
     \declare@shorthand{greek}{~}{}}
   \lccode`\~=\@tempcnta
-  \DeclareTextCompositeCommand{\"}{LGR}{^^9F}{\accdialytika}
-  \DeclareTextCompositeCommand{\'}{LGR}{^^9F}{\LGR@hiatus}
-  \DeclareTextCompositeCommand{\`}{LGR}{^^9F}{\LGR@hiatus}
-  \DeclareTextCompositeCommand{\<}{LGR}{^^9F}{\LGR@hiatus}
-  \DeclareTextCompositeCommand{\>}{LGR}{^^9F}{\LGR@hiatus}
+  \DeclareTextCompositeCommand{\"}{LGR}{^^9f}{\accdialytika}
+  \DeclareTextCompositeCommand{\'}{LGR}{^^9f}{\LGR@hiatus}
+  \DeclareTextCompositeCommand{\`}{LGR}{^^9f}{\LGR@hiatus}
+  \DeclareTextCompositeCommand{\<}{LGR}{^^9f}{\LGR@hiatus}
+  \DeclareTextCompositeCommand{\>}{LGR}{^^9f}{\LGR@hiatus}
   \addto\extraspolutonikogreek{\languageshorthands{greek}}%
   \declare@shorthand{greek}{~}{\greek@tilde}
 }{} % End of LGR-specific code.