| #ifndef lint |
| static char sccsid[] = "@(#)tg.c 4.2 8/11/83"; |
| #endif |
| |
| /* tg.c: process included text blocks */ |
| # include "t..c" |
| |
| extern void error(char *s); |
| extern void rstofill(void); |
| extern int ctspan(int i,int c); |
| extern int ctype(int il,int ic); |
| extern char *gets1(char *s); |
| extern int match(char *s1,char *s2); |
| extern void tcopy(char *s,char *t); |
| |
| int gettext(char *sp,int ilin,int icol,char *fn,char *sz) |
| { |
| /* get a section of text */ |
| char line[256]; |
| int oname; |
| char *vs; |
| if (texname==0) error("Too many text block diversions"); |
| if (textflg==0) |
| { |
| fprintf(tabout, ".nr %d \\n(.lu\n", SL); /* remember old line length */ |
| textflg=1; |
| } |
| fprintf(tabout, ".eo\n"); |
| fprintf(tabout, ".am %02d\n", icol+80); |
| fprintf(tabout, ".br\n"); |
| fprintf(tabout, ".di %c+\n", texname); |
| rstofill(); |
| if (fn && *fn) fprintf(tabout, ".nr %d \\n(.f\n.ft %s\n", S1, fn); |
| fprintf(tabout, ".ft \\n(.f\n"); /* protect font */ |
| vs = vsize[stynum[ilin]][icol]; |
| if ((sz && *sz) || (vs && *vs)) |
| { |
| fprintf(tabout, ".nr %d \\n(.v\n", S2); |
| if (vs==0 || *vs==0) vs= "\\n(.s+2"; |
| if (sz && *sz) |
| fprintf(tabout, ".ps %s\n",sz); |
| fprintf(tabout, ".vs %s\n",vs); |
| fprintf(tabout, ".if \\n(%du>\\n(.vu .sp \\n(%du-\\n(.vu\n", S2,S2); |
| } |
| if (cll[icol][0]) |
| fprintf(tabout, ".ll %sn\n", cll[icol]); |
| else |
| fprintf(tabout, ".ll \\n(%du*%du/%du\n",SL,ctspan(ilin,icol),ncol+1); |
| fprintf(tabout,".if \\n(.l<\\n(%d .ll \\n(%du\n", icol+CRIGHT, icol+CRIGHT); |
| if (ctype(ilin,icol)=='a') |
| fprintf(tabout, ".ll -2n\n"); |
| fprintf(tabout, ".in 0\n"); |
| while (gets1(line)) |
| { |
| if (line[0]=='T' && line[1]=='}' && line[2]== tab) break; |
| if (match("T}", line)) break; |
| fprintf(tabout, "%s\n", line); |
| } |
| if (fn && *fn) fprintf(tabout, ".ft \\n(%d\n", S1); |
| if (sz && *sz) fprintf(tabout, ".br\n.ps\n.vs\n"); |
| fprintf(tabout, ".br\n"); |
| fprintf(tabout, ".di\n"); |
| fprintf(tabout, ".nr %c| \\n(dn\n", texname); |
| fprintf(tabout, ".nr %c- \\n(dl\n", texname); |
| fprintf(tabout, "..\n"); |
| fprintf(tabout, ".ec \\\n"); |
| /* copy remainder of line */ |
| if (line[2]) |
| tcopy (sp, line+3); |
| else |
| *sp=0; |
| oname=texname; |
| texname = texstr[++texct]; |
| return(oname); |
| } |
| |
| void untext(void) |
| { |
| rstofill(); |
| fprintf(tabout, ".nf\n"); |
| fprintf(tabout, ".ll \\n(%du\n", SL); |
| } |