![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to t4.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / cmd / tbl|
Return to t4.c CVS log | Up to [Research Unix] / researchv9 / cmd / tbl |
1.1 root 1: /* t4.c: read table specification */
2: # include "t..c"
3: int oncol;
4: getspec()
5: {
6: int icol, i;
7: qcol = findcol()+1;/* must allow one extra for line at right */
8: garray(qcol);
9: sep[-1]= -1;
10: for(icol=0; icol<qcol; icol++)
11: {
12: sep[icol]= -1;
13: evenup[icol]=0;
14: cll[icol][0]=0;
15: for(i=0; i<MAXHEAD; i++)
16: {
17: csize[icol][i][0]=0;
18: vsize[icol][i][0]=0;
19: font[icol][i][0] = lefline[icol][i] = 0;
20: flags[icol][i]=0;
21: style[icol][i]= 'l';
22: }
23: }
24: for(i=0;i<MAXHEAD;i++)
25: lefline[qcol][i]=0; /* fixes sample55 looping */
26: nclin=ncol=0;
27: oncol =0;
28: left1flg=rightl=0;
29: readspec();
30: fprintf(tabout, ".rm");
31: for(i=0; i<ncol; i++)
32: fprintf(tabout, " %2s", reg(i, CRIGHT));
33: fprintf(tabout, "\n");
34: }
35: readspec()
36: {
37: int icol, c, sawchar, stopc, i;
38: char sn[10], *snp, *temp;
39: sawchar=icol=0;
40: while (c=get1char())
41: {
42: switch(c)
43: {
44: default:
45: if (c != tab)
46: error("bad table specification character");
47: case ' ': /* note this is also case tab */
48: continue;
49: case '\n':
50: if(sawchar==0) continue;
51: case ',':
52: case '.': /* end of table specification */
53: ncol = max(ncol, icol);
54: if (lefline[ncol][nclin]>0) {ncol++; rightl++;};
55: if(sawchar)
56: nclin++;
57: if (nclin>=MAXHEAD)
58: error("too many lines in specification");
59: icol=0;
60: if (ncol==0 || nclin==0)
61: error("no specification");
62: if (c== '.')
63: {
64: while ((c=get1char()) && c != '\n')
65: if (c != ' ' && c != '\t')
66: error("dot not last character on format line");
67: /* fix up sep - default is 3 except at edge */
68: for(icol=0; icol<ncol; icol++)
69: if (sep[icol]<0)
70: sep[icol] = icol+1<ncol ? 3 : 2;
71: if (oncol == 0)
72: oncol = ncol;
73: else if (oncol +2 <ncol)
74: error("tried to widen table in T&, not allowed");
75: return;
76: }
77: sawchar=0;
78: continue;
79: case 'C': case 'S': case 'R': case 'N': case 'L': case 'A':
80: c += ('a'-'A');
81: case '_': if (c=='_') c= '-';
82: case '=': case '-':
83: case '^':
84: case 'c': case 's': case 'n': case 'r': case 'l': case 'a':
85: style[icol][nclin]=c;
86: if (c== 's' && icol<=0)
87: error("first column can not be S-type");
88: if (c=='s' && style[icol-1][nclin] == 'a')
89: {
90: fprintf(tabout, ".tm warning: can't span a-type cols, changed to l\n");
91: style[icol-1][nclin] = 'l';
92: }
93: if (c=='s' && style[icol-1][nclin] == 'n')
94: {
95: fprintf(tabout, ".tm warning: can't span n-type cols, changed to c\n");
96: style[icol-1][nclin] = 'c';
97: }
98: icol++;
99: if (c=='^' && nclin<=0)
100: error("first row can not contain vertical span");
101: if (icol>qcol)
102: error("too many columns in table");
103: sawchar=1;
104: continue;
105: case 'b': case 'i':
106: c += 'A'-'a';
107: case 'B': case 'I':
108: if (icol==0) continue;
109: snp=font[icol-1][nclin];
110: snp[0]= (c=='I' ? '2' : '3');
111: snp[1]=0;
112: continue;
113: case 't': case 'T':
114: if (icol>0)
115: flags[icol-1][nclin] |= CTOP;
116: continue;
117: case 'd': case 'D':
118: if (icol>0)
119: flags[icol-1][nclin] |= CDOWN;
120: continue;
121: case 'f': case 'F':
122: if (icol==0) continue;
123: snp=font[icol-1][nclin];
124: snp[0]=snp[1]=stopc=0;
125: for(i=0; i<2; i++)
126: {
127: c = get1char();
128: if (i==0 && c=='(')
129: {
130: stopc=')';
131: c = get1char();
132: }
133: if (c==0) break;
134: if (c==stopc) {stopc=0; break;}
135: if (stopc==0) if (c==' ' || c== tab ) break;
136: if (c=='\n'){un1getc(c); break;}
137: snp[i] = c;
138: if (c>= '0' && c<= '9') break;
139: }
140: if (stopc) if (get1char()!=stopc)
141: error("Nonterminated font name");
142: continue;
143: case 'P': case 'p':
144: if (icol<=0) continue;
145: temp = snp = csize[icol-1][nclin];
146: while (c = get1char())
147: {
148: if (c== ' ' || c== tab || c=='\n') break;
149: if (c=='-' || c == '+')
150: if (snp>temp)
151: break;
152: else
153: *snp++=c;
154: else
155: if (digit(c))
156: *snp++ = c;
157: else break;
158: if (snp-temp>4)
159: error("point size too large");
160: }
161: *snp = 0;
162: if (atoi(temp)>36)
163: error("point size unreasonable");
164: un1getc (c);
165: continue;
166: case 'V': case 'v':
167: if (icol<=0) continue;
168: temp = snp = vsize[icol-1][nclin];
169: while (c = get1char())
170: {
171: if (c== ' ' || c== tab || c=='\n') break;
172: if (c=='-' || c == '+')
173: if (snp>temp)
174: break;
175: else
176: *snp++=c;
177: else
178: if (digit(c))
179: *snp++ = c;
180: else break;
181: if (snp-temp>4)
182: error("vertical spacing value too large");
183: }
184: *snp=0;
185: un1getc(c);
186: continue;
187: case 'w': case 'W':
188: snp = cll [icol-1];
189: /* Dale Smith didn't like this check - possible to have two text blocks
190: of different widths now ....
191: if (*snp)
192: {
193: fprintf(tabout, "Ignored second width specification");
194: continue;
195: }
196: /* end commented out code ... */
197: stopc=0;
198: while (c = get1char())
199: {
200: if (snp==cll[icol-1] && c=='(')
201: {
202: stopc = ')';
203: continue;
204: }
205: if ( !stopc && (c>'9' || c< '0'))
206: break;
207: if (stopc && c== stopc)
208: break;
209: *snp++ =c;
210: }
211: *snp=0;
212: if (snp-cll[icol-1]>CLLEN)
213: error ("column width too long");
214: if (!stopc)
215: un1getc(c);
216: continue;
217: case 'e': case 'E':
218: if (icol<1) continue;
219: evenup[icol-1]=1;
220: evenflg=1;
221: continue;
222: case 'z': case 'Z': /* zero width-ignre width this item */
223: if (icol<1) continue;
224: flags[icol-1][nclin] |= ZEROW;
225: continue;
226: case 'u': case 'U': /* half line up */
227: if (icol<1) continue;
228: flags[icol-1][nclin] |= HALFUP;
229: continue;
230: case '0': case '1': case '2': case '3': case '4':
231: case '5': case '6': case '7': case '8': case '9':
232: sn[0] = c;
233: snp=sn+1;
234: while (digit(*snp++ = c = get1char()))
235: ;
236: un1getc(c);
237: sep[icol-1] = max(sep[icol-1], numb(sn));
238: continue;
239: case '|':
240: lefline[icol][nclin]++;
241: if (icol==0) left1flg=1;
242: continue;
243: }
244: }
245: error("EOF reading table specification");
246: }
247: findcol()
248: {
249: # define FLNLIM 200
250: /* this counts the number of columns and then puts the line back*/
251: char *s, line[FLNLIM+2], *p;
252: int c, n=0, inpar=0;
253: while ((c=get1char())!=EOF && c == ' ')
254: ;
255: if (c!='\n')
256: un1getc(c);
257: for(s=line; *s = c = get1char(); s++)
258: {
259: if (c==')') inpar=0;
260: if (inpar) continue;
261: if (c=='\n' || c == EOF || c == '.' || c==',')
262: break;
263: else if (c=='(')
264: inpar=1;
265: else
266: if (s>=line+FLNLIM)
267: error("too long spec line");
268: }
269: for(p=line; p<s; p++)
270: switch (c= *p)
271: {
272: case 'l': case 'r': case 'c': case 'n': case 'a': case 's':
273: case 'L': case 'R': case 'C': case 'N': case 'A': case 'S':
274: case '-': case '=': case '_':
275: n++;
276: }
277: while (p>=line)
278: un1getc(*p--);
279: return(n);
280: }
281: garray(qcol)
282: {
283: char * getcore();
284: style = (int (*)[]) getcore(MAXHEAD*qcol, sizeof(int));
285: evenup = (int *) getcore(qcol, sizeof(int));
286: lefline = (int (*)[]) getcore(MAXHEAD*(qcol+1), sizeof (int)); /*+1 for sample55 loop - others may need it too*/
287: font = (char (*)[][2]) getcore(MAXHEAD*qcol, 2);
288: csize = (char (*)[MAXHEAD][4]) getcore(MAXHEAD*qcol, 4);
289: vsize = (char (*)[MAXHEAD][4]) getcore(MAXHEAD*qcol, 4);
290: flags = (int (*)[]) getcore(MAXHEAD*qcol, sizeof(int));
291: cll = (char (*)[])getcore(qcol, CLLEN);
292: sep = (int *) getcore(qcol+1, sizeof(int));
293: sep++; /* sep[-1] must be legal */
294: used = (int *) getcore(qcol+1, sizeof(int));
295: lused = (int *) getcore(qcol+1, sizeof(int));
296: rused = (int *) getcore(qcol+1, sizeof(int));
297: doubled = (int *) getcore(qcol+1, sizeof(int));
298: acase = (int *) getcore(qcol+1, sizeof(int));
299: topat = (int *) getcore(qcol+1, sizeof(int));
300: }
301: char *
302: getcore(a,b)
303: {
304: char *x, *calloc();
305: x = calloc(a,b);
306: if (x==0)
307: error("Couldn't get memory");
308: return(x);
309: }
310: freearr()
311: {
312: cfree(style);
313: cfree(evenup);
314: cfree(lefline);
315: cfree(flags);
316: cfree(font);
317: cfree(csize);
318: cfree(vsize);
319: cfree(cll);
320: cfree(--sep); /* netnews says this should be --sep because incremented earlier! */
321: cfree(used);
322: cfree(lused);
323: cfree(rused);
324: cfree(doubled);
325: cfree(acase);
326: cfree(topat);
327: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.