Annotation of researchv10no/cmd/troff/Old/dev202/makefont, revision 1.1.1.1

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

unix.superglobalmegacorp.com

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