xref: /titanic_41/usr/src/cmd/tbl/t7.c (revision b55148877d473978f0b46d593fd6213fa526fcc5)
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 /* t7.c: control to write table entries */
18 # include "t..c"
19 # define realsplit ((ct=='a'||ct=='n') && table[ldata][c].rcol)
20 
21 void	need(void);
22 void	deftail(void);
23 
24 void
runout(void)25 runout(void)
26 {
27 int i;
28 if (boxflg || allflg || dboxflg) need();
29 if (ctrflg)
30 	{
31 	fprintf(tabout, ".nr #I \\n(.i\n");
32 	fprintf(tabout, ".in +(\\n(.lu-\\n(TWu-\\n(.iu)/2u\n");
33 	}
34 fprintf(tabout, ".fc %c %c\n", F1, F2);
35 fprintf(tabout, ".nr #T 0-1\n");
36 deftail();
37 for(i=0; i<nlin; i++)
38 	putline(i,i);
39 if (leftover)
40 	yetmore();
41 fprintf(tabout, ".fc\n");
42 fprintf(tabout, ".nr T. 1\n");
43 fprintf(tabout, ".T# 1\n");
44 if (ctrflg)
45 	fprintf(tabout, ".in \\n(#Iu\n");
46 }
47 
48 void
runtabs(int lform,int ldata)49 runtabs(int lform, int ldata)
50 {
51 int c, ct, vforml, lf;
52 fprintf(tabout, ".ta ");
53 for(c=0; c<ncol; c++)
54 	{
55 	vforml=lform;
56 	for(lf=prev(lform); lf>=0 && vspen(table[lf][c].col); lf=prev(lf))
57 		vforml=lf;
58 	if (fspan(vforml,c))
59 		continue;
60 	switch(ct=ctype(vforml,c))
61 		{
62 		case 'n':
63 		case 'a':
64 			if (table[ldata][c].rcol)
65 			  if (lused[c]) /*Zero field width*/
66 				fprintf(tabout, "\\n(%du ",c+CMID);
67 		case 'c':
68 		case 'l':
69 		case 'r':
70 		    if (realsplit? rused[c]: (used[c]+lused[c]))
71 			fprintf(tabout, "\\n(%du ",c+CRIGHT);
72 			continue;
73 		case 's':
74 			if (lspan(lform, c))
75 				fprintf(tabout, "\\n(%du ", c+CRIGHT);
76 			continue;
77 		}
78 	}
79 fprintf(tabout, "\n");
80 }
81 
82 int
ifline(char * s)83 ifline(char *s)
84 {
85 if (!point(s)) return(0);
86 if (s[0] == '\\') s++;
87 if (s[1] ) return(0);
88 if (s[0] == '_') return('-');
89 if (s[0] == '=') return('=');
90 return(0);
91 }
92 
93 void
need(void)94 need(void)
95 {
96 	int texlin, horlin, i;
97 
98 	for(texlin = horlin = i = 0; i < nlin; i++) {
99 		if (allh(i))
100 			horlin++;
101 		else if (instead[i] != 0)
102 			continue;
103 		else
104 			texlin++;
105 	}
106 	(void) fprintf(tabout, ".ne %dv+%dp\n", texlin, 2 * horlin);
107 	/*
108 	 * For nroff runs, we need to reserve space for the full height of the
109 	 * horizontal rules.  If we don't reserve sufficient height, we'll have
110 	 * problems trying to draw the vertical lines across the page boundary.
111 	 */
112 	(void) fprintf(tabout, ".if n .ne %dv\n", 2 * texlin + 2 * horlin + 2);
113 }
114 
115 void
deftail(void)116 deftail(void)
117 {
118 int i, c, lf, lwid;
119 for(i=0; i<MAXHEAD; i++)
120 	if (linestop[i])
121 		fprintf(tabout, ".nr #%c 0-1\n", linestop[i]+'a'-1);
122 fprintf(tabout, ".nr #a 0-1\n");
123 fprintf(tabout, ".eo\n");
124 fprintf(tabout, ".de T#\n");
125 fprintf(tabout, ".ds #d .d\n");
126 fprintf(tabout, ".if \\(ts\\n(.z\\(ts\\(ts .ds #d nl\n");
127 	fprintf(tabout, ".mk ##\n");
128 	fprintf(tabout, ".nr ## -1v\n");
129 	fprintf(tabout, ".ls 1\n");
130 	for(i=0; i<MAXHEAD; i++)
131 		if (linestop[i])
132 			fprintf(tabout, ".if \\n(#T>=0 .nr #%c \\n(#T\n",linestop[i]+'a'-1);
133 if (boxflg || allflg || dboxflg) { /* bottom of table line */
134 	if (!pr1403)
135 		fprintf(tabout, ".if \\n(T. .vs \\n(.vu-\\n(.sp\n");
136 	fprintf(tabout, ".if \\n(T. ");
137 	drawline(nlin,0,ncol, dboxflg ? '=' : '-',1,0);
138 	fprintf(tabout, "\n.if \\n(T. .vs\n");
139 	/* T. is really an argument to a macro but because of
140 		   eqn we don't dare pass it as an argument and reference by $1 */
141 }
142 	for(c=0; c<ncol; c++)
143 		{
144 		if ((lf=left(nlin-1,c, &lwid))>=0)
145 			{
146 			fprintf(tabout, ".if \\n(#%c>=0 .sp -1\n",linestop[lf]+'a'-1);
147 			fprintf(tabout, ".if \\n(#%c>=0 ", linestop[lf]+'a'-1);
148 			tohcol(c);
149 			drawvert(lf, nlin-1, c, lwid);
150 			fprintf(tabout, "\\h'|\\n(TWu'\n");
151 			}
152 		}
153 	if (boxflg || allflg || dboxflg) /* right hand line */
154 		{
155 		fprintf(tabout, ".if \\n(#a>=0 .sp -1\n");
156 		fprintf(tabout, ".if \\n(#a>=0 \\h'|\\n(TWu'");
157 		drawvert (0, nlin-1, ncol, dboxflg? 2 : 1);
158 		fprintf(tabout, "\n");
159 		}
160 fprintf(tabout, ".ls\n");
161 fprintf(tabout, "..\n");
162 fprintf(tabout, ".ec\n");
163 }
164