babel-greek (27nov15)

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

2 files changed, 148 insertions, 12 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 f4acdae4dba..8352d9ecbe1 100644
--- a/Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx
+++ b/Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx
@@ -26,7 +26,7 @@
 % and covered by LPPL is defined by the unpacking script (babel-greek.ins)
 % which is part of the package.
 % \fi
-% \CheckSum{1553}
+% \CheckSum{1557}
 %
 % \iffalse
 %    Tell the \LaTeX\ system who we are and write an entry on the
@@ -37,7 +37,7 @@
 %<code>\ProvidesLanguage{greek}
 %\fi
 %\ProvidesFile{babel-greek.dtx}
-        [2015/09/04 v1.9d Greek support for the babel system]
+        [2015/09/04 v1.9e Greek support for the babel system]
 %\iffalse
 %% File `babel-greek.dtx'
 %% Greek language Definition File
@@ -101,22 +101,24 @@
 % \changes{greek-1.7a}{2013/09/13}{bugfix: remove spurious ``fi''.}
 % \changes{greek-1.7b}{2013/10/01}{bugfix: correct upcasing of babel strings
 %    with Xe/LuaTeX.}
-% \changes{greek-1.8}{2013/11/27}{Rename to ``babel-greek.dtx''.
+% \changes{babel-greek-1.8}{2013/11/27}{Rename to ``babel-greek.dtx''.
 %    Restore compatibility with Xe/LuaTeX in 8-bit and Unicode mode.
 %    Load ``euenc.def'' if EU1 or EU2 font encoding is detected.
 %    New TextCommands ``greekscript'' and ``ensuregreek''.}
-% \changes{greek-1.8a}{2013/12/03}{Set `encodingdefault' in `greekscript'
+% \changes{babel-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.
+% \changes{babel-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
+% \changes{babel-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.}
-% \changes{greek-1.9c}{2014/10/21}{Fix dummy hyphenation language names
+% \changes{babel-greek-1.9c}{2014/10/21}{Fix dummy hyphenation language names
 %   (report/patch Ulrike Fischer).}
-% \changes{greek-1.9d}{2015/07/06}{uc-/lccode corrections from xgreek are now
+% \changes{babel-greek-1.9d}{2015/07/06}{uc-/lccode corrections from xgreek are now
 %   in greek-euenc.def (the polyglossia version has bugs).}
+% \changes{babel-greek-1.9e}{2015/11/27}{Fix bug in lccode-setting loop
+%   (patch by Enrico Gregorio).}
 %
 % \title{Babel support for the Greek language}
 % \author{Apostolos Syropoulos, Günter Milde}
@@ -1144,7 +1146,8 @@
 %    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.
-%
+% \changes{babel-greek-1.9e}{2015/11/27}{Fix bug in lccode-setting loop
+%   (patch by Enrico Gregorio).}
 %    \begin{macrocode}
   \addto\extrasgreek{%
     \babel@savevariable{\lccode`v}\lccode`v=`v%
@@ -1153,9 +1156,11 @@
     % ``high bit characters'': set in a loop and correct exceptions
     \@tempcnta=128%
     \@whilenum\@tempcnta<253\do{%
-      \babel@savevariable{\lccode\@tempcnta}\lccode\@tempcnta=\@tempcnta
+      \expandafter\babel@savevariable\expandafter{%
+                         \expandafter\lccode\the\@tempcnta}%
+      \lccode\@tempcnta=\@tempcnta
       \advance\@tempcnta\@ne
-      }%
+    }%
     % Fix non-word characters:
     \lccode151=0%
     \lccode155=0%
@@ -1165,7 +1170,7 @@
     \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
diff --git a/Master/texmf-dist/source/generic/babel-greek/grsymb.dtx b/Master/texmf-dist/source/generic/babel-greek/grsymb.dtx
new file mode 100644
index 00000000000..189ca4afe5c
--- /dev/null
+++ b/Master/texmf-dist/source/generic/babel-greek/grsymb.dtx
@@ -0,0 +1,131 @@
+% \iffalse meta-comment
+%
+% Copyright 1989-2008 Johannes L. Braams and any individual authors
+% listed elsewhere in this file.  All rights reserved.
+% 
+% This file is part of the Babel system.
+% --------------------------------------
+% 
+% It may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.3
+% of this license or (at your option) any later version.
+% The latest version of this license is in
+%   http://www.latex-project.org/lppl.txt
+% and version 1.3 or later is part of all distributions of LaTeX
+% version 2003/12/01 or later.
+% 
+% This work has the LPPL maintenance status "maintained".
+% 
+% The Current Maintainer of this work is Johannes Braams.
+% 
+% The list of all files belonging to the Babel system is
+% given in the file `manifest.bbl. See also `legal.bbl' for additional
+% information.
+% 
+% The list of derived (unpacked) files belonging to the distribution
+% and covered by LPPL is defined by the unpacking scripts (with
+% extension .ins) which are part of the distribution.
+% \fi
+%% \CheckSum{55}
+%
+%\iffalse
+%
+%% This is file `grsymb.sty'
+%% (c) 1997-2005 Apostolos Syropoulos.
+%% All rights reserved.
+%  You are allowed to modify this file as long the initial copyright notice
+%  appears in the modified file.
+%
+%  Please report errors or suggestions for improvement to
+%    
+%    Apostolos Syropoulos
+%    366, 28th October Str.
+%    GR-671 00 Xanthi, GREECE
+%    
+%    apostolo at platon.ee.duth.gr or apostolo at obelix.ee.duth.gr
+%
+%\fi
+%\iffalse
+%    \begin{macrocode}
+%<*driver>
+\documentclass{ltxdoc}
+\GetFileInfo{grsymb.drv}
+\begin{document}
+   \DocInput{grsymb.dtx}
+\end{document}
+%</driver>
+%    \end{macrocode}
+%\fi
+%
+% \title{Greek Symbols}
+% \author{Apostolos Syropoulos\\
+%         366, 28th October Str.\\
+%         GR-671 00 Xanthi, HELLAS\\
+%         E-mail: \texttt{apostolo@platon.ee.duth.gr}}
+% \date{1997/09/21}
+% \maketitle
+%
+% \MakeShortVerb{|}
+% \section{Introduction}
+% 
+% There are certain symbols which were in use in ancient Greece and which
+% are of use to scholars even today. These symbols are various forms of
+% qoppa and stigma, and the letter digamma. These special symbols are
+% provided by the \texttt{cb} fonts which are now the official fonts for
+% the \texttt{greek} option of the \texttt{babel} package. Moreover, these
+% fonts provide a few more symbols such as a symbol for Euro, etc. The `tao'
+% symbol although is not a greek symbol, survives mainly for reasons of
+% compatibility. This little package provides access commands for these 
+% symbols. The package can be used only in conjunction with the |greek| 
+% option of the |babel| package.
+%  
+% \StopEventually
+%
+% \section{The Implementation}
+%
+% First comes the identification part.
+%
+%    \begin{macrocode}
+%<*package>
+\ProvidesPackage{grsymb}[1997/09/21\space v1.0]
+\typeout{Package: `grsymb' v1.0\space <1997/09/21> (A. Syropoulos)}
+%    \end{macrocode}
+%
+% Next we check to see if the |babel| package is loaded with at least
+% the |greek| option. In case it isn't, we opt to produce an error message.
+%    \begin{macrocode} 
+\@ifpackagewith{babel}{greek}{}{%
+     \PackageError{grsymb}{%
+     `greek' option of the `babel'\MessageBreak
+      package hasn't been loaded}{%
+      The commands provided by this package\MessageBreak
+      are specially designed for greek language\MessageBreak
+      typesetting with the `babel' package. Load\MessageBreak
+      it with at least the `greek' option.}\relax
+      }
+%    \end{macrocode}
+% Now, we proceed with the definitions of the various symbols. Please note
+% that |\ddigamma| is intensionally spelled erroneously, in order to avoid
+% conflicts with the command |\digamma| that is defined by the package
+% |amssymb|. Although the tao symbol is not a greek symbol, it is included
+% mainly for reasons of compatibility.
+%    \begin{macrocode}
+\DeclareTextCommand{\Digamma}{LGR}{\char"C3\relax}
+\DeclareTextCommand{\ddigamma}{LGR}{\char"93\relax}
+\DeclareTextCommand{\tao}{LGR}{\char"01\relax}
+\DeclareTextCommand{\Qoppa}{LGR}{\char"14\relax}
+\DeclareTextCommand{\varqoppa}{LGR}{\char"13\relax}
+\DeclareTextCommand{\Sampi}{LGR}{\char"1A\relax}
+\DeclareTextCommand{\vardigamma}{LGR}{\char"07\relax}
+\DeclareTextCommand{\Stigma}{LGR}{\char"08\relax}
+\DeclareTextCommand{\VarQoppa}{LGR}{\char"15\relax}
+\DeclareTextCommand{\euro}{LGR}{\char"18\relax}
+\DeclareTextCommand{\permill}{LGR}{\char"19\relax}
+%</package> 
+%    \end{macrocode}
+%
+% \section*{Dedication}
+% I would like to dedicate this piece of work to my son 
+% \begin{center}Demetrios-Georgios.\end{center}
+% \Finale
+\endinput
\ No newline at end of file