summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/babel-greek
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-08-06 22:50:27 +0000
committerKarl Berry <karl@freefriends.org>2014-08-06 22:50:27 +0000
commita6e66f64c0294a969fc47bfa9c784cad40d0555c (patch)
tree3d908f5929a89a8c8b83103f0f522064ebac824d /Master/texmf-dist/tex/generic/babel-greek
parentc29bf84e74c53725373f5ae4f092b4864dbfa1d6 (diff)
babel-greek (5aug14)
git-svn-id: svn://tug.org/texlive/trunk@34857 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/babel-greek')
-rw-r--r--Master/texmf-dist/tex/generic/babel-greek/greek.ldf105
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.