From b1553f52dc2a1b2218f20a00785d81ab7c2e10ff Mon Sep 17 00:00:00 2001 From: David Wasley Date: Thu, 14 Feb 1980 01:15:36 -0800 Subject: [PATCH] BSD 3 development Work on file usr/src/new/libI77uc/dolio.c Synthesized-from: 3bsd --- usr/src/new/libI77uc/dolio.c | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 usr/src/new/libI77uc/dolio.c diff --git a/usr/src/new/libI77uc/dolio.c b/usr/src/new/libI77uc/dolio.c new file mode 100644 index 0000000000..24b27d80e6 --- /dev/null +++ b/usr/src/new/libI77uc/dolio.c @@ -0,0 +1,35 @@ +/* + * list directed i/o common routines + */ + +#include "fio.h" +#include "lio.h" + + +c_le(a,flag) cilist *a; +{ int n; + lfname = NULL; + elist = NO; + sequential=external=formatted= LISTDIRECTED; + fmtbuf = "ext list io"; + errflag = a->cierr; + endflag = a->ciend; + lunit = a->ciunit; + if(not_legal(lunit)) err(errflag,101,fmtbuf) + curunit = &units[lunit]; + if(!curunit->ufd && (n=fk_open(flag,SEQ,FMT,lunit))) + err(errflag,n,fmtbuf) + cf = curunit->ufd; + elist = YES; + lfname = curunit->ufnm; + scale=recpos=cursor=0; + cplus=cblank=NO; + if(!curunit->ufmt) err(errflag,102,fmtbuf) + if(curunit->url) err(errflag,105,fmtbuf) + return(OK); +} + +do_lio(type,number,ptr,len) ftnint *number,*type; flex *ptr; ftnlen len; +{ + return((*lioproc)(number,ptr,len,*type)); +} -- 2.20.1