![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to odocsubmit 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 odocsubmit CVS log | Up to [Research Unix] / researchv10no / cmd / docsubmit |
1.1 root 1: # @(#)fulltext:docsubmit 1.18
2:
3: # THis routine was originally written by Lorinda Cherry - it gathers up
4: # all the files connected with a documents, and transmits them via
5: # uucp to mhuxd!~/full.text/
6: #
7: # It bundles all the files involved together into one cpio file
8: # called <1st 5 chars of machine name><process id>.cp
9:
10: # Finding a good awk is a pain - set it here if you want
11: AWK=""
12: if test -z "${AWK}"
13: then
14: if ans=`sh -c 'logdir exptools' 2>&1` ; then
15: :
16: else
17: ans=`grep '^exptools:' /etc/passwd | sed "s/^[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:\([^:]*\).*/\1/"`
18: fi
19: if test -r ${ans}/bin/nawk
20: then
21: AWK=${ans}/bin/nawk
22: fi
23: fi
24: if test -z "${AWK}"
25: then
26: if test -r /usr/local/bin/awk
27: then
28: AWK=/usr/local/bin/awk
29: fi
30: fi
31: if test -z "${AWK}"
32: then
33: AWK=awk
34: fi
35:
36: # Get machine nodename - swiped from rn build routine Configure
37: if ans=`sh -c hostname 2>&1` ; then
38: MACH=$ans
39: elif ans=`sh -c 'uuname -l' 2>&1` ; then
40: MACH=$ans
41: elif ans=`sh -c 'uname -n' 2>&1` ; then
42: MACH=$ans
43: else
44: MACH=failedget
45: fi
46: # Get the users LOGNAME
47: if ans=`sh -c logname 2>&1` ; then
48: LOGNAME=$ans
49: else
50: LOGNAME=`echo $HOME|sed 's/.*\///'`
51: fi
52:
53: T=/tmp
54: AWKTEMP=/tmp/Doc.Awk.$$
55: OUTP="junk"
56: COVER="junk"
57: DOCNUM="junk"
58: REF=""
59: # cut the machine name down to a max of 5 characters
60: DIR=`echo ${MACH} | sed 's/\(.....\).*/\1/'`$$
61: NAME=$DIR
62: DIR=$T/$DIR
63: trap 'rm -f ${AWKTEMP} $DIR/* $T/$NAME.cp ; rmdir $DIR 2>>/dev/null; trap 0;exit' 0 1 2 15
64: if test $# -eq 0
65: then
66: echo "docsubmit -C -c file.cover -N number -r ref_file -t file(s)"
67: echo " -C if document complete without coversheet, else -c file.cover"
68: echo " -N number if document number not included in the files"
69: echo " -r to include a refer file"
70: echo " -t if source is Knuths TeX instead of troff/nroff\n"
71: echo " Two examples, first with cover sheet, second without:"
72: echo " docsubmit -c mydoc.cover mydoc.text mydoc.append"
73: echo " docsubmit -C -N 79111-880324-01 mydoc.text"
74: exit 0
75: fi
76: for i in $*
77: do case $i in
78: -r) shift; REF=$1; shift; continue;;
79: -c) shift; COVER=$1; shift; continue;;
80: -C) shift; COVER=$$; continue;;
81: -t) shift; TEX="yes"; ARG=$1; shift; continue;;
82: -N) shift; DOCNUM=$1; shift; continue;;
83: -*) echo docsubmit unknown flag $i; exit 1;;
84: esac
85: done
86: ARGS=$*
87: if test "$COVER" = "junk"
88: then
89: echo "You must include the coversheet file for the paper to be submitted"
90: echo "If the coversheet is in the files (or the files are the complete document),"
91: echo " indicate this by using the -C flag"
92: echo "Use the flag -N number if document number not included in the files"
93: echo " ===> Full text of document not sent <==="
94: exit 1
95: fi
96:
97: # check the entered document number
98: if test ${DOCNUM} != "junk"
99: then
100: x=`expr "${DOCNUM}" : '^[a-zA-Z0-9]*-[89][0-9]*-[0-9][0-9]'`
101: if test $x -lt 2
102: then
103: echo "\nDocument numbers must be of form OrgNum-Date-seq"
104: echo " Where Date is usually YYMMDD (e.g. 881224) [always starts with a year]"
105: echo " and the sequence number is always 2 digits (e.g. 03)"
106: echo " ===> Full text of document not sent <==="
107: exit 1
108: fi
109: fi
110: OUTP=$DIR/$NAME
111: mkdir $DIR
112: if test $TEX
113: then
114: case $OUTP in
115: *.*) echo "the name for a TeX paper cannot contain . tex gets confused"
116: echo " use _ or - instead"
117: exit 1
118: esac
119: BBL=$OUTP.bbl
120: OUTP=$OUTP.tex
121: echo "%...\\\"" `date` >$OUTP
122: echo "%...\\\"" EmailAddress ${MACH}"!"${LOGNAME} >>$OUTP
123: if test "${DOCNUM}" != "junk"
124: then
125: echo "%...\\\" DocNum ${DOCNUM}" >>$OUTP
126: fi
127: echo "%...\\\"" `pwd` >>$OUTP
128: # THis was doinput.awk - put it inline for exptools ease
129: # NOTE - ends with line END doinput.awk
130: cat >${AWKTEMP} <<!
131: BEGIN {
132: if(texinp != "")
133: ninputs = split(texinp, texinputs, ":")
134: else {
135: ninputs = 1
136: texinputs[1] = "."
137: }
138: idef=0
139: }
140: /\\\\newcommand/ {
141: ckdef(0, \$0, 1)
142: next
143: }
144: /\\\\def[^a-z]/ {
145: ckdef(0, \$0, 0)
146: next
147: }
148: /\\\\(input|include)[{ ]/ {
149: getfile()
150: next
151: }
152: /\\\\bibliography[{ ]/ {
153: n = substr(\$0, index(\$0,"{")+1, index(\$0,"}")-index(\$0,"{")-1)
154: if(n ~ ","){
155: num=split(n, b, ",")
156: for(i=1;i<=num;i++)
157: system("cp " b[i] ".bbl " dir)
158: close("cp " b[i] ".bbl " dir)
159: }
160: else{
161: system("cp " n ".bbl " dir)
162: close("cp " n ".bbl " dir)
163: }
164: }
165: /^\\\\includepicture/ {
166: n=index(\$0,"{")+1
167: fname=substr(\$0,n,index(\$0,"}")-n)
168: system ("cp " fname ".t " dir )
169: close ("cp " fname ".t " dir )
170: system ("cp " fname ".tex " dir )
171: close ("cp " fname ".tex " dir )
172: }
173: /\\\\special/ {
174: getpost(\$0)
175: next
176: }
177: /\\\\/ {
178: isdef(\$0)
179: next
180: }
181: /.*/ {
182: print \$0
183: }
184: function getfile( saveline, n, bname, tname, j, name, flag){
185: saveline = \$0
186: if(\$0 ~ /\\\\input/)n = index(\$0,"\\\\input")+7
187: else n=index(\$0,"\\\\include")+9
188: bname = substr(\$0,n)
189: gsub(/^[ {]*/,"",bname)
190: gsub(/[ }].*/,"",bname)
191: gsub(/[ }]\$/,"",bname)
192: tname = bname ".tex"
193: for(j=1; j<= ninputs; j++){
194: name = texinputs[j] "/" tname
195: if((getline <name) >=0)break
196: name = texinputs[j] "/" bname
197: if((getline <name) >=0)break
198: name = ""
199: }
200: if(name == ""){
201: print "cannot open file " bname " or " tname | "cat 1>&2"
202: return
203: }
204: if(name ~ /\\/usr\\/lib\\/tex\\/macros/){
205: print saveline
206: return
207: }
208: flag=0
209: while(1){
210: if(flag)if((getline <name)<1)break
211: flag=1
212: if(\$0 ~ /\\\\newcommand/){
213: ckdef(name, \$0, 1)
214: continue
215: }
216: if(\$0 ~ /\\\\def[^a-z]/){
217: ckdef(name, \$0, 0)
218: continue
219: }
220: if(\$0 ~ /\\\\(input|include)[{ ]/){
221: getfile()
222: }
223: else if(\$0 ~ /\\\\special/)getpost(\$0)
224: else if(\$0 ~ /\\\\/){
225: isdef(\$0)
226: }
227: else print \$0
228: }
229: close(name)
230: }
231: function getpost(str){
232: if(str ~ /psfile/){
233: n=substr(str,index(str,"psfile"))
234: if(n ~ / /)sub(/ .*/, "", n)
235: if(n ~ /\\=/)sub(/.*=/, "", n)
236: if(n ~ /,$/)sub(/,/, "", n)
237: if(n ~ /,.*/)sub(/,.*/, "", n)
238: system( "cp " n " " dir)
239: close( "cp " n " " dir)
240: if(n ~ /\\//){
241: num = split(n, xa, /\\//)
242: sub(n, xa[num], str)
243: }
244: print str
245: }
246: else print str
247: }
248: function ckdef(file, first,new){
249: print first
250: if(new){
251: n=index(first,"{")+1
252: name=substr(first,n,index(first,"}")-n)
253: name = "\\\\" name
254: n=index(first,"[")+1
255: if(n > 1)
256: args=substr(first,n,index(first,"]")-n)+0
257: else args=0
258: }
259: else {
260: sub(/\\\\def\\\\/,"")
261: savs = first
262: if(first ~ /^[A-Za-z]/){
263: abc=first
264: sub(/[^A-Za-z]/,"{",abc)
265: name = "\\\\\\\\" substr(first,0,index(abc,"{")-1)
266: }
267: else name = "\\\\\\\\" substr(first,0,1)
268: if(savs ~ /#/){
269: if(savs ~ "{")gsub(/{.*/, "",savs)
270: n=split(savs, z, "#")
271: args = n-1
272: }
273: else args=0
274: xdef=1
275: }
276: if(first ~ "%"){
277: n=split(first, z, "%")
278: save = z[1]
279: left=gsub(/{/,":",z[1])
280: right=gsub(/}/,";",z[1])
281: }
282: else{
283: save = \$0
284: left=gsub(/{/,":")
285: right=gsub(/}/,";")
286: }
287: psav = isav = 0
288: if(\$0 ~ /special/){
289: getpattern(file, save)
290: psav++
291: }
292: while(left != right || (left == 1 && !xdef)){
293: if(file== 0){
294: if((getline) <1){
295: print "ran out of file in newcommand"|"cat 1>&2"
296: exit
297: }
298: }
299: else if((getline<file) < 1){
300: print "ran out of file in newcommand"|"cat 1>&2"
301: exit
302: }
303: save=\$0
304: left +=gsub(/{/,":")
305: right+=gsub(/}/,";")
306: if(\$0 ~ /special/){
307: getpattern(file, save)
308: psav++
309: }
310: if(\$0 ~ /(input|include)/){
311: getpattern(file, save)
312: isav++
313: }
314: else print save
315: }
316: if(psav||isav){
317: argct[idef] = args
318: if(psave)post[idef] = psav
319: else inp[idef]=isav
320: def[idef++] = name
321: }
322:
323: }
324: function getpattern(file, command){
325: save = command
326: if(command ~ /psfile/){
327: n=substr(command, index(command, "psfile"))
328: sub(/.*=[ \\t]*/,"",n)
329: sub(/}*\$/,"",n)
330: sub(/ .*/,"",n)
331: ckargs(n,save)
332: }
333: if(command ~ /(input|include)/){
334: if(command ~ /\\\\input/)n = index(command,"\\\\input")+7
335: else n=index(command,"\\\\include")+9
336: bname = substr(command,n)
337: gsub(/^[ ]*/,"",bname)
338: gsub(/[ }].*/,"",bname)
339: gsub(/[ }]\$/,"",bname)
340: ckargs(bname,save)
341: }
342: }
343: function ckargs(pat,command){
344: if(pat ~ /#/)
345: num = substr(pat,index(pat,"#")+1,1)
346: else num = 0
347: pattern[idef,num] = pat
348: if(command ~ /\\//){
349: num = split(pat, xa, /\\//)
350: sub(n, xa[num], command)
351: }
352: print command
353: }
354: function cpfile(name, pat){
355: if(name ~ "}")
356: sub(/}.*/,"", name)
357: sub(/#./,name,pat)
358: system("cp " pat " " dir)
359: close("cp " pat " " dir)
360: if(name ~ /\\//){
361: num = split(name, xa, /\\//)
362: sub(name, xa[num],string)
363: }
364: }
365: function isdef(string, i, gotarg, a, x, j, l, r){
366: if(idef){
367: for(i=0;i<idef;i++){
368: if(string !~ def[i])continue
369: if((i,0) in pattern){
370: system("cp " pattern[idef,0] " " dir)
371: close("cp " pattern[idef,0] " " dir)
372: break
373: }
374: gotarg=0
375: a=string
376: while(gotarg<argct[i]){
377: x=0
378: if(j=index(a,"{")){
379: x++
380: a = substr(a,j+1)
381: if((i,gotarg+1) in pattern)
382: cpfile(a, pattern[i,gotarg+1])
383: while(x){
384: l=index(a,"{")
385: r=index(a,"}")
386: if(!l && !r){
387: getline
388: string = string "\\n" \$0
389: a=\$0
390: continue
391: }
392: if(l<r && l>0){
393: x++
394: a=substr(a,l+1)
395: }
396: else{
397: a=substr(a,r+1)
398: x--
399: }
400: }
401: gotarg++
402: }
403: else {
404: getline
405: string = string "\\n" \$0
406: a = \$0
407: }
408: }
409: break
410: }
411: }
412: print string
413: }
414: !
415: ${AWK} -f ${AWKTEMP} dir=$DIR texinp=$TEXINPUTS $ARG.tex >>$OUTP
416: # NOTE - END of doinput.awk
417: # Check that it ended okay
418: if test $? -ne 0
419: then
420: echo "Sorry - couldnt collect together the full text of your document."
421: echo "No full text was sent! Contact the docsubmit provider with questions."
422: exit 1
423: fi
424:
425: if test -s $ARG.bbl
426: then
427: cp $ARG.bbl $BBL
428: else if test \( -s $ARG.bib \) -a \( ! -s $DIR/$ARG.bib \)
429: then
430: cp $ARG.bib $BIB
431: fi
432: fi
433: else
434: echo "...\\\"" `date` >$OUTP
435: echo "...\\\"" EmailAddress ${MACH}"!"${LOGNAME} >>$OUTP
436: if test "${DOCNUM}" != "junk"
437: then
438: echo "...\\\" DocNum ${DOCNUM}" >>$OUTP
439: fi
440: echo "...\\\"" `pwd` >>$OUTP
441: if test $REF
442: then
443: cat >>$OUTP <<x
444: ...\"refer first
445: x
446: fi
447: if test $COVER = $$
448: then
449: PARMS="$ARGS"
450: else
451: PARMS="$COVER $ARGS"
452: fi
453: # THis use to invoke subso.awk
454: # Note ends with ENOD of subso.awk
455: cat >${AWKTEMP} <<!
456: BEGIN {seen[""] = 0
457: picoutput = "This paper appears to have pic output included.\\n"
458: picoutput = picoutput "We do not accept papers with pic output.\\n"
459: picoutput = picoutput "Please resubmit it with the pic input instead.\\n"
460: picoutput = picoutput "If the pic input is in separate files, you can include it by saying:\\n"
461: picoutput = picoutput " .PS <picfile"
462: tbloutput = "This paper appears to have tbl output included.\\n"
463: tbloutput = tbloutput "We do not accept papers with tbl output.\\n"
464: tbloutput = tbloutput "Please resubmit it with the tbl input instead.\\n"
465: tpedoutput = "This paper appears to have tped output included.\\n"
466: tpedoutput = tpedoutput "We do not accept papers with tped output.\\n"
467: tpedoutput = tpedoutput "Please resubmit it with the tped input instead.\\n"
468: intbl = ineq = tped = 0
469: }
470: # macro include picture macro, guess that it's arg2
471: /^\\./ {
472: if((\$1 in incmacro) && (NF > 1)){
473: havecopy(\$1, \$2, 2)
474: next
475: }
476: }
477: # .so - get input file
478: # or .de that includes .so - try to get file as arg2
479: /^\\.so/ || \$1 in hasso {
480: getfile(\$2)
481: next
482: }
483: # bwk macro
484: /^\\.ge/ {
485: system( "trget " NF " " \$2 " " \$3 " " \$4 " " \$5 )
486: close( "trget " NF " " \$2 " " \$3 " " \$4 " " \$5 )
487: next
488: }
489: # bwk macro
490: /^\\.ru/ {
491: system( \$2 " " \$3 " " \$4 " " \$5 " " \$6 " " \$7 " " \$8 " " \$9 )
492: close( \$2 " " \$3 " " \$4 " " \$5 " " \$6 " " \$7 " " \$8 " " \$9 )
493: next
494: }
495: # inline .sy - execute
496: /^\\.sy/ {
497: system( \$2 " " \$3 " " \$4 " " \$5 " " \$6 " " \$7 " " \$8 " " \$9 )
498: close( \$2 " " \$3 " " \$4 " " \$5 " " \$6 " " \$7 " " \$8 " " \$9 )
499: next
500: }
501: /^\\.bm/ {
502: next
503: }
504: # switch in and out of eqn
505: /^\\.EQ/ { ineq = 1 }
506: /^\\.EN/ { ineq = 0 }
507: # switch in and out of tbl
508: /^\\.TS/ { intbl = 1 }
509: /^\\.TE/ { intbl = 0 }
510: # all tbl output has this - unlikely otherwise - reject
511: /^\\.de 35/ {
512: if(intbl){
513: print tbloutput|"cat 1>&2"
514: exit 1
515: }
516: }
517: # save eqn delimiters - # bad for tbl, pic - warn
518: /^[ ]*delim[ ]*/ {
519: if(ineq){
520: if(\$2 ~ /#/)
521: print "eqn delimiters in " \$0 " will break tbl, pic etc"|"cat 1>&2"
522: delim = \$0
523: }
524: }
525: # macro definition - check for embedded picture macros
526: # bitmaps, or .so
527: /^\\.de/ {
528: if(\$0 ~ /IS/)
529: print ".IS is defined in " file " check it for ideal"|"cat 1>&2"
530: print \$0
531: xname = \$2
532: while((getline) > 0){
533: if(\$0 ~ /^\\.\\./)break
534: if(\$0 ~ /^\\.BM/)incmacro["." xname]=1
535: if(\$0 ~ /^\\.BP/)incmacro["." xname]=1
536: if(\$0 ~ /^\\.PI/)incmacro["." xname]=1
537: if(\$0 ~ /^\\.so/){
538: hasso["." xname] = 1
539: print "The .so embedded in macro " xname " will cause files not to be shipped " | "cat 1>&2"
540: defso = 1
541: }
542: print \$0
543: }
544: }
545: # .PS <file
546: # check if file contains .PS
547: # replace .PS <file with file (and .PS in needed)
548: # copy other files if copy thru included
549: /^\\.PS[ \\t]*</ {
550: gsub(/ /,"")
551: a=substr(\$0,index(\$0,"<")+1)
552: if((getline<a) >0){
553: if(\$0 ~ /^\\./){
554: print \$0
555: pflag=1
556: if(\$0 !~ /^\\.PS/){
557: while(getline<a > 0){
558: if(\$0 !~ /^\\./)break
559: print \$0
560: if(\$0 ~ /^\\.PS/)pflag=0
561: }
562: if(pflag)print ".PS"
563: }
564: }
565: else print ".PS"
566: flag=0
567: pflag = 1
568: while(1){
569: if(flag)if((getline<a)<=0)break
570: flag=1
571: if(\$0 ~ /^\\.P[EF]/)pflag=0
572: if(\$0 ~ /(copy|include)/){
573: for(i=1;i<NF;i++)
574: if(\$i ~ /(copy|include)/)break
575: i++
576: if ((\$i !~ "thru") && (\$i !~ "through")) {
577: havecopy(\$1, \$i, i);
578: }
579: else print \$0
580: }
581: else print \$0
582: }
583: if(pflag)print ".PE"
584: close(a)
585: }
586: else {
587: print "couldn't open pic file:" a|"cat 1>&2"
588: print "from line: " \$0|"cat 1>&2"
589: exit 1
590: }
591: next
592: }
593: # tped .GS may name file to include
594: # if so, copy file; replace full path with file name
595: # else toggle tped flag
596: /^\\.GS/ {
597: if(NF > 1){
598: for(t=2; t<=NF;t++){
599: if(\$t !~ "-" && \$t !~ "="){
600: system( "cp " \$t " " dir )
601: close( "cp " \$t " " dir )
602: if(\$0 ~ "/"){
603: nstat=split(\$0,stat,"/")
604: cmd = ""
605: for(xx=1;xx<t;xx++)
606: cmd= cmd \$xx " "
607: print cmd stat[nstat]
608: }
609: else print \$0
610: next
611: }
612: }
613: }
614: intped=1
615: }
616: /^\\.GE/ {
617: intped=0
618: }
619: # .sp -1 clue of included tped output
620: /^\\.sp -1/ {
621: if(intped){
622: print tpedout|"cat 1>&2"
623: exit 1
624: }
625: }
626: # grap/pic may include file
627: /^\\.(G1|PS)/ {
628: print \$0
629: while(getline > 0){
630: if(\$0 ~ /(copy|include)/){
631: for(i=1;i<NF;i++)
632: if(\$i ~ /(copy|include)/)break
633: i++
634: if ((\$i !~ "thru") && (\$i !~ "through")) {
635: havecopy(\$1, \$i, i);
636: }
637: else print \$0
638: }
639: else if(\$0 ~ /^\\.(G2|PE)/){
640: print \$0
641: break
642: }
643: else if(\$0 ~ /^\\.sp -1/){ #sign in pic output included
644: print picoutput|"cat 1>&2"
645: exit 1
646: }
647: else print \$0
648: }
649: next
650: }
651: # ideal - may include file
652: /^\\.IS/ {
653: print \$0
654: while(getline){
655: if(\$0 ~ /^\\.I[EF]/){
656: print \$0
657: next
658: }
659: else if(\$0 ~ /^[\\.]+include/)
660: doinclude(\$1, \$2, 0)
661: else print \$0
662: }
663: }
664: # postscript pictures - get file
665: /^\\.(BM|BP|PI)/ {
666: if(NF > 1)havecopy(\$1,\$2,2)
667: else print \$0
668: next
669: }
670: # macro called that includes .so probably not included
671: /^\\./ {
672: if(\$1 in hasso)
673: print \$2 | "cat 1>&2"
674: }
675: /.*/ {
676: print \$0
677: }
678: function havecopy(cmd, file, i){
679: if(file ~ /"/){
680: quotes=1
681: n = split(file, name, "\\"")
682: if(n>1)rname = name[2]
683: }
684: else {
685: rname = file
686: quotes=0
687: }
688: system( "cp " rname " " dir )
689: close( "cp " rname " " dir )
690: if(rname ~ "/"){
691: n = split(rname,nn, "/")
692: NAME=nn[n]
693: }
694: else NAME=rname
695: if(i > 2)for(j=2;j<i;j++)cmd = cmd " " \$j
696: if(quotes)cmd = cmd " \\"" NAME "\\""
697: else cmd = cmd " " NAME
698: if(NF >= i+1)
699: for(j=i+1; j<=NF; j++)cmd = cmd " " \$j
700: print cmd
701: }
702: function getfile(file, File, eflag,first,indef,xname,fintbl,finpic){
703: if(file ~ /\\/usr\\/lib\\//|| file ~ /\\/exptools\\//){
704: print \$0
705: return
706: }
707: if((getline <file) > 0){
708: if(\$0 ~ /^\\.lf/){
709: File=\$NF
710: saveline=\$0
711: if((getline <File)<=0){
712: print "This paper contains preprocessor output evidenced by " saveline| "cat 1>&2"
713: print "and I can't find the source file " File|"cat 1>&2"
714: while((getline < file) >0 && \$0 ~ /^\\.lf/)
715: print \$0| "cat 1>&2"
716: print "paper not submitted" | "cat 1>&2"
717: exit 1
718: }
719: }
720: else File = file
721: }
722: else {
723: print "cannot open file " file | "cat 1>&2"
724: return
725: }
726: if(File in seen){
727: close(File)
728: return
729: }
730: if(delim != ""){
731: print ".EQ\\ndelim off\\n.EN"
732: eflag=1
733: }
734: seen[File] = 1
735: first=1
736: while(1){
737: if(first==0)if((getline <File)<=0)break
738: first = 0
739: if(\$0 ~ /^\\.(de|am)/){
740: if(fintbl && \$0 ~ /^\\.de 35/){
741: print tbloutput|"cat 1>&2"
742: print "The tbl output is in the .so file named:" File|"cat 1>&2"
743: exit 1
744: }
745: indef=1
746: xname = \$2
747: }
748: if(indef && \$0 ~ /^\\.BM/)incmacro["." xname]=1
749: if(indef && \$0 ~ /^\\.BP/)incmacro["." xname]=1
750: if(indef && \$0 ~ /^\\.PI/)incmacro["." xname]=1
751: if(\$0 ~ /^\\.\\.\$/)indef=0
752: if(\$0 ~ /^\\.sy/ && indef == 0){
753: print "the .sy commands in this paper will not be handled" indef|"cat 1>&2"
754: if(debug ~ /-d/){
755: print \$0
756: continue
757: }
758: print "paper not submitted" | "cat 1>&2"
759: exit 1
760: }
761: if(\$0 ~ /^\\.TS/)fintbl=1
762: if(\$0 ~ /^\\.TE/)fintbl=0
763: if(\$0 ~ /^\\.PS/)finpic=1
764: if(\$0 ~ /^\\.PE/)finpic=0
765: if(finpic && \$0 ~ /^\\.sp -1/){
766: print picoutput|"cat 1>&2"
767: print "The pic output is in the .so file named:" File|"cat 1>&2"
768: exit 1
769: }
770: if((\$1 in incmacro)&& (NF > 1))
771: havecopy(\$1, \$2, 2)
772: else if(!indef && \$0 ~ /^\\.so/)
773: getfile(\$2)
774: else print \$0
775: }
776: close(File)
777: if(eflag){
778: print ".EQ\\n" delim "\\n.EN"
779: eflat = 0
780: }
781: }
782: function doinclude(cmd, fname, fileflag, file){
783: if(fname ~ "/"){
784: n=split(fname,name,"/")
785: if(fileflag)print cmd " " name[n] >(dir "/" file)
786: else print cmd " " name[n]
787: }
788: else if(fileflag)print cmd " " fname >(dir "/" file)
789: else print cmd " " fname
790: while((getline<fname)>0){
791: if(\$0 ~ /^[\\.]+include/)
792: doinclude(\$1, \$2, 1, fname)
793: else print \$0 >(dir "/" fname)
794: }
795: close(fname)
796: }
797: !
798: ${AWK} -f ${AWKTEMP} dir=$DIR $PARMS >>$OUTP
799: # NOTE: END of subso.awk
800: # Check that it ended okay
801: if test $? -ne 0
802: then
803: echo "Sorry - couldnt collect together the full text of your document."
804: echo "No full text was sent! Contact the docsubmit provider with questions."
805: exit 1
806: fi
807:
808: if test $REF
809: then
810: cat >>$OUTP <<x
811: ...\"refer begin
812: x
813: cat $REF >>$OUTP
814: cat >>$OUTP <<x
815: ...\"refer end
816: x
817: fi
818: fi
819: cd $T
820: ls $NAME/*|cpio -oc >$NAME.cp
821: chmod 0644 $NAME.cp
822: uucp -C $NAME.cp mhuxd!~/full.text/
823: echo "
824: The full text of your document has been sent to the Library Network.
825: Please note that an official paper copy MUST still be filed.
826: "
827: exit 0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.