77 	    ficlFILE *ff = (ficlFILE *)malloc(sizeof(ficlFILE));  in ficlFopen()  local
78 	    strcpy(ff->filename, filename);  in ficlFopen()
79 	    ff->f = f;  in ficlFopen()
80 	    stackPushPtr(pVM->pStack, ff);  in ficlFopen()
101 static int closeFiclFILE(ficlFILE *ff) /* ( fileid -- ior ) */  in closeFiclFILE()  argument
103     FILE *f = ff->f;  in closeFiclFILE()
104     free(ff);  in closeFiclFILE()
110     ficlFILE *ff = (ficlFILE *)stackPopPtr(pVM->pStack);  in ficlCloseFile()  local
111     pushIor(pVM, closeFiclFILE(ff));  in ficlCloseFile()
180     ficlFILE *ff = (ficlFILE *)stackPopPtr(pVM->pStack);  in ficlFilePosition()  local
181     long ud = ftell(ff->f);  in ficlFilePosition()
201     ficlFILE *ff = (ficlFILE *)stackPopPtr(pVM->pStack);  in ficlFileSize()  local
202     long ud = fileSize(ff->f);  in ficlFileSize()
212     ficlFILE *ff = (ficlFILE *)stackPopPtr(pVM->pStack);  in ficlIncludeFile()  local
217     pVM->sourceID.p = (void *)ff;  in ficlIncludeFile()
219     currentPosition = ftell(ff->f);  in ficlIncludeFile()
220     totalSize = fileSize(ff->f);  in ficlIncludeFile()
226         long got = fread(buffer, 1, size, ff->f);  in ficlIncludeFile()
232     ficlFILE *ff = (ficlFILE *)stackPopPtr(pVM->pStack);  in ficlIncludeFile()
238     pVM->sourceID.p = (void *)ff;  in ficlIncludeFile()
242     while (keepGoing && fgets(cp, nLINEBUF, ff->f))  in ficlIncludeFile()
276     closeFiclFILE(ff);  in ficlIncludeFile()
283     ficlFILE *ff = (ficlFILE *)stackPopPtr(pVM->pStack);  in ficlReadFile()  local
288     clearerr(ff->f);  in ficlReadFile()
289     result = fread(address, 1, length, ff->f);  in ficlReadFile()
292     pushIor(pVM, ferror(ff->f) == 0);  in ficlReadFile()
299     ficlFILE *ff = (ficlFILE *)stackPopPtr(pVM->pStack);  in ficlReadLine()  local
305     if (feof(ff->f))  in ficlReadLine()
313     clearerr(ff->f);  in ficlReadLine()
315     fgets(address, length, ff->f);  in ficlReadLine()
317     error = ferror(ff->f);  in ficlReadLine()
340     ficlFILE *ff = (ficlFILE *)stackPopPtr(pVM->pStack);  in ficlWriteFile()  local
344     clearerr(ff->f);  in ficlWriteFile()
345     fwrite(address, 1, length, ff->f);  in ficlWriteFile()
346     pushIor(pVM, ferror(ff->f) == 0);  in ficlWriteFile()
353     ficlFILE *ff = (ficlFILE *)stackPopPtr(pVM->pStack);  in ficlWriteLine()  local
357     clearerr(ff->f);  in ficlWriteLine()
358     if (fwrite(address, 1, length, ff->f) == length)  in ficlWriteLine()
359         fwrite("\n", 1, 1, ff->f);  in ficlWriteLine()
360     pushIor(pVM, ferror(ff->f) == 0);  in ficlWriteLine()
367     ficlFILE *ff = (ficlFILE *)stackPopPtr(pVM->pStack);  in ficlRepositionFile()  local
370     pushIor(pVM, fseek(ff->f, ud, SEEK_SET) == 0);  in ficlRepositionFile()
377     ficlFILE *ff = (ficlFILE *)stackPopPtr(pVM->pStack);  in ficlFlushFile()  local
378     pushIor(pVM, fflush(ff->f) == 0);  in ficlFlushFile()
387     ficlFILE *ff = (ficlFILE *)stackPopPtr(pVM->pStack);  in ficlResizeFile()  local
390     pushIor(pVM, ftruncate(fileno(ff->f), ud) == 0);  in ficlResizeFile()