#!/usr/local/bin/nawk -f
#
# Convert kerning pairs in a TeX .pl file to Adobe Font Metrics format
#

BEGIN { nk = 0 }

/^[[:space:]]*\(LABEL/ {
    c1 = ($0 ~ /\(COMMENT/) ? substr($5, 1, length($5) - 1) : \
	    substr($3, 1, length($3) - 1)
}

/^[[:space:]]*\(KRN/ {
    c2 = ($0 ~ /\(COMMENT/) ? substr($7, 1, length($7) - 1) : $3
    k[nk++] = c1 " " c2 " " substr($5, 1, length($5) - 1)
}

END {
    print "StartKernData\nStartKernPairs " nk
    for (i = 0; i < nk; i++)
	print "KPX " k[i]
    print "EndKernPairs\nEndKernData"
}
.