Return to tdist CVS log

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

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

1.1     ! root        1: awk '
        !             2: /{\\(em|sl)[ a-zA-Z]*/ {
        !             3:        save=$0
        !             4:        sub(/{\\(em|sl)/,"XX",$0)
        !             5:        i=index($0,"XX")
        !             6:        string = substr(save,i)
        !             7:        save=string
        !             8:        left=gsub(/{\\(em|sl)/,"{",save)
        !             9:        right=gsub(/}/,"}",save)
        !            10:        if(right == 0){
        !            11:                getline
        !            12:                string = string " " $0
        !            13:                right=gsub(/}/,"}",string)
        !            14:                save=string
        !            15:                left = gsub(/{\\(em|sl)/,"{", save)
        !            16:        }
        !            17:        if(left == 1){
        !            18:                findterm(string)
        !            19:                next
        !            20:        }
        !            21:        else {
        !            22:                for(j=1;j<=left;j++){
        !            23:                        findterm(string)
        !            24:                        sub(/{\\(em|sl)/,"YY",string)
        !            25:                        save=string
        !            26:                        sub(/{\\(em|sl)/,"XX",save)
        !            27:                        i=index(save,"XX")
        !            28:                        string = substr(string,i)
        !            29:                }
        !            30:        }
        !            31:        }
        !            32: function findterm(string){
        !            33:        num = split(string,a," ")
        !            34:        term = a[1]
        !            35:        for(i=2;i<=num;i++){
        !            36:                term = term " " a[i]
        !            37:                if(term ~ /}/){
        !            38:                        if(i > 2 || term ~ /[,\.]/)break
        !            39:                        if(length(a[i+1]) > 3 && a[i+1] !~ /\(/){
        !            40:                                term = term " " a[i+1]
        !            41:                                break
        !            42:                        }
        !            43:                        else break
        !            44:                }
        !            45:        }
        !            46:        sub(/[\.,:;]/, "", term)
        !            47:        print term
        !            48: }' $1.tex
        !            49: 

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