\relax

This is file ase2exp.mtx, part of the vfinst package.  Its purpose is to rename the glyphs
in an expert afm file in case they have been sloppily renamed originally, as 
in the Adobe Garamond family.  `Sloppy naming' means that the expert glyphs have been
named aa if they belonged to the ASE (Adobe Standard Encoding).  For example, `Asmall'
would be named `a'.

\metrics

\setcommand\Unsetglyph#1{
  \ifisglyph{#1}\then
    \unsetglyph{#1}
  \fi
}

\setcommand\rename#1#2{\ifisglyph{#1}\then
  \setglyph{#2}\glyph{#1}{1000}\endsetglyph
  \unsetglyph{#1}
  \fi
}

\rename{exclam}{exclamsmall} % char 33
\rename{quotedbl}{Hungarumlautsmall} % char 34
\rename{dollar}{dollaroldstyle} % char 36
\rename{percent}{dollarsuperior} % char 37
\rename{ampersand}{ampersandsmall} % char 38
\rename{quoteright}{Acutesmall} % char 39
\rename{parenleft}{parenleftsuperior} % char 40
\rename{parenright}{parenrightsuperior} % char 41
\rename{asterisk}{twodotenleader} % char 42
\rename{plus}{onedotenleader} % char 43
\rename{slash}{fraction} % char 47
\rename{zero}{zerooldstyle} % char 48
\rename{one}{oneoldstyle} % char 49
\rename{two}{twooldstyle} % char 50
\rename{three}{threeoldstyle} % char 51
\rename{four}{fouroldstyle} % char 52
\rename{five}{fiveoldstyle} % char 53
\rename{six}{sixoldstyle} % char 54
\rename{seven}{sevenoldstyle} % char 55
\rename{eight}{eightoldstyle} % char 56
\rename{nine}{nineoldstyle} % char 57
\rename{less}{commasuperior} % char 60
\rename{equal}{threequartersemdash} % char 61
\rename{greater}{periodsuperior} % char 62
\rename{question}{questionsmall} % char 63

%% AFM files can besloppy in many different ways.  Almost always the
%% lowercase glyphs are called things like `a', `b', and so on
%% instead of `Asmall', `Bsmall', etc.  The uppercase letters are more
%% problematical, since sometimes an uppercasealphabet is included.
%% Other times, though, the letters `A', `B', and so on really
%% represent `asuperior', `bsuperior', and so on.  We can test for
%% this by examining the existence of F, for there is no `fsuperior'.

\ifisglyph{F}\then % do nothing
\else
  \rename{A}{asuperior} % char 65
  \rename{B}{bsuperior} % char 66
  \rename{C}{centsuperior} % char 67
  \rename{D}{dsuperior} % char 68
  \rename{E}{esuperior} % char 69
  \rename{I}{isuperior} % char 73
  \rename{L}{lsuperior} % char 76
  \rename{M}{msuperior} % char 77
  \rename{N}{nsuperior} % char 78
  \rename{O}{osuperior} % char 79
  \rename{R}{rsuperior} % char 82
  \rename{S}{ssuperior} % char 83
  \rename{T}{tsuperior} % char 84
  \rename{V}{ff} % char 86
  \rename{W}{fi} % char 87
  \rename{X}{fl} % char 88
  \rename{Y}{ffi} % char 89
  \rename{Z}{ffl} % char 90
\fi

\rename{bracketleft}{parenleftinferior} % char 91
\rename{bracketright}{parenrightinferior} % char 93
\rename{asciicircum}{Circumflexsmall} % char 94
\rename{underscore}{hyphensuperior} % char 95
\rename{quoteleft}{Gravesmall} % char 96
\rename{a}{Asmall} % char 97
\rename{b}{Bsmall} % char 98
\rename{c}{Csmall} % char 99
\rename{d}{Dsmall} % char 100
\rename{e}{Esmall} % char 101
\rename{f}{Fsmall} % char 102
\rename{g}{Gsmall} % char 103
\rename{h}{Hsmall} % char 104
\rename{i}{Ismall} % char 105
\rename{j}{Jsmall} % char 106
\rename{k}{Ksmall} % char 107
\rename{l}{Lsmall} % char 108
\rename{m}{Msmall} % char 109
\rename{n}{Nsmall} % char 110
\rename{o}{Osmall} % char 111
\rename{p}{Psmall} % char 112
\rename{q}{Qsmall} % char 113
\rename{r}{Rsmall} % char 114
\rename{s}{Ssmall} % char 115
\rename{t}{Tsmall} % char 116
\rename{u}{Usmall} % char 117
\rename{v}{Vsmall} % char 118
\rename{w}{Wsmall} % char 119
\rename{x}{Xsmall} % char 120
\rename{y}{Ysmall} % char 121
\rename{z}{Zsmall} % char 122
\rename{braceleft}{colonmonetary} % char 123
\rename{bar}{onefitted} % char 124
\rename{braceright}{rupiah} % char 125
\rename{asciitilde}{Tildesmall} % char 126
\rename{exclamdown}{exclamdownsmall} % char 161
\rename{cent}{centoldstyle} % char 162
\rename{sterling}{Lslashsmall} % char 163
\rename{florin}{Scaronsmall} % char 166
\rename{section}{Zcaronsmall} % char 167
\rename{currency}{Dieresissmall} % char 168
\rename{quotesingle}{Brevesmall} % char 169
\rename{quotedblleft}{Caronsmall} % char 170
\rename{guilsinglleft}{Dotaccentsmall} % char 172
\rename{guilsinglright}{} % char 173
\rename{fl}{Macronsmall} % char 175
\rename{dagger}{figuredash} % char 178
\rename{daggerdbl}{hypheninferior} % char 179
\rename{paragraph}{Ogoneksmall} % char 182
\rename{bullet}{Ringsmall} % char 183
\rename{quotesinglbase}{Cedillasmall} % char 184
\rename{ellipsis}{onequarter} % char 188
\rename{perthousand}{onehalf} % char 189
\rename{questiondown}{questiondownsmall} % char 191
\rename{grave}{threeeighths} % char 193
\rename{acute}{fiveeighths} % char 194
\rename{circumflex}{seveneighths} % char 195
\rename{tilde}{onethird} % char 196
\rename{macron}{twothirds} % char 197
\rename{dieresis}{zerosuperior} % char 200
\rename{ring}{twosuperior} % char 202
\rename{cedilla}{threesuperior} % char 203
\rename{hungarumlaut}{fivesuperior} % char 205
\rename{ogonek}{sixsuperior} % char 206
\rename{caron}{sevensuperior} % char 207
\rename{emdash}{eightsuperior} % char 208
\rename{AE}{Aacutesmall} % char 225
\rename{ordfeminine}{Atildesmall} % char 227
\rename{Lslash}{Egravesmall} % char 232
\rename{Oslash}{Eacutesmall} % char 233
\rename{OE}{Ecircumflexsmall} % char 234
\rename{ordmasculine}{Edieresissmall} % char 235
\rename{ae}{Ntildesmall} % char 241
\rename{dotlessi}{Otildesmall} % char 245
\rename{lslash}{Oslashsmall} % char 248
\rename{oslash}{Ugravesmall} % char 249
\rename{oe}{Uacutesmall} % char 250
\rename{germandbls}{Ucircumflexsmall} % char 251

\Unsetglyph{space} % char 32
\Unsetglyph{numbersign} % char 35
\Unsetglyph{comma} % char 44
\Unsetglyph{hyphen} % char 45
\Unsetglyph{period} % char 46
\Unsetglyph{colon} % char 58
\Unsetglyph{semicolon} % char 59
\Unsetglyph{at} % char 64
\Unsetglyph{F} % char 70
\Unsetglyph{G} % char 71
\Unsetglyph{H} % char 72
\Unsetglyph{J} % char 74
\Unsetglyph{K} % char 75
\Unsetglyph{P} % char 80
\Unsetglyph{Q} % char 81
\Unsetglyph{U} % char 85
\Unsetglyph{backslash} % char 92
\Unsetglyph{fraction} % char 164
\Unsetglyph{yen} % char 165
\Unsetglyph{guillemotleft} % char 171
\Unsetglyph{fi} % char 174
\Unsetglyph{endash} % char 177
\Unsetglyph{periodcentered} % char 180
\Unsetglyph{quotedblbase} % char 185
\Unsetglyph{quotedblright} % char 186
\Unsetglyph{guillemotright} % char 187
\Unsetglyph{breve} % char 198
\Unsetglyph{dotaccent} % char 199

\endmetrics