xref: /csrg-svn/usr.bin/pascal/libpc/FLUSH.c (revision 1651)
1*1651Smckusick /* Copyright (c) 1979 Regents of the University of California */
2*1651Smckusick 
3*1651Smckusick static char sccsid[] = "@(#)FLUSH.c 1.1 10/30/80";
4*1651Smckusick 
5*1651Smckusick #include "h00vars.h"
6*1651Smckusick #include "h01errs.h"
7*1651Smckusick 
8*1651Smckusick FLUSH(curfile)
9*1651Smckusick 
10*1651Smckusick 	register struct iorec	*curfile;
11*1651Smckusick {
12*1651Smckusick 	if (curfile->fblk >= MAXFILES || _actfile[curfile->fblk] != curfile) {
13*1651Smckusick 		ERROR(ENOFILE, 0);
14*1651Smckusick 		return;
15*1651Smckusick 	}
16*1651Smckusick 	if (curfile->funit & FWRITE) {
17*1651Smckusick 		fflush(curfile->fbuf);
18*1651Smckusick 	}
19*1651Smckusick }
20