From d67a29fcc364e11ab3a6f457ab7194f550c6319f Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 2 Oct 2014 22:39:15 +0000 Subject: teubner (2oct14) git-svn-id: svn://tug.org/texlive/trunk@35301 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/source/latex/teubner/teubner.dtx | 33 +++++++++++++++++----- 1 file changed, 26 insertions(+), 7 deletions(-) (limited to 'Master/texmf-dist/source/latex/teubner') diff --git a/Master/texmf-dist/source/latex/teubner/teubner.dtx b/Master/texmf-dist/source/latex/teubner/teubner.dtx index 67e2aad5854..f04104fd0cf 100644 --- a/Master/texmf-dist/source/latex/teubner/teubner.dtx +++ b/Master/texmf-dist/source/latex/teubner/teubner.dtx @@ -69,7 +69,7 @@ charge for copying, etc. %\ProvidesPackage{teubner}[% %\ProvidesPackage{teubnertx}[% %<*driver,package,tbtx> -2013/12/31 v.4.2 +2014/10/02 v.4.3 %Extensions for Greek philology] %Access to the LGR encoded Greek fonts that match the TX fonts] % @@ -79,7 +79,7 @@ charge for copying, etc. %<*driver> \documentclass{ltxdoc} \GetFileInfo{teubner.dtx} - \title{The \textsf{teubner} package\\ +\title{The \textsf{teubner} package\\ Extensions for Greek philology% \thanks{This file has version number \fileversion, last @@ -106,7 +106,7 @@ charge for copying, etc. % % \fi % -% \CheckSum{4298} +% \CheckSum{4326} % \begin{multicols}{2}\tableofcontents\end{multicols} % % @@ -435,7 +435,7 @@ Type X to exit.}% % compatibility with older versions, but the only legal command is now % \texttt{\string\oR}.}; |\oR| is a little exception since all the other % accent-vowel macros contain only lowercase letters; |og| is another exception, -% and the accent macros have to be used; |\og| collided with the Frenc command +% and the accent macros have to be used; |\og| collided with the French command % for inserting the opening guillemets (see below). The point is that accent vowel % sequences that directly access the accented glyph are made up as such: % \begin{sintassi} @@ -604,14 +604,33 @@ Type X to exit.}% % %\begin{macro}{\GreekName} % During the language switching operations |\GreekName| -% distinguishes the dialect or the main language whose attribute +% distinguishes the variant or the main language whose attribute % gets set and, evidently, becomes effective when the main language |greek| -% is in force. +% is in force. Notice that if the |greek.ldf| has a date previous to 2014/09/18, +% the attribute |ancient| may not be defined; in this case the |polutoniko| +% attribute is set, else the |ancient| attribute is selected. The difference +% is that the attribute |polutoniko| selects the polytonic spelling and the +% modern Greek hyphenation, while |ancient| selects the polytonic spelling and +% the classical Greek hyphenation. It is assumed that this |teubner| package +% gets used for philological purposes only for ancient Greek. Nevertheless, +% if some work on modern polytonic Greek philological document is being +% typeset, the |ancient| attribute may work satisfactorily, but with some +% possible ``ancient'' line breaks. % \begin{macrocode} \ifx\languageattribute\undefined \def\GreekName{polutonikogreek}% \else - \languageattribute{greek}{polutoniko}\def\GreekName{greek}% + \def\GreekName{greek} + \def\strip@slash#1/#2/#3!{\edef\@tempA{#1#2#3}} + \def\getgreekdate#1 #2 #3 #4!{\def\@tempA{#1}\expandafter\strip@slash\@tempA!} + \expandafter\expandafter\expandafter\getgreekdate\csname ver@greek.ldf\endcsname ! + \ifnum\@tempA<20140918 + \languageattribute{greek}{polutoniko}% + \else + \languageattribute{greek}{ancient}% + \fi + \let\strip@slash\@undefined + \let\getgreekdate\@undefined \fi % \end{macrocode} %\end{macro} -- cgit v1.2.3