1 /* Copyright (c) 1979 Regents of the University of California */ 2 3 static char sccsid[] = "@(#)PFLUSH.c 1.1 10/30/80"; 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 } 22