Make tbl compile silently.
diff --git a/src/cmd/tbl/t4.c b/src/cmd/tbl/t4.c
index 0b60a94..558d3ba 100644
--- a/src/cmd/tbl/t4.c
+++ b/src/cmd/tbl/t4.c
@@ -28,10 +28,10 @@
oncol = 0;
left1flg = rightl = 0;
readspec();
- fprintf(tabout, ".rm");
+ Bprint(&tabout, ".rm");
for (i = 0; i < ncol; i++)
- fprintf(tabout, " %2s", reg(i, CRIGHT));
- fprintf(tabout, "\n");
+ Bprint(&tabout, " %2s", reg(i, CRIGHT));
+ Bprint(&tabout, "\n");
}
@@ -42,12 +42,12 @@
char sn[10], *snp, *temp;
sawchar = icol = 0;
- while ((c = get1char())) {
+ while (c = get1char()) {
switch (c) {
default:
if (c != tab) {
char buf[64];
- sprintf(buf, "bad table specification character %c", c);
+ sprint(buf, "bad table specification character %c", c);
error(buf);
}
case ' ': /* note this is also case tab */
@@ -108,11 +108,11 @@
if (c == 's' && icol <= 0)
error("first column can not be S-type");
if (c == 's' && style[icol-1][nclin] == 'a') {
- fprintf(tabout, ".tm warning: can't span a-type cols, changed to l\n");
+ Bprint(&tabout, ".tm warning: can't span a-type cols, changed to l\n");
style[icol-1][nclin] = 'l';
}
if (c == 's' && style[icol-1][nclin] == 'n') {
- fprintf(tabout, ".tm warning: can't span n-type cols, changed to c\n");
+ Bprint(&tabout, ".tm warning: can't span n-type cols, changed to c\n");
style[icol-1][nclin] = 'c';
}
icol++;
@@ -181,7 +181,7 @@
if (icol <= 0)
continue;
temp = snp = csize[icol-1][nclin];
- while ((c = get1char())) {
+ while (c = get1char()) {
if (c == ' ' || c == tab || c == '\n')
break;
if (c == '-' || c == '+')
@@ -206,7 +206,7 @@
if (icol <= 0)
continue;
temp = snp = vsize[icol-1][nclin];
- while ((c = get1char())) {
+ while (c = get1char()) {
if (c == ' ' || c == tab || c == '\n')
break;
if (c == '-' || c == '+')
@@ -231,12 +231,12 @@
of different widths now ....
if (*snp)
{
- fprintf(tabout, "Ignored second width specification");
+ Bprint(&tabout, "Ignored second width specification");
continue;
}
/* end commented out code ... */
stopc = 0;
- while ((c = get1char())) {
+ while (c = get1char()) {
if (snp == cll[icol-1] && c == '(') {
stopc = ')';
continue;
@@ -312,7 +312,7 @@
;
if (c != '\n')
un1getc(c);
- for (s = line; (*s = c = get1char()); s++) {
+ for (s = line; *s = c = get1char(); s++) {
if (c == ')')
inpar = 0;
if (inpar)
@@ -371,7 +371,7 @@
}
-char*
+char *
getcore(int a, int b)
{
char *x;
