/*
 * CDE - Common Desktop Environment
 *
 * Copyright (c) 1993-2012, The Open Group. All rights reserved.
 *
 * These libraries and programs are free software; you can
 * redistribute them and/or modify them under the terms of the GNU
 * Lesser General Public License as published by the Free Software
 * Foundation; either version 2 of the License, or (at your option)
 * any later version.
 *
 * These libraries and programs are distributed in the hope that
 * they will be useful, but WITHOUT ANY WARRANTY; without even the
 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 * PURPOSE. See the GNU Lesser General Public License for more
 * details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with these libraries and programs; if not, write
 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
 * Floor, Boston, MA 02110-1301 USA
 */
/*%%  (c) Copyright 1993, 1994 Hewlett-Packard Company			 */
/*%%  (c) Copyright 1993, 1994 International Business Machines Corp.	 */
/*%%  (c) Copyright 1993, 1994 Sun Microsystems, Inc.			 */
/*%%  (c) Copyright 1993, 1994 Novell, Inc. 				 */
/*%%  $TOG: isgarbage.c /main/5 1998/04/10 08:04:25 mgreess $ 			 				 */
#include "isam_impl.h"
#include <stdlib.h>
#include <sys/types.h>
#include <sys/stat.h>

int
isgarbage(char * isfname)
{
	char			isfname2[MAXPATHLEN];
	int			isfd = -1, isfd2 = -1;
	char			buffer[ISMAXRECLEN];
	char			*recbuf = NULL;
	struct dictinfo 	info;
	struct keydesc		keybuf;
	struct stat		statbuf;
	int			count = 0,i;

	snprintf(isfname2, sizeof(isfname2), "%s~", isfname);

	if ((isfd = isopen(isfname, ISEXCLLOCK + ISINPUT)) == ISERROR) {
		goto ERROR;
	}

	if (isindexinfo(isfd, (struct keydesc *)&info, 0) == ISERROR) {
		goto ERROR;
	}

	if (strlen(isfname) + 5 >= ISMAXRECLEN)
	  recbuf = (char*) malloc(strlen(isfname) + 5);
	else
	  recbuf = buffer;

	sprintf(recbuf, "%s.rec", isfname);
	if (stat(recbuf, &statbuf) < 0) {
		goto ERROR;
	}

	iserase(isfname2);	/* Delete any old backup (~) files. */

	if ((isfd2 = isbuild(isfname2, info.di_recsize, nokey,
		     (DICTVARLENBIT&info.di_nkeys?ISVARLEN: ISFIXLEN)
			     + ISEXCLLOCK + ISINOUT)) == ISERROR) {
		goto ERROR;
	}

	/* Copy all records */

	while (isread(isfd, recbuf, ISNEXT) == ISOK) {
		iswrite(isfd2, recbuf);
		count++;
	}

	if (count != info.di_nrecords) {
		goto ERROR;
	}
	
	/* Build all indexes from index info */

	for (i = 1; i <= (info.di_nkeys & DICTNKEYSMASK); i++) {
		if (isindexinfo(isfd, &keybuf, i) == ISERROR) {
			goto ERROR;
		}
		if (i == 1 && keybuf.k_nparts != 0) {
			/* Add primary index */
			if (isaddprimary(isfd2, &keybuf) == ISERROR) {
				goto ERROR;
			}
		} 
		else if (i > 1) {
			/* Add secondary index */
			if (isaddindex(isfd2, &keybuf) == ISERROR) {
				goto ERROR;
			}
		}
	}

	(void)isclose(isfd);
	(void)isclose(isfd2);

	iserase(isfname);		/* cannot abort at this point ! */
	if (isrename(isfname2, isfname) == ISERROR) {
		return (ISERROR);
	}

	return (ISOK);

      ERROR:

	if (isfd != -1)
	  (void)isclose(isfd);

	if (isfd2 != -1) {
		(void)isclose(isfd2);
		(void)iserase(isfname2);
	}
	if ((recbuf != buffer) && (recbuf != NULL)) {
		free(recbuf);
	}
	return (ISERROR);
}