/* $Header$ */

/*
 * Author: Peter J. Nicklin
 */

/*
 * _closepdb() closes a database without updating. Returns 0 normally, 1
 * if database error.
 */
#include <stdio.h>
#include "path.h"
#include "pdb.h"

_closepdb(pdbp)
	PDB *pdbp;			/* database description pointer	*/
{
	int errpdb();			/* print database error message */
	int errstat = 0;		/* database error status */

	fclose(pdbp->fp);
	if ((pdbp->flag&_PACCESS) == (_PREAD|_PWRITE))
		{
		fclose(pdbp->tfp);
		unlink(pdbp->tpath);
		}
	else if ((pdbp->flag&(_PWRITE|_PAPPEND)) != 0)
		unlink(pdbp->tpath);
	if ((pdbp->flag&_PERR) != 0)
		{
		errpdb(pdbp);
		errstat = 1;
		}
	free((char *) pdbp);
	return(errstat);
}