1: /*
   2:  * Copyright (c) 1980 Regents of the University of California.
   3:  * All rights reserved.  The Berkeley software License Agreement
   4:  * specifies the terms and conditions for redistribution.
   5:  *
   6:  *	@(#)endfile.c	5.2	7/30/85
   7:  */
   8: 
   9: /*
  10:  * endfile
  11:  */
  12: 
  13: #include "fio.h"
  14: 
  15: static char endf[]  = "endfile";
  16: 
  17: f_end (a)
  18: alist   *a;
  19: {
  20:     unit    *b;
  21:     int n;
  22: 
  23:     lfname = NULL;
  24:     elist = NO;
  25:     errflag = a->aerr;
  26:     lunit = a->aunit;
  27:     if (not_legal(lunit))
  28:         err (errflag, F_ERUNIT, endf)
  29:     b = &units[lunit];
  30:     if(!b->ufd && (n = fk_open(READ, SEQ, FMT, (ftnint)lunit)) )
  31:         err(errflag, n, endf);
  32:     if (b->uend)
  33:         return(0);
  34:     lfname = b->ufnm;
  35:     b->uend = YES;
  36:     return ( t_runc (b, errflag, endf) );
  37: }

Defined functions

f_end defined in line 17; never used

Defined variables

endf defined in line 15; used 3 times
Last modified: 1987-02-18
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 590
Valid CSS Valid XHTML 1.0 Strict