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