![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to otroff.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 otroff.awk CVS log | Up to [Research Unix] / researchv10no / cmd / docsubmit |
1.1 ! root 1: BEGIN {seen[""] = 0 ! 2: monkdel = "\(\)\[\]<>{\}\"\"\'\'\`\'" ! 3: EQstr="(^\\.EQ)|(\\|begin *[(<[{'\"\`]equation *)|(\\|equation[^_])" ! 4: ENstr="(^\\.EN)|(\\|end *[(<[{'\"\`]equation)" ! 5: TSstr="(^\\.TS)|(\\|begin *[(<[{'\"\`]table *)|(\\|table[^_])" ! 6: TEstr="(^\\.TE)|(\\|end *[(<[{'\"\`]table)" ! 7: GSstr="(^\\.GS)|(\\|begin *[(<[{'\"\`]ped *)|(\\|ped[^_])" ! 8: GEstr="(^\\.GE)|(\\|end *[(<[{'\"\`]ped)" ! 9: PSstr="(^\\.(PS|G1))|(\\|begin *[(<[{'\"\`](picture|graph) *)|(\\|(picture|graph)[^_])" ! 10: PEstr="(^\\.(P[EF]|G2))|(\\|end *[(<[{'\"\`](picture|graph))" ! 11: ISstr="(^\\.IS)|(\\|begin *[(<[{'\"\`]ideal *)|(\\|ideal[^_])" ! 12: IEstr="(^\\.I[EF])|(\\|end *[(<[{'\"\`]ideal)" ! 13: picoutput = "This paper appears to have pic output included.\nWe do not accept papers with pic output.\nPlease resubmit it with the pic input instead.\nIf the pic input is in separate files, you can include it by saying:\n.PS <picfile" ! 14: tbloutput = "This paper appears to have tbl output included.\nWe do not accept papers with tbl output.\nPlease resubmit it with the tbl input instead.\n" ! 15: tpedoutput = "This paper appears to have tped output included.\nWe do not accept papers with tped output.\nPlease resubmit it with the tped input instead.\n" ! 16: intbl = ineq = tped = 0 ! 17: ndelim="" ! 18: macs=".BM .BP .BI" ! 19: n=split(macs,arr," ") ! 20: for(i=1;i<=n;i++) ! 21: incmacro[arr[i]]=1 ! 22: } ! 23: /^\.ig/ { ! 24: while(getline>0 && $0 !~ /^\.\./); ! 25: next ! 26: } ! 27: # inmacro seeded with .BM .BP .PI also has ! 28: # macros including picture macro, try to open all args ! 29: /^\./ { ! 30: if(($1 in incmacro) && (NF > 1)){ ! 31: tryall() ! 32: next ! 33: } ! 34: } ! 35: # .so - get input file ! 36: # or .de that includes .so - try to get file as arg2 ! 37: /^\.so/ || $1 in hasso { ! 38: getfile($2) ! 39: next ! 40: } ! 41: /\|comment/ { ! 42: comment("") ! 43: next ! 44: } ! 45: /\|(insert|source)/ { ! 46: mgetfile() ! 47: next ! 48: } ! 49: /\|author/ { ! 50: author("") ! 51: next ! 52: } ! 53: /\|title[^a-z_]/ { ! 54: title("") ! 55: next ! 56: } ! 57: # bwk macro ! 58: /^\.ge/ { ! 59: system( "trget " NF " " $2 " " $3 " " $4 " " $5 ) ! 60: close( "trget " NF " " $2 " " $3 " " $4 " " $5 ) ! 61: next ! 62: } ! 63: # bwk macro ! 64: /^\.ru/ { ! 65: system( $2 " " $3 " " $4 " " $5 " " $6 " " $7 " " $8 " " $9 ) ! 66: close( $2 " " $3 " " $4 " " $5 " " $6 " " $7 " " $8 " " $9 ) ! 67: next ! 68: } ! 69: # inline .sy - execute ! 70: /^\.sy/ { ! 71: system( $2 " " $3 " " $4 " " $5 " " $6 " " $7 " " $8 " " $9 ) ! 72: close( $2 " " $3 " " $4 " " $5 " " $6 " " $7 " " $8 " " $9 ) ! 73: next ! 74: } ! 75: /^\.bm/ { ! 76: next ! 77: } ! 78: # switch in and out of eqn ! 79: $0 ~ EQstr { ineq = 1 ! 80: print $0 ! 81: if($0 !~ /^\./ && $0 !~ /\|begin/) ! 82: ndelim=getdel() ! 83: next ! 84: } ! 85: $0 ~ ENstr { ineq = 0} ! 86: # switch in and out of tbl ! 87: $0 ~ TSstr { intbl = 1 ! 88: print $0 ! 89: if($0 !~ /^\./ && $0 !~ /\|begin/) ! 90: ndelim=getdel() ! 91: next ! 92: } ! 93: $0 ~ TEstr { intbl = 0} ! 94: # all tbl output has this - unlikely otherwise - reject ! 95: /^\.de 35/ { ! 96: if(intbl){ ! 97: print tbloutput|"cat 1>&2" ! 98: exit 1 ! 99: } ! 100: } ! 101: # save eqn delimiters - # bad for tbl, pic - warn ! 102: /^[ ]*delim[ ]*/ { ! 103: if(ineq){ ! 104: if($2 ~ /#/) ! 105: print "eqn delimiters in " $0 " will break tbl, pic etc"|"cat 1>&2" ! 106: delim = $0 ! 107: } ! 108: } ! 109: # macro definition - check for embedded picture macros ! 110: # bitmaps, or .so ! 111: /^\.(de|am)/ { ! 112: if($0 ~ /IS/) ! 113: print ".IS is defined in " file " check it for ideal"|"cat 1>&2" ! 114: print $0 ! 115: xname = $2 ! 116: while((getline) > 0){ ! 117: if($0 ~ /^\.ig/){ ! 118: while((getline) >0 && $0 !~ /^\.\./); ! 119: continue ! 120: } ! 121: if($0 ~ /^\.\./)break ! 122: if($0 ~ /^\.(BM|BP|PI)/)incmacro["." xname]=1 ! 123: if($0 ~ /^\.so/){ ! 124: hasso["." xname] = 1 ! 125: print "The .so embedded in macro " xname " may cause files not to be shipped " | "cat 1>&2" ! 126: defso = 1 ! 127: } ! 128: print $0 ! 129: } ! 130: } ! 131: # .PS <file ! 132: # check if file contains .PS ! 133: # replace .PS <file with file (and .PS in needed) ! 134: # copy other files if copy thru included ! 135: /^\.PS[ \t]*</ { ! 136: gsub(/ /,"") ! 137: a=substr($0,index($0,"<")+1) ! 138: if((getline<a) >0){ ! 139: pflag=0 ! 140: start=1 ! 141: if($0 ~ /^\./){ ! 142: print $0 ! 143: pflag=1 ! 144: if($0 !~ /^\.PS/){ ! 145: while(getline<a > 0){ ! 146: if($0 !~ /^\./)break ! 147: print $0 ! 148: if($0 ~ /^\.PS/)pflag=0 ! 149: } ! 150: if(pflag)print ".PS" ! 151: start=0 ! 152: } ! 153: } ! 154: else{ print ".PS" ! 155: start=0 ! 156: } ! 157: pflag = getpic(a,start,0,"") ! 158: if(pflag)print ".PE" ! 159: close(a) ! 160: } ! 161: else { ! 162: print "couldn't open pic file:" a|"cat 1>&2" ! 163: print "from line: " $0|"cat 1>&2" ! 164: exit 1 ! 165: } ! 166: next ! 167: } ! 168: # tped .GS may name file to include ! 169: # if so, copy file; replace full path with file name ! 170: # else toggle tped flag ! 171: $0 ~ GSstr { ! 172: if($0 ~ /^\.GS/ && NF > 1){ ! 173: for(t=2; t<=NF;t++){ ! 174: if($t !~ "-" && $t !~ "="){ ! 175: system( "cp " $t " " dir ) ! 176: close( "cp " $t " " dir ) ! 177: if($0 ~ "/"){ ! 178: nstat=split($0,stat,"/") ! 179: cmd = "" ! 180: for(xx=1;xx<t;xx++) ! 181: cmd= cmd $xx " " ! 182: print cmd stat[nstat] ! 183: } ! 184: else print $0 ! 185: next ! 186: } ! 187: } ! 188: } ! 189: intped=1 ! 190: print $0 ! 191: if($0 !~ /^\./ && $0 !~ /\|begin/) ! 192: ndelim=getdel() ! 193: next ! 194: } ! 195: $0 ~ GEstr { ! 196: intped=0 ! 197: } ! 198: # .sp -1 clue of included tped output ! 199: /^\.sp -1/ { ! 200: if(intped){ ! 201: print tpedout|"cat 1>&2" ! 202: exit 1 ! 203: } ! 204: } ! 205: # grap/pic may include file ! 206: $0 ~ PSstr { ! 207: getpic("",0,1,"") ! 208: next ! 209: } ! 210: # ideal - may include file ! 211: $0 ~ ISstr { ! 212: print $0 ! 213: if($0 !~ /^\./ && $0 !~ /\|begin/) ! 214: idelim=getdel() ! 215: else idelim=IEstr ! 216: while(getline){ ! 217: if($0 ~ idelim){ ! 218: print $0 ! 219: next ! 220: } ! 221: else if($0 ~ /^[\.]+include/) ! 222: doinclude($1, $2, 0) ! 223: else print $0 ! 224: } ! 225: } ! 226: # macro called that includes .so probably not included ! 227: /^\./ { ! 228: if($1 in hasso) ! 229: print $2 "with embedded .so called"| "cat 1>&2" ! 230: } ! 231: /.*/ { ! 232: if(ndelim != "") ! 233: if($0 ~ ndelim){ ! 234: ineq=intbl=0 ! 235: ndelim="" ! 236: } ! 237: print $0 ! 238: } ! 239: function havecopy(cmd, file, i, ofile, quotes,n,rname,NAME,j){ ! 240: if(file ~ /"/){ ! 241: quotes=1 ! 242: n = split(file, name, "\"") ! 243: if(n>1)rname = name[2] ! 244: } ! 245: else { ! 246: rname = file ! 247: quotes=0 ! 248: } ! 249: if(rname ~ "/"){ ! 250: n = split(rname,nn, "/") ! 251: NAME=nn[n] ! 252: } ! 253: else NAME=rname ! 254: if(i > 2)for(j=2;j<i;j++)cmd = cmd " " $j ! 255: if(quotes)cmd = cmd " \"" NAME "\"" ! 256: else cmd = cmd " " NAME ! 257: if(NF >= i+1) ! 258: for(j=i+1; j<=NF; j++)cmd = cmd " " $j ! 259: if(ofile != "")print cmd >>ofile ! 260: else print cmd ! 261: if(rname in seen)return ! 262: getpic(rname,1,0,dir "/" NAME) ! 263: close(rname) ! 264: close(dir "/" NAME) ! 265: seen[rname]=1 ! 266: } ! 267: function tryall( cmd,i,tryit,found){ ! 268: cmd=$1 ! 269: found=0 ! 270: for(i=2;i<=NF;i++){ ! 271: if((getline tryit <$i)>0){ ! 272: found=1 ! 273: cmd= cmd " " getcopy($i) ! 274: } ! 275: else cmd = cmd " " $i ! 276: close($i) ! 277: } ! 278: print cmd ! 279: if(!found){ ! 280: print "no files found in " cmd|"cat 1>&2" ! 281: } ! 282: } ! 283: function getcopy(file, rname,quotes,n,NAME){ ! 284: rname=file ! 285: quotes=0 ! 286: if(file ~ /"/){ ! 287: quotes=1 ! 288: n=split(file,name,"\"") ! 289: if(n>1)rname=name[2] ! 290: } ! 291: system( "cp " rname " " dir ) ! 292: close( "cp " rname " " dir ) ! 293: if(rname ~ "/"){ ! 294: n = split(rname,nn, "/") ! 295: NAME=nn[n] ! 296: } ! 297: else NAME=rname ! 298: if(quotes)return("\"" NAME "\"") ! 299: else return(NAME) ! 300: } ! 301: function getfile(file, File, eflag,first,indef,xname,fintbl,finpic,saveline){ ! 302: if(file ~ /\/usr\/lib\//|| file ~ /\/exptools\//){ ! 303: print $0 ! 304: return ! 305: } ! 306: saveline=$0 ! 307: if((getline <file) > 0){ ! 308: if($0 ~ /@\(#\)dcs:[cC][Ss]macros/){ ! 309: print saveline ! 310: return ! 311: } ! 312: if($0 ~ /^\.lf/){ ! 313: File=$NF ! 314: saveline=$0 ! 315: if((getline <File)<=0){ ! 316: print "This paper contains preprocessor output evidenced by " saveline| "cat 1>&2" ! 317: print "and I can't find the source file " File|"cat 1>&2" ! 318: while((getline < file) >0 && $0 ~ /^\.lf/) ! 319: print $0| "cat 1>&2" ! 320: print "paper not submitted" | "cat 1>&2" ! 321: exit 1 ! 322: } ! 323: } ! 324: else File = file ! 325: } ! 326: else { ! 327: print "cannot open file " file | "cat 1>&2" ! 328: return ! 329: } ! 330: if(File in seen){ ! 331: close(File) ! 332: return ! 333: } ! 334: if(delim != "" && !ismonk){ ! 335: print ".EQ\ndelim off\n.EN" ! 336: eflag=1 ! 337: } ! 338: seen[File] = 1 ! 339: first=1 ! 340: while(1){ ! 341: if(first==0)if((getline <File)<=0)break ! 342: first = 0 ! 343: if($0 ~ /^\.ig/){ ! 344: while((getline<File)>0 && $0 !~ /^\.\./); ! 345: continue ! 346: } ! 347: if($0 ~ /^\.(de|am)/){ ! 348: if(fintbl && $0 ~ /^\.de 35/){ ! 349: print tbloutput|"cat 1>&2" ! 350: print "The tbl output is in the .so file named:" File|"cat 1>&2" ! 351: exit 1 ! 352: } ! 353: indef=1 ! 354: xname = $2 ! 355: } ! 356: if(indef && $0 ~ /^\.(BM|BP|PI)/)incmacro["." xname]=1 ! 357: if($0 ~ /^\.\.$/)indef=0 ! 358: if($0 ~ /^\.sy/ && indef == 0){ ! 359: print "the .sy commands in this paper will not be handled" indef|"cat 1>&2" ! 360: if(debug ~ /-d/){ ! 361: print $0 ! 362: continue ! 363: } ! 364: print "paper not submitted" | "cat 1>&2" ! 365: exit 1 ! 366: } ! 367: if($0 ~ TSstr)fintbl=1 ! 368: if($0 ~ TEstr)fintbl=0 ! 369: if($0 ~ PSstr)getpic(File,0,1,"") ! 370: else if($0 ~ /\|comment/)comment(File) ! 371: else if($0 ~ /\|(insert|source)/)mgetfile() ! 372: else if($0 ~ /\|author/)author(File) ! 373: else if($0 ~ /\|title[^a-z_]/)title(File) ! 374: else if(($1 in incmacro)&& (NF > 1)&&!indef) ! 375: tryall() ! 376: else if($0 ~ /^\.so/){ ! 377: if(!indef)getfile($2) ! 378: else hasso["." xname]=1 ! 379: } ! 380: else print $0 ! 381: } ! 382: close(File) ! 383: if(eflag){ ! 384: print ".EQ\n" delim "\n.EN" ! 385: eflat = 0 ! 386: } ! 387: } ! 388: function doinclude(cmd, fname, fileflag, file){ ! 389: if(fname ~ "/"){ ! 390: n=split(fname,name,"/") ! 391: if(fileflag)print cmd " " name[n] >(dir "/" file) ! 392: else print cmd " " name[n] ! 393: } ! 394: else if(fileflag)print cmd " " fname >(dir "/" file) ! 395: else print cmd " " fname ! 396: while((getline<fname)>0){ ! 397: if($0 ~ /^[\.]+include/) ! 398: doinclude($1, $2, 1, fname) ! 399: else print $0 >(dir "/" fname) ! 400: } ! 401: close(fname) ! 402: } ! 403: function getpic(file,flag,iscmd, ofile, rfile, inmonk, pflag, i, pdelim){ ! 404: pflag = 1 ! 405: inmonk=0 ! 406: if(iscmd && $0 !~ /^\./ && $0 !~ /\|begin/){ ! 407: i=$0 ! 408: pdelim=getdel() ! 409: $0=i ! 410: } ! 411: else pdelim=PEstr ! 412: rfile=file ! 413: while(1){ ! 414: if(flag){ ! 415: if(rfile == ""){ ! 416: if(getline <= 0)break ! 417: } ! 418: else if((getline<rfile)<=0){ ! 419: if(!inmonk)break ! 420: inmonk=0 ! 421: close(rfile) ! 422: rfile=file ! 423: if(ofile != "")print "...\\\"end insert" >>ofile ! 424: else print "...\\\"end insert" ! 425: continue ! 426: } ! 427: } ! 428: flag=1 ! 429: if($0 ~ /\|(insert|source)/){ ! 430: if(ofile != "")print "...\\\"begin insert" >>ofile ! 431: else print "...\\\"begin insert" ! 432: rfile=getname() ! 433: inmonk=1 ! 434: continue ! 435: } ! 436: if(!inmonk && $0 ~ pdelim){ ! 437: pflag=0 ! 438: if(ofile != "")print $0 >>ofile ! 439: else print $0 ! 440: break ! 441: } ! 442: if($0 ~ /(copy|include)/){ ! 443: for(i=1;i<NF;i++) ! 444: if($i ~ /(copy|include)/)break ! 445: i++ ! 446: if (($i !~ "thru") && ($i !~ "through")) { ! 447: havecopy($1, $i, i, ofile); ! 448: } ! 449: else { ! 450: if(ofile != "")print $0 >>ofile ! 451: else print $0 ! 452: } ! 453: } ! 454: else if($0 ~ /^\.sp -1/){ #sign in pic output included ! 455: print picoutput|"cat 1>&2" ! 456: exit 1 ! 457: } ! 458: else { ! 459: if(ofile != "")print $0 >>ofile ! 460: else print $0 ! 461: } ! 462: } ! 463: return(pflag) ! 464: } ! 465: function getdel(){ ! 466: if($0 !~ /^\|/ && $0 ~ /..*\|/)sub(/^..*\|/,"\|") ! 467: sub(/\|[a-z \t]*/,"") ! 468: ldelim = substr($0, 0, 1) ! 469: sub(/./,"") ! 470: b = substr(monkdel,index(monkdel,ldelim)+1,1) ! 471: prdelim = b ! 472: return("\\" b) ! 473: } ! 474: function comment(fname, rdelim){ #print comment to avoid losing lines ! 475: print $0 ! 476: rdelim = getdel() ! 477: if($0 ~ rdelim)return ! 478: if(fname == ""){ ! 479: while(getline > 0){ ! 480: print $0 ! 481: if($0 ~ rdelim)break ! 482: } ! 483: } ! 484: else while((getline<fname)>0){ ! 485: print $0 ! 486: if($0 ~ rdelim)break ! 487: } ! 488: } ! 489: # reorder author/title in monk ! 490: function author(fname, rdelim){ ! 491: if(titleflag)print $0 ! 492: else if(sauthor == "")sauthor = $0 ! 493: else sauthor = sauthor "\n" $0 ! 494: rdelim = getdel() ! 495: if($0 !~ rdelim){ ! 496: while(1){ ! 497: if(fname == ""){ ! 498: if(getline <= 0)break ! 499: } ! 500: else { ! 501: if((getline<fname) <= 0)break ! 502: } ! 503: if(titleflag)print $0 ! 504: else sauthor = sauthor "\n" $0 ! 505: if($0 ~ rdelim)break ! 506: } ! 507: } ! 508: } ! 509: function title(fname, rdelim){ ! 510: print $0 ! 511: rdelim = getdel() ! 512: if($0 !~ rdelim){ ! 513: if(fname == "") ! 514: while(getline > 0){ ! 515: print $0 ! 516: if($0 ~ rdelim)break ! 517: } ! 518: else while((getline<fname) > 0){ ! 519: print $0 ! 520: if($0 ~ rdelim)break ! 521: } ! 522: } ! 523: if(sauthor != ""){ ! 524: print sauthor ! 525: sauthor = "" ! 526: } ! 527: titleflag=1 ! 528: } ! 529: function mgetfile( rname){ ! 530: rname=getname() ! 531: if(rname in seen)return ! 532: ismonk=1 ! 533: getfile(rname) ! 534: } ! 535: function getname( del,n){ ! 536: del=getdel() ! 537: n=split($0, xa, del) ! 538: if(n>0)return(xa[1]) ! 539: else return($0) ! 540: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.