h03052
s 00224/00000/00000
d D 1.1 82/08/02 15:57:48 cecily 1 0
e
u
U
t
T
I 1
# include "refer..c"
putref (n, tvec)
	char *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;

fprintf(fo, ".]-%c", sep);
# define dsde (macro? "de" : "ds")
# define ifnl (macro? sep : ' ')
for (i=0; i<n; i++)
	{
	s = tvec[i];
	if (*s==0) continue;
	if (control(s[0]) )
		{
		if (lastype && macro)
			fprintf(fo, "..%c", sep);
		if (control(s[1]))
			{
			cch = s[2];
			tx = s+3;
			macro=1;
			}
		else
			{
			cch = s[1];
			tx = s+2;
			macro=0;
			}
		}
	else
		{
		cch = lastype;
		tx=s;
		}
# if D1
fprintf(stderr, "smallcaps %s cch %c\n",smallcaps, cch);
# endif
	if (mindex (smallcaps, cch))
		tx = caps(tx, buf1);
# if D1
fprintf(stderr, " s %o tx %o %s\n",s,tx,tx);
# endif
	if (!control(s[0])) /* append to previous item */
		{
		if (lastype!=0)
			{
			if (macro)
				fprintf(fo, "%s%c", tx, sep);
			else
				fprintf(fo, ".as [%c \" %s%c",lastype,tx,sep);
			if (lastype == 'T')
				ltitle = (mindex(".;,?", last(tx))!=0);
			if (lastype == 'A')
				lauth = last(tx) == '.';
			}
		continue;
		}
	if (mindex("XYZ[]", cch)) /* skip these */
		{
		lastype=0;
		continue;
		}
	else
	if (cch == 'A')
		{
		if (nauth < authrev)
			tx = revauth(tx, buf2);
		if (nauth++ ==0)
			if (macro)
				fprintf(fo, ".de [%c%c%s%c",cch,sep,tx,sep);
			else
				fprintf(fo, ".ds [%c%s%c", cch,tx,sep);
		else
			{
			la = (tvec[i+1][1]!='A');
			fprintf(fo, ".as [A \"");
			if (la == 0 || nauth != 2)
				fprintf(fo, ",");
			if (la)
			fprintf(fo,"%s", 
				mindex(smallcaps, 'A')? " \\s-2AND\\s+2" : " and");
			fprintf(fo, "%s%c", tx, sep);
			}
		lauth = last(tx)=='.';
		}
	else
		if (macro)
			fprintf(fo, ".de [%c%c%s%c",cch,sep, tx, sep);
		else
			fprintf(fo, ".ds [%c%s%c",cch,tx, sep);
	if (cch=='P')
		fprintf(fo, ".nr [P %d%c", mindex(s, '-')!=0, sep);
	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;
sv[n++] = line;
for( p= line; *p; p++)
	{
	if (*p == '\n')
		{
		*p=0;
		sv[n++] = p+1;
		}
	}
return(n-1);
}
class (nt, tv)
	char *tv[];
{
if (hastype (nt, tv, 'J'))
	return("1 journal-article");
if (hastype (nt, tv, 'B'))
	return("3 article-in-book");
if (hastype (nt, tv, 'R'))
	return ("4 tech-report");
if (hastype (nt, tv, 'G'))
	return ("4 tech-report");
if (hastype (nt, tv, 'I'))
	return("2 book");
if (hastype (nt, tv,'M'))
	return ("5 bell-tm");
return("0 other");
}
hastype (nt, tv, c)
	char *tv[];
{
int i;
for(i=0; i<nt; i++)
	if ( control(tv[i][0]) && tv[i][1]==c )
		return(1);
return(0);
}
caps(a, b)
	char *a, *b;
{
char *p;
int c, alph, this;
p=b;
alph = 0;
while (c = *a++)
	{
	this = isalpha(c);
	if (this && alph==1)
		{
		*b++ = '\\';
		*b++ = 's';
		*b++ = '-';
		*b++ = '2';
		}
	if (!this && alph>1)
		{
		*b++ = '\\';
		*b++ = 's';
		*b++ = '+';
		*b++ = '2';
		}
	if (this)
		c &= (~040);
	*b++ = c;
	alph = this ? alph+1 : 0;
	}
if (alph>1)
	{
	*b++ = '\\';
	*b++ = 's';
	*b++ = '+';
	*b++ = '2';
	}
*b=0;
return (p);
}
revauth(s, b)
	char *s, *b;
{
char *init, *name, *jr, *p, *bcop;
bcop = b;
init=name=s;
while (*name)name++;
jr=name;
while (name>init && *name!= ' ')
	name--;
if (name[-1] == ',' || name[-1]== '(' )
	{
	jr = --name;
	while (name>init && *name != ' ')
		name--;
	}
p=name;
while (p<jr)
	*b++ = *p++;
*b++ = ',';
while (init<name)
	*b++ = *init++;
if (*jr)jr++;
while(*jr)
	*b++ = *jr++;
*b++ = 0;
return(bcop);
}
last(s)
	char *s;
{
while (*s) s++;
return(*--s);
}
E 1
