Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
/* t5.c: read data for table */
2 
# include "t.h"
3 
 
4 
void
5 
gettbl(void)
6 
{
7 
	int	icol, ch;
8 
 
9 
	cstore = cspace = chspace();
10 
	textflg = 0;
11 
	for (nlin = nslin = 0; gets1(cstore, MAXCHS - (cstore - cspace)); nlin++) {
12 
		stynum[nlin] = nslin;
13 
		if (prefix(".TE", cstore)) {
14 
			leftover = 0;
15 
			break;
16 
		}
17 
		if (prefix(".TC", cstore) || prefix(".T&", cstore)) {
18 
			readspec();
19 
			nslin++;
20 
		}
21 
		if (nlin >= MAXLIN) {
22 
			leftover = cstore;
23 
			break;
24 
		}
25 
		fullbot[nlin] = 0;
26 
		if (cstore[0] == '.' && !isdigit(cstore[1])) {
27 
			instead[nlin] = cstore;
28 
			while (*cstore++)
29 
				;
30 
			continue;
31 
		} else
32 
			instead[nlin] = 0;
33 
		if (nodata(nlin)) {
34 
			if (ch = oneh(nlin))
35 
				fullbot[nlin] = ch;
36 
			table[nlin] = (struct colstr *) alocv((ncol + 2) * sizeof(table[0][0]));
37 
			for (icol = 0; icol < ncol; icol++) {
38 
				table[nlin][icol].rcol = "";
39 
				table[nlin][icol].col = "";
40 
			}
41 
			nlin++;
42 
			nslin++;
43 
			fullbot[nlin] = 0;
44 
			instead[nlin] = (char *) 0;
45 
		}
46 
		table[nlin] = (struct colstr *) alocv((ncol + 2) * sizeof(table[0][0]));
47 
		if (cstore[1] == 0)
48 
			switch (cstore[0]) {
49 
			case '_':
50 
				fullbot[nlin] = '-';
51 
				continue;
52 
			case '=':
53 
				fullbot[nlin] = '=';
54 
				continue;
55 
			}
56 
		stynum[nlin] = nslin;
57 
		nslin = min(nslin + 1, nclin - 1);
58 
		for (icol = 0; icol < ncol; icol++) {
59 
			table[nlin][icol].col = cstore;
60 
			table[nlin][icol].rcol = 0;
61 
			ch = 1;
62 
			if (match(cstore, "T{")) { /* text follows */
63 
				table[nlin][icol].col =
64 
				    (char *)gettext(cstore, nlin, icol,
65 
				    font[icol][stynum[nlin]],
66 
				    csize[icol][stynum[nlin]]);
67 
			} else
68 
			 {
69 
				for (; (ch = *cstore) != '\0' && ch != tab; cstore++)
70 
					;
71 
				*cstore++ = '\0';
72 
				switch (ctype(nlin, icol)) /* numerical or alpha, subcol */ {
73 
				case 'n':
74 
					table[nlin][icol].rcol = maknew(table[nlin][icol].col);
75 
					break;
76 
				case 'a':
77 
					table[nlin][icol].rcol = table[nlin][icol].col;
78 
					table[nlin][icol].col = "";
79 
					break;
80 
				}
81 
			}
82 
			while (ctype(nlin, icol + 1) == 's') /* spanning */
83 
				table[nlin][++icol].col = "";
84 
			if (ch == '\0')
85 
				break;
86 
		}
87 
		while (++icol < ncol + 2) {
88 
			table[nlin][icol].col = "";
89 
			table [nlin][icol].rcol = 0;
90 
		}
91 
		while (*cstore != '\0')
92 
			cstore++;
93 
		if (cstore - cspace + MAXLINLEN > MAXCHS)
94 
			cstore = cspace = chspace();
95 
	}
96 
	last = cstore;
97 
	permute();
98 
	if (textflg)
99 
		untext();
100 
}
101 
 
102 
 
103 
int
104 
nodata(int il)
105 
{
106 
	int	c;
107 
 
108 
	for (c = 0; c < ncol; c++) {
109 
		switch (ctype(il, c)) {
110 
		case 'c':
111 
		case 'n':
112 
		case 'r':
113 
		case 'l':
114 
		case 's':
115 
		case 'a':
116 
			return(0);
117 
		}
118 
	}
119 
	return(1);
120 
}
121 
 
122 
 
123 
int
124 
oneh(int lin)
125 
{
126 
	int	k, icol;
127 
 
128 
	k = ctype(lin, 0);
129 
	for (icol = 1; icol < ncol; icol++) {
130 
		if (k != ctype(lin, icol))
131 
			return(0);
132 
	}
133 
	return(k);
134 
}
135 
 
136 
 
137 
# define SPAN "\\^"
138 
 
139 
void
140 
permute(void)
141 
{
142 
	int	irow, jcol, is;
143 
	char	*start, *strig;
144 
 
145 
	for (jcol = 0; jcol < ncol; jcol++) {
146 
		for (irow = 1; irow < nlin; irow++) {
147 
			if (vspand(irow, jcol, 0)) {
148 
				is = prev(irow);
149 
				if (is < 0)
150 
					error("Vertical spanning in first row not allowed");
151 
				start = table[is][jcol].col;
152 
				strig = table[is][jcol].rcol;
153 
				while (irow < nlin && vspand(irow, jcol, 0))
154 
					irow++;
155 
				table[--irow][jcol].col = start;
156 
				table[irow][jcol].rcol = strig;
157 
				while (is < irow) {
158 
					table[is][jcol].rcol = 0;
159 
					table[is][jcol].col = SPAN;
160 
					is = next(is);
161 
				}
162 
			}
163 
		}
164 
	}
165 
}
166 
 
167 
 
168 
int
169 
vspand(int ir, int ij, int ifform)
170 
{
171 
	if (ir < 0)
172 
		return(0);
173 
	if (ir >= nlin)
174 
		return(0);
175 
	if (instead[ir])
176 
		return(0);
177 
	if (ifform == 0 && ctype(ir, ij) == '^')
178 
		return(1);
179 
	if (table[ir][ij].rcol != 0)
180 
		return(0);
181 
	if (fullbot[ir])
182 
		return(0);
183 
	return(vspen(table[ir][ij].col));
184 
}
185 
 
186 
 
187 
int
188 
vspen(char *s)
189 
{
190 
	if (s == 0)
191 
		return(0);
192 
	if (!point(s))
193 
		return(0);
194 
	return(match(s, SPAN));
195 
}
196 
 
197