From afd819424fb1caac94c49c5c50a6d4ac3bd07d05 Mon Sep 17 00:00:00 2001
From: Tom London <tbl@research.uucp>
Date: Fri, 19 Jan 1979 01:01:31 -0500
Subject: [PATCH] Bell 32V development Work on file usr/src/libI77/iio.c

Co-Authored-By: John Reiser <jfr@research.uucp>
Synthesized-from: 32v
---
 usr/src/libI77/iio.c | 90 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 90 insertions(+)
 create mode 100644 usr/src/libI77/iio.c

diff --git a/usr/src/libI77/iio.c b/usr/src/libI77/iio.c
new file mode 100644
index 0000000000..5e93b1638b
--- /dev/null
+++ b/usr/src/libI77/iio.c
@@ -0,0 +1,90 @@
+#include "fio.h"
+#include "fmt.h"
+char *icptr,*icend;
+icilist *svic;
+extern int rd_ed(),rd_ned(),w_ed(),w_ned(),y_err();
+extern int z_wnew();
+int icnum,icpos;
+z_getc()
+{
+	if(icptr >= icend) err(svic->iciend,(EOF),"endfile");
+	if(icpos++ < svic->icirlen)
+		return(*icptr++);
+	else	err(svic->icierr,110,"recend");
+}
+z_putc(c)
+{
+	if(icptr >= icend) err(svic->icierr,110,"inwrite");
+	if(icpos++ < svic->icirlen)
+		*icptr++ = c;
+	else	err(svic->icierr,110,"recend");
+	return(0);
+}
+z_rnew()
+{
+	icptr = svic->iciunit + (++icnum)*svic->icirlen;
+	icpos = 0;
+}
+s_rsfi(a) icilist *a;
+{	int n;
+	if(n=c_si(a)) return(n);
+	reading=1;
+	doed=rd_ed;
+	doned=rd_ned;
+	getn=z_getc;
+	dorevert = donewrec = y_err;
+	doend = z_rnew;
+	return(0);
+}
+s_wsfi(a) icilist *a;
+{	int n;
+	if(n=c_si(a)) return(n);
+	reading=0;
+	doed=w_ed;
+	doned=w_ned;
+	putn=z_putc;
+	dorevert = donewrec = y_err;
+	doend = z_wnew;
+	return(0);
+}
+c_si(a) icilist *a;
+{
+	fmtbuf=a->icifmt;
+	if(pars_f(fmtbuf)<0)
+		err(a->icierr,100,"startint");
+	fmt_bg();
+	sequential=formatted=1;
+	external=0;
+	cblank=cplus=scale=0;
+	svic=a;
+	icnum=icpos=0;
+	icptr=svic->iciunit;
+	icend=icptr+svic->icirlen*svic->icirnum;
+	return(0);
+}
+z_wnew()
+{
+	while(icpos++ < svic->icirlen)
+		*icptr++ = ' ';
+	icpos = 0;
+	icnum++;
+}
+e_rsfi()
+{	int n;
+	n = en_fio();
+	fmtbuf = NULL;
+	return(n);
+}
+e_wsfi()
+{
+	int n;
+	n = en_fio();
+	fmtbuf = NULL;
+	while(icpos++ < svic->icirlen)
+		*icptr++ = ' ';
+	return(n);
+}
+y_err()
+{
+	err(elist->cierr, 110, "iio");
+}
-- 
2.20.1