commit - b855148c9b6d28fedfd083d037bcf246f1913d92
commit + c5561c23cf394806cbf6d70a96f2dc0253f93745
blob - efcab373f705f3b8b96d840376df732599d7423b
blob + ba9cd7912a0a9e4b28956952f510e00786b2fbcb
--- src/cmd/tbl/t.h
+++ src/cmd/tbl/t.h
/* t..c : external declarations */
-#include <u.h>
-#include <libc.h>
-#include <bio.h>
-# include <ctype.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <ctype.h>
# define MAXLIN 250
# define MAXHEAD 44
extern int linstart;
-extern Biobuf *tabin, tabout;
+extern FILE *tabin, *tabout;
# define CRIGHT 2
# define CLEFT 0
# define CMID 1
blob - 0c0895bdee83d9a322e069f0227a4785d872a3aa
blob + 512187082ab788d83e4a0a3bacba667b4bf3d7dd
--- src/cmd/tbl/t0.c
+++ src/cmd/tbl/t0.c
char texstr[] = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWYXZ0123456789";
int linstart;
char *exstore, *exlim, *exspace;
-Biobuf *tabin /*= stdin */;
-Biobuf tabout /* = stdout */;
+FILE *tabin;
+FILE *tabout;
blob - 1e6cbf1140ce358f8c5f800685cb984bff664afd
blob + aff5f3d8535f6d8ba7c4953afeebd645e77a07e1
--- src/cmd/tbl/t1.c
+++ src/cmd/tbl/t1.c
# define ever (;;)
-void
+int
main(int argc, char *argv[])
{
- exits(tbl(argc, argv)? "error" : 0);
+ tabin = stdin;
+ tabout = stdout;
+
+ if(tbl(argc, argv)){
+ fprintf(stderr, "error");
+ return 1;
+ }
+ return 0;
}
char line[5120];
/*int x;*/
/*x=malloc((char *)0); uncomment when allocation breaks*/
- Binit(&tabout, 1, OWRITE);
+ /*Binit(&tabout, 1, OWRITE); /* tabout=stdout */
setinp(argc, argv);
while (gets1(line, sizeof(line))) {
- Bprint(&tabout, "%s\n", line);
+ fprintf(tabout, "%s\n", line);
if (prefix(".TS", line))
tableput();
}
- Bterm(tabin);
+ fclose(tabin);
return(0);
}
sargv++;
if (sargc > 0)
swapin();
- else {
- tabin = (Biobuf*)getcore(sizeof(Biobuf), 1);
- Binit(tabin, 0, OREAD);
- }
+ else
+ tabin = stdin;
}
return(0);
/* file closing is done by GCOS troff preprocessor */
if(tabin)
- Bterm(tabin);
+ fclose(tabin);
ifile = *sargv;
name = ifile;
if (match(ifile, "-")) {
- tabin = (Biobuf*)getcore(sizeof(Biobuf), 1);
- Binit(tabin, 0, OREAD);
+ tabin = stdin;
} else
- tabin = Bopen(ifile, OREAD);
+ tabin = fopen(ifile, "r");
iline = 1;
- Bprint(&tabout, ".ds f. %s\n", ifile);
- Bprint(&tabout, ".lf %d %s\n", iline, name);
+ fprintf(tabout, ".ds f. %s\n", ifile);
+ fprintf(tabout, ".lf %d %s\n", iline, name);
if (tabin == 0)
error("Can't open file");
sargc--;
blob - a4dc9f9f536e615eef305576b3e84837c7549b90
blob + 5429e5289c9e748dc546d3f56c1d32c83f859666
--- src/cmd/tbl/t3.c
+++ src/cmd/tbl/t3.c
char *optnam;
int *optadd;
} options [] = {
- "expand", &expflg,
- "EXPAND", &expflg,
- "center", &ctrflg,
- "CENTER", &ctrflg,
- "box", &boxflg,
- "BOX", &boxflg,
- "allbox", &allflg,
- "ALLBOX", &allflg,
- "doublebox", &dboxflg,
- "DOUBLEBOX", &dboxflg,
- "frame", &boxflg,
- "FRAME", &boxflg,
- "doubleframe", &dboxflg,
- "DOUBLEFRAME", &dboxflg,
- "tab", &tab,
- "TAB", &tab,
- "linesize", &linsize,
- "LINESIZE", &linsize,
- "delim", &delim1,
- "DELIM", &delim1,
- 0, 0};
+ { "expand", &expflg },
+ { "EXPAND", &expflg },
+ { "center", &ctrflg },
+ { "CENTER", &ctrflg },
+ { "box", &boxflg },
+ { "BOX", &boxflg },
+ { "allbox", &allflg },
+ { "ALLBOX", &allflg },
+ { "doublebox", &dboxflg },
+ { "DOUBLEBOX", &dboxflg },
+ { "frame", &boxflg },
+ { "FRAME", &boxflg },
+ { "doubleframe", &dboxflg },
+ { "DOUBLEFRAME", &dboxflg },
+ { "tab", &tab },
+ { "TAB", &tab },
+ { "linesize", &linsize },
+ { "LINESIZE", &linsize },
+ { "delim", &delim1 },
+ { "DELIM", &delim1 },
+ { 0, 0}
+};
void
*(lp->optadd) = 0;
texname = texstr[texct=0];
tab = '\t';
- Bprint(&tabout, ".nr %d \\n(.s\n", LSIZE);
+ fprintf(tabout, ".nr %d \\n(.s\n", LSIZE);
gets1(line, sizeof(line));
/* see if this is a command line */
if (strchr(line, ';') == 0) {
*(lp->optadd) = nb[0];
}
if (lp->optadd == &linsize)
- Bprint(&tabout, ".nr %d %s\n", LSIZE, nb);
+ fprintf(tabout, ".nr %d %s\n", LSIZE, nb);
if (lp->optadd == &delim1) {
delim1 = nb[0];
delim2 = nb[1];
blob - 558d3ba3ab9246e78901081cf0b6159f69d12343
blob + 0b60a942a80744e80320b6ef86c332f2ae5ba0aa
--- src/cmd/tbl/t4.c
+++ src/cmd/tbl/t4.c
oncol = 0;
left1flg = rightl = 0;
readspec();
- Bprint(&tabout, ".rm");
+ fprintf(tabout, ".rm");
for (i = 0; i < ncol; i++)
- Bprint(&tabout, " %2s", reg(i, CRIGHT));
- Bprint(&tabout, "\n");
+ fprintf(tabout, " %2s", reg(i, CRIGHT));
+ fprintf(tabout, "\n");
}
char sn[10], *snp, *temp;
sawchar = icol = 0;
- while (c = get1char()) {
+ while ((c = get1char())) {
switch (c) {
default:
if (c != tab) {
char buf[64];
- sprint(buf, "bad table specification character %c", c);
+ sprintf(buf, "bad table specification character %c", c);
error(buf);
}
case ' ': /* note this is also case tab */
if (c == 's' && icol <= 0)
error("first column can not be S-type");
if (c == 's' && style[icol-1][nclin] == 'a') {
- Bprint(&tabout, ".tm warning: can't span a-type cols, changed to l\n");
+ fprintf(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') {
- Bprint(&tabout, ".tm warning: can't span n-type cols, changed to c\n");
+ fprintf(tabout, ".tm warning: can't span n-type cols, changed to c\n");
style[icol-1][nclin] = 'c';
}
icol++;
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 == '+')
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 == '+')
of different widths now ....
if (*snp)
{
- Bprint(&tabout, "Ignored second width specification");
+ fprintf(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;
;
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)
}
-char *
+char*
getcore(int a, int b)
{
char *x;
blob - 8b7a65d8ffc9083baaee45d75d95aa3f83b053d3
blob + 9ad6b3c31aafe087392d5f58948792c808b885c2
--- src/cmd/tbl/t5.c
+++ src/cmd/tbl/t5.c
} else
instead[nlin] = 0;
if (nodata(nlin)) {
- if (ch = oneh(nlin))
+ if ((ch = oneh(nlin)))
fullbot[nlin] = ch;
table[nlin] = (struct colstr *) alocv((ncol + 2) * sizeof(table[0][0]));
for (icol = 0; icol < ncol; icol++) {
blob - a78368fcc564fb2cc8e3b79b3afc1fc60a19f311
blob + e65069106817360b4a4b21e9384e6ebee2a0226c
--- src/cmd/tbl/t6.c
+++ src/cmd/tbl/t6.c
for (icol = 0; icol < ncol; icol++) {
doubled[icol] = acase[icol] = 0;
- Bprint(&tabout, ".nr %2s 0\n", reg(icol, CRIGHT));
+ fprintf(tabout, ".nr %2s 0\n", reg(icol, CRIGHT));
for (text = 0; text < 2; text++) {
if (text)
- Bprint(&tabout, ".%2s\n.rm %2s\n", reg(icol, CRIGHT),
+ fprintf(tabout, ".%2s\n.rm %2s\n", reg(icol, CRIGHT),
reg(icol, CRIGHT));
for (ilin = 0; ilin < nlin; ilin++) {
if (instead[ilin] || fullbot[ilin])
s = table[ilin][icol].col;
if ((int)s > 0 && (int)s < 128 && text) {
if (doubled[icol] == 0)
- Bprint(&tabout, ".nr %d 0\n.nr %d 0\n",
+ fprintf(tabout, ".nr %d 0\n.nr %d 0\n",
S1, S2);
doubled[icol] = 1;
- Bprint(&tabout, ".if \\n(%c->\\n(%d .nr %d \\n(%c-\n",
+ fprintf(tabout, ".if \\n(%c->\\n(%d .nr %d \\n(%c-\n",
(int)s, S2, S2, (int)s);
}
case 'n':
if (table[ilin][icol].rcol != 0) {
if (doubled[icol] == 0 && text == 0)
- Bprint(&tabout, ".nr %d 0\n.nr %d 0\n",
+ fprintf(tabout, ".nr %d 0\n.nr %d 0\n",
S1, S2);
doubled[icol] = 1;
if (real(s = table[ilin][icol].col) && !vspen(s)) {
if (tx((int)s) != text)
continue;
- Bprint(&tabout, ".nr %d ", TMP);
+ fprintf(tabout, ".nr %d ", TMP);
wide(s, FN(vforml, icol), SZ(vforml, icol));
- Bprint(&tabout, "\n");
- Bprint(&tabout, ".if \\n(%d<\\n(%d .nr %d \\n(%d\n",
+ fprintf(tabout, "\n");
+ fprintf(tabout, ".if \\n(%d<\\n(%d .nr %d \\n(%d\n",
S1, TMP, S1, TMP);
}
if (text == 0 && real(s = table[ilin][icol].rcol) && !vspen(s) && !barent(s)) {
- Bprint(&tabout, ".nr %d \\w%c%s%c\n",
+ fprintf(tabout, ".nr %d \\w%c%s%c\n",
TMP, F1, s, F1);
- Bprint(&tabout, ".if \\n(%d<\\n(%d .nr %d \\n(%d\n", S2, TMP, S2,
+ fprintf(tabout, ".if \\n(%d<\\n(%d .nr %d \\n(%d\n", S2, TMP, S2,
TMP);
}
continue;
if (real(s = table[ilin][icol].col) && !vspen(s)) {
if (tx((int)s) != text)
continue;
- Bprint(&tabout, ".nr %d ", TMP);
+ fprintf(tabout, ".nr %d ", TMP);
wide(s, FN(vforml, icol), SZ(vforml, icol));
- Bprint(&tabout, "\n");
- Bprint(&tabout, ".if \\n(%2s<\\n(%d .nr %2s \\n(%d\n",
+ fprintf(tabout, "\n");
+ fprintf(tabout, ".if \\n(%2s<\\n(%d .nr %2s \\n(%d\n",
reg(icol, CRIGHT), TMP, reg(icol, CRIGHT), TMP);
}
}
}
}
if (acase[icol]) {
- Bprint(&tabout, ".if \\n(%d>=\\n(%2s .nr %2s \\n(%du+2n\n",
+ fprintf(tabout, ".if \\n(%d>=\\n(%2s .nr %2s \\n(%du+2n\n",
S2, reg(icol, CRIGHT), reg(icol, CRIGHT), S2);
}
if (doubled[icol]) {
- Bprint(&tabout, ".nr %2s \\n(%d\n", reg(icol, CMID), S1);
- Bprint(&tabout, ".nr %d \\n(%2s+\\n(%d\n", TMP, reg(icol, CMID), S2);
- Bprint(&tabout, ".if \\n(%d>\\n(%2s .nr %2s \\n(%d\n", TMP,
+ fprintf(tabout, ".nr %2s \\n(%d\n", reg(icol, CMID), S1);
+ fprintf(tabout, ".nr %d \\n(%2s+\\n(%d\n", TMP, reg(icol, CMID), S2);
+ fprintf(tabout, ".if \\n(%d>\\n(%2s .nr %2s \\n(%d\n", TMP,
reg(icol, CRIGHT), reg(icol, CRIGHT), TMP);
- Bprint(&tabout, ".if \\n(%d<\\n(%2s .nr %2s +(\\n(%2s-\\n(%d)/2\n",
+ fprintf(tabout, ".if \\n(%d<\\n(%2s .nr %2s +(\\n(%2s-\\n(%d)/2\n",
TMP, reg(icol, CRIGHT), reg(icol, CMID), reg(icol, CRIGHT), TMP);
}
if (cll[icol][0]) {
- Bprint(&tabout, ".nr %d %sn\n", TMP, cll[icol]);
- Bprint(&tabout, ".if \\n(%2s<\\n(%d .nr %2s \\n(%d\n",
+ fprintf(tabout, ".nr %d %sn\n", TMP, cll[icol]);
+ fprintf(tabout, ".if \\n(%2s<\\n(%d .nr %2s \\n(%d\n",
reg(icol, CRIGHT), TMP, reg(icol, CRIGHT), TMP);
}
for (ilin = 0; ilin < nlin; ilin++)
- if (k = lspan(ilin, icol)) {
+ if ((k = lspan(ilin, icol))) {
s = table[ilin][icol-k].col;
if (!real(s) || barent(s) || vspen(s) )
continue;
- Bprint(&tabout, ".nr %d ", TMP);
+ fprintf(tabout, ".nr %d ", TMP);
wide(table[ilin][icol-k].col, FN(ilin, icol - k), SZ(ilin, icol - k));
for (ik = k; ik >= 0; ik--) {
- Bprint(&tabout, "-\\n(%2s", reg(icol - ik, CRIGHT));
+ fprintf(tabout, "-\\n(%2s", reg(icol - ik, CRIGHT));
if (!expflg && ik > 0)
- Bprint(&tabout, "-%dn", sep[icol-ik]);
+ fprintf(tabout, "-%dn", sep[icol-ik]);
}
- Bprint(&tabout, "\n");
- Bprint(&tabout, ".if \\n(%d>0 .nr %d \\n(%d/%d\n", TMP,
+ fprintf(tabout, "\n");
+ fprintf(tabout, ".if \\n(%d>0 .nr %d \\n(%d/%d\n", TMP,
TMP, TMP, k);
- Bprint(&tabout, ".if \\n(%d<0 .nr %d 0\n", TMP, TMP);
+ fprintf(tabout, ".if \\n(%d<0 .nr %d 0\n", TMP, TMP);
for (ik = 1; ik <= k; ik++) {
if (doubled[icol-k+ik])
- Bprint(&tabout, ".nr %2s +\\n(%d/2\n",
+ fprintf(tabout, ".nr %2s +\\n(%d/2\n",
reg(icol - k + ik, CMID), TMP);
- Bprint(&tabout, ".nr %2s +\\n(%d\n",
+ fprintf(tabout, ".nr %2s +\\n(%d\n",
reg(icol - k + ik, CRIGHT), TMP);
}
}
untext();
/* if even requested, make all columns widest width */
if (evenflg) {
- Bprint(&tabout, ".nr %d 0\n", TMP);
+ fprintf(tabout, ".nr %d 0\n", TMP);
for (icol = 0; icol < ncol; icol++) {
if (evenup[icol] == 0)
continue;
- Bprint(&tabout, ".if \\n(%2s>\\n(%d .nr %d \\n(%2s\n",
+ fprintf(tabout, ".if \\n(%2s>\\n(%d .nr %d \\n(%2s\n",
reg(icol, CRIGHT), TMP, TMP, reg(icol, CRIGHT));
}
for (icol = 0; icol < ncol; icol++) {
/* if column not evened just retain old interval */
continue;
if (doubled[icol])
- Bprint(&tabout, ".nr %2s (100*\\n(%2s/\\n(%2s)*\\n(%d/100\n",
+ fprintf(tabout, ".nr %2s (100*\\n(%2s/\\n(%2s)*\\n(%d/100\n",
reg(icol, CMID), reg(icol, CMID), reg(icol, CRIGHT), TMP);
/* that nonsense with the 100's and parens tries
to avoid overflow while proportionally shifting
the middle of the number */
- Bprint(&tabout, ".nr %2s \\n(%d\n", reg(icol, CRIGHT), TMP);
+ fprintf(tabout, ".nr %2s \\n(%d\n", reg(icol, CRIGHT), TMP);
}
}
/* now adjust for total table width */
for (tsep = icol = 0; icol < ncol; icol++)
tsep += sep[icol];
if (expflg) {
- Bprint(&tabout, ".nr %d 0", TMP);
+ fprintf(tabout, ".nr %d 0", TMP);
for (icol = 0; icol < ncol; icol++)
- Bprint(&tabout, "+\\n(%2s", reg(icol, CRIGHT));
- Bprint(&tabout, "\n");
- Bprint(&tabout, ".nr %d \\n(.l-\\n(%d\n", TMP, TMP);
+ fprintf(tabout, "+\\n(%2s", reg(icol, CRIGHT));
+ fprintf(tabout, "\n");
+ fprintf(tabout, ".nr %d \\n(.l-\\n(%d\n", TMP, TMP);
if (boxflg || dboxflg || allflg)
- /* tsep += 1; */ {}
+ /* tsep += 1; */ ;
else
tsep -= sep[ncol-1];
- Bprint(&tabout, ".nr %d \\n(%d/%d\n", TMP, TMP, tsep);
- Bprint(&tabout, ".if \\n(%d<0 .nr %d 0\n", TMP, TMP);
+ fprintf(tabout, ".nr %d \\n(%d/%d\n", TMP, TMP, tsep);
+ fprintf(tabout, ".if \\n(%d<0 .nr %d 0\n", TMP, TMP);
} else
- Bprint(&tabout, ".nr %d 1n\n", TMP);
- Bprint(&tabout, ".nr %2s 0\n", reg(-1, CRIGHT));
+ fprintf(tabout, ".nr %d 1n\n", TMP);
+ fprintf(tabout, ".nr %2s 0\n", reg(-1, CRIGHT));
tsep = (boxflg || allflg || dboxflg || left1flg) ? 2 : 0;
if (sep[-1] >= 0)
tsep = sep[-1];
for (icol = 0; icol < ncol; icol++) {
- Bprint(&tabout, ".nr %2s \\n(%2s+((%d*\\n(%d)/2)\n", reg(icol, CLEFT),
+ fprintf(tabout, ".nr %2s \\n(%2s+((%d*\\n(%d)/2)\n", reg(icol, CLEFT),
reg(icol - 1, CRIGHT), tsep, TMP);
- Bprint(&tabout, ".nr %2s +\\n(%2s\n", reg(icol, CRIGHT), reg(icol, CLEFT));
+ fprintf(tabout, ".nr %2s +\\n(%2s\n", reg(icol, CRIGHT), reg(icol, CLEFT));
if (doubled[icol]) {
/* the next line is last-ditch effort to avoid zero field width */
- /*Bprint(&tabout, ".if \\n(%2s=0 .nr %2s 1\n",reg(icol,CMID), reg(icol,CMID));*/
- Bprint(&tabout, ".nr %2s +\\n(%2s\n", reg(icol, CMID),
+ /*fprintf(tabout, ".if \\n(%2s=0 .nr %2s 1\n",reg(icol,CMID), reg(icol,CMID));*/
+ fprintf(tabout, ".nr %2s +\\n(%2s\n", reg(icol, CMID),
reg(icol, CLEFT));
- /* Bprint(&tabout, ".if n .if \\n(%s%%24>0 .nr %s +12u\n",reg(icol,CMID), reg(icol,CMID)); */
+ /* fprintf(tabout, ".if n .if \\n(%s%%24>0 .nr %s +12u\n",reg(icol,CMID), reg(icol,CMID)); */
}
tsep = sep[icol] * 2;
}
if (rightl)
- Bprint(&tabout, ".nr %s (\\n(%s+\\n(%s)/2\n", reg(ncol - 1, CRIGHT),
+ fprintf(tabout, ".nr %s (\\n(%s+\\n(%s)/2\n", reg(ncol - 1, CRIGHT),
reg(ncol - 1, CLEFT), reg(ncol - 2, CRIGHT));
- Bprint(&tabout, ".nr TW \\n(%2s\n", reg(ncol - 1, CRIGHT));
+ fprintf(tabout, ".nr TW \\n(%2s\n", reg(ncol - 1, CRIGHT));
tsep = sep[ncol-1];
if (boxflg || allflg || dboxflg)
- Bprint(&tabout, ".nr TW +((%d*\\n(%d)/2)\n", tsep, TMP);
- Bprint(&tabout,
+ fprintf(tabout, ".nr TW +((%d*\\n(%d)/2)\n", tsep, TMP);
+ fprintf(tabout,
".if t .if (\\n(TW+\\n(.o)>7.65i .tm Table at line %d file %s is too wide - \\n(TW units\n", iline - 1, ifile);
return;
}
wide(char *s, char *fn, char *size)
{
if (point(s)) {
- Bprint(&tabout, "\\w%c", F1);
+ fprintf(tabout, "\\w%c", F1);
if (*fn > 0)
putfont(fn);
if (*size)
putsize(size);
- Bprint(&tabout, "%s", s);
+ fprintf(tabout, "%s", s);
if (*fn > 0)
putfont("P");
if (*size)
putsize("0");
- Bprint(&tabout, "%c", F1);
+ fprintf(tabout, "%c", F1);
} else
- Bprint(&tabout, "\\n(%c-", (int)s);
+ fprintf(tabout, "\\n(%c-", (int)s);
}
blob - 2fa9de53bbfcc30b7b04135f7d22bf590983795f
blob + 0d11f0c5c0e0016fddd083beef0b7de0ecd1b8a1
--- src/cmd/tbl/t7.c
+++ src/cmd/tbl/t7.c
if (boxflg || allflg || dboxflg)
need();
if (ctrflg) {
- Bprint(&tabout, ".nr #I \\n(.i\n");
- Bprint(&tabout, ".in +(\\n(.lu-\\n(TWu-\\n(.iu)/2u\n");
+ fprintf(tabout, ".nr #I \\n(.i\n");
+ fprintf(tabout, ".in +(\\n(.lu-\\n(TWu-\\n(.iu)/2u\n");
}
- Bprint(&tabout, ".fc %c %c\n", F1, F2);
- Bprint(&tabout, ".nr #T 0-1\n");
+ fprintf(tabout, ".fc %c %c\n", F1, F2);
+ fprintf(tabout, ".nr #T 0-1\n");
deftail();
for (i = 0; i < nlin; i++)
putline(i, i);
if (leftover)
yetmore();
- Bprint(&tabout, ".fc\n");
- Bprint(&tabout, ".nr T. 1\n");
- Bprint(&tabout, ".T# 1\n");
+ fprintf(tabout, ".fc\n");
+ fprintf(tabout, ".nr T. 1\n");
+ fprintf(tabout, ".T# 1\n");
if (ctrflg)
- Bprint(&tabout, ".in \\n(#Iu\n");
+ fprintf(tabout, ".in \\n(#Iu\n");
}
{
int c, ct, vforml, lf;
- Bprint(&tabout, ".ta ");
+ fprintf(tabout, ".ta ");
for (c = 0; c < ncol; c++) {
vforml = lform;
for (lf = prev(lform); lf >= 0 && vspen(table[lf][c].col); lf = prev(lf))
case 'a':
if (table[ldata][c].rcol)
if (lused[c]) /*Zero field width*/
- Bprint(&tabout, "\\n(%2su ", reg(c, CMID));
+ fprintf(tabout, "\\n(%2su ", reg(c, CMID));
case 'c':
case 'l':
case 'r':
if (realsplit ? rused[c] : (used[c] + lused[c]))
- Bprint(&tabout, "\\n(%2su ", reg(c, CRIGHT));
+ fprintf(tabout, "\\n(%2su ", reg(c, CRIGHT));
continue;
case 's':
if (lspan(lform, c))
- Bprint(&tabout, "\\n(%2su ", reg(c, CRIGHT));
+ fprintf(tabout, "\\n(%2su ", reg(c, CRIGHT));
continue;
}
}
- Bprint(&tabout, "\n");
+ fprintf(tabout, "\n");
}
else
texlin++;
}
- Bprint(&tabout, ".ne %dv+%dp\n", texlin, 2 * horlin);
+ fprintf(tabout, ".ne %dv+%dp\n", texlin, 2 * horlin);
}
for (i = 0; i < MAXHEAD; i++)
if (linestop[i])
- Bprint(&tabout, ".nr #%c 0-1\n", linestop[i] + 'a' - 1);
- Bprint(&tabout, ".nr #a 0-1\n");
- Bprint(&tabout, ".eo\n");
- Bprint(&tabout, ".de T#\n");
- Bprint(&tabout, ".nr 35 1m\n");
- Bprint(&tabout, ".ds #d .d\n");
- Bprint(&tabout, ".if \\(ts\\n(.z\\(ts\\(ts .ds #d nl\n");
- Bprint(&tabout, ".mk ##\n");
- Bprint(&tabout, ".nr ## -1v\n");
- Bprint(&tabout, ".ls 1\n");
+ fprintf(tabout, ".nr #%c 0-1\n", linestop[i] + 'a' - 1);
+ fprintf(tabout, ".nr #a 0-1\n");
+ fprintf(tabout, ".eo\n");
+ fprintf(tabout, ".de T#\n");
+ fprintf(tabout, ".nr 35 1m\n");
+ fprintf(tabout, ".ds #d .d\n");
+ fprintf(tabout, ".if \\(ts\\n(.z\\(ts\\(ts .ds #d nl\n");
+ fprintf(tabout, ".mk ##\n");
+ fprintf(tabout, ".nr ## -1v\n");
+ fprintf(tabout, ".ls 1\n");
for (i = 0; i < MAXHEAD; i++)
if (linestop[i])
- Bprint(&tabout, ".if \\n(#T>=0 .nr #%c \\n(#T\n",
+ fprintf(tabout, ".if \\n(#T>=0 .nr #%c \\n(#T\n",
linestop[i] + 'a' - 1);
if (boxflg || allflg || dboxflg) /* bottom of table line */
if (fullbot[nlin-1] == 0) {
if (!pr1403)
- Bprint(&tabout, ".if \\n(T. .vs \\n(.vu-\\n(.sp\n");
- Bprint(&tabout, ".if \\n(T. ");
+ fprintf(tabout, ".if \\n(T. .vs \\n(.vu-\\n(.sp\n");
+ fprintf(tabout, ".if \\n(T. ");
drawline(nlin, 0, ncol, dboxflg ? '=' : '-', 1, 0);
- Bprint(&tabout, "\n.if \\n(T. .vs\n");
+ fprintf(tabout, "\n.if \\n(T. .vs\n");
/* T. is really an argument to a macro but because of
eqn we don't dare pass it as an argument and reference by $1 */
}
for (c = 0; c < ncol; c++) {
if ((lf = left(nlin - 1, c, &lwid)) >= 0) {
- Bprint(&tabout, ".if \\n(#%c>=0 .sp -1\n", linestop[lf] + 'a' - 1);
- Bprint(&tabout, ".if \\n(#%c>=0 ", linestop[lf] + 'a' - 1);
+ fprintf(tabout, ".if \\n(#%c>=0 .sp -1\n", linestop[lf] + 'a' - 1);
+ fprintf(tabout, ".if \\n(#%c>=0 ", linestop[lf] + 'a' - 1);
tohcol(c);
drawvert(lf, nlin - 1, c, lwid);
- Bprint(&tabout, "\\h'|\\n(TWu'\n");
+ fprintf(tabout, "\\h'|\\n(TWu'\n");
}
}
if (boxflg || allflg || dboxflg) /* right hand line */ {
- Bprint(&tabout, ".if \\n(#a>=0 .sp -1\n");
- Bprint(&tabout, ".if \\n(#a>=0 \\h'|\\n(TWu'");
+ fprintf(tabout, ".if \\n(#a>=0 .sp -1\n");
+ fprintf(tabout, ".if \\n(#a>=0 \\h'|\\n(TWu'");
drawvert (0, nlin - 1, ncol, dboxflg ? 2 : 1);
- Bprint(&tabout, "\n");
+ fprintf(tabout, "\n");
}
- Bprint(&tabout, ".ls\n");
- Bprint(&tabout, "..\n");
- Bprint(&tabout, ".ec\n");
+ fprintf(tabout, ".ls\n");
+ fprintf(tabout, "..\n");
+ fprintf(tabout, ".ec\n");
}
blob - 92277e2a8c4453ba7654c789acba4176f76a2328
blob + 39bc9c148c684fdc07a8e3f865d28375b6d7ab91
--- src/cmd/tbl/t8.c
+++ src/cmd/tbl/t8.c
if (!vspen(s = table[ip][c].col))
break;
if ((int)s > 0 && (int)s < 128)
- Bprint(&tabout, ".ne \\n(%c|u+\\n(.Vu\n", (int)s);
+ fprintf(tabout, ".ne \\n(%c|u+\\n(.Vu\n", (int)s);
continue;
}
if (point(s))
continue;
- Bprint(&tabout, ".ne \\n(%c|u+\\n(.Vu\n", (int)s);
+ fprintf(tabout, ".ne \\n(%c|u+\\n(.Vu\n", (int)s);
watchout = 1;
}
if (linestop[nl])
- Bprint(&tabout, ".mk #%c\n", linestop[nl] + 'a' - 1);
+ fprintf(tabout, ".mk #%c\n", linestop[nl] + 'a' - 1);
lf = prev(nl);
if (instead[nl]) {
- Bprint(&tabout, "%s\n", instead[nl]);
+ fprintf(tabout, "%s\n", instead[nl]);
return;
}
if (fullbot[nl]) {
vspf = 1;
}
if (vspf) {
- Bprint(&tabout, ".nr #^ \\n(\\*(#du\n");
- Bprint(&tabout, ".nr #- \\n(#^\n"); /* current line position relative to bottom */
+ fprintf(tabout, ".nr #^ \\n(\\*(#du\n");
+ fprintf(tabout, ".nr #- \\n(#^\n"); /* current line position relative to bottom */
}
vspf = 0;
chfont = 0;
continue;
lf = prev(nl);
if (lf >= 0 && vspen(table[lf][c].col))
- Bprint(&tabout,
+ fprintf(tabout,
".if (\\n(%c|+\\n(^%c-1v)>\\n(#- .nr #- +(\\n(%c|+\\n(^%c-\\n(#--1v)\n",
(int)s, 'a' + c, (int)s, 'a' + c);
else
- Bprint(&tabout,
+ fprintf(tabout,
".if (\\n(%c|+\\n(#^-1v)>\\n(#- .nr #- +(\\n(%c|+\\n(#^-\\n(#--1v)\n",
(int)s, (int)s);
}
once = 1;
runtabs(i, nl);
if (allh(i) && !pr1403) {
- Bprint(&tabout, ".nr %d \\n(.v\n", SVS);
- Bprint(&tabout, ".vs \\n(.vu-\\n(.sp\n");
- Bprint(&tabout, ".nr 35 \\n(.vu\n");
+ fprintf(tabout, ".nr %d \\n(.v\n", SVS);
+ fprintf(tabout, ".vs \\n(.vu-\\n(.sp\n");
+ fprintf(tabout, ".nr 35 \\n(.vu\n");
} else
- Bprint(&tabout, ".nr 35 1m\n");
+ fprintf(tabout, ".nr 35 1m\n");
if (chfont)
- Bprint(&tabout, ".nr %2d \\n(.f\n", S1);
- Bprint(&tabout, "\\&");
+ fprintf(tabout, ".nr %2d \\n(.f\n", S1);
+ fprintf(tabout, "\\&");
vct = 0;
for (c = 0; c < ncol; c++) {
uphalf = 0;
rct = reg(c, CMID);
if (form == 'n' && table[nl][c].rcol && lused[c] == 0)
rct = reg(c, CMID);
- Bprint(&tabout, "\\h'|\\n(%2su'", rct);
+ fprintf(tabout, "\\h'|\\n(%2su'", rct);
}
s = table[nl][c].col;
fn = font[c][stynum[vforml]];
if (ip >= 0)
if (vspen(table[ip][c].col)) {
if (exvspen == 0) {
- Bprint(&tabout, "\\v'-(\\n(\\*(#du-\\n(^%cu", c + 'a');
+ fprintf(tabout, "\\v'-(\\n(\\*(#du-\\n(^%cu", c + 'a');
if (cmidx)
/* code folded from here */
- Bprint(&tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c + 'a');
+ fprintf(tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c + 'a');
/* unfolding */
vct++;
if (pr1403) /* must round to whole lines */
/* code folded from here */
- Bprint(&tabout, "/1v*1v");
+ fprintf(tabout, "/1v*1v");
/* unfolding */
- Bprint(&tabout, "'");
+ fprintf(tabout, "'");
exvspen = 1;
}
}
- Bprint(&tabout, "%c%c", F1, F2);
+ fprintf(tabout, "%c%c", F1, F2);
if (uphalf)
- Bprint(&tabout, "\\u");
+ fprintf(tabout, "\\u");
puttext(s, fn, size);
if (uphalf)
- Bprint(&tabout, "\\d");
- Bprint(&tabout, "%c", F1);
+ fprintf(tabout, "\\d");
+ fprintf(tabout, "%c", F1);
}
s = table[nl][c].rcol;
form = 1;
case '-':
case '=':
if (real(table[nl][c].col))
- fprint(2, "%s: line %d: Data ignored on table line %d\n", ifile, iline - 1, i + 1);
+ fprintf(stderr, "%s: line %d: Data ignored on table line %d\n", ifile, iline - 1, i + 1);
makeline(i, c, ct);
continue;
default:
continue;
}
if (filler(s)) {
- Bprint(&tabout, "\\l'|\\n(%2su\\&%s'", reg(c, CRIGHT), s + 2);
+ fprintf(tabout, "\\l'|\\n(%2su\\&%s'", reg(c, CRIGHT), s + 2);
continue;
}
ip = prev(nl);
if (ip >= 0)
if (vspen(table[ip][c].col)) {
if (exvspen == 0) {
- Bprint(&tabout, "\\v'-(\\n(\\*(#du-\\n(^%cu", c + 'a');
+ fprintf(tabout, "\\v'-(\\n(\\*(#du-\\n(^%cu", c + 'a');
if (cmidx)
- Bprint(&tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c + 'a');
+ fprintf(tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c + 'a');
vct++;
if (pr1403) /* round to whole lines */
- Bprint(&tabout, "/1v*1v");
- Bprint(&tabout, "'");
+ fprintf(tabout, "/1v*1v");
+ fprintf(tabout, "'");
}
}
- Bprint(&tabout, "%c", F1);
+ fprintf(tabout, "%c", F1);
if (form != 1)
- Bprint(&tabout, "%c", F2);
+ fprintf(tabout, "%c", F2);
if (vspen(s))
vspf = 1;
else
{
if (uphalf)
- Bprint(&tabout, "\\u");
+ fprintf(tabout, "\\u");
puttext(s, fn, size);
if (uphalf)
- Bprint(&tabout, "\\d");
+ fprintf(tabout, "\\d");
}
if (form != 2)
- Bprint(&tabout, "%c", F2);
- Bprint(&tabout, "%c", F1);
+ fprintf(tabout, "%c", F2);
+ fprintf(tabout, "%c", F1);
}
ip = prev(nl);
- if (ip >= 0)
+ if (ip >= 0) {
if (vspen(table[ip][c].col)) {
exvspen = (c + 1 < ncol) && vspen(table[ip][c+1].col) &&
(topat[c] == topat[c+1]) &&
- (cmidx == (flags[c+1] [stynum[nl]] & (CTOP | CDOWN) == 0))
+ (cmidx == ((flags[c+1] [stynum[nl]] & (CTOP | CDOWN)) == 0))
&& (left(i, c + 1, &lwid) < 0);
if (exvspen == 0) {
- Bprint(&tabout, "\\v'(\\n(\\*(#du-\\n(^%cu", c + 'a');
+ fprintf(tabout, "\\v'(\\n(\\*(#du-\\n(^%cu", c + 'a');
if (cmidx)
- Bprint(&tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c + 'a');
+ fprintf(tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c + 'a');
vct++;
if (pr1403) /* round to whole lines */
- Bprint(&tabout, "/1v*1v");
- Bprint(&tabout, "'");
+ fprintf(tabout, "/1v*1v");
+ fprintf(tabout, "'");
}
}
else
exvspen = 0;
+ }
/* if lines need to be split for gcos here is the place for a backslash */
if (vct > 7 && c < ncol) {
- Bprint(&tabout, "\n.sp-1\n\\&");
+ fprintf(tabout, "\n.sp-1\n\\&");
vct = 0;
}
}
- Bprint(&tabout, "\n");
+ fprintf(tabout, "\n");
if (allh(i) && !pr1403)
- Bprint(&tabout, ".vs \\n(%du\n", SVS);
+ fprintf(tabout, ".vs \\n(%du\n", SVS);
if (watchout)
funnies(i, nl);
if (vspf) {
for (c = 0; c < ncol; c++)
if (vspen(table[nl][c].col) && (nl == 0 || (lf = prev(nl)) < 0 ||
!vspen(table[lf][c].col))) {
- Bprint(&tabout, ".nr ^%c \\n(#^u\n", 'a' + c);
+ fprintf(tabout, ".nr ^%c \\n(#^u\n", 'a' + c);
topat[c] = nl;
}
}
if (point(s)) {
putfont(fn);
putsize(size);
- Bprint(&tabout, "%s", s);
+ fprintf(tabout, "%s", s);
if (*fn > 0)
- Bprint(&tabout, "\\f\\n(%2d", S1);
+ fprintf(tabout, "\\f\\n(%2d", S1);
if (size != 0)
putsize("0");
}
int c, s, pl, lwid, dv, lf, ct;
char *fn, *ss;
- Bprint(&tabout, ".mk ##\n"); /* rmember current vertical position */
- Bprint(&tabout, ".nr %d \\n(##\n", S1); /* bottom position */
+ fprintf(tabout, ".mk ##\n"); /* rmember current vertical position */
+ fprintf(tabout, ".nr %d \\n(##\n", S1); /* bottom position */
for (c = 0; c < ncol; c++) {
ss = table[lin][c].col;
if (point(ss))
if (ss == 0)
continue;
s = (int)ss;
- Bprint(&tabout, ".sp |\\n(##u-1v\n");
- Bprint(&tabout, ".nr %d ", SIND);
+ fprintf(tabout, ".sp |\\n(##u-1v\n");
+ fprintf(tabout, ".nr %d ", SIND);
ct = 0;
for (pl = stl; pl >= 0 && !isalpha(ct = ctype(pl, c)); pl = prev(pl))
;
switch (ct) {
case 'n':
case 'c':
- Bprint(&tabout, "(\\n(%2su+\\n(%2su-\\n(%c-u)/2u\n", reg(c, CLEFT),
+ fprintf(tabout, "(\\n(%2su+\\n(%2su-\\n(%c-u)/2u\n", reg(c, CLEFT),
reg(c - 1 + ctspan(lin, c), CRIGHT),
s);
break;
case 'l':
- Bprint(&tabout, "\\n(%2su\n", reg(c, CLEFT));
+ fprintf(tabout, "\\n(%2su\n", reg(c, CLEFT));
break;
case 'a':
- Bprint(&tabout, "\\n(%2su\n", reg(c, CMID));
+ fprintf(tabout, "\\n(%2su\n", reg(c, CMID));
break;
case 'r':
- Bprint(&tabout, "\\n(%2su-\\n(%c-u\n", reg(c, CRIGHT), s);
+ fprintf(tabout, "\\n(%2su-\\n(%c-u\n", reg(c, CRIGHT), s);
break;
}
- Bprint(&tabout, ".in +\\n(%du\n", SIND);
+ fprintf(tabout, ".in +\\n(%du\n", SIND);
fn = font[c][stynum[stl]];
putfont(fn);
pl = prev(stl);
if (stl > 0 && pl >= 0 && vspen(table[pl][c].col)) {
- Bprint(&tabout, ".sp |\\n(^%cu\n", 'a' + c);
+ fprintf(tabout, ".sp |\\n(^%cu\n", 'a' + c);
if ((flags[c][stynum[stl]] & (CTOP | CDOWN)) == 0) {
- Bprint(&tabout, ".nr %d \\n(#-u-\\n(^%c-\\n(%c|+1v\n",
+ fprintf(tabout, ".nr %d \\n(#-u-\\n(^%c-\\n(%c|+1v\n",
TMP, 'a' + c, s);
- Bprint(&tabout, ".if \\n(%d>0 .sp \\n(%du/2u", TMP, TMP);
+ fprintf(tabout, ".if \\n(%d>0 .sp \\n(%du/2u", TMP, TMP);
if (pr1403) /* round */
- Bprint(&tabout, "/1v*1v");
- Bprint(&tabout, "\n");
+ fprintf(tabout, "/1v*1v");
+ fprintf(tabout, "\n");
}
}
- Bprint(&tabout, ".%c+\n", s);
- Bprint(&tabout, ".in -\\n(%du\n", SIND);
+ fprintf(tabout, ".%c+\n", s);
+ fprintf(tabout, ".in -\\n(%du\n", SIND);
if (*fn > 0)
putfont("P");
- Bprint(&tabout, ".mk %d\n", S2);
- Bprint(&tabout, ".if \\n(%d>\\n(%d .nr %d \\n(%d\n", S2, S1, S1, S2);
+ fprintf(tabout, ".mk %d\n", S2);
+ fprintf(tabout, ".if \\n(%d>\\n(%d .nr %d \\n(%d\n", S2, S1, S1, S2);
}
- Bprint(&tabout, ".sp |\\n(%du\n", S1);
+ fprintf(tabout, ".sp |\\n(%du\n", S1);
for (c = dv = 0; c < ncol; c++) {
if (stl + 1 < nlin && (lf = left(stl, c, &lwid)) >= 0) {
if (dv++ == 0)
- Bprint(&tabout, ".sp -1\n");
+ fprintf(tabout, ".sp -1\n");
tohcol(c);
dv++;
drawvert(lf, stl, c, lwid);
}
}
if (dv)
- Bprint(&tabout, "\n");
+ fprintf(tabout, "\n");
}
putfont(char *fn)
{
if (fn && *fn)
- Bprint(&tabout, fn[1] ? "\\f(%.2s" : "\\f%.2s", fn);
+ fprintf(tabout, fn[1] ? "\\f(%.2s" : "\\f%.2s", fn);
}
putsize(char *s)
{
if (s && *s)
- Bprint(&tabout, "\\s%s", s);
+ fprintf(tabout, "\\s%s", s);
}
blob - bf1978a990029d51e7be38db1dd043d6361b9c99
blob + da96e05f916b69b8270405a2e30675ac136701b3
--- src/cmd/tbl/t9.c
+++ src/cmd/tbl/t9.c
/* t9.c: write lines for tables over 200 lines */
# include "t.h"
-static useln;
+static int useln;
void
yetmore(void)
if (prefix(".TE", dataln))
return(0);
if (dataln[0] == '.' && !isdigit(dataln[1])) {
- Bprint(&tabout, "%s\n", dataln);
+ fprintf(tabout, "%s\n", dataln);
return(1);
}
fullbot[0] = 0;
blob - 635dbf8ad17a91593fe1788b95dc077f00e82e27
blob + f089f4d5b00bb98a3436b79c0958ea26e27b926c
--- src/cmd/tbl/tc.c
+++ src/cmd/tbl/tc.c
void
choochar(void)
{
- /* choose funny characters to delimit fields */
- int had[128], ilin, icol, k;
- char *s;
+ /* choose funny characters to delimit fields */
+ int had[128], ilin, icol, k;
+ unsigned char *s;
for (icol = 0; icol < 128; icol++)
had[icol] = 0;
blob - 3df8d445d4463329c46b451afbc6a8ea99279f0b
blob + e62829944d905562dbaf9410a24b4df084074e2c
--- src/cmd/tbl/te.c
+++ src/cmd/tbl/te.c
void
error(char *s)
{
- fprint(2, "\n%s:%d: %s\n", ifile, iline, s);
- fprint(2, "tbl quits\n");
- exits(s);
+ fprintf(stderr, "\n%s:%d: %s\n", ifile, iline, s);
+ fprintf(stderr, "tbl quits\n");
+ exit(1);
}
iline++;
ns = s;
- p = Brdline(tabin, '\n');
+ p = fgetln(tabin, &nbl);
while (p == 0) {
if (swapin() == 0)
return(0);
- p = Brdline(tabin, '\n');
+ p = fgetln(tabin, &nbl);
}
- nbl = Blinelen(tabin)-1;
+ if(p != 0 && p[nbl-1] == '\n')
+ nbl--;
if(nbl >= size)
error("input buffer too small");
p[nbl] = 0;
if (backp > backup)
c = *--backp;
else
- c = Bgetc(tabin);
+ c = fgetc(tabin);
if (c == 0) /* EOF */ {
if (swapin() == 0)
error("unexpected EOF");
- c = Bgetc(tabin);
+ c = fgetc(tabin);
}
if (c == '\n')
iline++;
blob - 3791c32fe25ffc0804444615064a174ec1b81ad5
blob + 320ba968e2bf3acc67b89ef2dab6454ff3441ed9
--- src/cmd/tbl/tf.c
+++ src/cmd/tbl/tf.c
savefill(void)
{
/* remembers various things: fill mode, vs, ps in mac 35 (SF) */
- Bprint(&tabout, ".de %d\n", SF);
- Bprint(&tabout, ".ps \\n(.s\n");
- Bprint(&tabout, ".vs \\n(.vu\n");
- Bprint(&tabout, ".in \\n(.iu\n");
- Bprint(&tabout, ".if \\n(.u .fi\n");
- Bprint(&tabout, ".if \\n(.j .ad\n");
- Bprint(&tabout, ".if \\n(.j=0 .na\n");
- Bprint(&tabout, "..\n");
- Bprint(&tabout, ".nf\n");
+ fprintf(tabout, ".de %d\n", SF);
+ fprintf(tabout, ".ps \\n(.s\n");
+ fprintf(tabout, ".vs \\n(.vu\n");
+ fprintf(tabout, ".in \\n(.iu\n");
+ fprintf(tabout, ".if \\n(.u .fi\n");
+ fprintf(tabout, ".if \\n(.j .ad\n");
+ fprintf(tabout, ".if \\n(.j=0 .na\n");
+ fprintf(tabout, "..\n");
+ fprintf(tabout, ".nf\n");
/* set obx offset if useful */
- Bprint(&tabout, ".nr #~ 0\n");
- Bprint(&tabout, ".if \\n(.T .if n .nr #~ 0.6n\n");
+ fprintf(tabout, ".nr #~ 0\n");
+ fprintf(tabout, ".if \\n(.T .if n .nr #~ 0.6n\n");
}
void
rstofill(void)
{
- Bprint(&tabout, ".%d\n", SF);
+ fprintf(tabout, ".%d\n", SF);
}
for (i = 0; i < MAXHEAD; i++)
if (linestop[i])
- Bprint(&tabout, ".nr #%c 0\n", linestop[i] + 'a' - 1);
+ fprintf(tabout, ".nr #%c 0\n", linestop[i] + 'a' - 1);
for (i = 0; i < texct; i++)
- Bprint(&tabout, ".rm %c+\n", texstr[i]);
- Bprint(&tabout, "%s\n", last);
+ fprintf(tabout, ".rm %c+\n", texstr[i]);
+ fprintf(tabout, "%s\n", last);
}
void
ifdivert(void)
{
- Bprint(&tabout, ".ds #d .d\n");
- Bprint(&tabout, ".if \\(ts\\n(.z\\(ts\\(ts .ds #d nl\n");
+ fprintf(tabout, ".ds #d .d\n");
+ fprintf(tabout, ".if \\(ts\\n(.z\\(ts\\(ts .ds #d nl\n");
}
void
saveline(void)
{
- Bprint(&tabout, ".if \\n+(b.=1 .nr d. \\n(.c-\\n(c.-1\n");
+ fprintf(tabout, ".if \\n+(b.=1 .nr d. \\n(.c-\\n(c.-1\n");
linstart = iline;
}
void
restline(void)
{
- Bprint(&tabout, ".if \\n-(b.=0 .nr c. \\n(.c-\\n(d.-%d\n", iline - linstart);
+ fprintf(tabout, ".if \\n-(b.=0 .nr c. \\n(.c-\\n(d.-%d\n", iline - linstart);
linstart = 0;
}
void
cleanfc(void)
{
- Bprint(&tabout, ".fc\n");
+ fprintf(tabout, ".fc\n");
}
blob - 6abb149081ca6383bd67ce17ffd4af57191e2453
blob + e12bdc4e0fe17b1a3b5f35b5a30f34dffe6e3599
--- src/cmd/tbl/tg.c
+++ src/cmd/tbl/tg.c
if (texname == 0)
error("Too many text block diversions");
if (textflg == 0) {
- Bprint(&tabout, ".nr %d \\n(.lu\n", SL); /* remember old line length */
+ fprintf(tabout, ".nr %d \\n(.lu\n", SL); /* remember old line length */
textflg = 1;
}
- Bprint(&tabout, ".eo\n");
- Bprint(&tabout, ".am %s\n", reg(icol, CRIGHT));
- Bprint(&tabout, ".br\n");
- Bprint(&tabout, ".di %c+\n", texname);
+ fprintf(tabout, ".eo\n");
+ fprintf(tabout, ".am %s\n", reg(icol, CRIGHT));
+ fprintf(tabout, ".br\n");
+ fprintf(tabout, ".di %c+\n", texname);
rstofill();
if (fn && *fn)
- Bprint(&tabout, ".nr %d \\n(.f\n.ft %s\n", S1, fn);
- Bprint(&tabout, ".ft \\n(.f\n"); /* protect font */
+ fprintf(tabout, ".nr %d \\n(.f\n.ft %s\n", S1, fn);
+ fprintf(tabout, ".ft \\n(.f\n"); /* protect font */
vs = vsize[icol][stynum[ilin]];
if ((sz && *sz) || (vs && *vs)) {
- Bprint(&tabout, ".nr %d \\n(.v\n", S9);
+ fprintf(tabout, ".nr %d \\n(.v\n", S9);
if (vs == 0 || *vs == 0)
vs = "\\n(.s+2";
if (sz && *sz)
- Bprint(&tabout, ".ps %s\n", sz);
- Bprint(&tabout, ".vs %s\n", vs);
- Bprint(&tabout, ".if \\n(%du>\\n(.vu .sp \\n(%du-\\n(.vu\n", S9, S9);
+ fprintf(tabout, ".ps %s\n", sz);
+ fprintf(tabout, ".vs %s\n", vs);
+ fprintf(tabout, ".if \\n(%du>\\n(.vu .sp \\n(%du-\\n(.vu\n", S9, S9);
}
if (cll[icol][0])
- Bprint(&tabout, ".ll %sn\n", cll[icol]);
+ fprintf(tabout, ".ll %sn\n", cll[icol]);
else
- Bprint(&tabout, ".ll \\n(%du*%du/%du\n", SL, ctspan(ilin, icol), ncol + 1);
- Bprint(&tabout, ".if \\n(.l<\\n(%2s .ll \\n(%2su\n", reg(icol, CRIGHT),
+ fprintf(tabout, ".ll \\n(%du*%du/%du\n", SL, ctspan(ilin, icol), ncol + 1);
+ fprintf(tabout, ".if \\n(.l<\\n(%2s .ll \\n(%2su\n", reg(icol, CRIGHT),
reg(icol, CRIGHT));
if (ctype(ilin, icol) == 'a')
- Bprint(&tabout, ".ll -2n\n");
- Bprint(&tabout, ".in 0\n");
+ fprintf(tabout, ".ll -2n\n");
+ fprintf(tabout, ".in 0\n");
while (gets1(line, sizeof(line))) {
if (line[0] == 'T' && line[1] == '}' && line[2] == tab)
break;
if (match("T}", line))
break;
- Bprint(&tabout, "%s\n", line);
+ fprintf(tabout, "%s\n", line);
}
if (fn && *fn)
- Bprint(&tabout, ".ft \\n(%d\n", S1);
+ fprintf(tabout, ".ft \\n(%d\n", S1);
if (sz && *sz)
- Bprint(&tabout, ".br\n.ps\n.vs\n");
- Bprint(&tabout, ".br\n");
- Bprint(&tabout, ".di\n");
- Bprint(&tabout, ".nr %c| \\n(dn\n", texname);
- Bprint(&tabout, ".nr %c- \\n(dl\n", texname);
- Bprint(&tabout, "..\n");
- Bprint(&tabout, ".ec \\\n");
+ fprintf(tabout, ".br\n.ps\n.vs\n");
+ fprintf(tabout, ".br\n");
+ fprintf(tabout, ".di\n");
+ fprintf(tabout, ".nr %c| \\n(dn\n", texname);
+ fprintf(tabout, ".nr %c- \\n(dl\n", texname);
+ fprintf(tabout, "..\n");
+ fprintf(tabout, ".ec \\\n");
/* copy remainder of line */
if (line[2])
tcopy (sp, line + 3);
untext(void)
{
rstofill();
- Bprint(&tabout, ".nf\n");
- Bprint(&tabout, ".ll \\n(%du\n", SL);
+ fprintf(tabout, ".nf\n");
+ fprintf(tabout, ".ll \\n(%du\n", SL);
}
blob - 8fa4e497222abd7fcd085cc1a5445d7a1c2bdfb7
blob + 7bf49e531772dfbacba092791e369c2374453c02
--- src/cmd/tbl/tm.c
+++ src/cmd/tbl/tm.c
char *p, *q, *ba;
p = str;
- for (ba = 0; c = *str; str++)
+ for (ba = 0; (c = *str); str++)
if (c == '\\' && *(str + 1) == '&')
ba = str;
str = p;
if (ba == 0) {
for (dpoint = 0; *str; str++) {
if (*str == '.' && !ineqn(str, p) &&
- (str > p && digit(*(str - 1)) ||
+ ((str > p && digit(*(str - 1))) ||
digit(*(str + 1))))
dpoint = (int)str;
}
exlim = exstore + MAXCHS;
}
q = exstore;
- while (*exstore++ = *str++)
+ while ((*exstore++ = *str++))
;
*p = 0;
return(q);
/* true if s is in a eqn within p */
int ineq = 0, c;
- while (c = *p) {
+ while ((c = *p)) {
if (s == p)
return(ineq);
p++;
blob - 43cc84ecdf85ab5021de973c4d5e28572364d073
blob + a3c5968e57efbd6a7836ccf23d02040eede315b4
--- src/cmd/tbl/ts.c
+++ src/cmd/tbl/ts.c
void
tcopy (char *s, char *t)
{
- while (*s++ = *t++)
+ while ((*s++ = *t++))
;
}
blob - 96270b7580ae4955da049991ce787dc831ca9895
blob + e70ab3dadd57357038120f6cc5ae4fa68144edc9
--- src/cmd/tbl/tt.c
+++ src/cmd/tbl/tt.c
tohcol(int ic)
{
if (ic == 0)
- Bprint(&tabout, "\\h'|0'");
+ fprintf(tabout, "\\h'|0'");
else
- Bprint(&tabout, "\\h'(|\\n(%2su+|\\n(%2su)/2u'", reg(ic, CLEFT),
+ fprintf(tabout, "\\h'(|\\n(%2su+|\\n(%2su)/2u'", reg(ic, CLEFT),
reg(ic - 1, CRIGHT));
}
return(1);
if (vspen(s))
return(1);
- if (t = barent( s))
+ if ((t = barent( s)))
return(t);
return(0);
}
blob - 217869e1a46759cae0e91957d6043354f0e03b90
blob + 87e1602ec42d2fac5dd87e08b96c230e1d3502e4
--- src/cmd/tbl/tu.c
+++ src/cmd/tbl/tu.c
int cr, cl;
if (!pr1403)
- Bprint(&tabout, ".nr %d \\n(.v\n.vs \\n(.vu-\\n(.sp\n", SVS);
+ fprintf(tabout, ".nr %d \\n(.v\n.vs \\n(.vu-\\n(.sp\n", SVS);
cr = 0;
while (cr < ncol) {
cl = cr;
if (cl < ncol)
drawline(i, cl, (cr < ncol ? cr - 1 : cr), lintype, 1, 0);
}
- Bprint(&tabout, "\n");
+ fprintf(tabout, "\n");
if (!pr1403)
- Bprint(&tabout, ".vs \\n(%du\n", SVS);
+ fprintf(tabout, ".vs \\n(%du\n", SVS);
}
return;
nodata = cr - cl >= ncol || noheight || allh(i);
if (!nodata)
- Bprint(&tabout, "\\v'-.5m'");
+ fprintf(tabout, "\\v'-.5m'");
for (ln = oldpos = 0; ln < lcount; ln++) {
linpos = 2 * ln - lcount + 1;
if (linpos != oldpos)
- Bprint(&tabout, "\\v'%dp'", linpos - oldpos);
+ fprintf(tabout, "\\v'%dp'", linpos - oldpos);
oldpos = linpos;
if (shortl == 0) {
tohcol(cl);
break;
}
if (exhl[0])
- Bprint(&tabout, "\\h'%s'", exhl);
+ fprintf(tabout, "\\h'%s'", exhl);
} else if (lcount == 1) {
switch (interv(i, cl)) {
case TOP:
break;
}
if (exhl[0])
- Bprint(&tabout, "\\h'%s'", exhl);
+ fprintf(tabout, "\\h'%s'", exhl);
}
if (lcount > 1) {
switch (interv(i, cr + 1)) {
}
}
} else
- Bprint(&tabout, "\\h'|\\n(%2su'", reg(cl, CLEFT));
- Bprint(&tabout, "\\s\\n(%d", LSIZE);
+ fprintf(tabout, "\\h'|\\n(%2su'", reg(cl, CLEFT));
+ fprintf(tabout, "\\s\\n(%d", LSIZE);
if (linsize)
- Bprint(&tabout, "\\v'-\\n(%dp/6u'", LSIZE);
+ fprintf(tabout, "\\v'-\\n(%dp/6u'", LSIZE);
if (shortl)
- Bprint(&tabout, "\\l'|\\n(%2su'", reg(cr, CRIGHT));
+ fprintf(tabout, "\\l'|\\n(%2su'", reg(cr, CRIGHT));
else
{
lnch = "\\(ul";
if (pr1403)
lnch = lintype == 2 ? "=" : "\\(ru";
if (cr + 1 >= ncol)
- Bprint(&tabout, "\\l'|\\n(TWu%s%s'", exhr, lnch);
+ fprintf(tabout, "\\l'|\\n(TWu%s%s'", exhr, lnch);
else
- Bprint(&tabout, "\\l'(|\\n(%2su+|\\n(%2su)/2u%s%s'", reg(cr, CRIGHT),
+ fprintf(tabout, "\\l'(|\\n(%2su+|\\n(%2su)/2u%s%s'", reg(cr, CRIGHT),
reg(cr + 1, CLEFT), exhr, lnch);
}
if (linsize)
- Bprint(&tabout, "\\v'\\n(%dp/6u'", LSIZE);
- Bprint(&tabout, "\\s0");
+ fprintf(tabout, "\\v'\\n(%dp/6u'", LSIZE);
+ fprintf(tabout, "\\s0");
}
if (oldpos != 0)
- Bprint(&tabout, "\\v'%dp'", -oldpos);
+ fprintf(tabout, "\\v'%dp'", -oldpos);
if (!nodata)
- Bprint(&tabout, "\\v'+.5m'");
+ fprintf(tabout, "\\v'+.5m'");
}
blob - 19a4b03fda16cf4977869fc761af16e0a159c98b
blob + adcef76f199fe5dde5760f05eb7e7bd45aa72515
--- src/cmd/tbl/tv.c
+++ src/cmd/tbl/tv.c
epb = ept = 0;
pos = 2 * ln - lwid + 1;
if (pos != tp)
- Bprint(&tabout, "\\h'%dp'", pos - tp);
+ fprintf(tabout, "\\h'%dp'", pos - tp);
tp = pos;
if (end < nlin) {
if (fullbot[end] || (!instead[end] && allh(end)))
break;
}
if (exb)
- Bprint(&tabout, "\\v'%s'", exb);
+ fprintf(tabout, "\\v'%s'", exb);
if (epb)
- Bprint(&tabout, "\\v'%dp'", epb);
- Bprint(&tabout, "\\s\\n(%d", LSIZE);
+ fprintf(tabout, "\\v'%dp'", epb);
+ fprintf(tabout, "\\s\\n(%d", LSIZE);
if (linsize)
- Bprint(&tabout, "\\v'-\\n(%dp/6u'", LSIZE);
- Bprint(&tabout, "\\h'-\\n(#~u'"); /* adjustment for T450 nroff boxes */
- Bprint(&tabout, "\\L'|\\n(#%cu-%s", linestop[start] + 'a' - 1,
+ fprintf(tabout, "\\v'-\\n(%dp/6u'", LSIZE);
+ fprintf(tabout, "\\h'-\\n(#~u'"); /* adjustment for T450 nroff boxes */
+ fprintf(tabout, "\\L'|\\n(#%cu-%s", linestop[start] + 'a' - 1,
vm == 'v' ? "1v" : "\\n(35u");
if (ext)
- Bprint(&tabout, "-(%s)", ext);
+ fprintf(tabout, "-(%s)", ext);
if (exb)
- Bprint(&tabout, "-(%s)", exb);
+ fprintf(tabout, "-(%s)", exb);
pos = ept - epb;
if (pos)
- Bprint(&tabout, "%s%dp", pos >= 0 ? "+" : "", pos);
+ fprintf(tabout, "%s%dp", pos >= 0 ? "+" : "", pos);
/* the string #d is either "nl" or ".d" depending
on diversions; on GCOS not the same */
- Bprint(&tabout, "'\\s0\\v'\\n(\\*(#du-\\n(#%cu+%s",
+ fprintf(tabout, "'\\s0\\v'\\n(\\*(#du-\\n(#%cu+%s",
linestop[start] + 'a' - 1, vm == 'v' ? "1v" : "\\n(35u");
if (ext)
- Bprint(&tabout, "+%s", ext);
+ fprintf(tabout, "+%s", ext);
if (ept)
- Bprint(&tabout, "%s%dp", (-ept) > 0 ? "+" : "", (-ept));
- Bprint(&tabout, "'");
+ fprintf(tabout, "%s%dp", (-ept) > 0 ? "+" : "", (-ept));
+ fprintf(tabout, "'");
if (linsize)
- Bprint(&tabout, "\\v'\\n(%dp/6u'", LSIZE);
+ fprintf(tabout, "\\v'\\n(%dp/6u'", LSIZE);
}
}
c--;
if (ct == '-' || ct == '=')
return(ct);
- if (ct = barent(table[i][c].col))
+ if ((ct = barent(table[i][c].col)))
return(ct);
return(0);
}
blob - a63e5fdeed896d5f27aba63425ee25aa2d1bc931
blob + 59f74ec8770d920d69c78b9020ebaf9e12f69b20
--- src/cmd/troff/dwbinit.c
+++ src/cmd/troff/dwbinit.c
/*****************************************************************************/
+extern char *unsharp(char*);
+
char *DWBhome(void)
{
if ( (home = DWBHOME) == NULL || *home == '\0' || *home == ' ' )
home = NULL;
} /* End if */
+ home = unsharp(home);
} /* End if */
while (home && *home == '/' && *(home +1) == '/') /* remove extra slashes */
blob - 42147880128836d939ce2fe7f42d2162425fe0e1
blob + 5e1875639ac106aff0d160e684d010f3cdde614f
--- src/cmd/troff/ext.h
+++ src/cmd/troff/ext.h
+#define devname p9_devname
+
extern int TROFF;
extern int alphabet;
blob - 6bd94ada6d478a7ac4b580a24285575888f84363
blob + 087d4c80c3f4aeb2878123447c451d3efa9fe707
--- src/cmd/troff/fns.h
+++ src/cmd/troff/fns.h
/*
* other
*/
+#ifdef NOTDEF
int pclose(FILE*);
long filesize(int fd);
int open(char *, int);
int lseek(int, long, int);
int close(int);
int getpid(void);
+#endif
/*
* c1.c
blob - 66a98219366827439082bccd8d01a5f2904a6d8d
blob + 8bc2e94438a45908c910afe5bbdd605c523864e2
--- src/cmd/troff/mbwc.c
+++ src/cmd/troff/mbwc.c
size_t
wcstombs(char *s, const wchar_t *pwcs, size_t n)
{
- int i, d;
+ int /*i,*/ d;
long c;
char *p, *pe;
char buf[3];
blob - d0949fe290040b9f947ff871334911a4be5599de
blob + 45e99f3f4103ff458be1dfa742c255e92a0d07b8
--- src/cmd/troff/n1.c
+++ src/cmd/troff/n1.c
#include "ext.h"
#include "dwbinit.h"
-#undef MB_CUR_MAX
-#define MB_CUR_MAX 3
-
#include <setjmp.h>
#include <time.h>
int trace = 0; /* tracing mode: default off */
int trace1 = 0;
+int
main(int argc, char *argv[])
{
char *p;
Tchar i;
char buf[100];
- ifile = stdin;
+ ifile = stdin; /* gcc */
ptid = stdout;
buf[0] = '\0'; /* make sure it's empty (silly 3b2) */
void cvtime(void)
{
- long tt;
+ time_t tt;
struct tm *ltime;
time(&tt);
Tchar getch0(void)
{
- int j;
Tchar i;
again:
if (ip)
goto again;
}
-g2:
+//g2:
if (i >= 040) /* zapped: && i < 0177 */
goto g4;
i = ifilt[i];
if ((n = mbtowc(&wc, buf, p-buf)) >= 0)
break;
}
+
if (n == 1) /* real ascii, presumably */
return wc;
if (n == 0)
if (p[0] == '-' && p[1] == 0) {
ifile = stdin;
strcpy(cfname[ifi], "stdin");
- } else if ((ifile = fopen(unsharp(p), "r")) == NULL) {
+ } else if ((ifile = fopen(p, "r")) == NULL) {
ERROR "cannot open file %s", p WARN;
nfo -= mflg;
done(02);
return(0);
}
-
+int
popf(void)
{
--ifi;
* (internal names), spaces and special cookies (below 040).
* Leave STX ETX ENQ ACK and BELL in to maintain compatibility with v7 troff.
*/
+int
getach(void)
{
Tchar i;
nxf = frame + 1;
}
-
+int
getname(void)
{
int j, k;
- Tchar i;
lgf++;
for (k = 0; k < NS - 1; k++) {
void caseso(void)
{
- FILE *fp;
- char *p, *q;
+ FILE *fp = 0;
lgf++;
nextf[0] = 0;
- if (skip() || !getname() || (fp = fopen(unsharp(nextf), "r")) == NULL || ifi >= NSO) {
+ if (skip() || !getname() || (fp = fopen(nextf, "r")) == NULL || ifi >= NSO) {
ERROR "can't open file %s", nextf WARN;
done(02);
}
nextf[0] = 0;
if (!skip() && getname()) {
if (strncmp("<<", nextf, 2) != 0) {
- if ((fd = fopen(unsharp(nextf), "r")) == NULL) {
+ if ((fd = fopen(nextf, "r")) == NULL) {
ERROR "can't open file %s", nextf WARN;
done(02);
}
blob - 0183cadc41cc2d88f9e34bb4787ae2bb5814faa3
blob + de2461d87688d9c95cfe0217ccc90ccf85d46f08
--- src/cmd/troff/n10.c
+++ src/cmd/troff/n10.c
static int getnrfont(FILE *fp) /* read the nroff description file */
{
- FILE *fin;
Chwid chtemp[NCHARS];
static Chwid chinit;
int i, nw, n, wid, code, type;
- char buf[100], ch[100], s1[100], s2[100], cmd[300];
+ char buf[100], ch[100], s1[100], s2[100];
wchar_t wc;
-
+ code = 0;
chinit.wid = 1;
chinit.str = "";
for (i = 0; i < ALPHABET; i++) {
void n_ptinit(void)
{
int i;
- char *p, *cp;
+ char *p;
char opt[50], cmd[100];
FILE *fp;
/* hyphalg = 0; /* for testing */
strcat(termtab, devname);
- if ((fp = fopen(unsharp(termtab), "r")) == NULL) {
+ if ((fp = fopen(termtab, "r")) == NULL) {
ERROR "cannot open %s", termtab WARN;
exit(-1);
}
blob - 8164c0387ca2cc8077c19111e02fb52fffe1a51f
blob + 22fd101949cce864c3270ea1e4e795708f9df16c
--- src/cmd/troff/n2.c
+++ src/cmd/troff/n2.c
void outascii(Tchar i) /* print i in best-guess ascii */
{
- char *p;
int j = cbits(i);
/* is this ever called with NROFF set? probably doesn't work at all. */
blob - 6918d06de4ea5055da78dea45fdfc2a166b7a34c
blob + 8279d74892e8f25f716ecf91f1a18099a49af353
--- src/cmd/troff/n3.c
+++ src/cmd/troff/n3.c
char *grow(char *ptr, int num, int size) /* make array bigger */
{
- char *p, new;
+ char *p;
if (ptr == NULL)
p = (char *) calloc(num, size);
Offset finds(int mn)
{
int i;
- Tchar j = IMP;
Offset savip;
oldmn = findmn(mn);
Offset savoff;
Uchar *p;
+ savoff = 0;
if (skip() || !(j = getrq()))
j = '.';
req = j;
blob - 3b3698e4c3160c29dd26bc3622ec5e39f1c0a12a
blob + 71162cc3c84d1043231d8778af28503b79b90b91
--- src/cmd/troff/n4.c
+++ src/cmd/troff/n4.c
for( i = 0; tabtab[i] != 0 && i < NTAB; i++) {
if (i > 0)
buf[j++] = ' ';
- sprintf(&buf[j], "%d", tabtab[i] & TABMASK);
+ sprintf(&buf[j], "%ld", tabtab[i] & TABMASK);
j = strlen(buf);
if ( tabtab[i] & RTAB)
sprintf(&buf[j], "uR");
blob - c2801e4709d31dd2dac33ce79a56d72356a3735b
blob + ab5ef2e5d9f2ba460c71e5762757c924465b4713
--- src/cmd/troff/n5.c
+++ src/cmd/troff/n5.c
dip->nls++;
}
-
+int
chget(int c)
{
Tchar i;
+ i = 0;
if (skip() || ismot(i = getch()) || cbits(i) == ' ' || cbits(i) == '\n') {
ch = i;
return(c);
hyf = 0;
}
-
+int
max(int aa, int bb)
{
if (aa > bb)
nlist[k] = i;
}
-
+int
findn(int i)
{
int k;
return;
}
if (fcache[i].fp == NULL) {
- if( (fcache[i].fp = fopen(unsharp(nextf), "w")) == NULL) {
+ if( (fcache[i].fp = fopen(nextf, "w")) == NULL) {
ERROR "fm: cannot open %s", nextf WARN;
return;
}
numtabp[CD].val++;
}
}
-
+int
cmpstr(Tchar c)
{
int j, delim;
pushi(RD_OFFSET, PAIR('r','d'));
}
-
+int
rdtty(void)
{
char onechar;
blob - e4affa17d3a0a72583823b9745043adec806a182
blob + 2328d6a94899ec44dab2b7b1d0e2623372bcacb4
--- src/cmd/troff/n6.c
+++ src/cmd/troff/n6.c
* n6.c -- width functions, sizes and fonts
*/
+int
n_width(Tchar j)
{
int i, k;
{
int i, j, k;
- k = 0;
+ j = k = 0;
bd0:
if (skip() || !(i = getrq()) || (j = findft(i)) == -1) {
if (k)
blob - c22a485c40500041447e5b5fb9ac181f76df109e
blob + bcea354acea75bf61a5f6205c5b5d009a8fe7c7e
--- src/cmd/troff/n7.c
+++ src/cmd/troff/n7.c
int i, j, nlss;
int opn;
+ nlss = 0;
if (a)
goto nl1;
if (dip != d) {
}
}
-
+int
findn1(int a)
{
int i, j;
}
}
-
+int
findt(int a)
{
int i, j, k;
k = i;
return(k);
}
-
+int
findt1(void)
{
int i;
goto e1;
}
-
+int
movword(void)
{
int w;
}
}
-
+int
getword(int x)
{
int j, k;
int noword;
int obits;
+ j = 0;
noword = 0;
if (x)
if (pendw) {
blob - d1be50805bb6eb7336ed94638c7fb20870e0c683
blob + bace4aaec00693ca69c14e1bced05863fbb651bb
--- src/cmd/troff/n8.c
+++ src/cmd/troff/n8.c
}
}
-static alpha(Tchar i) /* non-zero if really alphabetic */
+static int alpha(Tchar i) /* non-zero if really alphabetic */
{
if (ismot(i))
return 0;
return isalpha(cbits(i));
}
-
+int
punct(Tchar i)
{
if (!i || alpha(i))
}
}
-
+int
suffix(void)
{
Tchar *w;
goto again;
}
-
+int
maplow(int i)
{
if (isupper(i))
return(i);
}
-
+int
vowel(int i)
{
switch (i) {
Tchar *nhyend, *maxw;
int maxval;
extern char bxh[26][13], bxxh[26][13], xxh[26][13], xhx[26][13], hxx[26][13];
-
+ maxw = 0;
again:
if (!(w = chkvow(hyend + 1)))
return;
goto again;
}
-
+int
dilook(int a, int b, char t[26][13])
{
int i, j;
characters. sigh.
*/
+extern char *unsharp(char*);
+
+static char *texhyphens;
+
static int readpats(void)
{
FILE *fp;
char buf[200], buf1[200];
- if ((fp = fopen(unsharp(TEXHYPHENS), "r")) == NULL
- && (fp = fopen(unsharp(DWBalthyphens), "r")) == NULL) {
+ if(texhyphens == 0)
+ texhyphens = unsharp(TEXHYPHENS);
+ if ((fp = fopen(texhyphens, "r")) == NULL
+ && (fp = fopen(DWBalthyphens, "r")) == NULL) {
ERROR "warning: can't find hyphen.tex" WARN;
return 0;
}
blob - 5cd70648cd77a9a560f1d1d02c5520df02ac76ef
blob + 3e3ad97f2f2ad929bf763f06c392da6643cde5ef
--- src/cmd/troff/n9.c
+++ src/cmd/troff/n9.c
pushback(linebuf);
}
-
+int
eat(int c)
{
int i;
int savepos;
static Tchar wbuf[] = { WORDSP, 0};
+ rchar = 0;
if (x == tabch)
rchar = tabc | chbits;
else if (x == ldrch)
blob - 3e8026d1178c6c7ff28d4bc6f632439662b16114
blob + 0022cc798623564469b8cb85caac21a300a09860
--- src/cmd/troff/t10.c
+++ src/cmd/troff/t10.c
Tchar i;
int outsize; /* size of object being printed */
+ w = 0;
outsize = 1; /* default */
i = *pi;
k = cbits(i);
xpts = fbits(i); /* sneaky, font bits as size bits */
if (xpts != mpts)
ptps();
- OUT "x H %d\n", sbits(i) PUT;
+ OUT "x H %ld\n", sbits(i) PUT;
return(outsize);
}
if (k == SLANT) {
- OUT "x S %d\n", sfbits(i)-180 PUT;
+ OUT "x S %ld\n", sfbits(i)-180 PUT;
return(outsize);
}
if (k == WORDSP) {
pi[1] = '~';
case DRAWSPLINE: /* spline */
default: /* something else; copy it like spline */
- OUT "D%c %d %d", cbits(pi[1]), dx, dy PUT;
+ OUT "D%ld %d %d", cbits(pi[1]), dx, dy PUT;
hpos += dx;
vpos += dy;
if (cbits(pi[3]) == DRAWFCN || cbits(pi[4]) == DRAWFCN) {
blob - 5511748c6c85bbc3b53e19a20dcf4f796c68c839
blob + 398d74da98126f593986354516586ad7c76b6ab2
--- src/cmd/troff/t11.c
+++ src/cmd/troff/t11.c
#define eq(s1, s2) (strcmp(s1, s2) == 0)
+int
getdesc(char *name)
{
FILE *fin;
char cmd[100], s[100];
int i, v;
- if ((fin = fopen(unsharp(name), "r")) == NULL)
+ if ((fin = fopen(name, "r")) == NULL)
return -1;
while (fscanf(fin, "%s", cmd) != EOF) {
if (strcmp(cmd, "res") == 0) {
char buf[300], buf2[300];
int i, status = -1;
- if ((fp = fopen(unsharp(name), "r")) == NULL)
+ if ((fp = fopen(name, "r")) == NULL)
return -1;
for (i = 1; i <= 10; i++) {
if (fgets(buf, sizeof buf, fp) == NULL)
}
+int
getfont(char *name, int pos) /* create width tab for font */
{
FILE *fin;
int i, nw, n, wid, kern, code, type;
char buf[100], ch[100], s1[100], s2[100], s3[100], cmd[300];
+ nw = code = 0;
/* fprintf(stderr, "read font %s onto %d\n", name, pos); */
if (checkfont(name) == -1)
return -1;
- if ((fin = fopen(unsharp(name), "r")) == NULL)
+ if ((fin = fopen(name, "r")) == NULL)
return -1;
for (i = 0; i < ALPHABET; i++)
chtemp[i] = chinit; /* zero out to begin with */
return 1;
}
+int
chadd(char *s, int type, int install) /* add s to global character name table; */
{ /* or just look it up */
return "";
}
+int
getlig(FILE *fin) /* pick up ligature list */
{
int lig;
blob - b778916c852d713638fe42e121e9bbba080e048d
blob + 583d4aa80f9966178f79b80e3cef0c1cf7375781
--- src/cmd/troff/t6.c
+++ src/cmd/troff/t6.c
int bdtab[MAXFONTS+1];
int sbold = 0;
+int
t_width(Tchar j)
{
int i, k;
widcache[i].fontpts = 0;
}
+int
onfont(int n, int f) /* is char n on font f? */
{
int i;
return -1; /* vanilla not found */
}
+int
getcw(int i)
{
int k, n, x;
char temp[50];
char *s;
+ j = 0;
s = temp;
if (c == '(') { /* \(xx */
if ((*s++ = getach()) == 0 || (*s++ = getach()) == 0)
* returns -1 on error
*/
-
+int
t_findft(int i)
{
int k;
mchbits();
}
-
+int
findps(int i)
{
int j, k;
{
int i, j;
+ j = 0;
i = cbits(getch());
if (isdigit(i)) { /* \sd or \sdd */
i -= '0';
return t;
}
+int
setfp(int pos, int f, char *truename, int print) /* mount font f at position pos[0...nfonts] */
{
char pathname[NS], shortname[NS], *sl;
+ sl = (char*)0;
zapwcache(0);
if (truename)
strcpy(shortname, truename);
{
int i, j, k;
+ j=0;
if (!TROFF) {
n_casebd();
return;
blob - e9e1f65caad9fd56067794751a639c2f67c3bb46
blob + 0b3f2b17bbee2ac72f605680fa69e691d6de0e8f
--- src/cmd/troff/tdef.h
+++ src/cmd/troff/tdef.h
#include <limits.h>
#include <ctype.h>
#include <string.h>
+#include <unistd.h>
-#define NROFF (!TROFF)
+#undef MB_CUR_MAX
+#define MB_CUR_MAX 3
+#define NROFF (!TROFF)
/* Site dependent definitions */
