Bell 32V development

[unix-history] / usr / src / cmd / refer / refer6.c

diff --git a/usr/src/cmd/refer/refer6.c b/usr/src/cmd/refer/refer6.c
index 21bdb65..56340ef 100644 (file)
--- 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];
 {
 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")
 
 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);
        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);
        }
 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;
 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++)
        {
 sv[n++] = line;
 for( p= line; *p; p++)
        {


@@ -123,6 +120,7 @@ for( p= line; *p; p++)
        }
 return(n-1);
 }
        }
 return(n-1);
 }

+char *

 class (nt, tv)
        char *tv[];
 {
 class (nt, tv)
        char *tv[];
 {


@@ -149,6 +147,7 @@ for(i=0; i<nt; i++)
                return(1);
 return(0);
 }
                return(1);
 return(0);
 }

+char *

 caps(a, b)
        char *a, *b;
 {
 caps(a, b)
        char *a, *b;
 {


@@ -188,6 +187,7 @@ if (alph>1)
 *b=0;
 return (p);
 }
 *b=0;
 return (p);
 }

+char *

 revauth(s, b)
        char *s, *b;
 {
 revauth(s, b)
        char *s, *b;
 {