Return to awk.script CVS log

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

Annotation of researchv10no/cmd/troff/devaps/awk.script, revision 1.1.1.1

1.1       root        1: BEGIN  {
                      2:     incharset = 0;
                      3:     kerningfile = "";
                      4: }
                      5: 
                      6: kerningfile == "" {
                      7:     kerningfile = FILENAME;
                      8: }
                      9: 
                     10: FILENAME == kerningfile  {
                     11:     kern[$1] = $2;
                     12:     next;
                     13: }
                     14: 
                     15: FILENAME != kerningfile  &&  incharset == 0  {
                     16:     print;
                     17:     if ( $1 == "charset" ) incharset = 1;
                     18:     next;
                     19: }
                     20: 
                     21: FILENAME != kerningfile  &&  incharset == 1  {
                     22:     if ( $2 != "\"" )  {
                     23:        if ( kern[$1] == "" ) kern[$1] = $3;
                     24:        printf "%s\t%s\t%s\t%s", $1, $2, kern[$1], $4;
                     25:        for ( i = 5; i <= NF; i++ )
                     26:            if ( i == 5 ) printf "\t%s", $i;
                     27:            else printf " %s", $i;
                     28:        printf "\n";
                     29:     } else print;
                     30: }

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