teubner update (24jun10)

git-svn-id: svn://tug.org/texlive/trunk@19141 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 590 insertions, 130 deletions

diff --git a/Master/texmf-dist/tex/latex/teubner/LGRaccents-glyphs.def b/Master/texmf-dist/tex/latex/teubner/LGRaccents-glyphs.def
new file mode 100644
index 00000000000..59609487066
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/teubner/LGRaccents-glyphs.def
@@ -0,0 +1,288 @@
+%%
+%% This is file `LGRaccents-glyphs.def',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% teubner.dtx  (with options: `defs')
+%% 
+%% Copyright 2001--2010 Claudio Beccari All rights reserved.
+%% 
+%%  This system is distributed in the hope that it will be useful,
+%%  but WITHOUT ANY WARRANTY; without even the implied warranty of
+%%  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+%% 
+%% This file is distributed under the LPPL licence, version 1.3c
+%% dated 2008-05-04 or later as it appears in
+%% CTAN/macros/latex/base/lppl.tex.
+%% 
+%% IMPORTANT NOTICE:
+%% 
+%% You are not allowed to change this file.
+%% 
+%% You are allowed to distribute this file under the condition that it is
+%% specified in the source file teubner.dtx.
+%% 
+%% If you receive only some of these files from someone, complain!
+%% 
+%% You are NOT ALLOWED to distribute this file alone.  You are NOT
+%% ALLOWED to take money for the distribution or use of either this
+%% file or a changed version, except for a nominal charge for copying
+%% etc.
+%% \CharacterTable
+%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%%   Digits        \0\1\2\3\4\5\6\7\8\9
+%%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%%   Dollar        \$     Percent       \%     Ampersand     \&
+%%   Acute accent  \'     Left paren    \(     Right paren   \)
+%%   Asterisk      \*     Plus          \+     Comma         \,
+%%   Minus         \-     Point         \.     Solidus       \/
+%%   Colon         \:     Semicolon     \;     Less than     \<
+%%   Equals        \=     Greater than  \>     Question mark \?
+%%   Commercial at \@     Left bracket  \[     Backslash     \\
+%%   Right bracket \]     Circumflex    \^     Underscore    \_
+%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%%   Right brace   \}     Tilde         \~}
+\ProvidesFile{LGRaccents-glyphs.def}%
+   [2010/05/08 v.2.0a Definitions of accents and glyphs for LGR encoded Greek fonts]
+\providecommand*\GRencoding@name{LGR}
+\DeclareTextAccent{\u}{\GRencoding@name}{"1E} % breve
+\DeclareTextAccent{\=}{\GRencoding@name}{"1F} % macron
+
+\DeclareTextAccent{\Dialytika}{\GRencoding@name}{"22} % dialytika
+\DeclareTextAccent{\Oxia}{\GRencoding@name}{"27} %  oxia
+\DeclareTextAccent{\Varia}{\GRencoding@name}{"60} % varia
+\DeclareTextAccent{\Perispomeni}{\GRencoding@name}{"7E} % perispomeni
+\DeclareTextAccent{\Dasia}{\GRencoding@name}{"3C} % rough breath/spirit
+\DeclareTextAccent{\Psili}{\GRencoding@name}{"3E} % smooth breath/spirit
+\DeclareTextCommand{\<}{\GRencoding@name}{\Dasia} % alias coomand
+\DeclareTextCommand{\>}{\GRencoding@name}{\Psili} % alias command
+\DeclareTextAccent{\DialytikaOxia}{\GRencoding@name}{"23}        % oxia+dialytika
+\DeclareTextAccent{\DialytikaVaria}{\GRencoding@name}{"24}       % varia+dialytika
+\DeclareTextAccent{\DialytikaPerispomeni}{\GRencoding@name}{"20} % perisp.+dial.
+
+\DeclareTextAccent{\DasiaOxia}{\GRencoding@name}{"56}       % oxia+rough
+\DeclareTextAccent{\DasiaVaria}{\GRencoding@name}{"43}      % varia+rough
+\DeclareTextAccent{\DasiaPerispomeni}{\GRencoding@name}{"40}% perisp.+rough
+
+\DeclareTextAccent{\PsiliOxia}{\GRencoding@name}{"5E}       % oxia+smooth
+\DeclareTextAccent{\PsiliVaria}{\GRencoding@name}{"5F}   % varia+smooth
+\DeclareTextAccent{\PsiliPerispomeni}{\GRencoding@name}{"5C}% perisp/+smooth
+\DeclareTextCompositeCommand{\"}{\GRencoding@name}{'}{\DialytikaOxia}
+\DeclareTextCompositeCommand{\"}{\GRencoding@name}{\'}{\DialytikaOxia}
+\DeclareTextCompositeCommand{\"}{\GRencoding@name}{`}{\DialytikaVaria}
+\DeclareTextCompositeCommand{\"}{\GRencoding@name}{\`}{\DialytikaVaria}
+\DeclareTextCompositeCommand{\"}{\GRencoding@name}{~}{\DialytikaPerispomeni}
+\DeclareTextCompositeCommand{\"}{\GRencoding@name}{\~}{\DialytikaPerispomeni}
+
+\DeclareTextCompositeCommand{\'}{\GRencoding@name}{"}{\DialytikaOxia}
+\DeclareTextCompositeCommand{\'}{\GRencoding@name}{\"}{\DialytikaOxia}
+\DeclareTextCompositeCommand{\'}{\GRencoding@name}{<}{\DasiaOxia}
+\DeclareTextCompositeCommand{\'}{\GRencoding@name}{\<}{\DasiaOxia}
+\DeclareTextCompositeCommand{\'}{\GRencoding@name}{>}{\PsiliOxia}
+\DeclareTextCompositeCommand{\'}{\GRencoding@name}{\>}{\PsiliOxia}
+
+\DeclareTextCompositeCommand{\`}{\GRencoding@name}{"}{\DialytikaVaria}
+\DeclareTextCompositeCommand{\`}{\GRencoding@name}{\"}{\DialytikaVaria}
+\DeclareTextCompositeCommand{\`}{\GRencoding@name}{<}{\DasiaVaria}
+\DeclareTextCompositeCommand{\`}{\GRencoding@name}{\<}{\DasiaVaria}
+\DeclareTextCompositeCommand{\`}{\GRencoding@name}{>}{\PsiliVaria}
+\DeclareTextCompositeCommand{\`}{\GRencoding@name}{\>}{\PsiliVaria}
+
+\DeclareTextCompositeCommand{\~}{\GRencoding@name}{"}{\DialytikaPerispomeni}
+\DeclareTextCompositeCommand{\~}{\GRencoding@name}{\"}{\DialytikaPerispomeni}
+\DeclareTextCompositeCommand{\~}{\GRencoding@name}{<}{\DasiaPerispomeni}
+\DeclareTextCompositeCommand{\~}{\GRencoding@name}{\<}{\DasiaPerispomeni}
+\DeclareTextCompositeCommand{\~}{\GRencoding@name}{>}{\PsiliPerispomeni}
+\DeclareTextCompositeCommand{\~}{\GRencoding@name}{\>}{\PsiliPerispomeni}
+
+\DeclareTextCompositeCommand{\Psili}{\GRencoding@name}{'}{\PsiliOxia}
+\DeclareTextCompositeCommand{\Psili}{\GRencoding@name}{\'}{\PsiliOxia}
+\DeclareTextCompositeCommand{\Psili}{\GRencoding@name}{`}{\PsiliVaria}
+\DeclareTextCompositeCommand{\Psili}{\GRencoding@name}{\`}{\PsiliVaria}
+\DeclareTextCompositeCommand{\Psili}{\GRencoding@name}{~}{\PsiliPerispomeni}
+\DeclareTextCompositeCommand{\Psili}{\GRencoding@name}{\~}{\PsiliPerispomeni}
+
+\DeclareTextCompositeCommand{\Dasia}{\GRencoding@name}{'}{\DasiaOxia}
+\DeclareTextCompositeCommand{\Dasia}{\GRencoding@name}{\'}{\DasiaOxia}
+\DeclareTextCompositeCommand{\Dasia}{\GRencoding@name}{`}{\DasiaVaria}
+\DeclareTextCompositeCommand{\Dasia}{\GRencoding@name}{\`}{\DasiaVaria}
+\DeclareTextCompositeCommand{\Dasia}{\GRencoding@name}{~}{\DasiaPerispomeni}
+\DeclareTextCompositeCommand{\Dasia}{\GRencoding@name}{\~}{\DasiaPerispomeni}
+
+
+\DeclareTextComposite{\`}{\GRencoding@name}{a}{128}
+\DeclareTextComposite{\Dasia}{\GRencoding@name}{a}{129}
+\DeclareTextComposite{\Psili}{\GRencoding@name}{a}{130}
+\DeclareTextComposite{\'}{\GRencoding@name}{a}{136}
+\DeclareTextComposite{\~}{\GRencoding@name}{a}{144}
+\DeclareTextComposite{\DasiaOxia}{\GRencoding@name}{a}{137}
+\DeclareTextComposite{\DasiaPerispomeni}{\GRencoding@name}{a}{145}
+\DeclareTextComposite{\DasiaVaria}{\GRencoding@name}{a}{131}
+\DeclareTextComposite{\PsiliOxia}{\GRencoding@name}{a}{138}
+\DeclareTextComposite{\PsiliPerispomeni}{\GRencoding@name}{a}{146}
+\DeclareTextComposite{\PsiliVaria}{\GRencoding@name}{a}{139}
+\DeclareTextComposite{\`}{\GRencoding@name}{h}{152}
+\DeclareTextComposite{\Dasia}{\GRencoding@name}{h}{153}
+\DeclareTextComposite{\Psili}{\GRencoding@name}{h}{154}
+\DeclareTextComposite{\DasiaVaria}{\GRencoding@name}{h}{163}
+\DeclareTextComposite{\'}{\GRencoding@name}{h}{160}
+\DeclareTextComposite{\DasiaOxia}{\GRencoding@name}{h}{161}
+\DeclareTextComposite{\PsiliOxia}{\GRencoding@name}{h}{162}
+\DeclareTextComposite{\PsiliVaria}{\GRencoding@name}{h}{171}
+\DeclareTextComposite{\~}{\GRencoding@name}{h}{168}
+\DeclareTextComposite{\DasiaPerispomeni}{\GRencoding@name}{h}{169}
+\DeclareTextComposite{\PsiliPerispomeni}{\GRencoding@name}{h}{170}
+\DeclareTextComposite{\`}{\GRencoding@name}{w}{176}
+\DeclareTextComposite{\Dasia}{\GRencoding@name}{w}{177}
+\DeclareTextComposite{\Psili}{\GRencoding@name}{w}{178}
+\DeclareTextComposite{\DasiaVaria}{\GRencoding@name}{w}{179}
+\DeclareTextComposite{\'}{\GRencoding@name}{w}{184}
+\DeclareTextComposite{\DasiaOxia}{\GRencoding@name}{w}{185}
+\DeclareTextComposite{\PsiliOxia}{\GRencoding@name}{w}{186}
+\DeclareTextComposite{\PsiliVaria}{\GRencoding@name}{w}{187}
+\DeclareTextComposite{\~}{\GRencoding@name}{w}{192}
+\DeclareTextComposite{\DasiaPerispomeni}{\GRencoding@name}{w}{193}
+\DeclareTextComposite{\PsiliPerispomeni}{\GRencoding@name}{w}{194}
+\DeclareTextComposite{\`}{\GRencoding@name}{i}{200}
+\DeclareTextComposite{\Dasia}{\GRencoding@name}{i}{201}
+\DeclareTextComposite{\Psili}{\GRencoding@name}{i}{202}
+\DeclareTextComposite{\DasiaVaria}{\GRencoding@name}{i}{203}
+\DeclareTextComposite{\'}{\GRencoding@name}{i}{208}
+\DeclareTextComposite{\DasiaOxia}{\GRencoding@name}{i}{209}
+\DeclareTextComposite{\PsiliOxia}{\GRencoding@name}{i}{210}
+\DeclareTextComposite{\PsiliVaria}{\GRencoding@name}{i}{211}
+\DeclareTextComposite{\~}{\GRencoding@name}{i}{216}
+\DeclareTextComposite{\DasiaPerispomeni}{\GRencoding@name}{i}{217}
+\DeclareTextComposite{\PsiliPerispomeni}{\GRencoding@name}{i}{218}
+\DeclareTextComposite{\"}{\GRencoding@name}{i}{240}
+\DeclareTextComposite{\DialytikaVaria}{\GRencoding@name}{i}{241}
+\DeclareTextComposite{\DialytikaTonos}{\GRencoding@name}{i}{242}
+\DeclareTextComposite{\DialytikaPerispomeni}{\GRencoding@name}{i}{243}
+\DeclareTextComposite{\`}{\GRencoding@name}{u}{204}
+\DeclareTextComposite{\Dasia}{\GRencoding@name}{u}{205}
+\DeclareTextComposite{\Psili}{\GRencoding@name}{u}{206}
+\DeclareTextComposite{\DasiaVaria}{\GRencoding@name}{u}{207}
+\DeclareTextComposite{\'}{\GRencoding@name}{u}{212}
+\DeclareTextComposite{\DasiaOxia}{\GRencoding@name}{u}{213}
+\DeclareTextComposite{\PsiliOxia}{\GRencoding@name}{u}{214}
+\DeclareTextComposite{\PsiliVaria}{\GRencoding@name}{u}{215}
+\DeclareTextComposite{\~}{\GRencoding@name}{u}{220}
+\DeclareTextComposite{\DasiaPerispomeni}{\GRencoding@name}{u}{221}
+\DeclareTextComposite{\PsiliPerispomeni}{\GRencoding@name}{u}{222}
+\DeclareTextComposite{\"}{\GRencoding@name}{u}{244}
+\DeclareTextComposite{\DialytikaVaria}{\GRencoding@name}{u}{245}
+\DeclareTextComposite{\DialytikaTonos}{\GRencoding@name}{u}{246}
+\DeclareTextComposite{\DialytikaPerispomeni}{\GRencoding@name}{u}{247}
+\DeclareTextComposite{\`}{\GRencoding@name}{e}{224}
+\DeclareTextComposite{\Dasia}{\GRencoding@name}{e}{225}
+\DeclareTextComposite{\Psili}{\GRencoding@name}{e}{226}
+\DeclareTextComposite{\DasiaVaria}{\GRencoding@name}{e}{227}
+\DeclareTextComposite{\'}{\GRencoding@name}{e}{232}
+\DeclareTextComposite{\DasiaOxia}{\GRencoding@name}{e}{233}
+\DeclareTextComposite{\PsiliOxia}{\GRencoding@name}{e}{234}
+\DeclareTextComposite{\PsiliVaria}{\GRencoding@name}{e}{235}
+\DeclareTextComposite{\Dasia}{\GRencoding@name}{o}{229}
+\DeclareTextComposite{\`}{\GRencoding@name}{o}{228}
+\DeclareTextComposite{\Psili}{\GRencoding@name}{o}{230}
+\DeclareTextComposite{\DasiaVaria}{\GRencoding@name}{o}{231}
+\DeclareTextComposite{\'}{\GRencoding@name}{o}{236}
+\DeclareTextComposite{\DasiaOxia}{\GRencoding@name}{o}{237}
+\DeclareTextComposite{\PsiliOxia}{\GRencoding@name}{o}{238}
+\DeclareTextComposite{\PsiliVaria}{\GRencoding@name}{o}{239}
+\DeclareTextComposite{\Dasia}{\GRencoding@name}{r}{251}
+\DeclareTextComposite{\Psili}{\GRencoding@name}{r}{252}
+
+\DeclareTextComposite{\"}{\GRencoding@name}{I}{219}
+\DeclareTextComposite{\"}{\GRencoding@name}{U}{223}
+
+\DeclareTextCompositeCommand{\Psili}{\GRencoding@name}{A}{>A}
+\DeclareTextCompositeCommand{\Dasia}{\GRencoding@name}{A}{<A}
+\DeclareTextCompositeCommand{\Perispomeni}{\GRencoding@name}{A}{A}
+\DeclareTextCompositeCommand{\Varia}{\GRencoding@name}{A}{A}
+\DeclareTextCompositeCommand{\Oxia}{\GRencoding@name}{A}{A}
+\DeclareTextCompositeCommand{\PsiliVaria}{\GRencoding@name}{A}{>`A}
+\DeclareTextCompositeCommand{\DasiaVaria}{\GRencoding@name}{A}{<`A}
+\DeclareTextCompositeCommand{\PsiliOxia}{\GRencoding@name}{A}{>'A}
+\DeclareTextCompositeCommand{\DasiaOxia}{\GRencoding@name}{A}{<'A}
+\DeclareTextCompositeCommand{\PsiliPerispomeni}{\GRencoding@name}{A}{>\char126A}
+\DeclareTextCompositeCommand{\DasiaPerispomeni}{\GRencoding@name}{A}{<\char126A}
+\DeclareTextCompositeCommand{\>}{\GRencoding@name}{A}{>A}
+\DeclareTextCompositeCommand{\<}{\GRencoding@name}{A}{<A}
+
+\DeclareTextCompositeCommand{\Psili}{\GRencoding@name}{E}{>E}
+\DeclareTextCompositeCommand{\Dasia}{\GRencoding@name}{E}{<E}
+\DeclareTextCompositeCommand{\Varia}{\GRencoding@name}{E}{E}
+\DeclareTextCompositeCommand{\Oxia}{\GRencoding@name}{E}{E}
+\DeclareTextCompositeCommand{\PsiliVaria}{\GRencoding@name}{E}{>`E}
+\DeclareTextCompositeCommand{\DasiaVaria}{\GRencoding@name}{E}{<`E}
+\DeclareTextCompositeCommand{\PsiliOxia}{\GRencoding@name}{E}{>'E}
+\DeclareTextCompositeCommand{\DasiaOxia}{\GRencoding@name}{E}{<'E}
+\DeclareTextCompositeCommand{\>}{\GRencoding@name}{E}{>E}
+\DeclareTextCompositeCommand{\<}{\GRencoding@name}{E}{<E}
+
+\DeclareTextCompositeCommand{\Psili}{\GRencoding@name}{H}{>H}
+\DeclareTextCompositeCommand{\Dasia}{\GRencoding@name}{H}{<H}
+\DeclareTextCompositeCommand{\Perispomeni}{\GRencoding@name}{H}{H}
+\DeclareTextCompositeCommand{\Varia}{\GRencoding@name}{H}{H}
+\DeclareTextCompositeCommand{\Oxia}{\GRencoding@name}{H}{H}
+\DeclareTextCompositeCommand{\PsiliVaria}{\GRencoding@name}{H}{>`H}
+\DeclareTextCompositeCommand{\DasiaVaria}{\GRencoding@name}{H}{<`H}
+\DeclareTextCompositeCommand{\PsiliOxia}{\GRencoding@name}{H}{>'H}
+\DeclareTextCompositeCommand{\DasiaOxia}{\GRencoding@name}{H}{<'H}
+\DeclareTextCompositeCommand{\PsiliPerispomeni}{\GRencoding@name}{H}{>\char126H}
+\DeclareTextCompositeCommand{\DasiaPerispomeni}{\GRencoding@name}{H}{<\char126H}
+\DeclareTextCompositeCommand{\>}{\GRencoding@name}{H}{>H}
+\DeclareTextCompositeCommand{\<}{\GRencoding@name}{H}{<H}
+
+\DeclareTextCompositeCommand{\Psili}{\GRencoding@name}{I}{>I}
+\DeclareTextCompositeCommand{\Dasia}{\GRencoding@name}{I}{<I}
+\DeclareTextCompositeCommand{\Perispomeni}{\GRencoding@name}{I}{I}
+\DeclareTextCompositeCommand{\Varia}{\GRencoding@name}{I}{I}
+\DeclareTextCompositeCommand{\Oxia}{\GRencoding@name}{I}{I}
+\DeclareTextCompositeCommand{\PsiliVaria}{\GRencoding@name}{I}{>`I}
+\DeclareTextCompositeCommand{\DasiaVaria}{\GRencoding@name}{I}{<`I}
+\DeclareTextCompositeCommand{\PsiliOxia}{\GRencoding@name}{I}{>'I}
+\DeclareTextCompositeCommand{\DasiaOxia}{\GRencoding@name}{I}{<'I}
+\DeclareTextCompositeCommand{\PsiliPerispomeni}{\GRencoding@name}{I}{>\char126I}
+\DeclareTextCompositeCommand{\DasiaPerispomeni}{\GRencoding@name}{I}{<\char126I}
+\DeclareTextCompositeCommand{\>}{\GRencoding@name}{I}{>I}
+\DeclareTextCompositeCommand{\<}{\GRencoding@name}{I}{<I}
+
+\DeclareTextCompositeCommand{\Psili}{\GRencoding@name}{O}{>O}
+\DeclareTextCompositeCommand{\Dasia}{\GRencoding@name}{O}{<O}
+\DeclareTextCompositeCommand{\Varia}{\GRencoding@name}{O}{O}
+\DeclareTextCompositeCommand{\Oxia}{\GRencoding@name}{O}{O}
+\DeclareTextCompositeCommand{\PsiliVaria}{\GRencoding@name}{O}{>`O}
+\DeclareTextCompositeCommand{\DasiaVaria}{\GRencoding@name}{O}{<`O}
+\DeclareTextCompositeCommand{\PsiliOxia}{\GRencoding@name}{O}{>'O}
+\DeclareTextCompositeCommand{\DasiaOxia}{\GRencoding@name}{O}{<'O}
+\DeclareTextCompositeCommand{\>}{\GRencoding@name}{O}{>O}
+\DeclareTextCompositeCommand{\<}{\GRencoding@name}{O}{<O}
+
+\DeclareTextCompositeCommand{\Dasia}{\GRencoding@name}{U}{<U}
+\DeclareTextCompositeCommand{\DasiaVaria}{\GRencoding@name}{U}{<`U}
+\DeclareTextCompositeCommand{\Perispomeni}{\GRencoding@name}{U}{U}
+\DeclareTextCompositeCommand{\Varia}{\GRencoding@name}{U}{U}
+\DeclareTextCompositeCommand{\Oxia}{\GRencoding@name}{U}{U}
+\DeclareTextCompositeCommand{\DasiaOxia}{\GRencoding@name}{U}{<'U}
+\DeclareTextCompositeCommand{\DasiaPerispomeni}{\GRencoding@name}{U}{<\char126U}
+\DeclareTextCompositeCommand{\<}{\GRencoding@name}{U}{<U}
+
+\DeclareTextCompositeCommand{\Psili}{\GRencoding@name}{W}{>W}
+\DeclareTextCompositeCommand{\Dasia}{\GRencoding@name}{W}{<W}
+\DeclareTextCompositeCommand{\Perispomeni}{\GRencoding@name}{W}{W}
+\DeclareTextCompositeCommand{\Varia}{\GRencoding@name}{W}{W}
+\DeclareTextCompositeCommand{\Oxia}{\GRencoding@name}{W}{W}
+\DeclareTextCompositeCommand{\PsiliVaria}{\GRencoding@name}{W}{>`W}
+\DeclareTextCompositeCommand{\DasiaVaria}{\GRencoding@name}{W}{<`W}
+\DeclareTextCompositeCommand{\PsiliOxia}{\GRencoding@name}{W}{>'W}
+\DeclareTextCompositeCommand{\DasiaOxia}{\GRencoding@name}{W}{<'W}
+\DeclareTextCompositeCommand{\PsiliPerispomeni}{\GRencoding@name}{W}{>\char126W}
+\DeclareTextCompositeCommand{\DasiaPerispomeni}{\GRencoding@name}{W}{<\char126W}
+\DeclareTextCompositeCommand{\>}{\GRencoding@name}{W}{>W}
+\DeclareTextCompositeCommand{\<}{\GRencoding@name}{W}{<W}
+\endinput
+%%
+%% End of file `LGRaccents-glyphs.def'.
diff --git a/Master/texmf-dist/tex/latex/teubner/teubner.sty b/Master/texmf-dist/tex/latex/teubner/teubner.sty
index 7565315a085..23671012344 100644
--- a/Master/texmf-dist/tex/latex/teubner/teubner.sty
+++ b/Master/texmf-dist/tex/latex/teubner/teubner.sty
@@ -6,12 +6,15 @@
 %%
 %% teubner.dtx  (with options: `package')
 %% 
-%% Copyright 2001--2004 Claudio Beccari All rights reserved.
+%% Copyright 2001--2010 Claudio Beccari All rights reserved.
 %% 
 %%  This system is distributed in the hope that it will be useful,
 %%  but WITHOUT ANY WARRANTY; without even the implied warranty of
 %%  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 %% 
+%% This file is distributed under the LPPL licence, version 1.3c
+%% dated 2008-05-04 or later as it appears in
+%% CTAN/macros/latex/base/lppl.tex.
 %% 
 %% IMPORTANT NOTICE:
 %% 
@@ -42,8 +45,7 @@
 %%   Grave accent  \`     Left brace    \{     Vertical bar  \|
 %%   Right brace   \}     Tilde         \~}
 \NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{teubner}
-              [2008/02/10 v.2.2d extensions for Greek philology]
+\ProvidesPackage{teubner}[2010/05/08 v.3.0k extensions for Greek philology]
 \ifx\teubner\undefined
     \def\teubner{teubner}\else\expandafter\endinput
 \fi
@@ -59,17 +61,32 @@ Type X <return> to exit.}%
 \fi
 \newif\ifor\orfalse % Compatibility with older versions
 \DeclareOption{or}{\relax}
+\newif\ifboldLipsian \boldLipsianfalse
+\DeclareOption{boldLipsian}{\boldLipsiantrue}
 \newif\ifonesizetypeone
 \DeclareOption{10pt}{\onesizetypeonetrue}
+\newif\ifGlyphNames \GlyphNamestrue
+\DeclareOption{NoGlyphNames}{\GlyphNamesfalse}
 \ProcessOptions*
 \def\GRencoding@name{LGR}
-\ifonesizetypeone\RequirePackage[10pt]{type1ec}[2002/09/07]\fi
-\input{lgrcmr.fd}
-\expandafter\EC@family\expandafter{\GRencoding@name}{cmr}{m}{it}  {grml}
-\expandafter\EC@family\expandafter{\GRencoding@name}{cmr}{bx}{it} {grxl}
+\ifonesizetypeone
+   \RequirePackage[10pt]{type1ec}[2002/09/07]
+\fi
+\RequirePackage{graphicx}
+\RequirePackage{ifthen}
 \DeclareFontFamily{U}{mtr}{\hyphenchar\font\m@ne}
-\EC@family{U}{mtr}{m}{n}{gmtr}
-\DeclareFontShape{U}{mtr}{m}{it}{<->ssub*mtr/m/n}{}
+\ifonesizetypeone
+\DeclareFontShape{U}{mtr}{m}{n}{<-> gmtr1000}{}%
+\else
+\DeclareFontShape{U}{mtr}{m}{n}{%
+      <-5.5>    gmtr0500     <5.5-6.5> gmtr0600
+      <6.5-7.5> gmtr0700     <7.5-8.5> gmtr0800
+      <8.5-9.5> gmtr0900     <9.5-11>  gmtr1000
+      <11-15>   gmtr1200     <15->     gmtr1728}{}%
+\fi
+\DeclareFontShape{U}{mtr}{m}{it}{<->ssub*mtr/m/n}{}%
+\DeclareFontShape{U}{mtr}{b}{it}{<->ssub*mtr/m/n}{}%
+\DeclareFontShape{U}{mtr}{b}{n}{<->ssub*mtr/m/n}{}%
 \newcommand*\metricsfont{\fontencoding{U}\fontfamily{mtr}\upshape}
 \RequirePackage{exscale}
 \ifx\languageattribute\undefined
@@ -77,40 +94,117 @@ Type X <return> to exit.}%
 \else
  \languageattribute{greek}{polutoniko}\def\GreekName{greek}%
 \fi
+\newif\ifLipsian
+
+\providecommand*\substitutefontfamily{}%
+\renewcommand*\substitutefontfamily[3]{{%
+  \edef\@tempA{#1#2.fd}%
+  \lowercase\expandafter{\expandafter\def\expandafter\@tempA\expandafter{\@tempA}}%
+  \expandafter\IfFileExists\expandafter{\@tempA}{}{%
+  \immediate\openout15=\@tempA
+  \typeout{Writing file #1#2.fd}
+  \immediate\write15{%
+    \string\ProvidesFile{#1#2.fd}^^J
+    [\the\year/\two@digits{\the\month}/\two@digits{\the\day}
+     \space generated font description file]^^J
+    \string\DeclareFontFamily{#1}{#2}{}^^J
+    \string\DeclareFontShape{#1}{#2}{m}{n}{<->ssub * #3/m/n}{}^^J
+    \string\DeclareFontShape{#1}{#2}{m}{it}{<->ssub * #3/m/it}{}^^J
+    \string\DeclareFontShape{#1}{#2}{m}{sl}{<->ssub * #3/m/sl}{}^^J
+    \string\DeclareFontShape{#1}{#2}{m}{sc}{<->ssub * #3/m/sc}{}^^J
+    \string\DeclareFontShape{#1}{#2}{b}{n}{<->ssub * #3/bx/n}{}^^J
+    \string\DeclareFontShape{#1}{#2}{b}{it}{<->ssub * #3/bx/it}{}^^J
+    \string\DeclareFontShape{#1}{#2}{b}{sl}{<->ssub * #3/bx/sl}{}^^J
+    \string\DeclareFontShape{#1}{#2}{b}{sc}{<->ssub * #3/bx/sc}{}^^J
+    \string\DeclareFontShape{#1}{#2}{bx}{n}{<->ssub * #3/bx/n}{}^^J
+    \string\DeclareFontShape{#1}{#2}{bx}{it}{<->ssub * #3/bx/it}{}^^J
+    \string\DeclareFontShape{#1}{#2}{bx}{sl}{<->ssub * #3/bx/sl}{}^^J
+    \string\DeclareFontShape{#1}{#2}{bx}{sc}{<->ssub * #3/bx/sc}{}^^J
+    }%
+    \ifLipsian
+    \immediate\write15{%
+    \string\DeclareFontShape{#1}{#2}{m}{li}{<->ssub * #3/m/li}{}^^J %<- Lipsian
+    \string\DeclareFontShape{#1}{#2}{b}{li}{<->ssub * #3/b/li}{}^^J %<- Lipsian
+    \string\DeclareFontShape{#1}{#2}{bx}{li}{<->ssub * #3/bx/li}{}^^J %<-Lipsian
+    \string\DeclareFontShape{#1}{#2}{m}{ui}{<->ssub * #3/m/ui}{}^^J %<- upright Olga
+    \string\DeclareFontShape{#1}{#2}{b}{ui}{<->ssub * #3/m/ui}{}^^J %<- upright Olga
+    \string\DeclareFontShape{#1}{#2}{bx}{ui}{<->ssub * #3/bx/ui}{}^^J%<-upright Olga
+    \string\DeclareFontShape{#1}{#2}{m}{rs}{<->ssub * #3/m/rs}{}^^J %<-serifed lc
+    \string\DeclareFontShape{#1}{#2}{b}{rs}{<->ssub * #3/m/rs}{}^^J %<-serifed lc
+    \string\DeclareFontShape{#1}{#2}{bx}{rs}{<->ssub * #3/bx/rs}{}^^J%<-serifed lc
+    }%
+    \fi
+  \closeout15}%
+  }}
+
+\def\ifCMLM#1#2#3!{\edef\f@milyprefix{#1#2}%
+   \ifthenelse{\(\equal{\f@milyprefix}{cm}\OR\equal{\f@milyprefix}{lm}\)}%
+   {\let\n@xt\iftrue}{\def\f@milyprefix{cmr}\let\n@xt\iffalse}\n@xt}
+
+\newcommand*\ifFamily[2]{%
+\expandafter\ifCMLM#1!\else\substitutefontfamily{LGR}{#1}{#2}\fi}
+
+\AtBeginDocument{%
+\@ifpackageloaded{pxfonts}{\typeout{Palatino fonts loaded}%
+\Lipsiantrue\ifFamily{pxr}{cmr}\Lipsianfalse
+\ifFamily{pxss}{cmss}\ifFamily{pxtt}{cmtt}}{\relax}}
+
+\AtBeginDocument{%
+\@ifpackageloaded{txfonts}{\typeout{Times fonts loaded}%
+\Lipsiantrue\ifFamily{txr}{cmr}\Lipsianfalse
+\ifFamily{txss}{cmss}\ifFamily{txtt}{cmtt}}{}}
+
 \AtBeginDocument{%
     \edef\previouslanguage{\languagename}%
-    \edef\previousencoding{\f@encoding}%
-}
-\DeclareRobustCommand\Lipsiakostext{\edef\previouslanguage{\languagename}%
-    \edef\previousencoding{\f@encoding}%
+    \edef\previousencoding{\f@encoding}}
+\DeclareRobustCommand{\lishape}{%
+\not@math@alphabet\lishape\relax
+\ifthenelse{\equal{\f@encoding}{\GRencoding@name}}{%
+\ifboldLipsian
+\ifthenelse{\equal{\f@series}{m}}%
+{\fontseries{b}\fontshape{li}\rmfamily}%
+{\fontshape{li}\rmfamily}\else
+\fontshape{li}\rmfamily\fi}%
+{\fontshape{it}\selectfont}}%
+
+\DeclareTextFontCommand{\textli}{\lishape}%
+\DeclareRobustCommand\Lipsiakostext{%
     \expandafter\select@language\expandafter{\GreekName}%
-    \let\~\GRcirc\let~\greek@tilde\itshape}
+    \let\~\GRcirc\let~\greek@tilde\lishape}
+
+\DeclareTextFontCommand{\textLipsias}{\Lipsiakostext}
+
 \DeclareRobustCommand\NoLipsiakostext{%
+    \ifthenelse{\equal{\f@series}{b}}{\fontseries{m}}{\relax}%
+    \fontshape{n}\selectfont
     \expandafter\select@language\expandafter{\previouslanguage}%
-    \expandafter\fontencoding\expandafter{\previousencoding}\upshape
-    \edef\previouslanguage{\languagename}%
-    \edef\previousencoding{\f@encoding}\bbl@activate{~}%
-}
-\DeclareRobustCommand\textLipsias[1]{{%
-    \expandafter\select@language\expandafter{\GreekName}%
-    \expandafter\fontencoding\expandafter{\GRencoding@name}%
-    \itshape\let\~\GRcirc\let~\greek@tilde#1}%
-}
+    \rmfamily\bbl@activate{~}}
+
 \DeclareRobustCommand\textDidot[1]{{%
     \expandafter\select@language\expandafter{\GreekName}%
-    \expandafter\fontencoding\expandafter{\GRencoding@name}%
-    \upshape\let\~\GRcirc\let~\greek@tilde#1}%
-}
+    \let\~\GRcirc\let~\greek@tilde
+    \fontencoding{LGR}\rmfamily#1}}
+
 \DeclareRobustCommand\textlatin[1]{\edef\externalencoding{\f@encoding}{%
+    \def\itdefault{it}\def\@tempA{li}\ifx\@tempA\f@shape\def\f@shape{it}\fi%
     \expandafter\select@language\expandafter{\previouslanguage}%
-    \expandafter\fontencoding\expandafter{\previousencoding}%
-    \bbl@activate{~}\upshape#1}%
-    \expandafter\fontencoding\expandafter{\externalencoding}\selectfont}
-{%
-\catcode`p=12\catcode`t=12\gdef\numero#1pt{#1}%
-}
+    \fontencoding{\previousencoding}%
+    \fontfamily{\rmdefault}\selectfont
+    \bbl@activate{~}#1}%
+    \expandafter\fontencoding\expandafter{\externalencoding}\rmfamily}
+
+\DeclareRobustCommand\uishape{%
+\ifthenelse{\equal{\f@encoding}{\GRencoding@name}}%
+{\fontshape{ui}\selectfont}{\relax}}
+\DeclareTextFontCommand{\textui}{\uishape}
+
+\DeclareRobustCommand\rsshape{%
+\ifthenelse{\equal{\f@encoding}{\GRencoding@name}}%
+{\fontshape{rs}\selectfont}{\relax}}
+\DeclareTextFontCommand{\textrs}{\rsshape}
+
 \newcommand*\lift@accent[2]{\leavevmode
-{\edef\slant@{\expandafter\numero\the\fontdimen1\font}%
+{\edef\slant@{\strip@pt\fontdimen1\font}%
 \dimen@=\z@\setbox\z@\hbox{\char#1}\advance\dimen@-.5\wd\z@
 \setbox\tw@\hbox{i}\setbox\z@\hbox{#2}%
 \ifdim\wd\z@>\wd\tw@\advance\dimen@ .5\wd\z@
@@ -120,8 +214,9 @@ Type X <return> to exit.}%
 \@tempdima\ht\z@\advance\@tempdima-1ex\relax
 \advance\dimen@\slant@\@tempdima
 \raise\@tempdima\hbox to\z@{\kern\dimen@\char#1\relax\hss}\box\z@}}
+
 \newcommand*\Lift@accent[2]{\leavevmode
-{\edef\slant@{\expandafter\numero\the\fontdimen1\font}%
+{\edef\slant@{\strip@pt\fontdimen1\font}%
 \dimen@=\z@\setbox\z@\hbox{\char#1}\advance\dimen@-.5\wd\z@
 \setbox\tw@\hbox{i}\setbox\z@\hbox{#2}%
 \ifdim\wd\z@>\wd\tw@\advance\dimen@ .5\wd\z@
@@ -131,8 +226,9 @@ Type X <return> to exit.}%
 \@tempdima\ht\z@\advance\@tempdima-1ex\advance\@tempdima.1ex\relax
 \advance\dimen@\slant@\@tempdima
 \raise\@tempdima\hbox to\z@{\kern\dimen@\char#1\relax\hss}\box\z@}}
+
 \newcommand*\LIFT@accent[3]{\leavevmode
-{\edef\slant@{\expandafter\numero\the\fontdimen1\font}%
+{\edef\slant@{\strip@pt\fontdimen1\font}%
 \dimen@=\z@\setbox\z@\hbox{\char#1}\advance\dimen@-.5\wd\z@
 \setbox\tw@\hbox{i}\setbox\z@\hbox{#3}%
 \ifdim\wd\z@>\wd\tw@\advance\dimen@ .5\wd\z@
@@ -144,8 +240,9 @@ Type X <return> to exit.}%
 \advance\@tempdima#2\fi\let\@tempA\undefined
 \advance\dimen@\slant@\@tempdima
 \raise\@tempdima\hbox to\z@{\kern\dimen@\char#1\relax\hss}\box\z@}}
+
 \DeclareRobustCommand{\cap@}[1]{\leavevmode
-{\edef\slant@{\expandafter\numero\the\fontdimen1\font}%
+{\edef\slant@{\strip@pt\fontdimen1\font}%
 \setbox\tw@\hbox{\fontencoding{\GRencoding@name}\selectfont
     \char1}\dimen@-.5\wd\tw@
 \setbox\z@\hbox{#1}%
@@ -155,22 +252,25 @@ Type X <return> to exit.}%
 \ifx\cf@encoding\GRencoding@name\else
 \ifx#1k\advance\dimen@-.3\wd\tw@\fi\fi
 \raise\@tempdima\hbox to\z@{\kern\dimen@\box\tw@\relax\hss}\box\z@}}
+
 \DeclareTextCommand{\cap}{\GRencoding@name}{\cap@}
 \DeclareTextCommand{\cap}{OT1}{\cap@}
 \DeclareTextCommand{\cap}{T1}{\cap@}
+
 \newcommand*\cap@cedilla[1]{\leavevmode
 {\setbox4\hbox{\fontencoding{\GRencoding@name}\selectfont\char1}%
 \dimen@-.5\wd4
 \setbox\z@\hbox{#1}%
 \ifx\cf@encoding\GRencoding@name
-\ifx#1i\advance\dimen@ .65\wd\z@\else\advance\dimen@ .6\wd\z@\fi
+\ifx#1i\advance\dimen@ .65\wd\z@\else\advance\dimen@ .5\wd\z@\fi
 \else
 \ifx#1i\advance\dimen@ .55\wd\z@\else\advance\dimen@ .5\wd\z@\fi
 \fi
 \hbox to\z@{\kern\dimen@\box4\hss}\unhbox\z@}}
+
 \newcommand*\ring@cedilla[1]{\leavevmode
 {\setbox4\hbox{\metricsfont\char26}%
-\edef\slant@{\expandafter\numero\the\fontdimen1\font}%
+\edef\slant@{\strip@pt\fontdimen1\font}%
 \dimen@-.5\wd4\ifdim\slant@\p@>\z@\advance\dimen@-.04ex\fi
 \setbox\z@\hbox{#1}%
 \ifx\cf@encoding\GRencoding@name
@@ -181,13 +281,14 @@ Type X <return> to exit.}%
     \ifx#1u\advance\dimen@+.07\wd\z@\fi
     \ifx#1w\advance\dimen@+.03\wd\z@\fi
 \else
-    \ifx#1i\advance\dimen@ .55\wd\z@\else
+    \ifx#1i\advance\dimen@.55\wd\z@\else
     \ifx#1r\advance\dimen@.38\wd\z@\else
     \ifx#1o\advance\dimen@.47\wd\z@\else
-           \advance\dimen@ .5\wd\z@
+           \advance\dimen@0.5\wd\z@
     \fi\fi\fi
 \fi
 \hbox to\z@{\kern\dimen@\box4\hss}\unhbox\z@}}
+
 \newcommand*\dot@cedilla[1]{\leavevmode
 {\setbox4\hbox{\metricsfont\char27}%
 \dimen@-.5\wd4
@@ -201,7 +302,8 @@ Type X <return> to exit.}%
 \fi
 \setbox\tw@\hbox{o}\ifdim\wd\z@=\wd\tw@\advance\dimen@-.05\wd\z@\fi
 \hbox to\z@{\kern\dimen@\box4\hss}\unhbox\z@}}
-\newcommand*\tie@cedilla[1]{\leavevmode % mette un tie sotto l'argomento
+
+\newcommand*\tie@cedilla[1]{\leavevmode
 {\setbox4\hbox{\fontencoding{\GRencoding@name}\selectfont\char20}%
 \dimen@-.5\wd4
 \setbox\tw@\hbox{i}\setbox\z@\hbox{#1}%
@@ -215,10 +317,17 @@ Type X <return> to exit.}%
 \fi
 \setbox\tw@\hbox{o}\ifdim\wd\z@=\wd\tw@\advance\dimen@-.05\wd\z@\fi
 \hbox to\z@{\kern\dimen@\box4\hss}\unhbox\z@}}
+
+\input{LGRaccents-glyphs.def}
+\let\nbs\nobreakspace
 \DeclareTextCommand{\`}{\GRencoding@name}[1]{\lift@accent{96}{#1}}
 \DeclareTextCommand{\'}{\GRencoding@name}[1]{\lift@accent{39}{#1}}
-\DeclareTextCommand{\GRcirc}{\GRencoding@name}[1]{\lift@accent{126}{#1}}
 \DeclareTextCommand{\~}{\GRencoding@name}[1]{\lift@accent{126}{#1}}
+\let\GRcirc\Perispomeni
+
+\addto\extrasgreek{\shorthandoff{~}\let\~\Perispomeni}
+\addto\noextrasgreek{\shorthandon{~}}
+
 \DeclareTextCommand{\"}{\GRencoding@name}[1]{\lift@accent{34v}{#1}}
 \DeclareTextCommand{\u}{\GRencoding@name}[1]{\lift@accent{30}{#1}}
 \DeclareTextCommand{\U}{\GRencoding@name}[1]{\lift@accent{151}{#1}}
@@ -285,9 +394,11 @@ Type X <return> to exit.}%
     {\LIFT@accent{30}{-.1ex}{\lift@accent{34v}{#1}}}
 \DeclareTextCommand{\iS}{\GRencoding@name}[1]
    {\ooalign{#1\crcr\hidewidth\char124\hidewidth}}
+
 \DeclareTextCommand{\d}{\GRencoding@name}[1]%
    {\leavevmode\bgroup\o@lign{\relax#1\crcr
     \hidewidth\sh@ft{10}.\hidewidth}\egroup}
+
 \DeclareRobustCommand{\Open}[1]{\leavevmode
 {\setbox4\hbox{\raise-.33ex\hbox{\metricsfont\char14}}%
 \dimen@-.5\wd4
@@ -301,6 +412,7 @@ Type X <return> to exit.}%
 \fi
 \setbox\tw@\hbox{o}\ifdim\wd\z@=\wd\tw@\advance\dimen@-.05\wd\z@\fi
 \hbox to\z@{\kern\dimen@\box4\hss}\unhbox\z@}}
+
 \DeclareRobustCommand{\nasal}[1]{\leavevmode
 {\setbox4\hbox{\raise-1.7ex\hbox{\GEcq}}%
 \dimen@-.5\wd4
@@ -314,15 +426,18 @@ Type X <return> to exit.}%
 \fi
 \setbox\tw@\hbox{o}\ifdim\wd\z@=\wd\tw@\advance\dimen@-.05\wd\z@\fi
 \hbox to\z@{\kern\dimen@\box4\hss}\unhbox\z@}}
+
 \DeclareRobustCommand{\tenaspir}[1]{#1\/%
     {\fontencoding{\GRencoding@name}\selectfont<v}}
 \DeclareRobustCommand{\palat}[1]{#1{%
     \expandafter\fontencoding\expandafter{\GRencoding@name}\selectfont
     \anwtonos}}
+
 \DeclareTextCommand{\Ud}{\GRencoding@name}[1]{\d{\u{#1}}}
 \DeclareTextCommand{\md}{\GRencoding@name}[1]{\d{\={#1}}}
 \DeclareTextCommand{\UO}{\GRencoding@name}[1]{\Open{\u{#1}}}
 \DeclareTextCommand{\mO}{\GRencoding@name}[1]{\Open{\={#1}}}
+
 \DeclareTextCommand{\Ud}{T1}[1]{\d{\u{#1}}}
 \DeclareTextCommand{\md}{T1}[1]{\d{\={#1}}}
 \DeclareTextCommand{\UO}{T1}[1]{\Open{\u{#1}}}
@@ -331,23 +446,27 @@ Type X <return> to exit.}%
 \DeclareTextCommand{\md}{OT1}[1]{\d{\={#1}}}
 \DeclareTextCommand{\UO}{OT1}[1]{\Open{\u{#1}}}
 \DeclareTextCommand{\mO}{OT1}[1]{\Open{\={#1}}}
+
 \DeclareTextSymbol{\greekquoteleft}{\GRencoding@name}{123}
+\let\textguillemotleft\greekquoteleft
 \DeclareTextSymbol{\greekquoteright}{\GRencoding@name}{125}
+\let\textguillemotright\greekquoteright
 \DeclareTextSymbol{\textcompwordmark}{\GRencoding@name}{118}
 \DeclareTextSymbol{\textemdash}{\GRencoding@name}{127}
 \let\emdash\textemdash
 \DeclareTextSymbol{\textendash}{\GRencoding@name}{0}
+
 \DeclareTextSymbol{\stigma}{\GRencoding@name}{006}
 \DeclareTextSymbol{\varstigma}{\GRencoding@name}{007}
 \DeclareTextSymbol{\koppa}{\GRencoding@name}{18}
-\DeclareTextSymbol{\varkoppa}{\GRencoding@name}{19}
-\let\coppa\varkoppa
+\DeclareTextSymbol{\varkoppa}{\GRencoding@name}{19}\let\coppa\varkoppa
 \DeclareTextSymbol{\sampi}{\GRencoding@name}{27}
 \DeclareTextSymbol{\Coppa}{\GRencoding@name}{21}\let\Koppa\Coppa
 \DeclareTextSymbol{\Stigma}{\GRencoding@name}{22}
 \DeclareTextSymbol{\Sampi}{\GRencoding@name}{23}
 \DeclareTextSymbol{\Euro}{\GRencoding@name}{24}
 \DeclareTextSymbol{\permill}{\GRencoding@name}{25}
+
 \DeclareTextCommand{\textdollar}{\GRencoding@name}%
     {{\fontencoding{T1}\selectfont\char36}}
 \DeclareTextCommand{\textsection}{\GRencoding@name}%
@@ -358,16 +477,15 @@ Type X <return> to exit.}%
     {{\fontencoding{T1}\selectfont\char95}}
 \DeclareTextCommand{\textvisiblespace}{\GRencoding@name}%
     {{\fontencoding{T1}\selectfont\char32}}
+
+\ifGlyphNames
 \DeclareTextSymbol{\ag}{\GRencoding@name}{128}
-\DeclareTextComposite{\`}{\GRencoding@name}{a}{128}
 \DeclareTextSymbol{\ar}{\GRencoding@name}{129}
 \DeclareTextComposite{\r}{\GRencoding@name}{a}{129}
 \DeclareTextSymbol{\as}{\GRencoding@name}{130}
 \DeclareTextComposite{\s}{\GRencoding@name}{a}{130}
 \DeclareTextSymbol{\aa}{\GRencoding@name}{136}
-\DeclareTextComposite{\'}{\GRencoding@name}{a}{136}
 \DeclareTextSymbol{\ac}{\GRencoding@name}{144}
-\DeclareTextComposite{\~}{\GRencoding@name}{a}{144}
 \DeclareTextSymbol{\ai}{\GRencoding@name}{248}
 \DeclareTextSymbol{\aai}{\GRencoding@name}{140}
 \DeclareTextSymbol{\aci}{\GRencoding@name}{148}
@@ -393,7 +511,6 @@ Type X <return> to exit.}%
 \DeclareTextSymbol{\asgi}{\GRencoding@name}{143}
 \DeclareTextSymbol{\asci}{\GRencoding@name}{150}
 \DeclareTextSymbol{\hg}{\GRencoding@name}{152}
-\DeclareTextComposite{\`}{\GRencoding@name}{h}{152}
 \DeclareTextSymbol{\hr}{\GRencoding@name}{153}
 \DeclareTextComposite{\r}{\GRencoding@name}{h}{153}
 \DeclareTextSymbol{\hs}{\GRencoding@name}{154}
@@ -405,7 +522,6 @@ Type X <return> to exit.}%
 \DeclareTextSymbol{\hsi}{\GRencoding@name}{158}
 \DeclareTextSymbol{\hrgi}{\GRencoding@name}{167}
 \DeclareTextSymbol{\ha}{\GRencoding@name}{160}
-\DeclareTextComposite{\'}{\GRencoding@name}{h}{160}
 \DeclareTextSymbol{\hra}{\GRencoding@name}{161}
 \DeclareTextComposite{\Ar}{\GRencoding@name}{h}{161}
 \DeclareTextSymbol{\hsa}{\GRencoding@name}{162}
@@ -417,7 +533,6 @@ Type X <return> to exit.}%
 \DeclareTextSymbol{\hsai}{\GRencoding@name}{166}
 \DeclareTextSymbol{\hsgi}{\GRencoding@name}{175}
 \DeclareTextSymbol{\hc}{\GRencoding@name}{168}
-\DeclareTextComposite{\~}{\GRencoding@name}{h}{168}
 \DeclareTextSymbol{\hrc}{\GRencoding@name}{169}
 \DeclareTextComposite{\Cr}{\GRencoding@name}{h}{169}
 \DeclareTextSymbol{\hsc}{\GRencoding@name}{170}
@@ -427,7 +542,6 @@ Type X <return> to exit.}%
 \DeclareTextSymbol{\hsci}{\GRencoding@name}{174}
 \DeclareTextSymbol{\hi}{\GRencoding@name}{249}
 \DeclareTextSymbol{\wg}{\GRencoding@name}{176}
-\DeclareTextComposite{\`}{\GRencoding@name}{w}{176}
 \DeclareTextSymbol{\wr}{\GRencoding@name}{177}
 \DeclareTextComposite{\r}{\GRencoding@name}{w}{177}
 \DeclareTextSymbol{\ws}{\GRencoding@name}{178}
@@ -439,7 +553,6 @@ Type X <return> to exit.}%
 \DeclareTextSymbol{\wsi}{\GRencoding@name}{182}
 \DeclareTextSymbol{\wrgi}{\GRencoding@name}{183}
 \DeclareTextSymbol{\wa}{\GRencoding@name}{184}
-\DeclareTextComposite{\'}{\GRencoding@name}{w}{184}
 \DeclareTextSymbol{\wra}{\GRencoding@name}{185}
 \DeclareTextComposite{\Ar}{\GRencoding@name}{w}{185}
 \DeclareTextSymbol{\wsa}{\GRencoding@name}{186}
@@ -451,7 +564,6 @@ Type X <return> to exit.}%
 \DeclareTextSymbol{\wsai}{\GRencoding@name}{190}
 \DeclareTextSymbol{\wsgi}{\GRencoding@name}{191}
 \DeclareTextSymbol{\wc}{\GRencoding@name}{192}
-\DeclareTextComposite{\~}{\GRencoding@name}{w}{192}
 \DeclareTextSymbol{\wrc}{\GRencoding@name}{193}
 \DeclareTextComposite{\Cr}{\GRencoding@name}{w}{193}
 \DeclareTextSymbol{\wsc}{\GRencoding@name}{194}
@@ -461,7 +573,6 @@ Type X <return> to exit.}%
 \DeclareTextSymbol{\wsci}{\GRencoding@name}{198}
 \DeclareTextSymbol{\wi}{\GRencoding@name}{250}
 \DeclareTextSymbol{\ig}{\GRencoding@name}{200}
-\DeclareTextComposite{\`}{\GRencoding@name}{i}{200}
 \DeclareTextSymbol{\ir}{\GRencoding@name}{201}
 \DeclareTextComposite{\r}{\GRencoding@name}{i}{201}
 \DeclareTextSymbol{\is}{\GRencoding@name}{202}
@@ -469,7 +580,6 @@ Type X <return> to exit.}%
 \DeclareTextSymbol{\irg}{\GRencoding@name}{203}
 \DeclareTextComposite{\Gr}{\GRencoding@name}{i}{203}
 \DeclareTextSymbol{\ia}{\GRencoding@name}{208}
-\DeclareTextComposite{\'}{\GRencoding@name}{i}{208}
 \DeclareTextSymbol{\ira}{\GRencoding@name}{209}
 \DeclareTextComposite{\Ar}{\GRencoding@name}{i}{209}
 \DeclareTextSymbol{\isa}{\GRencoding@name}{210}
@@ -477,13 +587,11 @@ Type X <return> to exit.}%
 \DeclareTextSymbol{\isg}{\GRencoding@name}{211}
 \DeclareTextComposite{\Gs}{\GRencoding@name}{i}{211}
 \DeclareTextSymbol{\ic}{\GRencoding@name}{216}
-\DeclareTextComposite{\~}{\GRencoding@name}{i}{216}
 \DeclareTextSymbol{\irc}{\GRencoding@name}{217}
 \DeclareTextComposite{\Cr}{\GRencoding@name}{i}{217}
 \DeclareTextSymbol{\isc}{\GRencoding@name}{218}
 \DeclareTextComposite{\Cs}{\GRencoding@name}{i}{218}
 \DeclareTextSymbol{\id}{\GRencoding@name}{240}
-\DeclareTextComposite{\"}{\GRencoding@name}{i}{240}
 \DeclareTextSymbol{\idg}{\GRencoding@name}{241}
 \DeclareTextComposite{\Gd}{\GRencoding@name}{i}{241}
 \DeclareTextSymbol{\ida}{\GRencoding@name}{242}
@@ -491,7 +599,6 @@ Type X <return> to exit.}%
 \DeclareTextSymbol{\idc}{\GRencoding@name}{243}
 \DeclareTextComposite{\Cd}{\GRencoding@name}{i}{243}
 \DeclareTextSymbol{\ug}{\GRencoding@name}{204}
-\DeclareTextComposite{\`}{\GRencoding@name}{u}{204}
 \DeclareTextSymbol{\ur}{\GRencoding@name}{205}
 \DeclareTextComposite{\r}{\GRencoding@name}{u}{205}
 \DeclareTextSymbol{\us}{\GRencoding@name}{206}
@@ -499,7 +606,6 @@ Type X <return> to exit.}%
 \DeclareTextSymbol{\urg}{\GRencoding@name}{207}
 \DeclareTextComposite{\Gr}{\GRencoding@name}{u}{207}
 \DeclareTextSymbol{\ua}{\GRencoding@name}{212}
-\DeclareTextComposite{\'}{\GRencoding@name}{u}{212}
 \DeclareTextSymbol{\ura}{\GRencoding@name}{213}
 \DeclareTextComposite{\Ar}{\GRencoding@name}{u}{213}
 \DeclareTextSymbol{\usa}{\GRencoding@name}{214}
@@ -507,13 +613,11 @@ Type X <return> to exit.}%
 \DeclareTextSymbol{\usg}{\GRencoding@name}{215}
 \DeclareTextComposite{\Gs}{\GRencoding@name}{u}{215}
 \DeclareTextSymbol{\uc}{\GRencoding@name}{220}
-\DeclareTextComposite{\~}{\GRencoding@name}{u}{220}
 \DeclareTextSymbol{\urc}{\GRencoding@name}{221}
 \DeclareTextComposite{\Cr}{\GRencoding@name}{u}{221}
 \DeclareTextSymbol{\usc}{\GRencoding@name}{222}
 \DeclareTextComposite{\Cs}{\GRencoding@name}{u}{222}
 \DeclareTextSymbol{\ud}{\GRencoding@name}{244}
-\DeclareTextComposite{\"}{\GRencoding@name}{u}{244}
 \DeclareTextSymbol{\udg}{\GRencoding@name}{245}
 \DeclareTextComposite{\Gd}{\GRencoding@name}{u}{245}
 \DeclareTextSymbol{\uda}{\GRencoding@name}{246}
@@ -521,7 +625,6 @@ Type X <return> to exit.}%
 \DeclareTextSymbol{\udc}{\GRencoding@name}{247}
 \DeclareTextComposite{\Cd}{\GRencoding@name}{u}{247}
 \DeclareTextSymbol{\eg}{\GRencoding@name}{224}
-\DeclareTextComposite{\`}{\GRencoding@name}{e}{224}
 \DeclareTextSymbol{\er}{\GRencoding@name}{225}
 \DeclareTextComposite{\r}{\GRencoding@name}{e}{225}
 \DeclareTextSymbol{\es}{\GRencoding@name}{226}
@@ -529,7 +632,6 @@ Type X <return> to exit.}%
 \DeclareTextSymbol{\erg}{\GRencoding@name}{227}
 \DeclareTextComposite{\Gr}{\GRencoding@name}{e}{227}
 \DeclareTextSymbol{\ea}{\GRencoding@name}{232}
-\DeclareTextComposite{\'}{\GRencoding@name}{e}{232}
 \DeclareTextSymbol{\era}{\GRencoding@name}{233}
 \DeclareTextComposite{\Ar}{\GRencoding@name}{e}{233}
 \DeclareTextSymbol{\esa}{\GRencoding@name}{234}
@@ -539,13 +641,11 @@ Type X <return> to exit.}%
 \DeclareTextSymbol{\oR}{\GRencoding@name}{229}
 \DeclareTextComposite{\r}{\GRencoding@name}{o}{229}
 \DeclareTextSymbol{\og}{\GRencoding@name}{228}
-\DeclareTextComposite{\`}{\GRencoding@name}{o}{228}
 \DeclareTextSymbol{\os}{\GRencoding@name}{230}
 \DeclareTextComposite{\s}{\GRencoding@name}{o}{230}
 \DeclareTextSymbol{\org}{\GRencoding@name}{231}
 \DeclareTextComposite{\Gr}{\GRencoding@name}{o}{231}
 \DeclareTextSymbol{\oa}{\GRencoding@name}{236}
-\DeclareTextComposite{\'}{\GRencoding@name}{o}{236}
 \DeclareTextSymbol{\ora}{\GRencoding@name}{237}
 \DeclareTextComposite{\Ar}{\GRencoding@name}{o}{237}
 \DeclareTextSymbol{\osa}{\GRencoding@name}{238}
@@ -557,9 +657,10 @@ Type X <return> to exit.}%
 \DeclareTextSymbol{\rs}{\GRencoding@name}{252}
 \DeclareTextComposite{\s}{\GRencoding@name}{r}{252}
 \DeclareTextSymbol{\Id}{\GRencoding@name}{219}
-\DeclareTextComposite{\"}{\GRencoding@name}{I}{219}
 \DeclareTextSymbol{\Ud}{\GRencoding@name}{223}
 \DeclareTextComposite{\"}{\GRencoding@name}{U}{223}
+\fi
+
 \DeclareTextCommand{\h}{\GRencoding@name}%
     {{\fontencoding{OT1}\selectfont h}}
 \DeclareTextCommand{\q}{\GRencoding@name}%
@@ -567,20 +668,27 @@ Type X <return> to exit.}%
 \DeclareTextCommand{\yod}{\GRencoding@name}%
     {{\fontencoding{OT1}\selectfont j}}%
 \let\iod\yod
+
 \DeclareTextSymbol{\f}{\GRencoding@name}{147}
-\AtBeginDocument{\@ifpackageloaded{amssymb}{\let\AMSdigamma\digamma
-\def\digamma{\textormath{\f}{\AMSdigamma}}}{\let\digamma\f}}
+\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@}}}
 \DeclareRobustCommand{\fHigh}%
     {{\setbox\z@\hbox{\f}\dimen@\dp\z@\raise\dimen@\hbox{\box\z@}}}
+
 \DeclareRobustCommand\qmark{\hskip.16ex{\fontencoding{OT1}\upshape(?)}}
 \DeclareRobustCommand\lpar{{\metricsfont(}}
 \DeclareRobustCommand\rpar{{\metricsfont)}}
 \DeclareRobustCommand\frapar[1]{\lpar#1\rpar}
+
 \DeclareRobustCommand{\ap}[1]{\/\textsuperscript{#1}}
+
 \newcommand\Dots[1][1]{{\count255=#1\@whilenum\count255>\z@
         \do{\kern.4ex\d{v}\kern.4ex\advance\count255\m@ne}}}
 \newcommand\DOTS[1][1]{{\count255=#1\@whilenum\count255>\z@
@@ -589,6 +697,7 @@ Type X <return> to exit.}%
         \do{\kern.4ex--\kern.4ex\advance\count255\m@ne}}}
 \newcommand\DASHES[1][1]{{\count255=#1\@whilenum\count255>\z@
         \do{\kern.8ex--\kern.8ex\advance\count255\m@ne}}}
+
 \DeclareRobustCommand{\:}{\textormath{\tw@dots}{\mskip\medmuskip}}
 \DeclareRobustCommand{\;}{\textormath{\thre@dots}{\mskip\thickmuskip}}
 \DeclareRobustCommand{\?}{\f@urdots}
@@ -599,14 +708,17 @@ Type X <return> to exit.}%
     \hbox{.}\vss\hbox{.}}}}
 \def\f@urdots{\mbox{\kern1\p@\vbox to 2ex{\hbox{.}\vss
     \hbox{.}\vss\hbox{.}\vss\hbox{.}}}}
+
 \DeclareRobustCommand{\|}{\relax\ensuremath{\mskip2mu\vert}}
 \DeclareRobustCommand{\dBar}{\ensuremath{\vert\vert}}
 \DeclareRobustCommand{\tBar}{\ensuremath{\vert\vert\vert}}
+
 \def\negthinspace{\nobreak\hskip-0.07em}
 \def\posthinspace{\nobreak\hskip0.07em}
 \def\posthindspace{\nobreak\hskip0.14em}
 \renewcommand{\,}{\textormath{\posthinspace}{\mskip\thinmuskip}}
 \renewcommand{\!}{\textormath{\negthinspace}{\mskip-\thinmuskip}}
+
 \DeclareRobustCommand{\lbrk}{{\metricsfont\posthindspace[\negthinspace}}
 \DeclareRobustCommand{\rbrk}{{\metricsfont]}}
 \DeclareRobustCommand\lmqi{{\metricsfont!}}
@@ -618,7 +730,7 @@ Type X <return> to exit.}%
 \DeclareRobustCommand\mqs[1]{\lmqs{#1\/}\rmqs}
 \DeclareRobustCommand{\Ladd}[1]{{\metricsfont<}{\!\!#1\/}%
     {\metricsfont>}}%                           litterae certe addendae
-\DeclareRobustCommand{\LLadd}[1]{{\metricsfont<\kern-.3ex<}%subst. \hskip with \kern
+\DeclareRobustCommand{\LLadd}[1]{{\metricsfont<\kern-.3ex<}
     {\!\!#1\/}{\metricsfont>\kern-.3ex>}}%     litterae certe addendae
 \DeclareRobustCommand{\ladd}[1]{{\metricsfont\kern.15ex[\negthinspace}%
     {#1\/}{\metricsfont]\kern-.15ex}}%          litterae addendae
@@ -628,12 +740,14 @@ Type X <return> to exit.}%
 \DeclareRobustCommand{\lesp}[1]%
     {\mbox{$\{\kern-.20ex$#1\kern.16ex$\}$}}%   litterae delendae
 \let\ldel\lesp
+
 \DeclareTextCommand{\itopenquotes}{\GRencoding@name}%
     {{\fontencoding{OT1}\selectfont\char92}}%
 \DeclareTextCommand{\itclosedquotes}{\GRencoding@name}%
     {{\fontencoding{OT1}\selectfont\char34}}%
 \let\itoq\itopenquotes
 \let\itcq\itclosedquotes
+
 \newcommand\GEodq{\bgroup\futurelet\@tempA\GE@dq}
 \def\GE@dq{{\metricsfont\char18}\ifx\@tempA m\posthinspace\fi\egroup}
 \newcommand\GEcdq{{\metricsfont\char16}}
@@ -645,21 +759,26 @@ Type X <return> to exit.}%
 \newcommand\ENodq{{\metricsfont\char16}}
 \newcommand\ENcdq{{\metricsfont\char17}}
 \newcommand\ENdqtext[1]{\ENodq\negthinspace#1\/\posthinspace\ENcdq}
+
 \DeclareRobustCommand\LitNil{\textbullet}
 \let\litnil\LitNil
-\DeclareTextSymbol{\sva}{\GRencoding@name}{26}
+\DeclareTextCommand{\sva}{\GRencoding@name}{%
+\rotatebox[origin=c]{180}{\def\@tempA{li}%
+\fontencoding{OT1}\ifx\f@shape\@tempA\fontshape{it}\fi\selectfont e}}
 \DeclareTextCommand\sva{OT1}{{\expandafter\fontencoding
     \expandafter{\GRencoding@name}\selectfont\sva}}
 \DeclareTextCommand\sva{T1}{{\expandafter\fontencoding
     \expandafter{\GRencoding@name}\selectfont\sva}}
 \let\shva\sva\let\shwa\sva
+
 \DeclareRobustCommand\skewstack[2]{{%
-\edef\slant@{\expandafter\numero\the\fontdimen1\font}%
+\edef\slant@{\strip@pt\fontdimen1\font}%
 \setbox\z@\hbox{#1}\dimen@\ht\z@\box\z@
 \kern-.045em\setbox\@ne\hbox{\scriptsize#2}%
 \ifdim\dimen@>1.2ex\advance\dimen@-\ht\@ne\else
     \dimen@1ex\advance\dimen@-.5\ht\@ne\fi
 \kern\slant@\dimen@\raise\dimen@\hbox{\box\@ne}}}
+
 \DeclareRobustCommand\hv{{\fontencoding{OT1}\selectfont
     \skewstack{h}{v}}}
 \DeclareRobustCommand\qw{{\fontencoding{OT1}\selectfont
@@ -672,28 +791,34 @@ Type X <return> to exit.}%
     \skewstack{q}{\semiv{u}}}}
 \DeclareRobustCommand\qu{{\fontencoding{OT1}\selectfont
     \skewstack{q}{u}}}
+
 \DeclareRobustCommand\dz{{\fontencoding{OT1}\selectfont d\kern-.33ex z}}
+
 \DeclareRobustCommand\Utie[1]{%
 \mbox{\vtop{\ialign{##\crcr
    \hfil#1\hfil\crcr
    \noalign{\kern.3ex\nointerlineskip}%
    \hfil$\smile$\hfil\crcr}}}}
+
 \DeclareRobustCommand{\siner}[1]{%
 \mbox{\vtop{\ialign{##\crcr
    \hfil#1\hfil\crcr
    \noalign{\kern.6ex\nointerlineskip}%
    \upfill\crcr}}}}
 \let\siniz\siner
+
 \def\upfill{$\m@th \scriptstyle\setbox\z@\hbox{$\scriptstyle\bracelu$}%
   \kern.16ex\bracelu\ifPDF\kern-.15ex\fi
-  \leaders\vrule \@height\ifPDF.85\fi\ht\z@ \@depth\z@\hfill
+  \leaders\vrule \@height\ht\z@ \@depth\z@\hfill
   \braceru\kern.16ex$}
+
 \def\downfill{$\m@th\scriptstyle\setbox\z@\hbox{$\scriptstyle\braceld$}%
   \kern.16ex\braceld\ifPDF\kern-.15ex\fi
-  \leaders\vrule \@height\ifPDF.85\fi\ht\z@ \@depth\z@\hfill
+  \leaders\vrule \@height\ht\z@ \@depth\z@\hfill
   \bracerd\kern.16ex$}
+
 \newcommand*\zeugma[1]{{\vbox{\setbox\z@\hbox{#1}\dimen@=\ht\z@
-      \edef\@slant{\expandafter\numero\the\fontdimen1\font}%
+      \edef\@slant{\strip@pt\fontdimen1\font}%
       \dimen\tw@=\wd\z@
       \dimen@=\@slant\dimen@\ifmetricsfont\dimen@=\z@
         \advance\dimen\tw@-.5ex\fi
@@ -704,52 +829,37 @@ Type X <return> to exit.}%
             \else\kern.4ex\fi\nointerlineskip}%
       \hfil{#1}\hfil\crcr}}}%
 }
+
 \newcommand*\slzeugma[1]{{\leavevmode
     \setbox\tw@\hbox{\metricsfont\char120}%
     \setbox\z@\hbox{#1}\dimen@.5\wd\z@\advance\dimen@-.5\wd\tw@
-    \edef\@slant{\expandafter\numero\the\fontdimen1\font}%
+    \edef\@slant{\strip@pt\fontdimen1\font}%
     \advance\dimen@\@slant\ht\z@
     \hbox to\z@{\kern\dimen@\box\tw@\hss}\box\z@
     }%
 }
+
 \newcommand*\rszeugma[1]{{\leavevmode
     \setbox\tw@\hbox{\metricsfont\char122}%
     \setbox\z@\hbox{#1}\dimen@.5\wd\z@\advance\dimen@-.5\wd\tw@
-    \edef\@slant{\expandafter\numero\the\fontdimen1\font}%
+    \edef\@slant{\strip@pt\fontdimen1\font}%
     \advance\dimen@\@slant\ht\z@
     \hbox to\z@{\kern\dimen@\box\tw@\hss}\box\z@
     }%
 }
-\newcommand*{\nexus}[1]{{\setbox\tw@\hbox{#1}%
-        \edef\slant@{\expandafter\numero\the\fontdimen1\font}%
+
+\newcommand*{\nexus}[1]{{\setbox\tw@\hbox{#1\/}%
+        \edef\slant@{\strip@pt\fontdimen1\font}%
         \@tempdima=\slant@\ht\tw@\advance\@tempdima.45ex
-        \setbox4\hbox to\wd\tw@{\hss\nexusfill\hss}
+        \setbox4\hbox{\resizebox{\wd\tw@}{\height}{$\widehat{\phantom{aaa}}$}}%
+        \setbox4\hbox{\smash{\lower1.35ex\hbox{\box4}}}%
         \vbox{\ialign{##\crcr%
-        \kern\@tempdima\box4
+        \kern\@tempdima\box4%
         \crcr
         \noalign{\kern.15ex\nointerlineskip}%
         \hfil{#1}\hfil\crcr}}}}
-\newcommand*\nesso[1]{{\setbox\tw@\hbox{#1}%
-        \edef\slant@{\expandafter\numero\the\fontdimen1\font}%
-        \@tempdima=\slant@\ht\tw@\advance\@tempdima.9ex
-        \ifdim\wd\tw@<1ex
-            \setbox4\hbox{\metricsfont\kern-.5ex\Hat}%
-        \else
-            \setbox4\hbox to\wd\tw@{\hss\nexfill\hss}%
-        \fi
-        \vbox{\ialign{##\crcr%
-        \kern\@tempdima\box4
-        \crcr
-        \noalign{\kern.15ex\nointerlineskip}%
-        \hfil\box\tw@\hfil\crcr}}}}
-{\catcode`\^=12\relax\global\chardef\Hat`\^
-\gdef\nexfill{{\metricsfont\leaders\hbox{^}\hfill}}}
-\newdimen\Uunit
-\def\nexusfill{\setbox\z@\hbox{\char16}%
-    \Uunit=0.83333\p@
-    \kern.16ex\char16\kern-.08ex
-    \leaders\vrule\@height\z@\@depth\Uunit\hfill
-    \kern.08ex\char17\kern.16ex}
+\let\nesso\nexus
+
 \def\C@rule{\vrule\@height.45ex\@depth-.35ex\@width1.5em}
 \def\coronis@rule{\hbox to\z@{\hss\C@rule\hss}}
 \def\Coronis@rule{\hbox to\z@
@@ -760,6 +870,7 @@ Type X <return> to exit.}%
 \DeclareRobustCommand{\dparagr}%
     {\raisebox{-1.3ex}[\z@][\z@]{\coronis@rule}%
     \raisebox{-1.6ex}[\z@][\z@]{\coronis@rule}}
+
 \DeclareRobustCommand*\sinafia{{\metricsfont s}}
 \DeclareRobustCommand*{\crux}{{\metricsfont\char'171}}
 \DeclareRobustCommand*{\FinisCarmen}{\ensuremath{\otimes}}
@@ -776,14 +887,17 @@ Type X <return> to exit.}%
 \DeclareRobustCommand*{\dstar}{{\upshape **}}
 \DeclareRobustCommand*{\tstar}{{\upshape ***}}
 \DeclareRobustCommand*{\responsio}{{\boldmath\ensuremath{\sim}}}
+
 \DeclareRobustCommand{\thorn}{{\fontencoding{T1}\selectfont\th}}
 \DeclareRobustCommand{\Thorn}{{\fontencoding{T1}\selectfont\TH}}
+
 \DeclareRobustCommand{\dracma}{{\metricsfont D}}
 \DeclareRobustCommand{\hemiobelion}{{\metricsfont A}}
 \DeclareRobustCommand{\tetartemorion}{{\metricsfont B}}
 \DeclareRobustCommand{\stater}{{\metricsfont C}}
 \DeclareRobustCommand{\denarius}{{\metricsfont E}}
 \DeclareRobustCommand{\etos}{{\metricsfont G}}
+
 \DeclareRobustCommand{\cut}[1]{%
     \ifx#1d\dcutbar\else
         \ifx#1b\bcutbar\else
@@ -791,16 +905,16 @@ Type X <return> to exit.}%
             \fi
         \fi
     \fi}
-\def\dcutbar{{\edef\slant@{\expandafter\numero\the\fontdimen1\font}%
+\def\dcutbar{{\edef\slant@{\strip@pt\fontdimen1\font}%
     d\dimen@1.2ex\kern\slant@\dimen@
     \llap{\vrule\@height1.3ex\@depth-\dimen@
     \ifdim\slant@\p@>\z@\@width.35em\else\@width.4em\fi\kern.03em}}}
-\def\bcutbar{{\edef\slant@{\expandafter\numero\the\fontdimen1\font}%
+\def\bcutbar{{\edef\slant@{\strip@pt\fontdimen1\font}%
     \rlap{\dimen@1.2ex\kern\slant@\dimen@
     \ifdim\slant@\p@=\z@\kern.03em\fi
     \vrule\@height1.3ex\@depth-\dimen@
     \ifdim\slant@\p@>\z@\@width.3em\else\@width.4em\fi}b}}
-\def\gcutbar{{\edef\slant@{\expandafter\numero\the\fontdimen1\font}%
+\def\gcutbar{{\edef\slant@{\strip@pt\fontdimen1\font}%
     \ifdim\slant@\p@>\z@
         g\kern-.55ex\dimen@.2ex\kern-\slant@\dimen@
         \vrule\@height-.1ex\@depth\dimen@\@width.6ex
@@ -808,9 +922,11 @@ Type X <return> to exit.}%
         \dimen@.2ex\kern\slant@\dimen@\vrule\@height.3ex\@depth-\dimen@
         \@width.6ex\kern-.55ex\relax g
     \fi}}
-\newcommand*{\OSN}[1]{\oldstylenums{#1}}
+
+\let\OSN\oldstylenums
+
 \newcommand\splus{\leavevmode{%
-    \edef\slant@{\expandafter\numero\the\fontdimen1\font}%
+    \edef\slant@{\strip@pt\fontdimen1\font}%
     \setbox\z@\hbox{s}%
     \dimen@=\wd\z@
     \setbox\tw@\hbox{$\scriptscriptstyle+$}%
@@ -820,7 +936,7 @@ Type X <return> to exit.}%
          \kern\slant@\dimen@\kern-.5\wd\tw@\box\tw@}}%
     \box\z@}}%
 \newcommand\stimes{\leavevmode{%
-    \edef\slant@{\expandafter\numero\the\fontdimen1\font}%
+    \edef\slant@{\strip@pt\fontdimen1\font}%
     \setbox\z@\hbox{s}%
     \dimen@=\wd\z@
     \setbox\tw@\hbox{$\scriptscriptstyle\times$}%
@@ -830,7 +946,7 @@ Type X <return> to exit.}%
             \kern\slant@\dimen@\kern-.5\wd\tw@\box\tw@}}%
     \box\z@}}%
 \newcommand\kclick{\leavevmode{%
-    \edef\slant@{\expandafter\numero\the\fontdimen1\font}%
+    \edef\slant@{\strip@pt\fontdimen1\font}%
     \setbox\z@\hbox{k}%
     \setbox\tw@\hbox{\fontencoding\GRencoding@name\selectfont\s{v}}%
     \dimen@\wd\z@
@@ -840,25 +956,29 @@ Type X <return> to exit.}%
     k\makebox[\z@][r]{\unhcopy\tw@\kern.5\dimen@}%
     }}%
 
-%%%%%%%%%%%%%%%%%%%%%%%%%% verse environments
 \newcounter{verso}\setcounter{verso}{0}
-\newcommand{\smallvert}{\vrule\@height1ex}
+\newcommand{\smallvert}{\vrule\@height.6ex\@depth.4ex}
+
 \DeclareRobustCommand\verso[1][]{%
     \def\@tempA{#1}\ifx\@tempA\empty
     \else
         \setcounter{verso}{#1}\addtocounter{verso}{\m@ne}%
     \fi
     \refstepcounter{verso}%
-    \ensuremath{\mathop{\smallvert}\limits^{\theverso}}%
-    \space\ignorespaces
-}
+    \@killglue\space
+    \ensuremath{\mathop{\smallvert}\limits^{\scriptscriptstyle\theverso}}%
+    \space\ignorespaces}
+
 \newenvironment{versi}[1]{%
 \def\makelabel##1{##1}
-\list{}{\settowidth\labelwidth{#1}\leftmargin\labelwidth
+\setbox\z@\hbox{#1}%
+\list{}{\labelwidth\wd\z@\leftmargin\labelwidth
     \advance\leftmargin\labelsep}%
+    \item[\box\z@]
 }{%
 \endlist
 }
+\let\versus\versi \let\endversus\endversi
 \newif\ifBreakVersi
 \BreakVersifalse
 \newenvironment{Versi}[1][1]{%
@@ -868,9 +988,9 @@ Type X <return> to exit.}%
         \multiply\count255by5\relax
         \advance\count255-\value{verso}%
         \ifnum\count255=\z@
-            {\small\expandafter\oldstylenums\expandafter{\the\c@verso}}%
+          {\fontseries{m}\small\expandafter\oldstylenums\expandafter{\the\c@verso}}%
         \else
-            \empty
+          \empty
         \fi}%
     \def\\{\@ifstar{\v@rscr{\@M}}{\v@rscr{\z@}}}%
     \def\v@rscr##1{\@ifnextchar[{\wr@teverse{##1}}%
@@ -907,6 +1027,8 @@ Type X <return> to exit.}%
     \egroup
     \endlist
 }
+\let\Versus\Versi \let\endVersus\endVersi
+
 \newcounter{subverso} \setcounter{subverso}{0}
 \newif\ifSubVerso
 \newlength{\versoskip}
@@ -918,21 +1040,22 @@ Type X <return> to exit.}%
         \global\protected@edef\@currentlabel{\the\c@subverso}%
     \fi
     \global\versoskip.3em\ignorespaces}
+
 \newenvironment{VERSI}[1][1]{%
     \setcounter{verso}{#1}%
     \def\writ@verso{%
         \count255=\value{verso}\divide\count255by5\relax
         \multiply\count255by5\relax
         \advance\count255-\value{verso}%
-            \ifnum\count255=0\relax
-            {\small\expandafter\oldstylenums\expandafter{\the\c@verso}}%
+        \ifnum\count255=0\relax
+          {\fontseries{m}\small\expandafter\oldstylenums\expandafter{\the\c@verso}}%
         \else
-            \empty
+          \empty
         \fi}%
     \NoSubVerso
     \def\writ@subverso{%
         \ifSubVerso
-            {\scriptsize\expandafter\oldstylenums
+            {\fontseries{m}\scriptsize\expandafter\oldstylenums
                 \expandafter{\the\c@subverso}}%
         \fi}%
     \def\\{\@ifstar{\v@rscr{\@M}}{\v@rscr{\z@}}}%
@@ -968,8 +1091,9 @@ Type X <return> to exit.}%
     \item\leavevmode\setbox\z@\hbox\bgroup\ignorespaces
 }{%
     \\%
-    \egroup\endlist
-}
+    \egroup\endlist}
+\let\VERSUS\VERSI \let\endVERSUS\endVERSUS
+
 \DeclareRobustCommand\lunga{{\metricsfont l}}
 \let\longa\lunga
 \let\br@ve\breve
@@ -989,6 +1113,7 @@ Type X <return> to exit.}%
 \let\ubarsbrevis\ubarsbreve
 \DeclareRobustCommand{\ubrevelunga}{{\metricsfont\char107}}
 \let\ubrevislonga\ubrevelunga
+
 \DeclareRobustCommand\corona{{\metricsfont\char20}}
 \let\ElemInd\corona
 \DeclareRobustCommand\coronainv{{\metricsfont\char21}}
@@ -1003,15 +1128,17 @@ Type X <return> to exit.}%
 \DeclareRobustCommand{\aeolicbii}{{\metricsfont I}}
 \DeclareRobustCommand{\aeolicbiii}{{\metricsfont J}}
 \DeclareRobustCommand{\aeolicbiv}{{\metricsfont K}}
+
 \newif\ifmetricsfont\metricsfontfalse
 \def\stripsl@sh#1{\expandafter\@gobble\string#1}
 \def\2#1 {\csname2#1\endcsname}
 \def\3#1 {\csname3#1\endcsname}
 \def\4#1 {\csname4#1\endcsname}
+
 \newcommand\newmetrics[2]{%
     \expandafter\@namedef\expandafter{\stripsl@sh#1}%
-        {{\metricsfonttrue#2}}%
-}
+        {{\metricsfonttrue#2}}}
+
 \newmetrics\iam{\barbreve\lunga\breve\lunga}
 \newmetrics\chor{\lunga\breve\breve\lunga}
 \newmetrics\enopl{\breve\lunga\breve\breve\lunga\breve\breve\lunga}
@@ -1024,10 +1151,11 @@ Type X <return> to exit.}%
 \newmetrics{\pentam}{\lunga\barbbreve\lunga\barbbreve\lunga\dBar
     \lunga\breve\breve\lunga\breve\breve\lunga}
 \newmetrics{\2tr}{\lunga\breve\lunga\X\ \lunga\breve\lunga\X\ }
+
 \DeclareRobustCommand*{\metricstack}[2]%
     {$\mathord{\mathop{\hbox{#1\rule{\z@}{1ex}}}%
-    \limits^{\scriptscriptstyle\relax#2\relax}}$%
-}
+    \limits^{\scriptscriptstyle\relax#2\relax}}$}
+
 \newcommand*{\svert}{\vrule\@height.8ex\@depth.2ex\relax}
 \DeclareRobustCommand*{\textoverline}[1]{%
       \leavevmode\vbox{\setbox\z@\hbox{#1}
@@ -1035,20 +1163,24 @@ Type X <return> to exit.}%
       \hbox to\wd\z@{\hrulefill}\crcr
       \noalign{\kern.4ex\nointerlineskip}%
       \hfil\box\z@\hfil\crcr}}}
+
 \newlength{\br@cedmetrics}
 \newcommand*{\verseskip}[1]{{%
-    \setbox\z@\hbox{\longa}\dimen@\wd\z@\leavevmode\hbox to#1\dimen@{}}%
-}
+    \setbox\z@\hbox{\longa}\dimen@\wd\z@\leavevmode\hbox to#1\dimen@{}}}
+
 \newenvironment{bracedmetrics}[1]{\def\Hfill{\leavevmode\hfill}%
 \settowidth{\br@cedmetrics}{#1}%
 \ifvmode\vskip1ex\fi
 $\displaystyle\left.%
 \vcenter\bgroup\hsize\br@cedmetrics\parindent\z@\parskip\z@
 }{\egroup\right\}$}
+
+\RequirePackage{trace}
 \def\GTRON{\global\tracingcommands=\tw@ \global\tracingmacros=\tw@}
 \def\GTROF{\global\tracingcommands=\z@ \global\tracingmacros=\z@}
 \def\TRON{\tracingcommands=\tw@ \tracingmacros=\tw@}
 \def\TROF{\tracingcommands=\z@ \tracingmacros=\z@}
+
 \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}
@@ -1062,8 +1194,9 @@ $\displaystyle\left.%
     \expandafter\MakeUppercase\expandafter{\gr@@numeral{#1}}}
 \def\Gr@@knum@ral#1{\let\s@i\Digamma
     \expandafter\MakeUppercase\expandafter{\gr@@numeral{#1}}}
-\def\grtoday{{\expandafter\greeknumeral\expandafter{\the\day}} % keep the space
-\gr@c@month \space {\expandafter\greeknumeral\expandafter{\the\year}}}
+\def\grtoday{{\expandafter\greeknumeral\expandafter{\the\day}}\space
+\gr@c@month\space{\expandafter\greeknumeral\expandafter{\the\year}}}
+
 \def\gr@@numeral#1{%
   \ifnum#1<\@ne\space\gr@ill@value{#1}%
   \else
@@ -1115,6 +1248,45 @@ $\displaystyle\left.%
   \ifcase#1\or r\or s\or t\or u\or f%
   \or q\or y\or w\or \n@vecento\fi
   \gr@num@v}
+
+\DeclareTextSymbol{\Vmiria}{\GRencoding@name}{5}
+\DeclareTextSymbol{\Vkilo}{\GRencoding@name}{4}
+\DeclareTextSymbol{\Vetto}{\GRencoding@name}{3}
+\DeclareTextSymbol{\Vdeka}{\GRencoding@name}{2}
+\newcommand*\attic@ill@value[1]{\PackageWarning{teubner}{%
+Illegal value (\number#1) for \string\ActicNumeral\space}}
+\DeclareRobustCommand*\AtticNumeral[1]{%
+\ifnum#1<\@ne \attic@ill@value{#1}\else
+  \ifnum#1>99999\relax \attic@ill@value{#1}\else
+    \AtticCycl@{#1}
+  \fi
+\fi}
+
+\def\AtticCycl@#1{%
+    \bgroup
+    \countdef\valore=252\countdef\cifra=250\relax
+    \valore=#1\relax
+    \cifra=\valore\divide\cifra10000\relax
+    \valore=\numexpr\valore-\cifra*10000\relax
+    \ifnum\cifra>4\relax\Vmiria \advance\cifra-5\fi
+       \@whilenum\cifra>\z@\do{M\advance\cifra\m@ne}%
+    \cifra=\valore\divide\cifra1000\relax
+    \valore=\numexpr\valore-\cifra*1000\relax
+    \ifnum\cifra>4\relax\Vkilo \advance\cifra-5\fi
+       \@whilenum\cifra>\z@\do{Q\advance\cifra\m@ne}%
+    \cifra=\valore\divide\cifra100\relax
+    \valore=\numexpr\valore-\cifra*100\relax
+    \ifnum\cifra>4\relax\Vetto \advance\cifra-5\fi
+       \@whilenum\cifra>\z@\do{H\advance\cifra\m@ne}%
+    \cifra=\valore\divide\cifra10\relax
+    \valore=\numexpr\valore-\cifra*10\relax
+    \ifnum\cifra>4\relax\Vdeka \advance\cifra-5\fi
+       \@whilenum\cifra>\z@\do{D\advance\cifra\m@ne}%
+    \cifra=\valore
+    \ifnum\cifra>4\relax P\advance\cifra-5\relax\fi
+       \@whilenum\cifra>\z@\do{I\advance\cifra\m@ne}%
+    \egroup}
+
 \endinput
 %%
 %% End of file `teubner.sty'.