Return to finddups CVS log

Up to [Research Unix] / researchv10dc / vol2 / index

Annotation of researchv10dc/vol2/index/finddups, revision 1.1

1.1     ! root        1: awk '
        !             2:        {
        !             3:        if(first == 0){
        !             4:                first = 1
        !             5:                lastline = $0
        !             6:                word = $1
        !             7:                next
        !             8:        }
        !             9:        if($1 == word && $2 !~ /[a-zA-Z]/&& length($2) > 1 && $0 ~ /^ /){
        !            10:                sub(/.* /,", ",$0)
        !            11:                print lastline $0
        !            12:                first = 0
        !            13:        }
        !            14:        else {
        !            15:                print lastline
        !            16:                lastline = $0
        !            17:                word = $1
        !            18:        }
        !            19:        }
        !            20: END    {
        !            21:        print lastline
        !            22: }
        !            23: '

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