X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/a68924a6e07d69bc4b8d6106b3af0ac5a7490905..2b1a705ed970c2e79af7002901532e0048d627a8:/usr/src/cmd/refer/refer6.c diff --git a/usr/src/cmd/refer/refer6.c b/usr/src/cmd/refer/refer6.c index 21bdb65e15..56340ef7b3 100644 --- a/usr/src/cmd/refer/refer6.c +++ b/usr/src/cmd/refer/refer6.c @@ -4,8 +4,8 @@ putref (n, tvec) { char *s, *tx; char buf1[LLINE], buf2[50]; -int nauth 0, i, lastype 0, cch, macro 0, la; -int lauth =0, ltitle =0, lother =0; +int nauth = 0, i, lastype = 0, cch, macro = 0, la; +int lauth = 0, ltitle = 0; fprintf(fo, ".]-%c", sep); # define dsde (macro? "de" : "ds") @@ -97,21 +97,18 @@ fprintf(stderr, " s %o tx %o %s\n",s,tx,tx); lastype = cch; if (cch == 'T') ltitle = (mindex(".;,?", last(tx)) != 0); - if (cch == 'O') - lother = (mindex(".;,?", last(tx)) != 0); } if (lastype && macro) fprintf(fo, "..%c", sep); fprintf(fo, ".nr [T %d%c", ltitle, sep); fprintf(fo, ".nr [A %d%c", lauth, sep); -fprintf(fo, ".nr [O %d%c", lother, sep); fprintf (fo, ".][ %s%c", class(n, tvec), '\n'); } tabs (sv, line) char *sv[], *line; { char *p; -int n 0; +int n = 0; sv[n++] = line; for( p= line; *p; p++) { @@ -123,6 +120,7 @@ for( p= line; *p; p++) } return(n-1); } +char * class (nt, tv) char *tv[]; { @@ -149,6 +147,7 @@ for(i=0; i1) *b=0; return (p); } +char * revauth(s, b) char *s, *b; {