Return to print1font CVS log

Up to [Research Unix] / researchv10no / cmd / troff / dev202

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

1.1       root        1: # print one font from description file
                      2: 
                      3: awk '
                      4: BEGIN {
                      5:        filename = ARGV[2]
                      6:        print ".sp 2"
                      7:        print ".vs 18p"
                      8:        print ".ll 5i"
                      9:        print ".ft 1"
                     10:        for (i = 2; i < ARGC; i++)
                     11:                printf "%s ", ARGV[i]
                     12:        printf "\n"
                     13:        print ".sp"
                     14:        print ".fp 2 2", filename
                     15:        print ".ft 2"
                     16:        ARGC = 2
                     17:        ARGV[1] = filename
                     18: }
                     19: 
                     20: NR==1, /charset/       { next }
                     21: 
                     22: $1 ~ /^.$/     { print "\\&" $1 }
                     23: 
                     24: $1 ~ "^[zZ%]$" { print ".br" }
                     25: 
                     26: $1 ~ /^..$/    { printf "\\ \\(%s\\|\\s6\\d\\f1\\e(%s\\fP\\u\\s0\n", $1, $1 }
                     27: 
                     28: $1 ~ /^---$/   { printf "\\ \\N@%s@\\|\\s6\\d\\f1\\eN\\(fm%s\\(fm\\fP\\u\\s0\n", $4, $4 }
                     29: 
                     30: ' $*

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