summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx')
-rw-r--r--Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx107
1 files changed, 54 insertions, 53 deletions
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 e3ccbf74ec0..bf6e926da4e 100644
--- a/Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx
+++ b/Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx
@@ -37,7 +37,7 @@
%<code>\ProvidesLanguage{greek}
%\fi
%\ProvidesFile{babel-greek.dtx}
- [2014/07/20 v1.9 Greek support for the babel system]
+ [2014/09/18 v1.9b Greek support for the babel system]
%\iffalse
%% File `babel-greek.dtx'
%% Greek language Definition File
@@ -50,7 +50,7 @@
% code for the greek language definition file. The original
% version of this file was written by Apostolos Syropoulos.
% It was then enhanced by adding code from kdgreek.sty from David
-% Kastrup <dak@neuroinformatik.ruhr-uni-bochum.de> with his
+% Kastrup <dak@gnu.org> with his
% consent.
%<*filedriver>
\documentclass{ltxdoc}
@@ -58,9 +58,7 @@
\usepackage[utf8]{inputenc}
\usepackage{hyperref,bookmark}
\hypersetup{colorlinks=true,linkcolor=blue,urlcolor=blue,citecolor=black}
-\newcommand*{\TeXhax}{\TeX hax}
\newcommand*{\babel}{\textsf{babel}}
-\newcommand*{\langvar}{$\langle \mathit lang \rangle$}
\newcommand*{\note}[1]{}
\newcommand*{\Lopt}[1]{\textsf{#1}}
\newcommand*{\file}[1]{\texttt{#1}}
@@ -111,6 +109,10 @@
% 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.}
+% \changes{greek-1.9b}{2014/09/18}{Remove spurious whitespace from
+% `extrasgreek' definition (report Eike Schmidt).
+% Use named macros instead of non-standard short accent macros for
+% psili and dasia.}
%
% \title{Babel support for the Greek language}
% \author{Apostolos Syropoulos, Günter Milde}
@@ -121,24 +123,22 @@
% system. See the \href{README.html}{README} file for an overwiew of the
% \pkg{babel-greek} package and links to requirements and related packages.
%
-% The file \file{\filename}\footnote{The file described in this
-% section has version number \fileversion\ and was last revised on
-% \filedate. The original author is Apostolos Syropoulos
-% (\texttt{apostolo@platon.ee.duth.gr}), code from
-% \file{kdgreek.sty} by David Kastrup
-% \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 is used today with only one accent, and the attribute
-% \Lopt{polutoniko} for typesetting greek text with all accents
-% (classical and polytonic Greek).
+% The file \file{\filename}%
+% \footnote{
+% The file described in this section has version number \fileversion\
+% and was last revised on \filedate.
+% The original author is Apostolos Syropoulos, code from \file{kdgreek.sty}
+% by David Kastrup was used.}
+% is the literate source for the Babel language definition file
+% \file{greek.ldf}.
%
% \section{Requirements}
%
% 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.
+% and a \href{README.html#greek-text-fonts}{text 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
@@ -182,7 +182,7 @@
%
% Both attributes may also be used as modifiers as in
% \begin{verbatim}
-% \usepackage[greek.polytoniko,english]{babel}
+% \usepackage[greek.polutoniko,english]{babel}
% \end{verbatim}
% and similarly
% \begin{verbatim}
@@ -343,7 +343,7 @@
% When the option \Lopt{polutonikogreek} was used, redefine
% |\CurrentOption| to prevent problems later on.
% \begin{macrocode}
-\gdef\CurrentOption{greek}%
+\gdef\CurrentOption{greek}
% \end{macrocode}
%
% Hyphenation patterns:
@@ -369,7 +369,7 @@
% \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
+% |extraspolutonikogreek| and |extrasancientgreek| and add it later to
% |extrasgreek|.
% \begin{macrocode}
\addto\extrasgreek{\let\l@greek\bbl@monogreek\relax}
@@ -413,7 +413,7 @@
\bbl@declare@ttribute{greek}{ancient}{%
% \end{macrocode}
% This attribute adds the expansion of |\extraspolutonikogreek| and
-% |\extrasancientgreek| to |\extrasgreek| to set up support for
+% |\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
@@ -510,7 +510,7 @@
% EU1 and EU2 so that |\latintext| under XeTeX/LuaTeX does not prevent the
% use of Unicode fonts.
% \begin{macrocode}
-\AtBeginDocument{
+\AtBeginDocument{%
\@ifl@aded{def}{eu1enc}{\xdef\latinencoding{EU1}}{}% XeTeX
\@ifl@aded{def}{eu2enc}{\xdef\latinencoding{EU2}}{}% LuaTeX
}
@@ -616,8 +616,8 @@
%
% \section{Definitions for the Greek language}
%
-% The next step consists in defining commands to switch to (and
-% from) the Greek language.
+% The next step consists in defining commands to switch to (and
+% from) the Greek language.
%
% \begin{macro}{\greekhyphenmins}
% This macro is used to store the correct values of the hyphenation
@@ -702,15 +702,15 @@
% \begin{macrocode}
\let\captionspolutonikogreek\captionsgreek
\addto\captionspolutonikogreek{%
- \def\refname{\>\textAlpha\textnu\textalpha
+ \def\refname{\accpsili\textAlpha\textnu\textalpha
\textphi\textomicron\textrho\accvaria\textepsilon\textfinalsigma}%
- \def\indexname{\textEpsilon\<\textupsilon\textrho\textepsilon
+ \def\indexname{\textEpsilon\accdasia\textupsilon\textrho\textepsilon
\texttau\acctonos\texteta\textrho\textiota\textomicron}%
\def\figurename{\textSigma\textchi\accperispomeni\texteta\textmu\textalpha}%
\def\headtoname{\textPi\textrho\accvaria\textomicron\textfinalsigma}%
\def\alsoname{\textbeta\textlambda\acctonos\textepsilon\textpi\textepsilon{}
- \>\textepsilon\textpi\acctonos\textiota\textsigma\texteta\textfinalsigma}%
- \def\proofname{\>\textAlpha\textpi\acctonos\textomicron
+ \accpsili\textepsilon\textpi\acctonos\textiota\textsigma\texteta\textfinalsigma}%
+ \def\proofname{\accpsili\textAlpha\textpi\acctonos\textomicron
\textdelta\textepsilon\textiota\textxi\texteta}%
}
% \end{macrocode}
@@ -729,7 +729,7 @@
\addto\captionsancientgreek{%
\def\prefacename{\textPi\textrho\textomicron\textomicron\acctonos\textiota\textmu
\textiota\textomicron\textnu}%
- \def\refname{\>\textAlpha\textnu\textalpha\textphi\textomicron\textrho
+ \def\refname{\accpsili\textAlpha\textnu\textalpha\textphi\textomicron\textrho
\textalpha\accvaria\textiota}%
\def\abstractname{\textPi\textepsilon\textrho\acctonos\textiota\textlambda\texteta
\textpsi\textiota\textvarsigma}%
@@ -747,7 +747,7 @@
\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
+ \def\indexname{\textEpsilon\accdasia\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}%
@@ -758,10 +758,10 @@
\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
+ \def\seename{\accdasiavaria\textomicron\textrho\textalpha}%
+ \def\alsoname{\accdasiavaria\textomicron\textrho\textalpha{} \accdasia\textomega\textsigma
\textalpha\acctonos\textupsilon\texttau\textomega\textvarsigma}%
- \def\proofname{\>\textAlpha\textpi\acctonos\textomicron\textdelta\textepsilon
+ \def\proofname{\accpsili\textAlpha\textpi\acctonos\textomicron\textdelta\textepsilon
\textiota\textxi\textiota\textvarsigma}%
\def\glossaryname{\textGamma\textlambda\textomega\textsigma\textsigma
\acctonos\textalpha\textrho\textiota\textomicron\textnu}%
@@ -824,24 +824,24 @@
% \begin{macrocode}
\def\gr@c@month{%
\ifcase\month\or
- \>\textIota\textalpha\textnu\textomicron\textupsilon\textalpha
+ \accpsili\textIota\textalpha\textnu\textomicron\textupsilon\textalpha
\textrho\acctonos\textiota\textomicron\textupsilon \or
\textPhi\textepsilon\textbeta\textrho\textomicron\textupsilon
\textalpha\textrho\acctonos\textiota\textomicron\textupsilon \or
\textMu\textalpha\textrho\texttau\acctonos\textiota\textomicron
\textupsilon \or
- \>\textAlpha\textpi\textrho\textiota\textlambda
+ \accpsili\textAlpha\textpi\textrho\textiota\textlambda
\acctonos\textiota\textomicron\textupsilon \or
\textMu\textalpha\"'\textiota\textomicron\textupsilon \or
- \>\textIota\textomicron\textupsilon\textnu
+ \accpsili\textIota\textomicron\textupsilon\textnu
\acctonos\textiota\textomicron\textupsilon \or
- \>\textIota\textomicron\textupsilon\textlambda
+ \accpsili\textIota\textomicron\textupsilon\textlambda
\acctonos\textiota\textomicron\textupsilon \or
- \textAlpha\>\textupsilon\textgamma\textomicron\acctonos
+ \textAlpha\accpsili\textupsilon\textgamma\textomicron\acctonos
\textupsilon\textsigma\texttau\textomicron\textupsilon \or
\textSigma\textepsilon\textpi\texttau\textepsilon\textmu\textbeta
\textrho\acctonos\textiota\textomicron\textupsilon \or
- \>\textOmicron\textkappa\texttau\textomega\textbeta
+ \accpsili\textOmicron\textkappa\texttau\textomega\textbeta
\textrho\acctonos\textiota\textomicron\textupsilon \or
\textNu\textomicron\textepsilon\textmu\textbeta
\textrho\acctonos\textiota\textomicron\textupsilon \or
@@ -1090,7 +1090,7 @@
% define ligatures for characters with diacritics. In order for this to
% work, some characters need to be considered as letters. These
% characters are |<|, |>|, |~|, |`|, |'|, |"| and
-% \verb=|=. Therefore their |\lccode| is changed when Greek is in
+% \verb=|=. Therefore, their |\lccode| is changed when Greek is in
% effect. In order to let |\uppercase| give correct results, the
% |\uccode| of these characters is set to a non-existing character
% to make them disappear. Of course not all characters are needed
@@ -1116,8 +1116,8 @@
\@ifl@aded{def}{lgrenc}{%
\begingroup
\@ifundefined{active@char\string!}{}{\catcode`!=12\relax}
- \catcode`\~=12
- \lccode`\!=`\~
+ \catcode`\~=12%
+ \lccode`\!=`\~%
\lowercase{\def\x{\endgroup
\def\greek@tilde{!}}\x}
% \end{macrocode}
@@ -1155,20 +1155,20 @@
\babel@savevariable{\lccode`\'}\lccode`\'=`\'%
\babel@savevariable{\lccode`\"}\lccode`\"=`\"%
% ``high bit characters'': set in a loop and correct exceptions
- \@tempcnta=128
+ \@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
+ \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
+ \lccode195=147% GREEK LETTER DIGAMMA
+ \lccode219=240% GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
+ \lccode223=244% GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
}
\addto\extraspolutonikogreek{%
@@ -1177,7 +1177,7 @@
\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
@@ -1203,13 +1203,14 @@
% \begin{macrocode}
\addto\extrasgreek{%
\babel@savevariable{\uccode`\"}\uccode`\"=`\"%
- \babel@savevariable{\uccode`\'}\uccode`\'=159} %% 159 == ^^9f
+ \babel@savevariable{\uccode`\'}\uccode`\'=159% 159 == ^^9f
+ }
\addto\extraspolutonikogreek{%
\babel@savevariable{\uccode`\~}\uccode`\~=159%
\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