diff options
Diffstat (limited to 'Master/texmf-dist/source')
-rw-r--r-- | Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx | 107 |
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 |