Return to dup1.awk CVS log

Up to [Research Unix] / researchv10dc / man / adm

Annotation of researchv10dc/man/adm/dup1.awk, revision 1.1.1.1

1.1       root        1: function install(){lastf=$NF; last=$0; split($0,b,"\"")}
                      2: $NF!=lastf {if(last!="") print last; install()}
                      3: $NF==lastf {split($0,a,"\"")
                      4:        if(a[6]~/[-,]/||a[6]~/\(mi/) {
                      5:                split(a[6],aa,"[, ]")
                      6:                if(index(last,aa[1])==0) {
                      7:                        print last
                      8:                        install()
                      9:                }
                     10:                else if(b[6]!~/[,-]/&&b[6]!~/\(mi/)
                     11:                        install()
                     12:        }
                     13: }
                     14: END {print last}

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