xref: /illumos-gate/usr/src/cmd/tbl/tg.c (revision b5514887)
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 #pragma ident	"%Z%%M%	%I%	%E% SMI"
16 
17  /* tg.c: process included text blocks */
18 # include "t..c"
19 /* get_text was originally gettext and was renamed */
20 
21 int
get_text(char * sp,int ilin,int icol,char * fn,char * sz)22 get_text(char *sp, int ilin, int icol, char *fn, char *sz)
23 {
24 /* get a section of text */
25 char line[BIGBUF];
26 int oname;
27 char *vs;
28 if (texname==0) error(gettext("Too many text block diversions"));
29 if (textflg==0)
30 	{
31 	fprintf(tabout, ".nr %d \\n(.lu\n", SL); /* remember old line length */
32 	textflg=1;
33 	}
34 fprintf(tabout, ".eo\n");
35 fprintf(tabout, ".am %02d\n", icol+80);
36 fprintf(tabout, ".br\n");
37 fprintf(tabout, ".di %c+\n", texname);
38 rstofill();
39 if (fn && *fn) fprintf(tabout, ".nr %d \\n(.f\n.ft %s\n", S1, fn);
40 fprintf(tabout, ".ft \\n(.f\n"); /* protect font */
41 vs = vsize[stynum[ilin]][icol];
42 if ((sz && *sz) || (vs && *vs))
43 	{
44 	fprintf(tabout, ".nr %d \\n(.v\n", S2);
45 	if (vs==0 || *vs==0) vs= "\\n(.s+2";
46 	if (sz && *sz)
47 		fprintf(tabout, ".ps %s\n",sz);
48 	fprintf(tabout, ".vs %s\n",vs);
49 	fprintf(tabout, ".if \\n(%du>\\n(.vu .sp \\n(%du-\\n(.vu\n", S2,S2);
50 	}
51 if (cll[icol][0])
52 	fprintf(tabout, ".ll %sn\n", cll[icol]);
53 else
54 	fprintf(tabout, ".ll \\n(%du*%du/%du\n",SL,ctspan(ilin,icol),ncol+1);
55 fprintf(tabout,".if \\n(.l<\\n(%d .ll \\n(%du\n", icol+CRIGHT, icol+CRIGHT);
56 if (ctype(ilin,icol)=='a')
57 	fprintf(tabout, ".ll -2n\n");
58 fprintf(tabout, ".in 0\n");
59 while (gets1(line, sizeof line))
60 	{
61 	if (line[0]=='T' && line[1]=='}' && line[2]== tab) break;
62 	if (match("T}", line)) break;
63 	fprintf(tabout, "%s\n", line);
64 	}
65 if (fn && *fn) fprintf(tabout, ".ft \\n(%d\n", S1);
66 if (sz && *sz) fprintf(tabout, ".br\n.ps\n.vs\n");
67 fprintf(tabout, ".br\n");
68 fprintf(tabout, ".di\n");
69 fprintf(tabout, ".nr %c| \\n(dn\n", texname);
70 fprintf(tabout, ".nr %c- \\n(dl\n", texname);
71 fprintf(tabout, "..\n");
72 fprintf(tabout, ".ec \\\n");
73 /* copy remainder of line */
74 if (line[2])
75 	tcopy (sp, line+3);
76 else
77 	*sp=0;
78 oname=texname;
79 texname = texstr[++texct];
80 return(oname);
81 }
82 
83 void
untext(void)84 untext(void)
85 {
86 rstofill();
87 fprintf(tabout, ".nf\n");
88 fprintf(tabout, ".ll \\n(%du\n", SL);
89 }
90