From e6a303a237982fbb9ad369052437d2a13bdb2eeb Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 15 Oct 2015 21:19:47 +0000 Subject: teubner (15oct15) git-svn-id: svn://tug.org/texlive/trunk@38654 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/teubner/teubner.sty | 55 +++++++++++------------ Master/texmf-dist/tex/latex/teubner/teubnertx.sty | 2 +- 2 files changed, 28 insertions(+), 29 deletions(-) (limited to 'Master/texmf-dist/tex/latex/teubner') diff --git a/Master/texmf-dist/tex/latex/teubner/teubner.sty b/Master/texmf-dist/tex/latex/teubner/teubner.sty index 5d60988e4ef..06457bc5d87 100644 --- a/Master/texmf-dist/tex/latex/teubner/teubner.sty +++ b/Master/texmf-dist/tex/latex/teubner/teubner.sty @@ -29,7 +29,7 @@ %% charge for copying, etc. \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{teubner}[% -2015/09/19 v.4.6 +2015/10/15 v.4.7 Extensions for Greek philology] \RequirePackage{iftex} \let\ifPDF\ifPDFTeX @@ -462,7 +462,7 @@ Type X to exit.}% \let\Stigma\textStigma \let\Sampi\textsampi \let\f\textdigamma -\let\Digamma\textDigamma +\let\F\textDigamma\let\Digamma\F \let\Euro\texteuro \let\permill\textperthousand \let\schwa\textschwa @@ -668,13 +668,6 @@ Type X to exit.}% {{\fontencoding{OT1}\selectfont j}}% \let\iod\yod -\DeclareTextSymbol{\f}{\GRencoding@name}{147} -\AtBeginDocument{\@ifpackageloaded{amssymb}% -{\let\AMSdigamma\digamma\def\digamma{\textormath{\f}{\AMSdigamma}}}% amssymb loaded -{\let\digamma\f}% amssymb not loadedloaded -} -\DeclareTextSymbol{\F}{\GRencoding@name}{195}\let\Digamma\F - \DeclareRobustCommand{\fLow}% {{\setbox\z@\hbox{\f}\dimen@\ht\z@ \advance\dimen@-1ex\raise-\dimen@\hbox{\box\z@}}} @@ -1185,20 +1178,25 @@ $\displaystyle\left.% \def\@ifStar#1#2{\def\@tempA{#1}\def\@tempB{#2}\futurelet\@tempC\@testStar} \def\@testStar{\ifx\@tempC*\bbl@afterelse\expandafter\@tempA\@gobble\else \bbl@afterfi\@tempB\fi} + \DeclareRobustCommand*{\Greeknumeral}{% - \let\n@vanta\Coppa\let\n@vecento\Sampi + \let\n@vanta\textQoppa\let\n@vecento\textSampi \@ifStar{\Gr@@kn@meral}{\Gr@@knum@ral}} + \DeclareRobustCommand*{\greeknumeral}{% - \let\n@vanta\varkoppa\let\n@vecento\sampi - \@ifStar{\let\s@i\stigma\gr@@numeral}{\let\s@i\fLow\gr@@numeral}} -\def\Gr@@kn@meral#1{\let\s@i\Stigma + \let\n@vanta\textqoppa\let\n@vecento\textsampi + \@ifStar{\let\s@i\textstigma\gr@@numeral}{\let\s@i\fLow\gr@@numeral}} + +\def\Gr@@kn@meral#1{\let\s@i\textStigma \expandafter\MakeUppercase\expandafter{\gr@@numeral{#1}}} -\def\Gr@@knum@ral#1{\let\s@i\Digamma + +\def\Gr@@knum@ral#1{\let\s@i\textDigamma \expandafter\MakeUppercase\expandafter{\gr@@numeral{#1}}} + \def\grtoday{{\expandafter\greeknumeral\expandafter{\the\day}}\space \gr@c@month\space{\expandafter\greeknumeral\expandafter{\the\year}}} -\def\gr@@numeral#1{% +\def\gr@@numeral#1{{% \ifnum#1<\@ne\space\gr@ill@value{#1}% \else \ifnum#1<10\relax\expandafter\gr@num@i\number#1% @@ -1221,33 +1219,34 @@ $\displaystyle\left.% \fi \fi \fi -} +}} \def\gr@num@i#1{% - \ifcase#1\or a\or b\or g\or d\or e% - \or \s@i\or z\or h\or j\fi + \ifcase#1\or \textalpha\or \textbeta\or \textgamma\or + \textdelta\or \textepsilon + \or \s@i\or \textzeta\or \texteta\or \texttheta\fi \ifnum#1=\z@\else\anw@true\fi\anw@print} \def\gr@num@ii#1{% - \ifcase#1\or i\or k\or l\or m\or n% - \or x\or o\or p\or \n@vanta\fi + \ifcase#1\or \textiota\or \textkappa\or \textlambda\or \textmu\or \textnu% + \or \textcsi\or \textomicron\or \textpi\or \n@vanta\fi \ifnum#1=\z@\else\anw@true\fi\gr@num@i} \def\gr@num@iii#1{% - \ifcase#1\or r\or s\or t\or u\or f% - \or q\or y\or w\or \n@vecento\fi + \ifcase#1\or \textrho\or \textsigma\or \texttau\or \textupsilon + \or \textalphaphi\or \textchi\or \textpsi\or \textomega\or \n@vecento\fi \ifnum#1=\z@\anw@false\else\anw@true\fi\gr@num@ii} \def\gr@num@iv#1{% \ifnum#1=\z@\else\katwtonos\fi - \ifcase#1\or a\or b\or g\or d\or e% - \or \s@i\or z\or h\or j\fi + \ifcase#1\or \textalpha\or \textbeta\or \textgamma\or \textdelta + \or \textepsilon\or \s@i\or \textzeta\or \texteta\or \texttheta\fi \gr@num@iii} \def\gr@num@v#1{% \ifnum#1=\z@\else\katwtonos\fi - \ifcase#1\or i\or k\or l\or m\or n% - \or x\or o\or p\or \n@vanta\fi + \ifcase#1\or \textiota\or \textkappa\or \textlambda\or + \textmu\or \textnu\or \textcsi\or \textomicron\or \textpi\or \n@vanta\fi \gr@num@iv} \def\gr@num@vi#1{% \katwtonos - \ifcase#1\or r\or s\or t\or u\or f% - \or q\or y\or w\or \n@vecento\fi + \ifcase#1\or \textrho\or \textsigma\or \texttau\or \textupsilon + \or \textphi\or \textchi\or \textpsi\or \textomega\or \n@vecento\fi \gr@num@v} \DeclareTextSymbol{\Vmiria}{\GRencoding@name}{5} diff --git a/Master/texmf-dist/tex/latex/teubner/teubnertx.sty b/Master/texmf-dist/tex/latex/teubner/teubnertx.sty index e18108a365c..116a9b9da1e 100644 --- a/Master/texmf-dist/tex/latex/teubner/teubnertx.sty +++ b/Master/texmf-dist/tex/latex/teubner/teubnertx.sty @@ -28,7 +28,7 @@ %% of either this file or a changed version, except for a nominal %% charge for copying, etc. \ProvidesPackage{teubnertx}[% -2015/09/19 v.4.6 +2015/10/15 v.4.7 Access to the LGR encoded Greek fonts that match the TX fonts] \DeclareFontFamily{LGR}{txr}{} -- cgit v1.2.3