nls/convert.awk (raw)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
/^\$set/ { major++ minor = 0 if (major > 1) printf "\n" > output else if (codeset) printf "$ codeset=%s\n", codeset > output printf "$set %d %s\n", major, $3 >> output if (header) { majorName = substr($3, 2) if (major > 1) printf "\n" > header printf "\t%sSet = %#x,\n", majorName, major >> header } } /^\$ #/ { minor++ if (header) { minorName = substr($2, 2) printf "\t%s%s = %#x,\n", majorName, minorName, minor >> header } } /^#/ { text = substr($0, 3) printf "%d %s\n", minor, text > output } ! /^(\$|#)/ { print > output } |