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

##### Functions

    c_le              X
    do_lio            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:  *	@(#)dolio.c	5.2	7/30/85
       7:  */
       8:
       9: /*
      10:  * list directed and namelist i/o common routines
      11:  */
      12:
      13: #include "fio.h"
      14: #include "lio.h"
      15:
      16:
      17: c_le(a,flag) cilist *a;
      18: {   int n;
      19:     lfname = NULL;
      20:     elist = NO;
      21:     sequential=external=YES;
      22:     errflag = a->cierr;
      23:     endflag = a->ciend;
      24:     lunit = a->ciunit;
      25:     if(not_legal(lunit)) err(errflag,F_ERUNIT,fmtbuf)
      26:     curunit = &units[lunit];
      27:     if(!curunit->ufd && (n=fk_open(flag,SEQ,FMT,(ftnint)lunit)))
      28:         err(errflag,n,fmtbuf)
      29:     cf = curunit->ufd;
      30:     elist = YES;
      31:     lfname = curunit->ufnm;
      32:     scale=recpos=cursor=0;
      33:     cplus=cblank=NO;
      34:     if(!curunit->ufmt) err(errflag,F_ERNOFIO,fmtbuf)
      35:     if(curunit->url) err(errflag,F_ERNOSIO,fmtbuf)
      36:     return(OK);
      37: }
      38:
      39: do_lio(type,number,ptr,len) ftnint *number,*type; flex *ptr; ftnlen len;
      40: {
      41:     return((*lioproc)(number,ptr,len,*type));
      42: }

#### Defined functions

c_le defined in line 17; used 4 times

- in /usr/src/usr.lib/libI77/lread.c line 55
- in /usr/src/usr.lib/libI77/lwrite.c line 25
- in /usr/src/usr.lib/libI77/rsnmle.c line 71
- in /usr/src/usr.lib/libI77/wsnmle.c line 33

do_lio defined in line 39; never used

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