|
|
1.1 ! root 1: case $# in ! 2: 0) echo 'nmakefont widthfile Name internal# ...'; exit ;; ! 3: esac ! 4: ! 5: arch=$1 ! 6: shift ! 7: ! 8: echo "# $* ! 9: name $1 ! 10: internalname $2" >$1 ! 11: awk ' ! 12: BEGIN { ! 13: OFS = " " ! 14: print "charset" ! 15: } ! 16: # read width file to get char number and width ! 17: FILENAME != "proto" && $1 ~ /^C[0-9][0-9][0-9]/ { ! 18: if ($2 > 100) ! 19: $2 = substr($2,1,2) ! 20: w[0+substr($1,2)] = $2 ! 21: } ! 22: ! 23: # read proto file to get char name, number ! 24: FILENAME == "proto" && $2 ~ /^[0123]$/ && NF == 3 { ! 25: print $1, w[$3], $2, $3 ! 26: if ($1 == "hy") ! 27: print "- \" =hy" ! 28: } ' $arch proto >>$1
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.