BSD 3 development

Work on file usr/src/new/libI77uc/dolio.c

Synthesized-from: 3bsd

diff --git a/usr/src/new/libI77uc/dolio.c b/usr/src/new/libI77uc/dolio.c
new file mode 100644 (file)
index 0000000..24b27d8
--- /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));
+}