@echo off
if not "%1"=="-" goto weiter
set dumvar=
set del=rem
shift
:weiter
if not "%1"=="" goto los
echo Parameter: font-file (without .pfb / .pfa suffix) [/FontName]
goto end

:los
rem copy %GS_LIB%\getmetri.ps %TEMP%\getafm$$.ps
if exist %1.pfa goto pfa
if exist %1.pfb goto pfb
echo no font file (.pfb / .pfa) present
goto end
:pfa
type %1.pfa > %TEMP%\getafm$$.ps
goto fontok
:pfb
D:\fonts\progs\t1utils\t1ascii %1.pfb > %TEMP%\getafm$$.ps
:fontok
echo                                    appendnewfont >> %TEMP%\getafm$$.ps
echo fontname %2 getmetric0 quit >> %TEMP%\getafm$$.ps

rem try to save kerning information from previous .afm file 
rem or to extract it from .pfm file
if exist %1.afm goto afmkern
if not exist %1.pfm goto startafm
echo extracting kerning information from %1.pfm
pfm2afm %1
rem dumppfm %1.pfm %1.afm

:afmkern
rem echo saving kerning information from %1.afm
rem egrep -e "^(StartKern|EndKern|KPX)" %1.afm > %TEMP%\%1.kpx
echo saving Composite and KernData information from %1.afm
rem sed -e /StartComposites/,/EndComposites/p -e /StartKernData/,/EndKernData/p -e d < %1.afm > %TEMP%\%1.kpx
sed -e /EndCharMetrics/,/EndFontMetrics/p -e d < %1.afm > %TEMP%\%1.kpx

:startafm
echo generating afm information
gs -q -DNODFONT -DNODISPLAY getmetri.ps %TEMP%\getafm$$.ps | sed -e /StartFontMetrics/,$p -e d > %1.afm

rem insert previously extracted or saved kerning information
if not exist %TEMP%\%1.kpx goto nokern
echo adding kerning and composite information
type %TEMP%\%1.kpx >> %1.afm
rem if sorting of KPX entries is desired, they must be kept apart from CC etc
rem egrep -e "^StartKern" %TEMP%\%1.kpx >> %1.afm
rem egrep -e "^KPX" %TEMP%\%1.kpx | sort >> %1.afm
rem egrep -e "^EndKern" %TEMP%\%1.kpx >> %1.afm
goto fini
:nokern
echo EndCharMetrics>> %1.afm
echo EndFontMetrics>> %1.afm
:fini
if exist %TEMP%\%1.kpx %del% del %TEMP%\%1.kpx
%del% del %TEMP%\getafm$$.ps
:end