From bd5e6939ce990b1f198eb10b55365382f2e8f3c1 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 21 Mar 2023 16:39:56 +0000 Subject: babel-greek (18mar23) git-svn-id: svn://tug.org/texlive/trunk@66610 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/generic/babel-greek/athnum.sty | 17 ++++---- .../texmf-dist/tex/generic/babel-greek/greek.ldf | 45 +++++++++++++--------- 2 files changed, 34 insertions(+), 28 deletions(-) (limited to 'Master/texmf-dist/tex/generic/babel-greek') diff --git a/Master/texmf-dist/tex/generic/babel-greek/athnum.sty b/Master/texmf-dist/tex/generic/babel-greek/athnum.sty index bbd21dae13c..e662170355e 100644 --- a/Master/texmf-dist/tex/generic/babel-greek/athnum.sty +++ b/Master/texmf-dist/tex/generic/babel-greek/athnum.sty @@ -31,14 +31,14 @@ %% The list of derived (unpacked) files belonging to this work %% and covered by LPPL is defined by the unpacking script (babel-greek.ins) %% which is part of the package. -%% \CheckSum{150} +%% \CheckSum{146} %% This is file `athnum.dtx' %% (c) 1997-2007 Apostolos Syropoulos. -%% Changes in version 2.0 © 2022 Günter Milde +%% Changes in version 2 © 2022, 2023 Günter Milde %% All rights reserved. +%%\title{Athenian (Attic) Numerals} \NeedsTeXFormat{LaTeX2e}[1996/01/01] -\ProvidesPackage{athnum}[2022/12/08\space v2.0] -\typeout{Package: `athnum' v2.0\space <2022/12/08> (A. Syropoulos)} +\ProvidesPackage{athnum}[2023/03/17 v2.0.1 Athenian numerals] \ifdefined \UnicodeEncodingName % set by LaTeX for XeTeX/LuaTeX \providecommand*{\greekfontencoding}{\UnicodeEncodingName} \providecommand*{\athnum@greek@fontencdef}{tuenc-greek} @@ -51,10 +51,9 @@ \InputIfFileExists{\athnum@greek@fontencdef .def}{}{% else \PackageError{athnum}{Font support for the Greek script missing.\\ can't typeset Greek symbols.\\ - Install the "greek-fontenc" package\\ - or use XeTeX/LuaTeX.} + Install the "greek-fontenc" package.} {I can't find the \athnum@greek@fontencdef .def file - for the Greek fonts (encoding \greekfontencoding)} + for the Greek fonts (encoding \greekfontencoding).} \@@end } } @@ -101,10 +100,10 @@ \def\@athnum#1{% \expandafter\@@athnum\expandafter{\the#1}} \def\athnum#1{% - \ensuregreek{% + \textrm{\ensuregreek{% \@ath@num#1\relax \@athnum{\@ath@num}}% - } + }} \endinput %% %% End of file `athnum.sty'. diff --git a/Master/texmf-dist/tex/generic/babel-greek/greek.ldf b/Master/texmf-dist/tex/generic/babel-greek/greek.ldf index 0c67a235de6..86e98ca0814 100644 --- a/Master/texmf-dist/tex/generic/babel-greek/greek.ldf +++ b/Master/texmf-dist/tex/generic/babel-greek/greek.ldf @@ -32,14 +32,15 @@ %% and covered by LPPL is defined by the unpacking script (babel-greek.ins) %% which is part of the package. \ProvidesLanguage{greek} - [2023/03/04 1.12 Greek support for the babel system] + [2023/03/17 1.13.1 Greek support for the babel system] %% File `babel-greek.dtx' %% Greek language Definition File %% Copyright © 1997, 2005 Apostolos Syropoulos, Johannes Braams -%% Copyright © 2013 -- 2020 Günter Milde +%% Copyright © 2013 -- 2023 Günter Milde %% Please report errors to: Günter Milde \LdfInit\CurrentOption{captions\CurrentOption} \gdef\CurrentOption{greek} +\addto\extrasgreek{\languageshorthands{greek}} \ifx\l@greek\@undefined \@nopatterns{greek} \adddialect\l@greek 0 @@ -59,32 +60,45 @@ \addto\extraspolutonikogreek{\l@greek=\bbl@polygreek} \addto\extrasancientgreek{\l@greek=\bbl@ancientgreek} \providehyphenmins{\CurrentOption}{\@ne\@ne} -\bbl@declare@ttribute{greek}{polutoniko}{% +\def\bbl@greek@setup@polytonic{% \expandafter\addto\expandafter\extrasgreek - \expandafter{\extraspolutonikogreek}% + \expandafter{\extraspolutonikogreek}% \let\captionsgreek\captionspolutonikogreek \let\gr@month\gr@polutoniko@month + \def\bbl@tempa{LGR} + \ifx\greekfontencoding\bbl@tempa + \declare@shorthand{greek}{~}{\bbl@greek@tilde} + \fi +} +\bbl@declare@ttribute{greek}{polutoniko}{% + \bbl@greek@setup@polytonic \let\l@polutonikogreek\l@greek \let\datepolutonikogreek\dategreek \let\extraspolutonikogreek\extrasgreek \let\noextraspolutonikogreek\noextrasgreek } \bbl@declare@ttribute{greek}{polytonic}{% - \expandafter\addto\expandafter\extrasgreek - \expandafter{\extraspolutonikogreek}% - \let\captionsgreek\captionspolutonikogreek - \let\gr@month\gr@polutoniko@month + \bbl@greek@setup@polytonic } \bbl@declare@ttribute{greek}{ancient}{% - \expandafter\addto\expandafter\extrasgreek - \expandafter{\extraspolutonikogreek}% multi-accented letters + \bbl@greek@setup@polytonic \expandafter\addto\expandafter\extrasgreek \expandafter{\extrasancientgreek}% \let\captionsgreek\captionsancientgreek - \let\gr@month\gr@polutoniko@month % (modern) polytonic month names \renewcommand{\greeknumeralninety}{\textqoppa}% \renewcommand{\greeknumeralNinety}{\textQoppa}% } +\bbl@declare@ttribute{greek}{keep-semicolon}{% + \def\bbl@tempa{LGR} + \ifx\greekfontencoding\bbl@tempa + \ProvideTextCommandDefault{\textsemicolon}{;} + \ProvideTextCommand{\textsemicolon}{LGR}{\texterotimatiko} + \initiate@active@char{;} + \addto\extrasgreek{\bbl@activate{;}} + \addto\noextrasgreek{\bbl@deactivate{;}} + \declare@shorthand{greek}{;}{\TextOrMath{\textsemicolon}{;}} + \fi +} \ifdefined\UnicodeEncodingName % set by XeTeX/LuaTeX \providecommand*{\greekfontencoding}{\UnicodeEncodingName} \providecommand*{\bbl@greek@fontencdef}{tuenc-greek} @@ -574,14 +588,7 @@ \DeclareTextCompositeCommand{\"}{TU}{^^9f}{\accdialytika} \fi }% end of the \IfFormatAtLeastTF else block - \begingroup - \@ifundefined{active@char\string!}{}{\catcode`!=12\relax} - \catcode`\~=12% - \lccode`\!=`\~% - \lowercase{\def\x{\endgroup - \def\greek@tilde{!}}\x} - \addto\extraspolutonikogreek{\languageshorthands{greek}} - \declare@shorthand{greek}{~}{\greek@tilde} + \DeclareTextSymbol{\bbl@greek@tilde}{LGR}{126} \fi % End of LGR-specific code. \providecommand*{\anwtonos}{\textdexiakeraia} \providecommand*{\katwtonos}{\textaristerikeraia} -- cgit v1.2.3