From b0d37b9f4c223f42945de2b0bdb99df05192f20b Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 20 Jul 2013 21:50:33 +0000 Subject: babel-greek (20jul13) git-svn-id: svn://tug.org/texlive/trunk@31249 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/generic/babel-greek/greek.ldf | 46 ++++++++++++---------- 1 file changed, 26 insertions(+), 20 deletions(-) (limited to 'Master/texmf-dist/tex/generic/babel-greek') diff --git a/Master/texmf-dist/tex/generic/babel-greek/greek.ldf b/Master/texmf-dist/tex/generic/babel-greek/greek.ldf index f3040716c06..3d112e4457a 100644 --- a/Master/texmf-dist/tex/generic/babel-greek/greek.ldf +++ b/Master/texmf-dist/tex/generic/babel-greek/greek.ldf @@ -32,7 +32,7 @@ %% and covered by LPPL is defined by the unpacking script (greek.ins) %% which is part of the package. \ProvidesLanguage{greek} - [2013/07/02 v1.5a Greek support for the babel system] + [2013/07/19 v1.6 Greek support for the babel system] %% File `greek.dtx' %% Babel package for LaTeX version 2e %% Copyright (C) 1989 -- 2005 @@ -70,6 +70,15 @@ % Define dummy commands for |\textgreek| and |\greektext| (cf. below): \let\greektext\relax \let\textgreek\@firstofone + \ifdefined\accdasiaoxia % Accent Dasia-Oxia LICR + \relax %\message{Greek LICR definitions found} + \else + \InputIfFileExists{greek-euenc.def}{}{\PackageWarningNoLine{babel}{% + Can't find the file "greek-euenc.def".\MessageBreak + Greek LICR definitions missing:\MessageBreak + Auto-generated Babel strings will lead to errors} + } + \fi \else \InputIfFileExists{lgrenc.def}{}{% \errhelp{I can't find the lgrenc.def file for the Greek fonts}% @@ -84,12 +93,9 @@ \DeclareTextCommandDefault{\&}{\ltx@amp} \DeclareTextCommand{\&}{LGR}{\textlatin{\ltx@amp}} \ProvideTextCommand{\SS}{LGR}{\textlatin{\SS}} - \let\latin@roman\@roman - \DeclareTextCommandDefault{\@roman}[1]{\latin@roman{#1}} - \DeclareTextCommand{\@roman}{LGR}[1]{\textlatin{\latin@roman{#1}}} - \let\latin@Roman\@Roman - \DeclareTextCommandDefault{\@Roman}[1]{\latin@Roman{#1}} - \DeclareTextCommand{\@Roman}{LGR}[1]{\textlatin{\latin@Roman{#1}}} + \def\@roman#1{\expandafter\textlatin\expandafter{\romannumeral#1}} + \def\@Roman#1{\expandafter\textlatin\expandafter{% + \expandafter\@slowromancap\romannumeral#1@}} \DeclareTextCompositeCommand{\"}{LGR}{^^9F}{\accdialytika} \DeclareTextCompositeCommand{\'}{LGR}{^^9F}{\LGR@hiatus} \DeclareTextCompositeCommand{\`}{LGR}{^^9F}{\LGR@hiatus} @@ -167,7 +173,7 @@ \textMu\textalpha\textrho\texttau\'\textiota\textomicron\textupsilon\or \textAlpha\textpi\textrho\textiota\textlambda\'\textiota% \textomicron\textupsilon\or - \textMu\textalpha\'\"\textiota\textomicron\textupsilon\or + \textMu\textalpha\'"\textiota\textomicron\textupsilon\or \textIota\textomicron\textupsilon\textnu\'\textiota% \textomicron\textupsilon\or \textIota\textomicron\textupsilon\textlambda\'\textiota% @@ -195,7 +201,7 @@ \textMu\textalpha\textrho\texttau\'\textiota\textomicron\textupsilon\or \>\textAlpha\textpi\textrho\textiota\textlambda% \'\textiota\textomicron\textupsilon\or - \textMu\textalpha\"\'\textiota\textomicron\textupsilon\or + \textMu\textalpha\"'\textiota\textomicron\textupsilon\or \>\textIota\textomicron\textupsilon\textnu% \'\textiota\textomicron\textupsilon\or \>\textIota\textomicron\textupsilon\textlambda% @@ -223,11 +229,11 @@ \addto\noextrasgreek{\latintext} \fi \def\gr@ill@value#1{% - \PackageWarning{babel}{Illegal value (#1) for greeknumeral}} + \PackageWarningNoLine{babel}{Illegal value (#1) for greeknumeral}} \DeclareRobustCommand\anw@false{% \DeclareRobustCommand\anw@print{}} \DeclareRobustCommand\anw@true{% - \DeclareRobustCommand\anw@print{\anwtonos}} + \DeclareRobustCommand\anw@print{\textdexiakeraia}} % \anwtonos \anw@true \def\greeknumeral#1{% \ifnum#1<\@ne\space\gr@ill@value{#1}% @@ -278,26 +284,26 @@ \textphi\or \textchi\or \textpsi\or \textomega\or \textsampi\fi \ifnum#1=\z@\anw@false\else\anw@true\fi\gr@num@ii} \def\gr@num@iv#1{% - \ifnum#1=\z@\else\katwtonos\fi + \ifnum#1=\z@\else\textaristerikeraia\fi \ifcase#1\or \textalpha\or \textbeta\or \textgamma\or \textdelta\or \textepsilon\or \stigma\or \textzeta\or \texteta\or \texttheta\fi \gr@num@iii} \def\gr@num@v#1{% - \ifnum#1=\z@\else\katwtonos\fi + \ifnum#1=\z@\else\textaristerikeraia\fi \ifcase#1\or \textiota\or \textkappa\or \textlambda\or \textmu\or \textnu\or \textxi\or \textomicron\or \textpi\or \textqoppa\fi \gr@num@iv} \def\gr@num@vi#1{% - \katwtonos + \textaristerikeraia \ifcase#1\or \textrho\or \textsigma\or \texttau\or \textupsilon\or \textphi\or \textchi\or \textpsi\or \textomega\or \textsampi\fi \gr@num@v} \if@bbl@greek@unicode - \InputIfFileExists{xgreek-fixes.def}{}{% - \PackageWarning{babel}{Can't find the file "xgreek-fixes.def".\MessageBreak - For correct up/downcasing of Greek text, - install the "polyglossia" package.}% + \InputIfFileExists{xgreek-fixes.def}{}{\PackageWarningNoLine{babel}{% + Can't find the file "xgreek-fixes.def".\MessageBreak + For correct up/downcasing of Greek text,\MessageBreak + install the "polyglossia" package}% } \else % 8-bit TeX \begingroup @@ -335,8 +341,8 @@ \declare@shorthand{greek}{~}{\greek@tilde} \fi % End of LGR-specific code not required with XeTeX/LuaTeX. \addto\extraspolutonikogreek{} % set up \extraspolutonikogreek for Xe/LuaTeX -\providecommand*{\anwtonos}{\textnumeralsigngreek} -\providecommand*{\katwtonos}{\textnumeralsignlowergreek} +\providecommand*{\anwtonos}{\textdexiakeraia} +\providecommand*{\katwtonos}{\textaristerikeraia} \providecommand*{\qoppa}{\textqoppa} \providecommand*{\stigma}{\textstigma} \providecommand*{\sampi}{\textsampi} -- cgit v1.2.3