xref: /illumos-gate/usr/src/cmd/tbl/tg.c (revision 2a8bcb4e)
1 /*
2  * Copyright 1998 Sun Microsystems, Inc.  All rights reserved.
3  * Use is subject to license terms.
4  */
5 
6 /*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
7 /*	  All Rights Reserved  	*/
8 
9 /*
10  * Copyright (c) 1980 Regents of the University of California.
11  * All rights reserved. The Berkeley software License Agreement
12  * specifies the terms and conditions for redistribution.
13  */
14 
15  /* tg.c: process included text blocks */
16 # include "t..c"
17 /* get_text was originally gettext and was renamed */
18 
19 int
get_text(char * sp,int ilin,int icol,char * fn,char * sz)20 get_text(char *sp, int ilin, int icol, char *fn, char *sz)
21 {
22 /* get a section of text */
23 char line[BIGBUF];
24 int oname;
25 char *vs;
26 if (texname==0) error(gettext("Too many text block diversions"));
27 if (textflg==0)
28 	{
29 	fprintf(tabout, ".nr %d \\n(.lu\n", SL); /* remember old line length */
30 	textflg=1;
31 	}
32 fprintf(tabout, ".eo\n");
33 fprintf(tabout, ".am %02d\n", icol+80);
34 fprintf(tabout, ".br\n");
35 fprintf(tabout, ".di %c+\n", texname);
36 rstofill();
37 if (fn && *fn) fprintf(tabout, ".nr %d \\n(.f\n.ft %s\n", S1, fn);
38 fprintf(tabout, ".ft \\n(.f\n"); /* protect font */
39 vs = vsize[stynum[ilin]][icol];
40 if ((sz && *sz) || (vs && *vs))
41 	{
42 	fprintf(tabout, ".nr %d \\n(.v\n", S2);
43 	if (vs==0 || *vs==0) vs= "\\n(.s+2";
44 	if (sz && *sz)
45 		fprintf(tabout, ".ps %s\n",sz);
46 	fprintf(tabout, ".vs %s\n",vs);
47 	fprintf(tabout, ".if \\n(%du>\\n(.vu .sp \\n(%du-\\n(.vu\n", S2,S2);
48 	}
49 if (cll[icol][0])
50 	fprintf(tabout, ".ll %sn\n", cll[icol]);
51 else
52 	fprintf(tabout, ".ll \\n(%du*%du/%du\n",SL,ctspan(ilin,icol),ncol+1);
53 fprintf(tabout,".if \\n(.l<\\n(%d .ll \\n(%du\n", icol+CRIGHT, icol+CRIGHT);
54 if (ctype(ilin,icol)=='a')
55 	fprintf(tabout, ".ll -2n\n");
56 fprintf(tabout, ".in 0\n");
57 while (gets1(line, sizeof line))
58 	{
59 	if (line[0]=='T' && line[1]=='}' && line[2]== tab) break;
60 	if (match("T}", line)) break;
61 	fprintf(tabout, "%s\n", line);
62 	}
63 if (fn && *fn) fprintf(tabout, ".ft \\n(%d\n", S1);
64 if (sz && *sz) fprintf(tabout, ".br\n.ps\n.vs\n");
65 fprintf(tabout, ".br\n");
66 fprintf(tabout, ".di\n");
67 fprintf(tabout, ".nr %c| \\n(dn\n", texname);
68 fprintf(tabout, ".nr %c- \\n(dl\n", texname);
69 fprintf(tabout, "..\n");
70 fprintf(tabout, ".ec \\\n");
71 /* copy remainder of line */
72 if (line[2])
73 	tcopy (sp, line+3);
74 else
75 	*sp=0;
76 oname=texname;
77 texname = texstr[++texct];
78 return(oname);
79 }
80 
81 void
untext(void)82 untext(void)
83 {
84 rstofill();
85 fprintf(tabout, ".nf\n");
86 fprintf(tabout, ".ll \\n(%du\n", SL);
87 }
88