Add original unix v6

source/iolib/cflush.c

@@ -0,0 +1,19 @@
+# include "ciodec.c"
+cflush (fn)
+int fn;
+{
+struct fileps *fp;
+if (nargs() != 1)
+	IEHzap("cflush");
+if (fn < 0 || fn >15) return;
+fp = &IEH3fpts[fn];
+if (fp->nchars > 0 && fp->wrflag >= 2)
+	{
+	write (fn, fp->buff,fp->nchars);
+	fp->bptr = fp->buff;
+	fp -> nchars = fp->eoferr = 0;
+	}
+if (fp->wrflag == 1)
+	seek(fn, -(fp->nchars),1);
+return;
+}