20 lines
341 B
C
20 lines
341 B
C
# 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;
|
|
}
|