|
|
1.1 root 1: case $# in
2: 0) echo 'makefont archive fontname 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: print "\\| 6 0 0"
16: print "\\^ 3 0 0"
17: }
18: # read width file to get char number and width
19: $1 == "char" {
20: w[$2] = $7
21: }
22:
23: # read proto file to get char name, number
24: $2 ~ /^[0123]$/ && NF == 3 {
25: print $1, w[$3], $2, $3
26: if ($1 == "hy")
27: print "- \" =hy"
28: } ' $arch.w proto >>$1
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.