[unix-history] / usr / src / usr.lib / libpc / DFDISPOSE.c

/* Copyright (c) 1982 Regents of the University of California */

static	char sccsid[] = "@(#)DFDISPOSE.c	4.3	(Berkeley)	7/7/86";

/*
 * Close all active files within a dynamic record,
 * then dispose of the record.
 */

#include "h00vars.h"
#include "libpc.h"

DFDISPOSE(var, size)
	char	**var;	/* pointer to pointer being deallocated */
	long	size;	/* sizeof(bletch) */
{
	register struct iorec	*next, *prev;
	struct iorec *start, *end;

	start = (struct iorec *)(*var);
	end = (struct iorec *)(*var + size);
	prev = (struct iorec *)(&_fchain);
	next = _fchain.fchain;
	while(next != FILNIL && (next->flev < GLVL || next < start)) {
		prev = next;
		next = next->fchain;
	}
	while(next != FILNIL && start <= next && next < end)
		next = PFCLOSE(next, TRUE);
	prev->fchain = next;
	DISPOSE(var, size);
}
Commit	Line	Data
b8e9ff47 KM	1	/* Copyright (c) 1982 Regents of the University of California */
b8e9ff47 KM	2
ca67e7b4	3	static char sccsid[] = "@(#)DFDISPOSE.c 4.3 (Berkeley) 7/7/86";
b8e9ff47 KM	4
	5	/*
	6	* Close all active files within a dynamic record,
	7	* then dispose of the record.
	8	*/
	9
	10	#include "h00vars.h"
	11	#include "libpc.h"
	12
	13	DFDISPOSE(var, size)
	14	char *var; / pointer to pointer being deallocated */
	15	long size; /* sizeof(bletch) */
	16	{
	17	register struct iorec next, prev;
	18	struct iorec start, end;
	19
	20	start = (struct iorec )(var);
	21	end = (struct iorec )(var + size);
	22	prev = (struct iorec *)(&_fchain);
	23	next = _fchain.fchain;
	24	while(next != FILNIL && (next->flev < GLVL \|\| next < start)) {
	25	prev = next;
	26	next = next->fchain;
	27	}
660b18d9	28	while(next != FILNIL && start <= next && next < end)
9e012f32	29	next = PFCLOSE(next, TRUE);
b8e9ff47 KM	30	prev->fchain = next;
	31	DISPOSE(var, size);
	32	}