Return to getul CVS log

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

Annotation of researchv10dc/vol2/index/tools/getul, revision 1.1

1.1     ! root        1: awk '
        !             2: /^\.UL /       {
        !             3:        if($0 ~ /"/){
        !             4:                n=split($0,a,"\"")
        !             5:                term = a[2]
        !             6:        }
        !             7:        else{ term = $2
        !             8:                if(NF == 2){
        !             9:                        getline
        !            10:                        term = term " " $1
        !            11:                }
        !            12:        }
        !            13:        print term
        !            14: }' $1 >`basename $1`.ul
        !            15: 
        !            16: 

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