![[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 [CSRG BSD Unix] / 41BSD / cmd / tbl|
Return to t4.c CVS log | Up to [CSRG BSD Unix] / 41BSD / 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: for(icol=0; icol<MAXCOL; icol++)
8: {
9: sep[icol]= -1;
10: evenup[icol]=0;
11: cll[icol][0]=0;
12: for(i=0; i<MAXHEAD; i++)
13: {
14: csize[i][icol][0]=0;
15: vsize[i][icol][0]=0;
16: font[i][icol][0] = lefline[i][icol] = 0;
17: ctop[i][icol]=0;
18: style[i][icol]= 'l';
19: }
20: }
21: nclin=ncol=0;
22: oncol =0;
23: left1flg=rightl=0;
24: readspec();
25: fprintf(tabout, ".rm");
26: for(i=0; i<ncol; i++)
27: fprintf(tabout, " %02d", 80+i);
28: fprintf(tabout, "\n");
29: }
30: readspec()
31: {
32: int icol, c, sawchar, stopc, i;
33: char sn[10], *snp, *temp;
34: sawchar=icol=0;
35: while (c=get1char())
36: {
37: switch(c)
38: {
39: default:
40: if (c != tab)
41: error("bad table specification character");
42: case ' ': /* note this is also case tab */
43: continue;
44: case '\n':
45: if(sawchar==0) continue;
46: case ',':
47: case '.': /* end of table specification */
48: ncol = max(ncol, icol);
49: if (lefline[nclin][ncol]>0) {ncol++; rightl++;};
50: if(sawchar)
51: nclin++;
52: if (nclin>=MAXHEAD)
53: error("too many lines in specification");
54: icol=0;
55: if (ncol==0 || nclin==0)
56: error("no specification");
57: if (c== '.')
58: {
59: while ((c=get1char()) && c != '\n')
60: if (c != ' ' && c != '\t')
61: error("dot not last character on format line");
62: /* fix up sep - default is 3 except at edge */
63: for(icol=0; icol<ncol; icol++)
64: if (sep[icol]<0)
65: sep[icol] = icol+1<ncol ? 3 : 1;
66: if (oncol == 0)
67: oncol = ncol;
68: else if (oncol +2 <ncol)
69: error("tried to widen table in T&, not allowed");
70: return;
71: }
72: sawchar=0;
73: continue;
74: case 'C': case 'S': case 'R': case 'N': case 'L': case 'A':
75: c += ('a'-'A');
76: case '_': if (c=='_') c= '-';
77: case '=': case '-':
78: case '^':
79: case 'c': case 's': case 'n': case 'r': case 'l': case 'a':
80: style[nclin][icol]=c;
81: if (c== 's' && icol<=0)
82: error("first column can not be S-type");
83: if (c=='s' && style[nclin][icol-1] == 'a')
84: {
85: fprintf(tabout, ".tm warning: can't span a-type cols, changed to l\n");
86: style[nclin][icol-1] = 'l';
87: }
88: if (c=='s' && style[nclin][icol-1] == 'n')
89: {
90: fprintf(tabout, ".tm warning: can't span n-type cols, changed to c\n");
91: style[nclin][icol-1] = 'c';
92: }
93: icol++;
94: if (c=='^' && nclin<=0)
95: error("first row can not contain vertical span");
96: if (icol>=MAXCOL)
97: error("too many columns in table");
98: sawchar=1;
99: continue;
100: case 'b': case 'i':
101: c += 'A'-'a';
102: case 'B': case 'I':
103: if (icol==0) continue;
104: snp=font[nclin][icol-1];
105: snp[0]= (c=='I' ? '2' : '3');
106: snp[1]=0;
107: continue;
108: case 't': case 'T':
109: if (icol>0)
110: ctop[nclin][icol-1] = 1;
111: continue;
112: case 'd': case 'D':
113: if (icol>0)
114: ctop[nclin][icol-1] = -1;
115: continue;
116: case 'f': case 'F':
117: if (icol==0) continue;
118: snp=font[nclin][icol-1];
119: snp[0]=snp[1]=stopc=0;
120: for(i=0; i<2; i++)
121: {
122: c = get1char();
123: if (i==0 && c=='(')
124: {
125: stopc=')';
126: c = get1char();
127: }
128: if (c==0) break;
129: if (c==stopc) {stopc=0; break;}
130: if (stopc==0) if (c==' ' || c== tab ) break;
131: if (c=='\n'){un1getc(c); break;}
132: snp[i] = c;
133: if (c>= '0' && c<= '9') break;
134: }
135: if (stopc) if (get1char()!=stopc)
136: error("Nonterminated font name");
137: continue;
138: case 'P': case 'p':
139: if (icol<=0) continue;
140: temp = snp = csize[nclin][icol-1];
141: while (c = get1char())
142: {
143: if (c== ' ' || c== tab || c=='\n') break;
144: if (c=='-' || c == '+')
145: if (snp>temp)
146: break;
147: else
148: *snp++=c;
149: else
150: if (digit(c))
151: *snp++ = c;
152: else break;
153: if (snp-temp>4)
154: error("point size too large");
155: }
156: *snp = 0;
157: if (atoi(temp)>36)
158: error("point size unreasonable");
159: un1getc (c);
160: continue;
161: case 'V': case 'v':
162: if (icol<=0) continue;
163: temp = snp = vsize[nclin][icol-1];
164: while (c = get1char())
165: {
166: if (c== ' ' || c== tab || c=='\n') break;
167: if (c=='-' || c == '+')
168: if (snp>temp)
169: break;
170: else
171: *snp++=c;
172: else
173: if (digit(c))
174: *snp++ = c;
175: else break;
176: if (snp-temp>4)
177: error("vertical spacing value too large");
178: }
179: *snp=0;
180: un1getc(c);
181: continue;
182: case 'w': case 'W':
183: snp = cll [icol-1];
184: /* Dale Smith didn't like this check - possible to have two text blocks
185: of different widths now ....
186: if (*snp)
187: {
188: fprintf(tabout, "Ignored second width specification");
189: continue;
190: }
191: /* end commented out code ... */
192: stopc=0;
193: while (c = get1char())
194: {
195: if (snp==cll[icol-1] && c=='(')
196: {
197: stopc = ')';
198: continue;
199: }
200: if ( !stopc && (c>'9' || c< '0'))
201: break;
202: if (stopc && c== stopc)
203: break;
204: *snp++ =c;
205: }
206: *snp=0;
207: if (snp-cll[icol-1]>CLLEN)
208: error ("column width too long");
209: if (!stopc)
210: un1getc(c);
211: continue;
212: case 'e': case 'E':
213: if (icol<1) continue;
214: evenup[icol-1]=1;
215: evenflg=1;
216: continue;
217: case '0': case '1': case '2': case '3': case '4':
218: case '5': case '6': case '7': case '8': case '9':
219: sn[0] = c;
220: snp=sn+1;
221: while (digit(*snp++ = c = get1char()))
222: ;
223: un1getc(c);
224: sep[icol-1] = max(sep[icol-1], numb(sn));
225: continue;
226: case '|':
227: lefline[nclin][icol]++;
228: if (icol==0) left1flg=1;
229: continue;
230: }
231: }
232: error("EOF reading table specification");
233: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.