summaryrefslogtreecommitdiff
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
parentc29bf84e74c53725373f5ae4f092b4864dbfa1d6 (diff)
babel-greek (5aug14)
git-svn-id: svn://tug.org/texlive/trunk@34857 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/texmf-dist/doc/generic/babel-greek/README9
-rw-r--r--Master/texmf-dist/doc/generic/babel-greek/README.html13
-rw-r--r--Master/texmf-dist/doc/generic/babel-greek/babel-greek.pdfbin252709 -> 257429 bytes
-rw-r--r--Master/texmf-dist/doc/generic/babel-greek/test-greek.pdfbin183472 -> 183339 bytes
-rw-r--r--Master/texmf-dist/doc/generic/babel-greek/test-greek.tex60
-rw-r--r--Master/texmf-dist/doc/generic/babel-greek/test-unicode-greek.pdfbin59837 -> 59808 bytes
-rw-r--r--Master/texmf-dist/doc/generic/babel-greek/test-unicode-greek.tex19
-rw-r--r--Master/texmf-dist/doc/generic/babel-greek/test-unicode-lgr.pdfbin39295 -> 37819 bytes
-rw-r--r--Master/texmf-dist/doc/generic/babel-greek/test-unicode-lgr.tex16
-rw-r--r--Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx241
-rw-r--r--Master/texmf-dist/tex/generic/babel-greek/greek.ldf105
11 files changed, 362 insertions, 101 deletions
diff --git a/Master/texmf-dist/doc/generic/babel-greek/README b/Master/texmf-dist/doc/generic/babel-greek/README
index 36ba8455ce6..3e4aa2ab90c 100644
--- a/Master/texmf-dist/doc/generic/babel-greek/README
+++ b/Master/texmf-dist/doc/generic/babel-greek/README
@@ -25,7 +25,7 @@ News
.. class:: borderless
-===== ========== ===========================================================
+===== ========== ============================================================
1.4 2013-05-17 New maintainer.
.. The encoding definition file ``lgrenc.def`` moved to the
greek-fontenc_ package.
@@ -45,7 +45,10 @@ News
.. Compatibility with Xe/LuaTeX in Unicode and 8-bit mode.
1.8a 2013-12-03 Set ``\encodingdefault`` in ``\greekscript`` to fix
Greek in footnotes etc. with document language Greek.
-===== ========== ===========================================================
+1.9 2014-07-20 Added attribute for ancient Greek, load correct hyphenation
+ patterns: Patch by Claudio Beccari. Bugfix for Makeuppercase
+
+===== ========== ============================================================
.. _babel/4303: http://www.latex-project.org/cgi-bin/ltxbugs2html?pr=babel/4303
@@ -77,7 +80,7 @@ Otherwise, make sure LaTeX can find the required files:
* Download and unpack `babel-greek.zip`.
-* Run ``tex`` or ``latex`` on the batch file ``greek.ins``.
+* Run ``tex`` or ``latex`` on the batch file ``babel-greek.ins``.
* Move all files ending in ``.ldf`` or ``.sty`` into a directory searched by
TeX.
diff --git a/Master/texmf-dist/doc/generic/babel-greek/README.html b/Master/texmf-dist/doc/generic/babel-greek/README.html
index adf7d7009c3..6fab0163d1f 100644
--- a/Master/texmf-dist/doc/generic/babel-greek/README.html
+++ b/Master/texmf-dist/doc/generic/babel-greek/README.html
@@ -6,8 +6,8 @@
<meta name="generator" content="Docutils 0.12: http://docutils.sourceforge.net/" />
<title>babel-greek</title>
<meta name="copyright" content="© 1997 Apostolos Syropoulos, Claudio Beccari, Johannes Brahms, © 2013 Günter Milde" />
-<link rel="stylesheet" href="../../../../../Python/docutils-svn/docutils/docutils/writers/html4strict/html4css1.css" type="text/css" />
-<link rel="stylesheet" href="../../../../../Python/docutils-svn/docutils/docutils/writers/html4strict/html4css2.css" type="text/css" />
+<link rel="stylesheet" href="../../../../../Code/Python/docutils-svn/docutils/docutils/writers/html4strict/html4css1.css" type="text/css" />
+<link rel="stylesheet" href="../../../../../Code/Python/docutils-svn/docutils/docutils/writers/html4strict/html4css2.css" type="text/css" />
</head>
<body>
<div class="document" id="babel-greek">
@@ -39,7 +39,7 @@ Greek language and script via the <a class="reference external" href="http://www
<table class="borderless">
<colgroup>
<col width="7%" />
-<col width="14%" />
+<col width="13%" />
<col width="80%" />
</colgroup>
<tbody>
@@ -112,6 +112,11 @@ shows the right documentation.</p></td>
<td><p>Set <tt class="literal">\encodingdefault</tt> in <tt class="literal">\greekscript</tt> to fix
Greek in footnotes etc. with document language Greek.</p></td>
</tr>
+<tr><td><p>1.9</p></td>
+<td><p>2014-07-20</p></td>
+<td><p>Added attribute for ancient Greek, load correct hyphenation
+patterns: Patch by Claudio Beccari. Bugfix for Makeuppercase</p></td>
+</tr>
</tbody>
</table>
</div>
@@ -132,7 +137,7 @@ manager.</p>
<p>Otherwise, make sure LaTeX can find the required files:</p>
<ul class="simple">
<li><p>Download and unpack <cite>babel-greek.zip</cite>.</p></li>
-<li><p>Run <tt class="literal">tex</tt> or <tt class="literal">latex</tt> on the batch file <tt class="literal">greek.ins</tt>.</p></li>
+<li><p>Run <tt class="literal">tex</tt> or <tt class="literal">latex</tt> on the batch file <tt class="literal"><span class="pre">babel-greek.ins</span></tt>.</p></li>
<li><p>Move all files ending in <tt class="literal">.ldf</tt> or <tt class="literal">.sty</tt> into a directory searched by
TeX.</p></li>
<li><p>To produce the documentation run the files <tt class="literal">usage.tex</tt> and all files
diff --git a/Master/texmf-dist/doc/generic/babel-greek/babel-greek.pdf b/Master/texmf-dist/doc/generic/babel-greek/babel-greek.pdf
index dcbbe84e439..85117e5d24f 100644
--- a/Master/texmf-dist/doc/generic/babel-greek/babel-greek.pdf
+++ b/Master/texmf-dist/doc/generic/babel-greek/babel-greek.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/generic/babel-greek/test-greek.pdf b/Master/texmf-dist/doc/generic/babel-greek/test-greek.pdf
index e4c9306d8df..0a54e6db66b 100644
--- a/Master/texmf-dist/doc/generic/babel-greek/test-greek.pdf
+++ b/Master/texmf-dist/doc/generic/babel-greek/test-greek.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/generic/babel-greek/test-greek.tex b/Master/texmf-dist/doc/generic/babel-greek/test-greek.tex
index 75db933b4f0..fd837430b08 100644
--- a/Master/texmf-dist/doc/generic/babel-greek/test-greek.tex
+++ b/Master/texmf-dist/doc/generic/babel-greek/test-greek.tex
@@ -2,11 +2,17 @@
\usepackage[LGR,T1]{fontenc}
% Xe/LuaTeX in 8-bit compatibility mode:
-% TODO: hyphenation in Greek text parts fails!
-\ifdefined \XeTeXrevision
+% hyphenation in Greek text parts fails!
+% (would require the 8-bit, LGR-encoded patterns in the XeTeX ini and a
+% loader fix for luatex).
+
+% TODO: why does XeTeXinputencoding "bytes" no longer work with inputenc's
+% utf8 option?
+\ifdefined \XeTeXrevision
\XeTeXinputencoding "bytes"
\fi
-\ifdefined\luatexversion
+
+\ifdefined\luatexversion
\usepackage[utf8]{luainputenc}
\else
\usepackage[utf8]{inputenc}
@@ -21,9 +27,26 @@
% \usepackage{kerkis}
% \usepackage{gfsdidot}
+% Load the Babel package with Greek and English language definitions:
+%
+% Uncomment the desired language variant
+
+% Default: modern monotonic Greek
\usepackage[greek,english]{babel}
+% Obsolete: used instead of `greek', kept for backwards compatibility:
+% \usepackage[polutonikogreek,english]{babel}
+
+% For backwards compatibility, you can also use
+% \selectlanguage{polutonikogreek} instead of \selectlanguage{greek} etc.
+% if the (modern) polytonic Greek language variant is selected.
+
+% uncomment for modern polytonic Greek
% \languageattribute{greek}{polutoniko}
-\message{Latin encoding is \latinencoding}
+
+% uncomment for ancient Greek
+\languageattribute{greek}{ancient}
+
+% \message{Latin encoding is \latinencoding}
\DeclareTextCommandDefault{\ensuregreek}{\textgreek}
@@ -46,7 +69,7 @@ The declaration \verb|\selectlanguage| switches between languages.
\end{quote}
The macro \verb|\foreignlanguage| sets its second argument in the specified
-language. This is intended for short text parts like
+language. This is intended for short text parts like
\foreignlanguage{greek}{Βιβλιοθήκη}.
\section{Font Encoding}
@@ -86,13 +109,13 @@ To prevent Roman numerals being typeset in Greek letters we need to adopt
the internal LaTeX commands. Note that this may cause errors when roman
numerals are used in a situation where the macros need to be expanded:
-\makeatletter
+\makeatletter
Greek: \ensuregreek{
\@roman{1}, \@roman{2}, \@roman{3}, \@roman{4}, \ldots, \@roman{1975}
\@Roman{1}, \@Roman{2}, \@Roman{3}, \@Roman{4}, \ldots, \@Roman{1975}
}
-Latin:
+Latin:
\@roman{1}, \@roman{2}, \@roman{3}, \@roman{4}, \ldots, \@roman{1975}
\@Roman{1}, \@Roman{2}, \@Roman{3}, \@Roman{4}, \ldots, \@Roman{1975}
\makeatother
@@ -108,14 +131,19 @@ all input variants of diacritics with dialytika. (Babel has ``composite
command'' definitions to ensure this also works for accent characters
"upcased" to the charcter No 159.)
-\foreignlanguage{greek}{\"i \"'i \"`i \"~i \'"i \`"i \~"i
- \"u \"\'u \"\`u \"\~u
-$\mapsto$ \MakeUppercase{\"i \"'i \"`i \"~i \'"i \`"i \~"i
- \"u \"\'u \"\`u \"\~u }}
+\foreignlanguage{greek}{\"i \"'i \"`i \"~i \'"i \`"i \~"i
+ \"u \"\'u \"\`u \"\~u
+ ϊ ΐ ῒ ῗ ΐ ῒ ῗ ϋ ΰ ῢ ῧ
+ $\mapsto$ \MakeUppercase{\"i \"'i \"`i \"~i \'"i \`"i \~"i
+ \"u \"\'u \"\`u \"\~u
+ ϊ ΐ ῒ ῗ ΐ ῒ ῗ ϋ ΰ ῢ ῧ
+ }
+}
+
Tonos and dasia mark a \emph{hiatus} (break-up of a diphtong) if
-placed on the first vowel of a diphtong
-(\ensuregreek{\'ai, \'au, \'ei, \'>ai, \>'au, \>'ei}).
+placed on the first vowel of a diphtong
+(\ensuregreek{\'ai, \'au, \'ei, \'>ai, \>'au, \>'ei}).
A dialytika must be placed on the second vowel if they are dropped:
(\ensuregreek{\MakeUppercase{\'ai, \'au, \'ei, \'>ai, \>'au, \>'ei}}).
@@ -173,7 +201,7 @@ MakeLowercase:
The lowercase of \ensuregreek{Σ} is the «auto-sigma» (\verb+\textautosigma+):
\ensuregreek{ΣΣ $\mapsto$ \MakeLowercase{ΣΣ}}. Add a ZWNJ or use the
\verb+\noboundary+ macro to prevent conversion to final sigma:
-\ensuregreek{\MakeLowercase{ΣΣ‌}}. The lowercase of GREEK LETTER STIGMA
+\ensuregreek{\MakeLowercase{ΣΣ‌}}. The lowercase of GREEK LETTER STIGMA
\ensuregreek{Ϛ} is \ensuregreek{\MakeLowercase{Ϛ}} not \verb|\textvarstigma|
(\ensuregreek\textvarstigma).
@@ -199,7 +227,7 @@ Characters of the Greek extended Unicode block:
῀ ῁ ῂ ῃ ῄ ῆ ῇ Ὲ Έ Ὴ Ή ῌ ῍ ῎ ῏ \\
ῐ ῑ ῒ ΐ ῖ ῗ Ῐ Ῑ Ὶ Ί ῝ ῞ ῟ \\
ῠ ῡ ῢ ΰ ῤ ῥ ῦ ῧ Ῠ Ῡ Ὺ Ύ Ῥ ῭ ΅ ` \\
- ῲ ῳ ῴ ῶ ῷ Ὸ Ό Ὼ Ώ ῼ ´ ῾
+ ῲ ῳ ῴ ῶ ῷ Ὸ Ό Ὼ Ώ ῼ ´ ῾
\selectlanguage{english}
MakeUppercase:
@@ -344,7 +372,7 @@ Some examples:
Enumerated lists use Greek numerals in the second and fourth level:
-\selectlanguage{greek}
+\selectlanguage{greek}
\begin{enumerate}
\item \textlatin{Item} 1
\begin{enumerate}
diff --git a/Master/texmf-dist/doc/generic/babel-greek/test-unicode-greek.pdf b/Master/texmf-dist/doc/generic/babel-greek/test-unicode-greek.pdf
index 318f4776189..fa977e2bf0c 100644
--- a/Master/texmf-dist/doc/generic/babel-greek/test-unicode-greek.pdf
+++ b/Master/texmf-dist/doc/generic/babel-greek/test-unicode-greek.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/generic/babel-greek/test-unicode-greek.tex b/Master/texmf-dist/doc/generic/babel-greek/test-unicode-greek.tex
index e0e233f03d5..65f6e606338 100644
--- a/Master/texmf-dist/doc/generic/babel-greek/test-unicode-greek.tex
+++ b/Master/texmf-dist/doc/generic/babel-greek/test-unicode-greek.tex
@@ -11,6 +11,7 @@
\usepackage[greek,english]{babel}
% \languageattribute{greek}{polutoniko}
+\languageattribute{greek}{ancient}
\message{greek-euenc ist}
\makeatletter
@@ -76,12 +77,14 @@ command which in turn calls \verb|\latintext|. (For customization, you can
add to or redefine the \verb|\noextrasgreek| command.)
% don't change the font encoding.
-Latin characters can be used in Greek text parts,
-input via the Latin transcription defined in LGR is not possible.%
+With the Unicode font encodings EU1 (XeTeX) or EU2 (LuaTeX),
+Latin characters can be used in Greek text parts and
+input via the «CB Latin transcription» is not possible.%
\footnote{%
The \emph{xunicode} package provides with the \texttt{tipa} emulation an
- example how this could be achieved if really required.
- }
+ example how this could be achieved also for Unicode fonts. Alternatively,
+ LGR encoded fonts can be used (see test-unicode-lgr.tex).
+}
\begin{quote}
\greekscript Φίλων τοῦ \textlatin{TeX} (ΕΦΤ) --
@@ -380,8 +383,11 @@ Enumerated lists use Greek characters/numerals in the second and fourth level:
This may be problematic with fonts that only partially support Greek and
-miss the numeral signs (dexiakeraia and aristerikeraia). If you prefer the
-"normal" enumeration, write in the preamble after loading babel:
+miss the numeral signs (dexiakeraia and aristerikeraia).
+You may redefine the commands \verb+\textdexiakeraia+ and
+\verb+\textaristerikeraia+ to some substitute characters.
+Or, if you prefer the "normal" enumeration, write in the preamble after
+loading babel:
\begin{verbatim}
\makeatletter
@@ -390,4 +396,5 @@ miss the numeral signs (dexiakeraia and aristerikeraia). If you prefer the
\makeatother
\end{verbatim}
+
\end{document}
diff --git a/Master/texmf-dist/doc/generic/babel-greek/test-unicode-lgr.pdf b/Master/texmf-dist/doc/generic/babel-greek/test-unicode-lgr.pdf
index 6dc3bd1b53a..1c25d9e249f 100644
--- a/Master/texmf-dist/doc/generic/babel-greek/test-unicode-lgr.pdf
+++ b/Master/texmf-dist/doc/generic/babel-greek/test-unicode-lgr.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/generic/babel-greek/test-unicode-lgr.tex b/Master/texmf-dist/doc/generic/babel-greek/test-unicode-lgr.tex
index 5e5711f2313..95f85ceb733 100644
--- a/Master/texmf-dist/doc/generic/babel-greek/test-unicode-lgr.tex
+++ b/Master/texmf-dist/doc/generic/babel-greek/test-unicode-lgr.tex
@@ -5,13 +5,13 @@
% Declare the font encoding and Greek LICR definitions:
\usepackage[LGR]{fontenc}
-\usepackage{textalpha}[2013/09/11]
% Set up Latin Modern OpenType unicode font
\usepackage{fontspec}
\usepackage[greek,english]{babel}
% \languageattribute{greek}{polutoniko}
+% \languageattribute{greek}{ancient}
% use LGR (8-bit CB-fonts) instead of Unicode fonts for Greek:
% \renewcommand*{\greekscript}{\fontencoding{LGR}\selectfont}
@@ -30,7 +30,7 @@ Typesetting Greek texts requires a font containing Greek letters. With the
XeTeX or LuaTeX engines, the user must ensure that the selected font
contains the required glyphs (the default Latin Modern fonts miss them).
-Latin Modern can combined with the matching CB-Greek 8-bit font. For the
+Latin Modern can be combined with the matching CB-Greek 8-bit font. For the
setup, see the preamble of this document \texttt{test-unicode-lgr.tex}
Caveat: Currently, hyphenation does not work with this setup. Use it only
@@ -258,16 +258,4 @@ Enumerated lists use Greek characters/numerals in the second and fourth level:
\end{enumerate}
\selectlanguage{english}
-
-This may be problematic with fonts that only partially support Greek and
-miss the numeral signs (dexiakeraia and aristerikeraia). If you prefer the
-"normal" enumeration, write in the preamble after loading babel:
-
-\begin{verbatim}
- \makeatletter
- \addto\extrasgreek{\let\@alph\latin@alph
- \let\@Alph\latin@Alph}
- \makeatother
-\end{verbatim}
-
\end{document}
diff --git a/Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx b/Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx
index aaacb299664..e3ccbf74ec0 100644
--- a/Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx
+++ b/Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx
@@ -1,4 +1,5 @@
% \iffalse meta-comment
+% !TEX encoding = UTF-8 Unicode
%
% Copyright 1989-2008 Apostolos Syropoulos, Johannes L. Braams
% and the authors listed elsewhere in this file. All rights reserved.
@@ -25,7 +26,7 @@
% and covered by LPPL is defined by the unpacking script (babel-greek.ins)
% which is part of the package.
% \fi
-% \CheckSum{1218}
+% \CheckSum{1558}
%
% \iffalse
% Tell the \LaTeX\ system who we are and write an entry on the
@@ -36,12 +37,12 @@
%<code>\ProvidesLanguage{greek}
%\fi
%\ProvidesFile{babel-greek.dtx}
- [2013/12/03 v1.8a Greek support for the babel system]
+ [2014/07/20 v1.9 Greek support for the babel system]
%\iffalse
%% 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>
%
@@ -108,6 +109,8 @@
% New TextCommands ``greekscript'' and ``ensuregreek''.}
% \changes{greek-1.8a}{2013/12/03}{Set `encodingdefault' in `greekscript'
% to fix Greek in footnotes etc. with document language Greek.}
+% \changes{greek-1.9}{2014/07/20}{Added attribute for ancient Greek.
+% Load correct hyphenation patterns. Patch by Claudio Beccari.}
%
% \title{Babel support for the Greek language}
% \author{Apostolos Syropoulos, Günter Milde}
@@ -126,22 +129,22 @@
% \texttt{dak@neuroinformatik.ruhr-uni-bochum.de} was used to
% enhance the support for typesetting greek texts.} defines all the
% language definition macros for the Greek language, i.e.,
-% as it used today with only one accent, and the attribute
+% as it is used today with only one accent, and the attribute
% \Lopt{polutoniko} for typesetting greek text with all accents
% (classical and polytonic Greek).
%
% \section{Requirements}
-%
-% Typesetting Greek with Babel requires (of course) the
+%
+% Typesetting Greek with Babel requires (of course) the
% \href{http://www.ctan.org/pkg/babel}{Babel core}, support for Greek font
% encodings (\href{http://www.ctan.org/pkg/greek-fontenc}{greek-fontenc})
% and a font supporting the Greek script.
-%
+%
% The \href{http://www.ctan.org/pkg/cbgreek-complete}{CB Greek fonts}
% created by \textsc{Claudio Beccari}\footnote{Apostolos Syropoulos
% wishes to thank Claudio Beccari for his
% patience, collaboration, comments and suggestions.}
-% are a complete set of 8-bit TeX fonts matching \textsc{Knuth}'s
+% are a complete set of 8-bit TeX fonts matching \textsc{Knuth}'s
% Computer Modern.
% The package \pkg{\href{http://www.ctan.org/pkg/cbfonts-fd}{cbfonts-fd}}
% sets them up as Greek substitute for the Computer Modern and Latin Modern
@@ -154,8 +157,8 @@
% default font for XeTeX/LuaTeX does not support the Greek script. The user
% needs to set up an alternative font like Linux Libertine or DejaVu with
% \pkg{\href{http://www.ctan.org/pkg/fontspec}{fontspec}}.
-
-% \section{Usage}
+%
+% \section{Usage}
%
% To activate Greek support with babel, specify the option
% \Lopt{greek}, either as global option or as option to the
@@ -163,20 +166,45 @@
% option determines the document language, e.g.
% \begin{verbatim}
% \usepackage[greek,english]{babel}\end{verbatim}
-% activates support for Greek in an English document while
+% activates support for Greek in an English document.
+% The default is modern ``monotonic'' Greek, while
+% \begin{verbatim}
+% \usepackage[english,greek]{babel}
+% \languageattribute{greek}{polutoniko}
+% \end{verbatim}
+% sets the document language to modern Greek with ``polytonic''
+% spelling and
+% \begin{verbatim}
+% \usepackage[english,greek]{babel}
+% \languageattribute{greek}{ancient}
+% \end{verbatim}
+% sets the document language to ancient Greek.
+%
+% Both attributes may also be used as modifiers as in
+% \begin{verbatim}
+% \usepackage[greek.polytoniko,english]{babel}
+% \end{verbatim}
+% and similarly
% \begin{verbatim}
-% \usepackage[english,greek]{babel}
-% \languageattribute{greek}{polutoniko}\end{verbatim}
-% sets the document language to Greek with ``polytonic''
-% spelling of auto-generated strings.
+% \usepackage[greek.ancient,english]{babel}
+% \end{verbatim}
+%
+% Version 1.9 fixes the activation of hyphenation patterns: By default,
+% \pkg{babel-greek} activates the modern Greek monotonic hyphenation;
+% the attribute/modifier |polutoniko| activates the modern Greek
+% polytonic hyphenation and the attribute/modifier |ancient| activates
+% the ancient Greek hyphenation. 8-bit TeX and XeTeX requires the
+% hyphenation patterns to be pre-loaded in the format file.
+% This is a limitation by TeX, common to all languages.
+% The LuaTeX engine loads hyphenation patterns on demand.
%
% \DescribeMacro\selectlanguage
% \DescribeMacro\foreignlanguage
% The Babel core provides two commands to switch the active language:
-% The declaration \verb|\selectlanguage{greek}| switches to the Greek languages.
+% The declaration |\selectlanguage{greek}| switches to the Greek language.
% The macro \verb|\foreignlanguage{greek}{<some text>}| sets its second argument
% in the Greek language. This is intended for short text parts.
-% For details see the \href{http://www.ctan.org/pkg/babel}{Babel} documentation.
+% For details see the \href{http://www.ctan.org/pkg/babel}{Babel} documentation.
%
% For backwards compatibility, ``polytonic'' spelling can also be
% selected via the dummy language \Lopt{polutonikogreek}. In this
@@ -187,13 +215,13 @@
%
% \subsection{Input of Greek text}
%
-% There are several alternatives for input of Greek text.
+% There are several alternatives to write Greek text.
% \begin{itemize}
% \item With the packages \pkg{inputenc} and
% \pkg{\href{http://www.ctan.org/pkg/greek-inputenc}{greek-inputenc}},
% literal Greek characters can be input using the utf-8, iso-8859-7,
% or macgreek encoding.
-%
+%
% Literal input using the utf-8 encoding is also the standard input
% method if compiling with the XeTeX and LuaTeX engines.
%
@@ -204,10 +232,10 @@
% \pkg{\href{http://www.ctan.org/pkg/greek-fontenc}{greek-fontenc}}
% defines \emph{LaTeX internal character representation} (LICR) macros
% for Greek letters and text symbols. It is required by \pkg{babel-greek},
-% so the |\textAlpha| \ldots |\textomega|
-% macros are a save but cumbersome method to input Greek characters.
+% so the |\textAlpha| \ldots |\textomega|
+% macros are a safe but cumbersome method to input Greek characters.
%
-% \item The \pkg{alphabeta} package bundled with
+% \item The \pkg{alphabeta} package bundled with
% \href{http://www.ctan.org/pkg/greek-fontenc}{greek-fontenc} makes the
% short macro names |\Alpha| \ldots |\omega| available in text mode, too.
% \end{itemize}
@@ -219,9 +247,9 @@
% Greek script is supported.
% With 8-bit LaTeX, Greek text fonts use a non-standard
% font encoding\footnote{LaTeX font encodings are described in
-% the \emph{LaTeX font guide} (fntguide.pdf).}
+% the \emph{LaTeX font guide} (fntguide.pdf).}
% (LGR) that misses Latin letters. Latin characters in the source are
-% instead interpreted as a transcription for Greek symbols.
+% instead interpreted as a transcription for Greek characters.
% The following macros allow the use of Greek vs. Latin script without
% changing the active language.
% \DescribeMacro\greekscript
@@ -318,16 +346,35 @@
\gdef\CurrentOption{greek}%
% \end{macrocode}
%
+% Hyphenation patterns:
% When this file is read as an option, i.e. by the |\usepackage|
% command, \texttt{greek} could be an `unknown' language in
% which case we have to make it known. So we check for the
-% existence of |\l@greek| to see whether we have to do
-% something here.
-%
+% existence of the three variants of the Greek language
+% |\l@greek|, |\l@monogreek|, and |l@ancientgreek| to see whether
+% we have to do something here.
+% \changes{greek-1.9}{2014/07/20}{Support all 3 language (hyphenation)
+% variants.}
% \begin{macrocode}
\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
+% \end{macrocode}
+% The |\extrasgreek| macro is called when switching the language to Greek.
+% We collect code for polytonic and ancient greek in the macros
+% |extraspolutonikogreek| and |extrasancientgreek| and it later to
+% |extrasgreek|.
+% \begin{macrocode}
+\addto\extrasgreek{\let\l@greek\bbl@monogreek\relax}
+\addto\extraspolutonikogreek{\l@greek=\bbl@polygreek}
+\addto\extrasancientgreek{\l@greek=\bbl@ancientgreek}
% \end{macrocode}
%
% Now we declare the |polutoniko| language attribute.
@@ -336,16 +383,19 @@
% \end{macrocode}
% This code adds the expansion of |\extraspolutonikogreek| to
% |\extrasgreek| and changes the definition of |\today| for Greek
-% to produce polytonic month names.
+% to produce polytonic month names (by re-defining |\gr@month|).
% \begin{macrocode}
\expandafter\addto\expandafter\extrasgreek
- \expandafter{\extraspolutonikogreek}%
+ \expandafter{\extraspolutonikogreek}%
\let\captionsgreek\captionspolutonikogreek
\let\gr@month\gr@c@month
% \end{macrocode}
% We need to take some extra precautions in order not to break
% older documents which still use the old \Lopt{polutonikogreek}
-% option.
+% pseuso-language option: language switching commands like
+% |\selectlanguage{polutonikogreek}|, call the
+% |extraspolutonikogreek| macro, set the language to |\l@polutonikogreek|
+% and use |\datepolutonikogreek| for |\today|. We define aliases:
% \changes{greek-1.3f}{1999/09/29}{Added some code to make older
% documents work}
% \changes{greek-1.3g}{2000/02/04}{\cs{noextraspolutonikogreek} was
@@ -357,12 +407,32 @@
\let\noextraspolutonikogreek\noextrasgreek
}
% \end{macrocode}
+% The |ancient| language attribute is used for classical Greek.
+% \changes{greek-1.9}{2014/07/20}{Add support for ancient Greek.}
+% \begin{macrocode}
+\bbl@declare@ttribute{greek}{ancient}{%
+% \end{macrocode}
+% This attribute adds the expansion of |\extraspolutonikogreek| and
+% |\extrasancientgreek| to |\extrasgreek| to set up support for
+% multi-accented characters and ancient hyphenation patterns.
+% Auto-strings (captions) are specific to ancient Greek while |\today|
+% uses modern polytonic month names (as there existed incompatible
+% sets of month names and no common calendar in ancient Greece.
+% \begin{macrocode}
+ \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
+ }
+% \end{macrocode}
%
% \section{Font setup}
%
% Typesetting Greek texts requires a font with Greek characters:
%
-% For 8-bit LaTeX, this package uses fonts with the
+% For 8-bit LaTeX, this package uses fonts with the
% \href{http://www.ctan.org/pkg/greek-fontenc}{LGR font encoding}.
% With the XeTeX or LuaTeX engines and Unicode fonts, the user must ensure
% that the selected font contains the required glyphs.
@@ -377,7 +447,7 @@
% \changes{greek-1.5}{2013/06/21}{LGR setup skipped with XeTeX/LuaTeX}
% \changes{greek-1.7}{2013/09/09}{Do not load euenc.def with XeTeX/LuaTeX
% (too complicated to get it right).}
-% \changes{greek-1.8}{2013/11/30}{Check for EU1/EU2 font encoding
+% \changes{greek-1.8}{2013/11/30}{Check for EU1/EU2 font encoding
% instead of engine}
%
% \DescribeMacro\greekfontencoding
@@ -465,7 +535,7 @@
% \changes{greek-1.5}{2013/05/27}{enable use of "textcomp" characters
% for "textcopyright" and "textregistered" macros}
% \changes{greek-1.5}{2013/06/15}{\textbackslash & made TextCommand}
-%
+%
% \begin{macrocode}
\ProvideTextCommand{\textcopyright}{LGR}{\textlatin{\textcopyright}}
\ProvideTextCommand{\textregistered}{LGR}{\textlatin{\textregistered}}
@@ -544,7 +614,7 @@
% \end{macrocode}
% \end{macro}
%
-% \section{Definitions for the Greek language}
+% \section{Definitions for the Greek language}
%
% The next step consists in defining commands to switch to (and
% from) the Greek language.
@@ -646,6 +716,59 @@
% \end{macrocode}
% \end{macro}
%
+% \changes{babel-greek-1.9}{2014/07/20}{Added caption names for
+% \cs{ancientgreek}}
+%
+% \begin{macro}{\captionsancientgreek}
+% For texts written in ancient Greek, we took
+% the translations from Apostolos Syropoulos' |xgreek| package. For
+% now we just add extra definitions to |\captionsgreek| in order to
+% override the earlier definitions.
+% \begin{macrocode}
+\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}%
+ }
+% \end{macrocode}
+% \end{macro}
+%
% \begin{macro}{\gr@month}
% \changes{greek-1.1e}{1997/10/12}{Macro added}
% \begin{macro}{\dategreek}
@@ -960,7 +1083,6 @@
For correct up/down-casing of Greek text,\MessageBreak
install the "polyglossia" package}%
}
- \addto\extraspolutonikogreek{} % prevent command missing error.
}{}
% \end{macrocode}
%
@@ -1018,17 +1140,45 @@
% greek}
% \changes{greek-1.3e}{1999/09/24}{\cs{extrasgreek} and
% \cs{extraspolutonikogreek} should be complementary}
+% \changes{babel-greek-1.9}{2014/07/20}{Added lc codes for chars 128 to 255}
+% In order to process the suitable characters and in such a way that
+% hyphenation patterns work also with precomposed characters, it is
+% necessary to declare the lc code for all characters, that can be part
+% of a word. We do this in |\extrasgreek| because this is a feature of
+% the LGR font encoding (which is the same in all language variants).
+% This means that multi-accented characters are regarded parts of a word
+% (and not non-word characters) also in monotonic spelling.
+%
% \begin{macrocode}
\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`\`=`\`
+ }
% \end{macrocode}
% And in order to get rid of all accents and breathings when a
% string is |\uppercase|d we also change a number of uppercase
@@ -1059,7 +1209,8 @@
\babel@savevariable{\uccode`\>}\uccode`\>=159%
\babel@savevariable{\uccode`\<}\uccode`\<=159%
\babel@savevariable{\uccode`\|}\uccode`\|=`\|%
- \babel@savevariable{\uccode`\`}\uccode`\`=159}
+ \babel@savevariable{\uccode`\`}\uccode`\`=159
+ }
% \end{macrocode}
% For this to work we make the character |^^9f| a shorthand that
% expands to nothing. In order for this to work we need to make a
@@ -1092,12 +1243,14 @@
% \changes{greek-1.5}{2013/05/27}{Bugfix: @hiatus->LGR@hiatus}
% \changes{greek-1.5a}{2013/07/02}{Replaced non-printable literal character
% with ^^-notation (thanks to Heiko Oberdiek for the hint).}
+% \changes{greek-1.9}{2014/07/20}{The |^^|-notation seems to require lower case
+% letters. |^^9F| failed.}
% \begin{macrocode}
- \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}
% \end{macrocode}
%
% We can also make the tilde character itself expand to a tilde with
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.