1: /* Copyright (c) 1979 Regents of the University of California */
   2: 
   3: static char sccsid[] = "@(#)UNIT.c 1.2 6/10/81";
   4: 
   5: #include "h00vars.h"
   6: 
   7: struct iorec *
   8: UNIT(curfile)
   9: 
  10:     register struct iorec   *curfile;
  11: {
  12:     if (curfile->fblk >= MAXFILES || _actfile[curfile->fblk] != curfile) {
  13:         ERROR("Reference to an inactive file\n", 0);
  14:         return;
  15:     }
  16:     if (curfile->funit & FDEF) {
  17:         ERROR("%s: Reference to an inactive file\n", curfile->pfname);
  18:         return;
  19:     }
  20:     return curfile;
  21: }

Defined functions

UNIT defined in line 7; used 2 times

Defined variables

sccsid defined in line 3; never used
Last modified: 1983-02-01
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 772
Valid CSS Valid XHTML 1.0 Strict