Return to doinp.awk CVS log

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

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

1.1     ! root        1: BEGIN  {
        !             2:        if(texinp != "")
        !             3:                ninputs = split(texinp, texinputs, ":")
        !             4:        else {
        !             5:                ninputs = 1
        !             6:                texinputs[1] = "."
        !             7:        }
        !             8: print "ninputs " ninputs|"cat 1>&2"
        !             9:        idef=0
        !            10:        }
        !            11: /\\(input|include)[{ ]/        {
        !            12:        getfile("", "")
        !            13:        next
        !            14:        }
        !            15: /.*/   {
        !            16:        print $0
        !            17:        }
        !            18: function getfile(fname, oname, saveline, n, bname, tname, j, name, flag){
        !            19:        if(fname == ""){
        !            20:                saveline = $0
        !            21:                if($0 ~ /\\input/)n = index($0,"\\input")+7
        !            22:                else n=index($0,"\\include")+9
        !            23:                bname = substr($0,n)
        !            24:                gsub(/^[ {]*/,"",bname)
        !            25:                gsub(/[ }].*/,"",bname)
        !            26:                gsub(/[ }]$/,"",bname)
        !            27:                tname = bname ".tex"
        !            28:        }
        !            29:        else {
        !            30:                bname = fname
        !            31:                tname = fname
        !            32:        }
        !            33:        for(j=1; j<= ninputs; j++){
        !            34:                name = texinputs[j] "/" tname
        !            35:                if((getline <name) >=0)break
        !            36:                name = texinputs[j] "/" bname
        !            37:                if((getline <name) >=0)break
        !            38:                name = ""
        !            39:        }
        !            40:        if(name == ""){
        !            41:                print "cannot open file " bname " or " tname | "cat 1>&2"
        !            42:                return
        !            43:        }
        !            44:        if(name ~ /\/usr\/lib\/tex\/macros/|| name ~ /macros.tex/){
        !            45:                if(oname == "")print saveline
        !            46:                else print saveline >oname
        !            47:                return
        !            48:        }
        !            49:        flag=0
        !            50:        while(1){
        !            51:                if(flag)if((getline <name)<1)break
        !            52:                flag=1
        !            53:                print $0
        !            54:        }
        !            55:        close(name)
        !            56: }

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