# 2.11BSD#431 - /usr/src/usr.lib/libI77/endfile.c

##### Functions

    f_end             X

       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

- in line 28-36(3)

Last modified: 1987-02-18 Generated: 2016-12-26 | Generated by src2html V0.67 page hit count: 463 |