/*
 * 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 <stdio.h>
#include <assert.h>
#define	LINESIZ 1250

extern int hash();

int
newkeys(FILE *outf, FILE *inf, FILE *recf, int nhash, FILE *fd, int *iflong)
{
	/*
	 * reads key lines from inf; hashes and writes on outf;
	 * writes orig key on recf, records pointer on outf too.
	 * format of outf is : hash code space record pointer
	 */

	long lp, ftell();
	long ld = 0;
	int ll = 0, lt = 0;
	char line[LINESIZ];
	char key[30], bkeys[40];
	char *p, *s;
	char *keyv[500];
	int i, nk, ndoc = 0, more = 0, c;

	lp = ftell(recf);
	while (fgets(line, LINESIZ, inf)) {
		p = line;
		while (*p != '\t') p++;
		*p++ = 0;
		fputs(line, recf);
		if (fd) {
			sprintf(bkeys, ";%ld", ld);
			ll = strlen(p);
			lt = strlen(bkeys);
			fputs(bkeys, recf);
			sprintf(bkeys, ",%d", ll);
			lt += strlen(bkeys);
			fputs(bkeys, recf);
			ld += ll;
			fputs(p, fd);
		}
		putc('\n', recf);
		for (s = p; *s; s++)
			;
		if (*--s == '\n') {
			more = 0;
			*s = 0;
		} else
			more = 1;
		assert(fd == 0 || more == 0);
		nk = getargs(p, keyv);
		if (more)
			nk--;
		for (i = 0; i < nk; i++)
			fprintf(outf, "%04d %06ld\n", hash(keyv[i])%nhash, lp);
#if D1
		for (i = 0; i < nk; i++)
			printf("key %s hash %d\n",
			    keyv[i], hash(keyv[i])%nhash);
#endif
		if (more) {	/* allow more than LINESIZ keys */
			strcpy(key, keyv[nk]);
			for (s = key; *s; s++)
				;
			while ((c = getc(inf)) != '\n') {
				if (c != ' ') {
					*s++ = c;
					continue;
				}
				*s = 0;
				if (s > key)
					fprintf(outf, "%04d %06ld\n",
					    hash(key)%nhash, lp);
				s = key;
			}
		}
		lp += (strlen(line)+lt+1);
		ndoc++;
	}
	*iflong = (lp >= 65536L);
	if (sizeof (int) > 2) *iflong = 1; /* force long on VAX */
	fclose(recf);
	return (ndoc);
}


void
trimnl(char *p)
{
	while (*p) p++;
	p--;
	if (*p == '\n') *p = 0;
}