summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/generic/babel-greek
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-11-27 22:15:33 +0000
committerKarl Berry <karl@freefriends.org>2015-11-27 22:15:33 +0000
commit6ddc609a835fede2bb1fc9636a5d0b5daf6e8c29 (patch)
treec2b80311c8b2c7647f9ba4c717d74cf190b1c543 /Master/texmf-dist/source/generic/babel-greek
parent4427662beda37c46755590f310ad4cee61d7eccf (diff)
babel-greek (27nov15)
git-svn-id: svn://tug.org/texlive/trunk@38960 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/generic/babel-greek')
-rw-r--r--Master/texmf-dist/source/generic/babel-greek/babel-greek.dtx29
-rw-r--r--Master/texmf-dist/source/generic/babel-greek/grsymb.dtx131
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