Return to str.awk CVS log

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

Annotation of researchv10dc/vol2/index/tools/str.awk, revision 1.1

1.1     ! root        1: awk '
        !             2: /^\.(ig|de)/   {
        !             3:        print $0
        !             4:        while(getline && $0 !~ /^\.\./)
        !             5:                print $0
        !             6:        print $0
        !             7:        next
        !             8:        }
        !             9: /^\.ds/        {
        !            10:        print $0
        !            11:        if($0 ~ /\&/)gsub(/\&/,"\\\\&")
        !            12:        if($0 ~ /\\\"/)sub(/\\\".*/,"")
        !            13:        if(length($1) >3){
        !            14:                name=substr($1,4,length($1)-3)
        !            15:                start=2
        !            16:        }
        !            17:        else{ name=$2
        !            18:                start=3
        !            19:        }
        !            20:        if(length(name) == 1){
        !            21:                pat1[name]=$start
        !            22:                if(NF > start)
        !            23:                        for(i=start+1;i<=NF;i++)
        !            24:                                pat1[name]=pat1[name] " " $i
        !            25:        }
        !            26:        else{
        !            27:                if(name ~ /\(/)sub(/\(/,"\\\(",name)
        !            28:                pat2[name]=$start
        !            29:                if(NF > start)
        !            30:                        for(i=start+1;i<=NF;i++)
        !            31:                                pat2[name]=pat2[name] " " $i
        !            32:        }
        !            33:        next
        !            34:        }
        !            35: $0 ~ /\\\*/    {
        !            36:        gsub(/\\\*\(/,"foo2")
        !            37:        gsub(/\\\*/,"foo1")
        !            38:        if($0 ~ "foo2")
        !            39:                for(i in pat2){
        !            40:                        str="foo2" i
        !            41:                        if($0 ~ str){
        !            42:                                gsub(str,pat2[i])
        !            43:                        }
        !            44:                }
        !            45:        if($0 ~ /foo/){
        !            46:                for(i in pat1){
        !            47:                        str="foo1" i
        !            48:                        if($0 ~ str){
        !            49:                                gsub(str,pat1[i])
        !            50:                        }
        !            51:                }
        !            52:        }
        !            53:        print $0
        !            54:        next
        !            55: }
        !            56: /.*/   {print $0}
        !            57: ' $1

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