Return to finddups CVS log

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

Annotation of researchv10dc/vol2/index/finddups, revision 1.1.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.