xref: /illumos-gate/usr/src/cmd/tbl/tt.c (revision b5514887)
1 /*
2  * Copyright 1990 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  /* tt.c: subroutines for drawing horizontal lines */
18 # include "t..c"
19 
20 int
ctype(int il,int ic)21 ctype(int il, int ic)
22 {
23 if (instead[il])
24 	return(0);
25 if (fullbot[il])
26 	return(0);
27 il = stynum[il];
28 return(style[il][ic]);
29 }
30 
31 int
min(int a,int b)32 min(int a, int b)
33 {
34 return(a<b ? a : b);
35 }
36 
37 int
fspan(int i,int c)38 fspan(int i, int c)
39 {
40 c++;
41 return(c<ncol && ctype(i,c)=='s');
42 }
43 
44 int
lspan(int i,int c)45 lspan(int i, int c)
46 {
47 int k;
48 if (ctype(i,c) != 's') return(0);
49 c++;
50 if (c < ncol && ctype(i,c)== 's')
51 	return(0);
52 for(k=0; ctype(i,--c) == 's'; k++);
53 return(k);
54 }
55 
56 int
ctspan(int i,int c)57 ctspan(int i, int c)
58 {
59 int k;
60 c++;
61 for(k=1; c<ncol && ctype(i,c)=='s'; k++)
62 	c++;
63 return(k);
64 }
65 
66 void
tohcol(int ic)67 tohcol(int ic)
68 {
69 			if (ic==0)
70 				fprintf(tabout, "\\h'|0'");
71 			else
72 				fprintf(tabout, "\\h'(|\\n(%du+|\\n(%du)/2u'", ic+CLEFT, ic+CRIGHT-1);
73 }
74 
75 int
allh(int i)76 allh(int i)
77 {
78 /* return true if every element in line i is horizontal */
79 /* also at least one must be horizontl */
80 int c, one, k;
81 if (fullbot[i]) return(1);
82 for(one=c=0; c<ncol; c++)
83 	{
84 	k = thish(i,c);
85 	if (k==0) return(0);
86 	if (k==1) continue;
87 	one=1;
88 	}
89 return(one);
90 }
91 
92 int
thish(int i,int c)93 thish(int i, int c)
94 {
95 	int t;
96 	char *s;
97 	struct colstr *pc;
98 	if (c<0)return(0);
99 	if (i<0) return(0);
100 	t = ctype(i,c);
101 	if (t=='_' || t == '-')
102 		return('-');
103 	if (t=='=')return('=');
104 	if (t=='^') return(1);
105 	if (fullbot[i] )
106 		return(fullbot[i]);
107 	if (t=='s') return(thish(i,c-1));
108 	if (t==0) return(1);
109 	pc = &table[i][c];
110 	s = (t=='a' ? pc->rcol : pc->col);
111 	if (s==0 || (point(s) && *s==0))
112 		return(1);
113 	if (vspen(s)) return(1);
114 	if (t=barent( s))
115 		return(t);
116 	return(0);
117 }
118