|
|
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.