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