[unix-history] / usr / src / libI77 / iio.c

#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");
}
Commit	Line	Data
afd81942 TL	1	#include "fio.h"
	2	#include "fmt.h"
	3	char icptr,icend;
	4	icilist *svic;
	5	extern int rd_ed(),rd_ned(),w_ed(),w_ned(),y_err();
	6	extern int z_wnew();
	7	int icnum,icpos;
	8	z_getc()
	9	{
	10	if(icptr >= icend) err(svic->iciend,(EOF),"endfile");
	11	if(icpos++ < svic->icirlen)
	12	return(*icptr++);
	13	else err(svic->icierr,110,"recend");
	14	}
	15	z_putc(c)
	16	{
	17	if(icptr >= icend) err(svic->icierr,110,"inwrite");
	18	if(icpos++ < svic->icirlen)
	19	*icptr++ = c;
	20	else err(svic->icierr,110,"recend");
	21	return(0);
	22	}
	23	z_rnew()
	24	{
	25	icptr = svic->iciunit + (++icnum)*svic->icirlen;
	26	icpos = 0;
	27	}
	28	s_rsfi(a) icilist *a;
	29	{ int n;
	30	if(n=c_si(a)) return(n);
	31	reading=1;
	32	doed=rd_ed;
	33	doned=rd_ned;
	34	getn=z_getc;
	35	dorevert = donewrec = y_err;
	36	doend = z_rnew;
	37	return(0);
	38	}
	39	s_wsfi(a) icilist *a;
	40	{ int n;
	41	if(n=c_si(a)) return(n);
	42	reading=0;
	43	doed=w_ed;
	44	doned=w_ned;
	45	putn=z_putc;
	46	dorevert = donewrec = y_err;
	47	doend = z_wnew;
	48	return(0);
	49	}
	50	c_si(a) icilist *a;
	51	{
	52	fmtbuf=a->icifmt;
	53	if(pars_f(fmtbuf)<0)
	54	err(a->icierr,100,"startint");
	55	fmt_bg();
	56	sequential=formatted=1;
	57	external=0;
	58	cblank=cplus=scale=0;
	59	svic=a;
	60	icnum=icpos=0;
	61	icptr=svic->iciunit;
	62	icend=icptr+svic->icirlen*svic->icirnum;
	63	return(0);
	64	}
65	z_wnew()
66	{
67	while(icpos++ < svic->icirlen)
68	*icptr++ = ' ';
69	icpos = 0;
70	icnum++;
71	}
72	e_rsfi()
73	{ int n;
74	n = en_fio();
75	fmtbuf = NULL;
76	return(n);
77	}
78	e_wsfi()
79	{
80	int n;
81	n = en_fio();
82	fmtbuf = NULL;
83	while(icpos++ < svic->icirlen)
84	*icptr++ = ' ';
85	return(n);
86	}
87	y_err()
88	{
89	err(elist->cierr, 110, "iio");
90	}