[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.1 %G%";

#include "h00vars.h"

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

	next = _fchain.fchain;
	while(next != FILNIL) {
		if ((next->funit & (FDEF | FREAD)) == 0) {
			fflush(next->fbuf);
		}
		next = next->fchain;
	}
}
Commit	Line	Data
607dd221 KM	1	/* Copyright (c) 1979 Regents of the University of California */
	2
	3	static char sccsid[] = "@(#)PFLUSH.c 1.1 %G%";
	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
	14	next = _fchain.fchain;
	15	while(next != FILNIL) {
	16	if ((next->funit & (FDEF \| FREAD)) == 0) {
	17	fflush(next->fbuf);
	18	}
	19	next = next->fchain;
	20	}
	21	}