From 64986eb304bbf89af01c834d4bb33d3aa61264db Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 19 Sep 2014 22:29:32 +0000 Subject: babel-greek (19sep14) git-svn-id: svn://tug.org/texlive/trunk@35210 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/generic/babel-greek/README | 131 ++- .../texmf-dist/doc/generic/babel-greek/README.html | 985 ++++++++++++++++++++- .../doc/generic/babel-greek/babel-greek.pdf | Bin 257429 -> 255769 bytes .../doc/generic/babel-greek/test-greek.pdf | Bin 183339 -> 232679 bytes .../doc/generic/babel-greek/test-greek.tex | 54 +- .../doc/generic/babel-greek/test-unicode-greek.pdf | Bin 59808 -> 59729 bytes .../doc/generic/babel-greek/test-unicode-greek.tex | 12 +- .../doc/generic/babel-greek/test-unicode-lgr.pdf | Bin 37819 -> 43586 bytes .../doc/generic/babel-greek/test-unicode-lgr.tex | 10 +- .../source/generic/babel-greek/babel-greek.dtx | 107 +-- .../texmf-dist/tex/generic/babel-greek/greek.ldf | 65 +- 11 files changed, 1211 insertions(+), 153 deletions(-) diff --git a/Master/texmf-dist/doc/generic/babel-greek/README b/Master/texmf-dist/doc/generic/babel-greek/README index 3e4aa2ab90c..52a63590dd4 100644 --- a/Master/texmf-dist/doc/generic/babel-greek/README +++ b/Master/texmf-dist/doc/generic/babel-greek/README @@ -1,7 +1,7 @@ babel-greek *********** -Babel support for Greek -======================= +Babel support for the Greek language and script +=============================================== :Copyright: © 1997 Apostolos Syropoulos, Claudio Beccari, Johannes Brahms, © 2013 Günter Milde @@ -17,7 +17,7 @@ In 1997, Apostolos Syropoulos added support for the Greek language to the "babel" package. The file ``greek.ldf`` provides options for monotonic (single-diacritic) and polytonic (multiple-diacritic) modes of writing. -There is now experimental support for Unicode-aware TeX engines +Since 2013-07-19, babel-greek supports also Unicode-aware TeX engines (XeTeX/LuaTeX). News @@ -25,36 +25,65 @@ News .. class:: borderless -===== ========== ============================================================ -1.4 2013-05-17 New maintainer. -.. The encoding definition file ``lgrenc.def`` moved to the - greek-fontenc_ package. - -1.5 2013-06-21 bugfixes and cleanup, -.. LICR macros in string definitions, -.. LGR font encoding not used with XeTeX/LuaTeX, -.. input "xgreek-fixes.def" from polyglossia_ with Xe/LuaTeX. -1.5a 2013-07-02 Fix LaTeX bugs babel/3707, `babel/4303`_ and `babel/4305`_ -1.6 2013-07-19 Experimental support for XeTeX/LuaTeX. -1.7 2013-09-09 CB-Fonts font definition files moved to CB-Fonts package. -.. Do not auto-load euenc.def with XeTeX/LuaTeX. -1.7a 2013-09-13 Fix bug `babel/4360`_: spurious ``\fi``. -1.7b 2013-10-01 bugfix: correct upcasing of babel strings with Xe/LuaTeX. -1.8 2013-12-02 Rename ``greek.dtx`` to ``babel-greek`` so that texdoc_ - shows the right documentation. -.. 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 - -===== ========== ============================================================ +===== ============ ============================================================ +1.4 2013-05-17 New maintainer. +.. The encoding definition file ``lgrenc.def`` moved to the + greek-fontenc_ package. + +1.5 2013-06-21 bugfixes and cleanup, +.. LICR macros in string definitions, +.. LGR font encoding not used with XeTeX/LuaTeX, +.. input "xgreek-fixes.def" from polyglossia_ with Xe/LuaTeX. +1.5a 2013-07-02 Fix LaTeX bugs babel/3707, `babel/4303`_ and `babel/4305`_ +1.6 2013-07-19 Experimental support for XeTeX/LuaTeX. +1.7 2013-09-09 CB-Fonts font definition files moved to CB-Fonts package. +.. Do not auto-load euenc.def with XeTeX/LuaTeX. +1.7a 2013-09-13 Fix bug `babel/4360`_: spurious ``\fi``. +1.7b 2013-10-01 bugfix: correct upcasing of babel strings with Xe/LuaTeX. +1.8 2013-12-02 Rename ``greek.dtx`` to ``babel-greek`` so that texdoc_ + shows the right documentation. +.. 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 +1.9a 2014-09-12 Remove duplicate code, documentation review. +1.9b 2014-09-18 Remove spurious whitespace from "extrasgreek" definition. +.. Use named macros instead of non-standard short macros + for psili and dasia in the string definitions. + +===== ============ ============================================================ .. _babel/4303: http://www.latex-project.org/cgi-bin/ltxbugs2html?pr=babel/4303 .. _babel/4305: http://www.latex-project.org/cgi-bin/ltxbugs2html?pr=babel/4305 .. _babel/4360: http://www.latex-project.org/cgi-bin/ltxbugs2html?pr=babel/4360 +Files +----- + +``_; ``_ + Source of the language definition file ``greek.ldf`` for use with Babel_. +``_; ``_ + Athenian Numerals. +``_; ``_ + Greek log-like Operators. +``_; ``_ + Macros for Greek symbols (obsoleted by the greek-fontenc_ package). + +``_; ``_ + Tests and Examples for 8-bit TeX. +``_; ``_ + Tests and Examples for XeTeX/LuaTeX. +``_; ``_ + Tests and Examples for XeTeX/LuaTeX with LGR 8-bit fonts. + +``_; ``_ + Description of the Latin transliteration for Greek defined by the + LGR font encoding. + + + Requirements ------------ @@ -85,7 +114,7 @@ Otherwise, make sure LaTeX can find the required files: * Move all files ending in ``.ldf`` or ``.sty`` into a directory searched by TeX. -* To produce the documentation run the files ``usage.tex`` and all files +* To produce the documentation, run the file ``usage.tex`` and all files ending in ``.dtx`` through LaTeX. Usage @@ -97,8 +126,16 @@ Pass the "greek" option to babel:: For polytonic Greek, set the language attribute "polutoniko":: + \usepackage[greek]{babel} \languageattribute{greek}{polutoniko} +or :: + + \usepackage[greek.polutoniko,english]{babel} + +Similarly, the attribute "ancient" selects the ancient Greek language +variant. + With XeTeX/LuaTeX, load fontspec_ before babel_, so that babel-greek can set up the Unicode font encoding for use with Greek, e.g. :: @@ -111,7 +148,7 @@ For details see ``_ and the babel_ documentation. Literal input of Greek characters is possible with the greek-inputenc_ package or with XeTeX or LuaTeX. For the Latin transliteration provided by -the LGR font encoding see ``_ and the example files provided with +the LGR font encoding, see ``_ and the example files provided with greek-fontenc_. Greek text fonts @@ -126,31 +163,55 @@ them). Examples for suitable fonts are the CM-unicode_ or the `Linux Libertine`_ OpenType fonts as well as any system-wide installed OTF fonts that support Greek (e.g. `Deja Vu`_). -The LGR font encoding is the de-facto standard for typesetting Greek with +The LGR `font encoding`_ is the de-facto standard for typesetting Greek with 8-bit LaTeX. Fonts in this encoding include the `CB fonts`_ (matching CM), grtimes_ (Greek Times), Kerkis_ (matching URW Bookman), and the `GFS font collection`_. Setup of these fonts as Greek variant to matching Latin fonts is facilitated by the substitutefont_ package. +LGR Latin Transliteration +------------------------- + The LGR font encoding generates Greek characters via an ASCII transliteration. This enables simple input with a Latin keyboard. Characters with diacritics are selected by ligature definitions in the font (see ``_). -A major drawback of this transliteration is, that you cannot access Latin -letters if LGR is the active font encoding (e.g. in documents or parts of -documents given the `Babel` language ``greek`` or ``polutionikogreek``). -This means that for every Latin-written word or acronym an explicit +The following ASCII characters are converted to Greek symbols: + += = = = = = = = = = = = = = = = = = = = = = = = = +A B G D E Z H J I K L M N X O P R S T U F Q Y W +Α Β Γ Δ Ε Ζ Η Θ Ι Κ Λ Μ Ν Ξ Ο Π Ρ Σ Τ Υ Φ Χ Ψ Ω +a b g d e z h j i k l m n x o p r s c t u f q y w +α β γ δ ε ζ η θ ι κ λ μ ν ξ ο π ρ σ ς τ υ φ χ ψ ω += = = = = = = = = = = = = = = = = = = = = = = = = + +Accent symbols and punctuation: + +================= ===== == ====================== ======== ==== +tonos ``'`` ά semicolon ``;`` · +varia \` ὰ question mark ``?`` ; +perispomeni ``~`` ᾶ left apostrophe \` \` ‘ +dasia ``<`` ἁ right apostrophe ``''`` ’ +psili ``>`` ἀ left quotation mark ``((`` » +ypogegrammeni ``|`` ᾳ right quotation mark ``))`` » +dialytika ``"`` ϊ zero width non-joiner v +================= ===== == ====================== ======== ==== + +A major drawback of the LGR transliteration is that you cannot access Latin +letters and some symbols if LGR is the active font encoding (e.g. in +documents or parts of documents given the `Babel` language ``greek``). This +means that for every Latin-written word or acronym an explicit language-switch is required. This problem can only be solved via a font-encoding comprising both Latin and Greek like the hypothetical T7 or Unicode (with XeTeX or LuaTeX). - .. References ---------- .. _LaTeX Project Public License: http://www.latex-project.org/lppl.txt .. _babel: http://www.ctan.org/pkg/babel +.. _font encoding: http://mirror.ctan.org/macros/latex/doc/encguide.pdf .. _fontspec: http://www.ctan.org/pkg/fontspec .. _CB Fonts: http://www.ctan.org/pkg/cbgreek-complete .. _CM-unicode: http://www.ctan.org/pkg/cm-unicode diff --git a/Master/texmf-dist/doc/generic/babel-greek/README.html b/Master/texmf-dist/doc/generic/babel-greek/README.html index 6fab0163d1f..a4064126572 100644 --- a/Master/texmf-dist/doc/generic/babel-greek/README.html +++ b/Master/texmf-dist/doc/generic/babel-greek/README.html @@ -6,13 +6,717 @@ babel-greek - - + +

babel-greek

-

Babel support for Greek

+

Babel support for the Greek language and script

@@ -32,15 +736,15 @@ Greek language and script via the greek.ldf provides options for monotonic (single-diacritic) and polytonic (multiple-diacritic) modes of writing.

-

There is now experimental support for Unicode-aware TeX engines +

Since 2013-07-19, babel-greek supports also Unicode-aware TeX engines (XeTeX/LuaTeX).

News

---+++ @@ -117,9 +821,53 @@ Greek in footnotes etc. with document language Greek.

+ + + + + + + + + + + +

1.4

Added attribute for ancient Greek, load correct hyphenation patterns: Patch by Claudio Beccari. Bugfix for Makeuppercase

1.9a

2014-09-12

Remove duplicate code, documentation review.

1.9b

2014-09-18

Remove spurious whitespace from “extrasgreek” definition.

+ 

Use named macros instead of non-standard short macros +for psili and dasia in the string definitions.

+
+

Files

+
+
babel-greek.ins; babel-greek.pdf
+

Source of the language definition file greek.ldf for use with Babel.

+
+
athnum.dtx; athnum.pdf
+

Athenian Numerals.

+
+
grmath.dtx; grmath.pdf
+

Greek log-like Operators.

+
+
grsymb.dtx; grsymb.pdf
+

Macros for Greek symbols (obsoleted by the greek-fontenc package).

+
+
test-greek.pdf; test-greek.tex
+

Tests and Examples for 8-bit TeX.

+
+
test-unicode-greek.pdf; test-unicode-greek.tex
+

Tests and Examples for XeTeX/LuaTeX.

+
+
test-unicode-lgr.pdf; test-unicode-lgr.tex
+

Tests and Examples for XeTeX/LuaTeX with LGR 8-bit fonts.

+
+
usage.pdf; usage.tex
+

Description of the Latin transliteration for Greek defined by the +LGR font encoding.

+
+
+

Requirements

The “babel-greek” package requires the babel base package and parts of the @@ -140,7 +888,7 @@ manager.

  • 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.

  • -
  • To produce the documentation run the files usage.tex and all files +

  • To produce the documentation, run the file usage.tex and all files ending in .dtx through LaTeX.

  • @@ -150,8 +898,14 @@ ending in .dtx through LaTeX.

    \usepackage[greek]{babel}
     

    For polytonic Greek, set the language attribute “polutoniko”:

    -
    \languageattribute{greek}{polutoniko}
    +
    \usepackage[greek]{babel}
    +\languageattribute{greek}{polutoniko}
    +
    +

    or

    +
    \usepackage[greek.polutoniko,english]{babel}
     
    +

    Similarly, the attribute “ancient” selects the ancient Greek language +variant.

    With XeTeX/LuaTeX, load fontspec before babel, so that babel-greek can set up the Unicode font encoding for use with Greek, e.g.

    \usepackage{fontspec}
    @@ -162,7 +916,7 @@ set up the Unicode font encoding for use with Greek, e.g.

    For details see babel-greek.pdf and the babel documentation.

    Literal input of Greek characters is possible with the greek-inputenc package or with XeTeX or LuaTeX. For the Latin transliteration provided by -the LGR font encoding see usage.pdf and the example files provided with +the LGR font encoding, see usage.pdf and the example files provided with greek-fontenc.

    @@ -174,19 +928,220 @@ font contains the required glyphs (the default Latin Modern fonts miss them). Examples for suitable fonts are the CM-unicode or the Linux Libertine OpenType fonts as well as any system-wide installed OTF fonts that support Greek (e.g. Deja Vu).

    -

    The LGR font encoding is the de-facto standard for typesetting Greek with +

    The LGR font encoding is the de-facto standard for typesetting Greek with 8-bit LaTeX. Fonts in this encoding include the CB fonts (matching CM), grtimes (Greek Times), Kerkis (matching URW Bookman), and the GFS font collection. Setup of these fonts as Greek variant to matching Latin fonts is facilitated by the substitutefont package.

    +
    +
    +

    LGR Latin Transliteration

    The LGR font encoding generates Greek characters via an ASCII transliteration. This enables simple input with a Latin keyboard. Characters with diacritics are selected by ligature definitions in the font (see usage.pdf).

    -

    A major drawback of this transliteration is, that you cannot access Latin -letters if LGR is the active font encoding (e.g. in documents or parts of -documents given the Babel language greek or polutionikogreek). -This means that for every Latin-written word or acronym an explicit +

    The following ASCII characters are converted to Greek symbols:

    + +++++++++++++++++++++++++++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +

    A

    B

    G

    D

    E

    Z

    H

    J

    I

    K

    L

    M

    N

    X

    O

    P

    R

    S

     

    T

    U

    F

    Q

    Y

    W

    Α

    Β

    Γ

    Δ

    Ε

    Ζ

    Η

    Θ

    Ι

    Κ

    Λ

    Μ

    Ν

    Ξ

    Ο

    Π

    Ρ

    Σ

     

    Τ

    Υ

    Φ

    Χ

    Ψ

    Ω

    a

    b

    g

    d

    e

    z

    h

    j

    i

    k

    l

    m

    n

    x

    o

    p

    r

    s

    c

    t

    u

    f

    q

    y

    w

    α

    β

    γ

    δ

    ε

    ζ

    η

    θ

    ι

    κ

    λ

    μ

    ν

    ξ

    ο

    π

    ρ

    σ

    ς

    τ

    υ

    φ

    χ

    ψ

    ω

    +

    Accent symbols and punctuation:

    + ++++++++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +

    tonos

    '

    ά

    semicolon

    ;

    ·

    varia

    `

    question mark

    ?

    ;

    perispomeni

    ~

    left apostrophe

    ` `

    dasia

    <

    right apostrophe

    ''

    psili

    >

    left quotation mark

    ((

    »

    ypogegrammeni

    |

    right quotation mark

    ))

    »

    dialytika

    "

    ϊ

    zero width non-joiner

    v

     
    +

    A major drawback of the LGR transliteration is that you cannot access Latin +letters and some symbols if LGR is the active font encoding (e.g. in +documents or parts of documents given the Babel language greek). This +means that for every Latin-written word or acronym an explicit language-switch is required. This problem can only be solved via a font-encoding comprising both Latin and Greek like the hypothetical T7 or Unicode (with XeTeX or LuaTeX).

    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 85117e5d24f..7ac17ee3ded 100644 Binary files a/Master/texmf-dist/doc/generic/babel-greek/babel-greek.pdf and b/Master/texmf-dist/doc/generic/babel-greek/babel-greek.pdf 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 0a54e6db66b..08d7d645111 100644 Binary files a/Master/texmf-dist/doc/generic/babel-greek/test-greek.pdf and b/Master/texmf-dist/doc/generic/babel-greek/test-greek.pdf 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 fd837430b08..ceeb1c58860 100644 --- a/Master/texmf-dist/doc/generic/babel-greek/test-greek.tex +++ b/Master/texmf-dist/doc/generic/babel-greek/test-greek.tex @@ -1,3 +1,4 @@ + \documentclass[a4paper]{article} \usepackage[LGR,T1]{fontenc} @@ -36,7 +37,7 @@ % Obsolete: used instead of `greek', kept for backwards compatibility: % \usepackage[polutonikogreek,english]{babel} -% For backwards compatibility, you can also use +% For backwards compatibility, you can also use % \selectlanguage{polutonikogreek} instead of \selectlanguage{greek} etc. % if the (modern) polytonic Greek language variant is selected. @@ -52,7 +53,10 @@ \begin{document} -\section*{Test the Greek support for Babel} +\title{Test the Greek support for Babel} +\author{Günter Milde} +\date{2014/09/02} +\maketitle The babel option ``greek'' activates the support for the Greek language defined in the file ``greek.ldf'' (source ``greek.dtx''). @@ -63,19 +67,27 @@ The declaration \verb|\selectlanguage| switches between languages. \begin{quote} \selectlanguage{greek} - Τί φήις; Ἱδὼν ἐνθέδε παῖδ’ ἐλευθέραν + Τί φήις; Ἱδὼν ἐνθέδε παῖδ’ ἐλευθέραν τὰς πλησίον Νύμφας στεφανοῦσαν, Σώστρατε, - ἐρῶν άπῆλθες εὐθύς; + ἐρῶν άπῆλθες εὐθύς; \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 or single words like \foreignlanguage{greek}{Βιβλιοθήκη}. +There should be no inserted space before or after the language switch (may +happen if there are unescaped linebreaks in the font or language definitions): + +\begin{quote} + Change script with \verb|ensuregreek|: |\ensuregreek{do\~ulos}|. Change + language with \verb|\foreignlanguage|: |\foreignlanguage{greek}{do\~ulos}|. +\end{quote} + \section{Font Encoding} In Greek text parts, the font encoding is automatically set to LGR if an -8-bit TeX engine is used. (See test-unicode-greek.tex for usage of +8-bit TeX engine is used. (See \url{test-unicode-greek.tex} for usage of babel-greek with XeTeX or LuaTeX.) LGR has Greek characters in the slots reserved in a TeX \emph{standard text @@ -88,9 +100,11 @@ The Babel core defines the declaration \verb|\latintext| and the command argument using this encoding. Switching to a font encoding supporting the Greek script is possible without -switching the Babel language using the declarations \verb|\greekscript| or -\verb|\greektext| (always LGR) and the macros \verb|\ensuregreek| or -\verb|\textgreek|. These commands do not start a new paragraph: +switching the Babel language using the declarations \verb|\greekscript| (no +switch if the current encoding supports Greek script (e.g. the Unicode font +encodings EU1, EU2)) or \verb|\greektext| (always switch to LGR) and the +corresponding macros \verb|\ensuregreek| or \verb|\textgreek|. These +commands do not start a new paragraph: \greekscript Φίλων τοῦ \textlatin{TeX} (ΕΦΤ) -- \latintext Friends (\ensuregreek{F\'ilwn}) of TeX. @@ -161,6 +175,28 @@ k\'eik, $\mapsto$ \MakeUppercase{k\'eik} There are several alternative styles for the capitalized sub-iota. +In order to let the Up/Downcasing work also with the Latin transcription +defined by the LGR font encoding, ``babel-greek'' also defines lc/uccodes +for non-standard assignments: + +\selectlanguage{greek} +', ", `, >, <, | $\mapsto$ \MakeUppercase{', ", `, >, <, |} +\selectlanguage{english} + +The uppercase of the zero-width space at the place of ``v`` is the +Dasia-Oxia accent (\ensuregreek{\MakeUppercase{v}}), the glyph at the +position of ``V``. However, the uccode of v is not changed (any more): + +\begin{quotation} + greek-1.3i 2000/10/02: uc code of `v' is switched to V + so that mixed text appears correctly in headers. +\end{quotation} + +Use \verb+\textcompwordmark+: +not \foreignlanguage{greek}{avu $\mapsto$ \MakeUppercase{avu}} but +\foreignlanguage{greek}{a\textcompwordmark u +$\mapsto$ \MakeUppercase{a\textcompwordmark u}} + The following subsections test MakeUppercase and MakeLowercase with all characters defined in lgrenc.dfu: 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 fa977e2bf0c..56057149e3d 100644 Binary files a/Master/texmf-dist/doc/generic/babel-greek/test-unicode-greek.pdf and b/Master/texmf-dist/doc/generic/babel-greek/test-unicode-greek.pdf 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 65f6e606338..bf33940e5cc 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 @@ -10,7 +10,7 @@ % \setmainfont{Droid Serif} % only monotonic Greek (subset of Greek and Coptic) \usepackage[greek,english]{babel} -% \languageattribute{greek}{polutoniko} +\languageattribute{greek}{polutoniko} \languageattribute{greek}{ancient} \message{greek-euenc ist} @@ -21,8 +21,10 @@ \begin{document} - -\section*{Greek support for Babel with XeTeX/LuaTeX} +\title{Greek support for Babel with XeTeX/LuaTeX} +\author{Günter Milde} +\date{2014/09/02} +\maketitle The babel option «greek» activates the support for the Greek language defined in the file «greek.ldf» (source «greek.dtx»). @@ -39,9 +41,9 @@ The declaration \verb|\selectlanguage| switches between languages. \begin{quote} \selectlanguage{greek} - Τί φήις; Ἱδὼν ἐνθέδε παῖδ’ ἐλευθέραν + Τί φήις; Ἱδὼν ἐνθέδε παῖδ’ ἐλευθέραν τὰς πλησίον Νύμφας στεφανοῦσαν, Σώστρατε, - ἐρῶν άπῆλθες εὐθύς; + ἐρῶν άπῆλθες εὐθύς; \end{quote} The command \verb|\foreignlanguage| sets its second argument in the language 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 1c25d9e249f..10371f15172 100644 Binary files a/Master/texmf-dist/doc/generic/babel-greek/test-unicode-lgr.pdf and b/Master/texmf-dist/doc/generic/babel-greek/test-unicode-lgr.pdf 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 95f85ceb733..b9924fd60e4 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 @@ -14,14 +14,16 @@ % \languageattribute{greek}{ancient} % use LGR (8-bit CB-fonts) instead of Unicode fonts for Greek: +% Alternatives: % \renewcommand*{\greekscript}{\fontencoding{LGR}\selectfont} \addto{\extrasgreek}{\greektext} - \begin{document} - -\section*{XeTeX/LuaTeX with LGR fonts} +\title{XeTeX/LuaTeX with LGR fonts} +\author{Günter Milde} +\date{2014/09/02} +\maketitle The babel option «greek» activates the support for the Greek language defined in the file «greek.ldf» (source «greek.dtx»). @@ -51,7 +53,7 @@ Latin transliteration or LICR macros: The macro \verb|\foreignlanguage| sets its second argument in the specified language. This is intended for short text parts like -\foreignlanguage{greek}{Βιβλιοθήκη}. +\foreignlanguage{greek}{Biblioj'hkh}. \section{Font Encoding} 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 @@ %\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 with his +% Kastrup 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 diff --git a/Master/texmf-dist/tex/generic/babel-greek/greek.ldf b/Master/texmf-dist/tex/generic/babel-greek/greek.ldf index 3c2c61da730..7771aeaf4f6 100644 --- a/Master/texmf-dist/tex/generic/babel-greek/greek.ldf +++ b/Master/texmf-dist/tex/generic/babel-greek/greek.ldf @@ -32,14 +32,14 @@ %% and covered by LPPL is defined by the unpacking script (babel-greek.ins) %% which is part of the package. \ProvidesLanguage{greek} - [2014/07/20 v1.9 Greek support for the babel system] + [2014/09/18 v1.9b Greek support for the babel system] %% File `babel-greek.dtx' %% Greek language Definition File %% Copyright © 1997, 2005 Apostolos Syropoulos, Johannes Braams %% Copyright © 2013-2014 Günter Milde %% Please report errors to: Günter Milde \LdfInit\CurrentOption{captions\CurrentOption} -\gdef\CurrentOption{greek}% +\gdef\CurrentOption{greek} \ifx\l@greek\@undefined \@nopatterns{greek} \adddialect\l@greek 0\fi @@ -99,7 +99,7 @@ \def\encodingdefault{\greekfontencoding}} \ProvideTextCommandDefault{\ensuregreek}[1]{% \leavevmode{\greekscript #1}} -\AtBeginDocument{ +\AtBeginDocument{% \@ifl@aded{def}{eu1enc}{\xdef\latinencoding{EU1}}{}% XeTeX \@ifl@aded{def}{eu2enc}{\xdef\latinencoding{EU2}}{}% LuaTeX } @@ -169,22 +169,22 @@ } \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}% } \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 + \def\refname{\accpsili\textAlpha\textnu\textalpha\textphi\textomicron\textrho \textalpha\accvaria\textiota}% \def\abstractname{\textPi\textepsilon\textrho\acctonos\textiota\textlambda\texteta \textpsi\textiota\textvarsigma}% @@ -202,7 +202,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}% @@ -213,10 +213,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}% @@ -251,24 +251,24 @@ \def\today{\number\day \space \gr@month\space \number\year}} \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 @@ -362,8 +362,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} \addto\extrasgreek{% @@ -371,20 +371,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{% @@ -393,17 +393,18 @@ \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 + \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% } \@tempcnta=\lccode`\~ \lccode`\~=159 -- cgit v1.2.3