Annotation of researchv10no/cmd/troff/dev202/nmakefont, revision 1.1.1.1

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

unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.