{
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")
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++)
{
}
return(n-1);
}
+char *
class (nt, tv)
char *tv[];
{
return(1);
return(0);
}
+char *
caps(a, b)
char *a, *b;
{
*b=0;
return (p);
}
+char *
revauth(s, b)
char *s, *b;
{