/*
 * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
/*	  All Rights Reserved  	*/

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved. The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 */

#pragma ident	"%Z%%M%	%I%	%E% SMI"

#include "refer..c"
#define	dsde (macro? "de" : "ds")
#define	ifnl (macro? sep : ' ')

extern int control();
extern char *mindex();

int hastype(int, char *[], char);
static char last(char *);
char *class(int, char *[]);
char *caps(char *, char *);
char *revauth(char *, char *);

void
putref(int n, char *tvec[])
{
	char *s, *tx;
	char buf1[BUFSIZ], buf2[50];
	int nauth = 0, i, lastype = 0, cch, macro = 0, la;
	int lauth = 0, ltitle = 0, lother = 0;

	fprintf(fo, ".]-%c", 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 EBUG
		fprintf(stderr, "smallcaps %s cch %c\n", smallcaps, cch);
#endif
		if (mindex(smallcaps, cch))
			tx = caps(tx, buf1);
#if EBUG
		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');
}

int
tabs(char *sv[], char *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);
}

char *
class(int nt, 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");
}

int
hastype(int nt, char *tv[], char c)
{
	int i;
	for (i = 0; i < nt; i++)
		if (control(tv[i][0]) && tv[i][1] == c)
			return (1);
	return (0);
}

char *
caps(char *a, char *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);
}

char *
revauth(char *s, char *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);
}

static char
last(char *s)
{
	while (*s)
		s++;
	return (*--s);
}