[unix-history] / usr / src / usr.bin / pascal / libpc / PFLUSH.c

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

static char sccsid[] = "@(#)PFLUSH.c 1.2 %G%";

#include "h00vars.h"

/*
 * insure that a usable image is in the buffer window
 */
PFLUSH()
{
	register struct iorec	*next;

	for (next = _fchain.fchain; next != FILNIL; next = next->fchain) {
		if ((next->funit & (FDEF | FREAD)) != 0)
			continue;
		if (next->fbuf != 0)
			fflush(next->fbuf);
	}
}
Commit	Line	Data
607dd221 KM	1	/* Copyright (c) 1979 Regents of the University of California */
607dd221 KM	2
9e012f32	3	static char sccsid[] = "@(#)PFLUSH.c 1.2 %G%";
607dd221 KM	4
	5	#include "h00vars.h"
	6
	7	/*
	8	* insure that a usable image is in the buffer window
	9	*/
	10	PFLUSH()
	11	{
	12	register struct iorec *next;
	13
9e012f32 KM	14	for (next = _fchain.fchain; next != FILNIL; next = next->fchain) {
	15	if ((next->funit & (FDEF \| FREAD)) != 0)
	16	continue;
	17	if (next->fbuf != 0)
607dd221	18	fflush(next->fbuf);
607dd221 KM	19	}
607dd221 KM	20	}