date and time created 80/10/30 00:34:24 by mckusick

SCCS-vsn: usr.bin/pascal/libpc/PFLUSH.c 1.1

diff --git a/usr/src/usr.bin/pascal/libpc/PFLUSH.c b/usr/src/usr.bin/pascal/libpc/PFLUSH.c
new file mode 100644 (file)
index 0000000..530db24
--- /dev/null
+++ b/usr/src/usr.bin/pascal/libpc/PFLUSH.c
@@ -0,0 +1,21 @@
+/* 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;
+       }
+}