30 	FILE *f;  in ficlFileOpen()  local
56 	f = fopen(filename, mode);  in ficlFileOpen()
57 	if (f == NULL)  in ficlFileOpen()
62 		ff->f = f;  in ficlFileOpen()
65 		fseek(f, 0, SEEK_SET);  in ficlFileOpen()
67 	pushIor(vm, f != NULL);  in ficlFileOpen()
91 	FILE *f = ff->f;  in ficlFileClose()  local
93 	return (!fclose(f));  in ficlFileClose()
173 	long ud = ftell(ff->f);  in ficlPrimitiveFilePosition()
201 	currentPosition = ftell(ff->f);  in ficlPrimitiveIncludeFile()
207 		long got = fread(buffer, 1, size, ff->f);  in ficlPrimitiveIncludeFile()
239 	clearerr(ff->f);  in ficlPrimitiveReadFile()
240 	result = fread(address, 1, length, ff->f);  in ficlPrimitiveReadFile()
243 	pushIor(vm, ferror(ff->f) == 0);  in ficlPrimitiveReadFile()
256 	if (feof(ff->f)) {  in ficlPrimitiveReadLine()
263 	clearerr(ff->f);  in ficlPrimitiveReadLine()
265 	fgets(address, length, ff->f);  in ficlPrimitiveReadLine()
267 	error = ferror(ff->f);  in ficlPrimitiveReadLine()
294 	clearerr(ff->f);  in ficlPrimitiveWriteFile()
295 	fwrite(address, 1, length, ff->f);  in ficlPrimitiveWriteFile()
296 	pushIor(vm, ferror(ff->f) == 0);  in ficlPrimitiveWriteFile()
307 	clearerr(ff->f);  in ficlPrimitiveWriteLine()
308 	if (fwrite(address, 1, length, ff->f) == length)  in ficlPrimitiveWriteLine()
309 		fwrite("\n", 1, 1, ff->f);  in ficlPrimitiveWriteLine()
310 	pushIor(vm, ferror(ff->f) == 0);  in ficlPrimitiveWriteLine()
320 	pushIor(vm, fseek(ff->f, ud, SEEK_SET) == 0);  in ficlPrimitiveRepositionFile()
328 	pushIor(vm, fflush(ff->f) == 0);  in ficlPrimitiveFlushFile()