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     ! 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.