#!/usr/bin/awk -f

{
    isChMet = 0;
}

/StartCharMetrics/,/EndCharMetrics/ {
    isChMet = 1;
}

/%!PS-AdobeFont/ {
    isTYPE1 = 1;
}

/N/ {
    if (isChMet)
	{
	    gsub("^C *","");
	    gsub(" .*; +N ", " ");
	    gliph[$1] = $2;
	}
}

/StandardEncoding/ {
    if (isTYPE1)
	{
	    left = $0;
	    gsub("StandardEncoding.*","",left);
	    right = $0;
	    gsub(".*StandardEncoding","",right);
	    print left, "256 array";
	    for (i=0;i<=255;i++)
		{
		    if (gliph[i] == "")
			{
			    gliph[i] = ".notdef";
			}
		    printf "dup %s/%s put\n", i, gliph[i];
		}
	    print "readonly", right;
	}
    next;
}
    
{
    if (isTYPE1)
	{
	    print;
	}
}
