Return to getital CVS log

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

Annotation of researchv10dc/vol2/index/tools/getital, revision 1.1.1.1

1.1       root        1: if test -s ../$1/$1.ms
                      2: then
                      3: FILE=../$1/$1.ms
                      4: else
                      5: if test -s ../$1
                      6: then
                      7: FILE=../$1
                      8: else
                      9: if test -s $1
                     10: then
                     11: FILE=$1
                     12: fi
                     13: fi
                     14: fi
                     15: echo $FILE
                     16: awk '
                     17: /^\.I /        {
                     18:        if($0 ~ /"/){
                     19:                n=split($0,a,"\"")
                     20:                term = a[2]
                     21:        }
                     22:        else{ term = $2
                     23:                if(NF == 2){
                     24:                        getline
                     25:                        term = term " " $1
                     26:                }
                     27:        }
                     28:        print term
                     29: }
                     30: /^\.I$/        {
                     31:        getline
                     32:        print $0
                     33: }' $FILE

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