/*
 * 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.
 */

#include <locale.h>
#include <stdio.h>
#include <assert.h>
#define	unopen(fil) {if (fil != NULL) {fclose(fil); fil = NULL; }}

extern void err();
extern long indexdate, gdate();
extern FILE *iopen();

int ckexist(char *, char *);

static void
runbib(char *s)
{
	/* make a file suitable for fgrep */
	char tmp[200];
	sprintf(tmp, "/usr/lib/refer/mkey '%s' > '%s.ig'", s, s);
	system(tmp);
}

int
makefgrep(char *indexname)
{
	FILE *fa, *fb;
	if (ckexist(indexname, ".ig")) {
		/* existing gfrep -type index */
#if D1
		fprintf(stderr, "found fgrep\n");
#endif
		fa = iopen(indexname, ".ig");
		fb = iopen(indexname, "");
		if (gdate(fb) > gdate(fa)) {
			if (fa != NULL)
				fclose(fa);
			runbib(indexname);
			fa = iopen(indexname, ".ig");
		}
		indexdate = gdate(fa);
		unopen(fa);
		unopen(fb);
	} else
		if (ckexist(indexname, "")) {
			/* make fgrep */
#if D1
			fprintf(stderr, "make fgrep\n");
#endif
			runbib(indexname);
			time(&indexdate);
		} else /* failure */
			return (0);
	return (1); /* success */
}

int
ckexist(char *s, char *t)
{
	char fnam[100];
	strcpy(fnam, s);
	strcat(fnam, t);
	return (access(fnam, 04) != -1);
}

FILE *
iopen(char *s, char *t)
{
	char fnam[100];
	FILE *f;
	strcpy(fnam, s);
	strcat(fnam, t);
	f = fopen(fnam, "r");
	if (f == NULL) {
		err(gettext("Missing expected file %s"), fnam);
		exit(1);
	}
	return (f);
}