![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tex.awk CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / docsubmit|
Return to tex.awk CVS log | Up to [Research Unix] / researchv10no / cmd / docsubmit |
1.1 ! root 1: BEGIN { ! 2: if(texinp != "") ! 3: ninputs = split(texinp, texinputs, ":") ! 4: else { ! 5: ninputs = 1 ! 6: texinputs[1] = "." ! 7: } ! 8: idef=0 ! 9: } ! 10: /\\newcommand/ { ! 11: ckdef(0, $0, 1) ! 12: next ! 13: } ! 14: /\\def[^a-z]/ { ! 15: ckdef(0, $0, 0) ! 16: next ! 17: } ! 18: /\\(input|include)[{ ]/ { ! 19: getfile() ! 20: next ! 21: } ! 22: /\\bibliography[{ ]/ { ! 23: n = substr($0, index($0,"{")+1, index($0,"}")-index($0,"{")-1) ! 24: if(n ~ ","){ ! 25: num=split(n, b, ",") ! 26: for(i=1;i<=num;i++) ! 27: system("cp " b[i] ".bbl " dir) ! 28: close("cp " b[i] ".bbl " dir) ! 29: } ! 30: else{ ! 31: system("cp " n ".bbl " dir) ! 32: close("cp " n ".bbl " dir) ! 33: } ! 34: } ! 35: /^\\includepicture/ { ! 36: n=index($0,"{")+1 ! 37: fname=substr($0,n,index($0,"}")-n) ! 38: system ("cp " fname ".t " dir ) ! 39: close ("cp " fname ".t " dir ) ! 40: system ("cp " fname ".tex " dir ) ! 41: close ("cp " fname ".tex " dir ) ! 42: } ! 43: /\\special/ { ! 44: getpost($0) ! 45: next ! 46: } ! 47: /\\/ { ! 48: isdef($0) ! 49: next ! 50: } ! 51: /.*/ { ! 52: print $0 ! 53: } ! 54: function getfile( saveline, n, bname, tname, j, name, flag){ ! 55: saveline = $0 ! 56: if($0 ~ /\\input/)n = index($0,"\\input")+7 ! 57: else n=index($0,"\\include")+9 ! 58: bname = substr($0,n) ! 59: gsub(/^[ {]*/,"",bname) ! 60: gsub(/[ }].*/,"",bname) ! 61: gsub(/[ }]$/,"",bname) ! 62: tname = bname ".tex" ! 63: for(j=1; j<= ninputs; j++){ ! 64: name = texinputs[j] "/" tname ! 65: if((getline <name) >=0)break ! 66: name = texinputs[j] "/" bname ! 67: if((getline <name) >=0)break ! 68: name = "" ! 69: } ! 70: if(name == ""){ ! 71: print "cannot open file " bname " or " tname | "cat 1>&2" ! 72: return ! 73: } ! 74: if(name ~ /\/usr\/lib\/tex\/macros/){ ! 75: print saveline ! 76: return ! 77: } ! 78: flag=0 ! 79: while(1){ ! 80: if(flag)if((getline <name)<1)break ! 81: flag=1 ! 82: if($0 ~ /\\newcommand/){ ! 83: ckdef(name, $0, 1) ! 84: continue ! 85: } ! 86: if($0 ~ /\\def[^a-z]/){ ! 87: ckdef(name, $0, 0) ! 88: continue ! 89: } ! 90: if($0 ~ /\\(input|include)[{ ]/){ ! 91: getfile() ! 92: } ! 93: else if($0 ~ /\\special/)getpost($0) ! 94: else if($0 ~ /\\/){ ! 95: isdef($0) ! 96: } ! 97: else print $0 ! 98: } ! 99: close(name) ! 100: } ! 101: function getpost(str){ ! 102: if(str ~ /psfile/){ ! 103: n=substr(str,index(str,"psfile")) ! 104: if(n ~ / /)sub(/ .*/, "", n) ! 105: if(n ~ /\=/)sub(/.*=/, "", n) ! 106: if(n ~ /,$/)sub(/,/, "", n) ! 107: if(n ~ /,.*/)sub(/,.*/, "", n) ! 108: system( "cp " n " " dir) ! 109: close( "cp " n " " dir) ! 110: if(n ~ /\//){ ! 111: num = split(n, xa, /\//) ! 112: sub(n, xa[num], str) ! 113: } ! 114: print str ! 115: } ! 116: else print str ! 117: } ! 118: function ckdef(file, first,new){ ! 119: print first ! 120: if(new){ ! 121: n=index(first,"{")+1 ! 122: name=substr(first,n,index(first,"}")-n) ! 123: name = "\\" name ! 124: n=index(first,"[")+1 ! 125: if(n > 1) ! 126: args=substr(first,n,index(first,"]")-n)+0 ! 127: else args=0 ! 128: } ! 129: else { ! 130: sub(/\\def\\/,"") ! 131: savs = first ! 132: if(first ~ /^[A-Za-z]/){ ! 133: abc=first ! 134: sub(/[^A-Za-z]/,"{",abc) ! 135: name = "\\\\" substr(first,0,index(abc,"{")-1) ! 136: } ! 137: else name = "\\\\" substr(first,0,1) ! 138: if(savs ~ /#/){ ! 139: if(savs ~ "{")gsub(/{.*/, "",savs) ! 140: n=split(savs, z, "#") ! 141: args = n-1 ! 142: } ! 143: else args=0 ! 144: xdef=1 ! 145: } ! 146: if(first ~ "%"){ ! 147: n=split(first, z, "%") ! 148: save = z[1] ! 149: left=gsub(/{/,":",z[1]) ! 150: right=gsub(/}/,";",z[1]) ! 151: } ! 152: else{ ! 153: save = $0 ! 154: left=gsub(/{/,":") ! 155: right=gsub(/}/,";") ! 156: } ! 157: psav = isav = 0 ! 158: if($0 ~ /special/){ ! 159: getpattern(file, save) ! 160: psav++ ! 161: } ! 162: while(left != right || (left == 1 && !xdef)){ ! 163: if(file== 0){ ! 164: if((getline) <1){ ! 165: print "ran out of file in newcommand"|"cat 1>&2" ! 166: exit ! 167: } ! 168: } ! 169: else if((getline<file) < 1){ ! 170: print "ran out of file in newcommand"|"cat 1>&2" ! 171: exit ! 172: } ! 173: save=$0 ! 174: left +=gsub(/{/,":") ! 175: right+=gsub(/}/,";") ! 176: if($0 ~ /special/){ ! 177: getpattern(file, save) ! 178: psav++ ! 179: } ! 180: if($0 ~ /(input|include)/){ ! 181: getpattern(file, save) ! 182: isav++ ! 183: } ! 184: else print save ! 185: } ! 186: if(psav||isav){ ! 187: argct[idef] = args ! 188: if(psave)post[idef] = psav ! 189: else inp[idef]=isav ! 190: def[idef++] = name ! 191: } ! 192: ! 193: } ! 194: function getpattern(file, command){ ! 195: save = command ! 196: if(command ~ /psfile/){ ! 197: n=substr(command, index(command, "psfile")) ! 198: sub(/.*=[ \t]*/,"",n) ! 199: sub(/}*$/,"",n) ! 200: sub(/ .*/,"",n) ! 201: ckargs(n,save) ! 202: } ! 203: if(command ~ /(input|include)/){ ! 204: if(command ~ /\\input/)n = index(command,"\\input")+7 ! 205: else n=index(command,"\\include")+9 ! 206: bname = substr(command,n) ! 207: gsub(/^[ ]*/,"",bname) ! 208: gsub(/[ }].*/,"",bname) ! 209: gsub(/[ }]$/,"",bname) ! 210: ckargs(bname,save) ! 211: } ! 212: } ! 213: function ckargs(pat,command){ ! 214: if(pat ~ /#/) ! 215: num = substr(pat,index(pat,"#")+1,1) ! 216: else num = 0 ! 217: pattern[idef,num] = pat ! 218: if(command ~ /\//){ ! 219: num = split(pat, xa, /\//) ! 220: sub(n, xa[num], command) ! 221: } ! 222: print command ! 223: } ! 224: function cpfile(name, pat){ ! 225: if(name ~ "}") ! 226: sub(/}.*/,"", name) ! 227: sub(/#./,name,pat) ! 228: system("cp " pat " " dir) ! 229: close("cp " pat " " dir) ! 230: if(name ~ /\//){ ! 231: num = split(name, xa, /\//) ! 232: sub(name, xa[num],string) ! 233: } ! 234: } ! 235: function isdef(string, i, gotarg, a, x, j, l, r){ ! 236: if(idef){ ! 237: for(i=0;i<idef;i++){ ! 238: if(string !~ def[i])continue ! 239: if((i,0) in pattern){ ! 240: system("cp " pattern[idef,0] " " dir) ! 241: close("cp " pattern[idef,0] " " dir) ! 242: break ! 243: } ! 244: gotarg=0 ! 245: a=string ! 246: while(gotarg<argct[i]){ ! 247: x=0 ! 248: if(j=index(a,"{")){ ! 249: x++ ! 250: a = substr(a,j+1) ! 251: if((i,gotarg+1) in pattern) ! 252: cpfile(a, pattern[i,gotarg+1]) ! 253: while(x){ ! 254: l=index(a,"{") ! 255: r=index(a,"}") ! 256: if(!l && !r){ ! 257: getline ! 258: string = string "\n" $0 ! 259: a=$0 ! 260: continue ! 261: } ! 262: if(l<r && l>0){ ! 263: x++ ! 264: a=substr(a,l+1) ! 265: } ! 266: else{ ! 267: a=substr(a,r+1) ! 268: x-- ! 269: } ! 270: } ! 271: gotarg++ ! 272: } ! 273: else { ! 274: getline ! 275: string = string "\n" $0 ! 276: a = $0 ! 277: } ! 278: } ! 279: break ! 280: } ! 281: } ! 282: print string ! 283: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.