summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/teubner
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-10-15 21:19:47 +0000
committerKarl Berry <karl@freefriends.org>2015-10-15 21:19:47 +0000
commite6a303a237982fbb9ad369052437d2a13bdb2eeb (patch)
tree02e0c8f1cfa597d0a4fbce6aac7ae09778660606 /Master/texmf-dist/source/latex/teubner
parent3407f3d41550bedf93b847580be3fadc6fe99325 (diff)
teubner (15oct15)
git-svn-id: svn://tug.org/texlive/trunk@38654 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/latex/teubner')
-rw-r--r--Master/texmf-dist/source/latex/teubner/teubner.dtx98
1 files changed, 50 insertions, 48 deletions
diff --git a/Master/texmf-dist/source/latex/teubner/teubner.dtx b/Master/texmf-dist/source/latex/teubner/teubner.dtx
index 1667ee7d1bd..fb8234c6d54 100644
--- a/Master/texmf-dist/source/latex/teubner/teubner.dtx
+++ b/Master/texmf-dist/source/latex/teubner/teubner.dtx
@@ -54,7 +54,7 @@ charge for copying, etc.
%<package>\ProvidesPackage{teubner}[%
%<tbtx>\ProvidesPackage{teubnertx}[%
%<*driver,package,tbtx>
-2015/09/19 v.4.6
+2015/10/15 v.4.7
%<package>Extensions for Greek philology]
%<tbtx>Access to the LGR encoded Greek fonts that match the TX fonts]
%</driver,package,tbtx>
@@ -88,7 +88,7 @@ charge for copying, etc.
%</driver>
% \fi
%
-% \CheckSum{4334}
+% \CheckSum{4363}
% \begin{multicols}{2}\tableofcontents\end{multicols}
%
%
@@ -1571,7 +1571,7 @@ Type X <return> 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
@@ -1870,21 +1870,13 @@ Type X <return> to exit.}%
% the |\ddigamma| and the |\digamma| macros, the former being the
% one defined in the |greek| option to \babel, the latter being
% a standard mathematical symbol; initially I believed that philologists do
-% not use mathematical symbols so we made |\digamma| an alias for |\f|; afterwards I
+% not use mathematical symbols so we made |\digamma| an alias for |\f|;
+% afterwards I
% found out that mathematicians, physicists, engineers,~\dots\ use the
% \textsf{teubner.sty} package and that the |\digamma| is a symbol already defined
% in the package \textsf{amssymb.sty}; therefore I made a conditional creation of
-% this alias; this trick is delayed to the beginning of the document, so as to make
-% it independent on the order with which packages are loaded.
-% \begin{macrocode}
-\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
-
-% \end{macrocode}
+% this alias; this trick is delayed to the beginning of the document, so as to
+% make it independent on the order with which packages are loaded. Actually since the introduction of the LICR macros, this is irrelevant and I deleted it.
%\end{macro}
%\end{macro}
%\end{macro}
@@ -1892,12 +1884,13 @@ Type X <return> to exit.}%
%
%\begin {macro}{\fLow}
%\begin {macro}{\fHigh}
-% The digamma glyphs set forth another question because, according to Paolo Ciacchi,
-% a different glyph should be used for typesetting text compared with the one that
-% is used as a variant in Milesian numerals in place of the standard stigma symbol.
+% The digamma glyphs set forth another question because, according to Paolo
+% Ciacchi, a different glyph should be used for typesetting text compared with
+% the one that is used as a variant in Milesian numerals in place of the standard
+% stigma symbol.
% By means of macros |\fLow| or |\fHigh| it is possible to chose the raised or the
-% lowered digamma glyphs; Greek numerals always use the lowered one, while when text
-% is being typeset the typesetter can chose the version he likes best.
+% lowered digamma glyphs; Greek numerals always use the lowered one, while when
+% text is being typeset the typesetter can chose the version he likes best.
% \begin{macrocode}
\DeclareRobustCommand{\fLow}%
{{\setbox\z@\hbox{\f}\dimen@\ht\z@
@@ -3300,16 +3293,21 @@ $\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}}}
@@ -3330,16 +3328,19 @@ $\displaystyle\left.%
% used for ``acrobatic performances'' but possibly for writing the Greek date with
% the AD year; six decimal places are more than enough for this purpose.
% |\gr@ill@value| was not redefined from Apostolos Syropoulos' \babel\ definition;
-% it simply issues a warning message about an argument out of range. The presence of
-% the primitive command |number| in these macros is for two purposes: (a) transforms
-% a counter contents into a sequence of digits tokens, and (b) if the argument is
-% already a digit string, it removes any leading zeros. No braces are present
-% because this string is examined sequentially one digit at a time from the leading
-% position to the least significant position; of course this means that the decimal
-% zero is treated correctly even if Milesian symbols do not have the equivalent of a
-% zero.
-% \begin{macrocode}
-\def\gr@@numeral#1{%
+% it simply issues a warning message about an argument out of range. The presence
+% of the primitive command |number| in these macros is for two purposes:
+% (a) transforms a counter contents into a sequence of digits tokens, and
+% (b) if the argument is already a digit string, it removes any leading zeros.
+% No braces are present because this string is examined sequentially one digit
+% at a time from the leading position to the least significant position; of
+% course this means that the decimal zero is treated correctly even if Milesian
+% symbols do not have the equivalent of a zero.
+% The double opening and closing braces are necessary to avoid a space vanishing
+% after using the |\gr@@numeral| macro; the six levels of digit reprentation are
+% corrected with the LICR macoros.
+% \begin{macrocode}
+\def\gr@@numeral#1{{%
\ifnum#1<\@ne\space\gr@ill@value{#1}%
\else
\ifnum#1<10\relax\expandafter\gr@num@i\number#1%
@@ -3362,7 +3363,7 @@ $\displaystyle\left.%
\fi
\fi
\fi
-}
+}}
% \end{macrocode}
%\end{macro}
%\begin{macro}{\gr@num@i}
@@ -3386,31 +3387,32 @@ $\displaystyle\left.%
% correct lower or upper case `qoppa' or sampi' respectively.
% \begin{macrocode}
\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}
% \end{macrocode}