11652Smckusick /* Copyright (c) 1979 Regents of the University of California */ 21652Smckusick 3*3867Smckusic static char sccsid[] = "@(#)FNIL.c 1.3 06/10/81"; 41652Smckusick 51652Smckusick #include "h00vars.h" 61652Smckusick 71652Smckusick char * 81652Smckusick FNIL(curfile) 91652Smckusick 101652Smckusick register struct iorec *curfile; 111652Smckusick { 121652Smckusick if (curfile->fblk >= MAXFILES || _actfile[curfile->fblk] != curfile) { 13*3867Smckusic ERROR("Reference to an inactive file\n", 0); 141652Smckusick return; 151652Smckusick } 161652Smckusick if (curfile->funit & FDEF) { 17*3867Smckusic ERROR("%s: Reference to an inactive file\n", curfile->pfname); 181652Smckusick return; 191652Smckusick } 201652Smckusick if (curfile->funit & FREAD) { 211652Smckusick IOSYNC(curfile); 221652Smckusick } 231652Smckusick return curfile->fileptr; 241652Smckusick } 25