iio.c File Reference

#include "f2c.h"
#include "fio.h"
#include "fmt.h"

Include dependency graph for iio.c:

Go to the source code of this file.

Functions
int	z_getc (Void)
void	z_putc (int c)
int	z_rnew (Void)
static int	z_endp (Void)
int	c_si (icilist *a)
int	iw_rev (Void)
integer	s_rsfi (icilist *a)
int	z_wnew (Void)
integer	s_wsfi (icilist *a)
integer	e_rsfi (Void)
integer	e_wsfi (Void)
Variables
char *	f__icptr
char *	f__icend
icilist *	f__svic
int	f__icnum

---

Function Documentation

int c_si

(

icilist *

a

)

Definition at line 54 of file iio.c.

References a, err, f__cblank, f__cf, f__cplus, f__cursor, f__curunit, f__elist, f__external, f__fmtbuf, f__formatted, f__hiwater, f__recpos, f__scale, f__sequential, f__svic, fmt_bg(), and pars_f().

Referenced by s_rsfi(), and s_wsfi().

{
        f__elist = (cilist *)a;
        f__fmtbuf=a->icifmt;
        f__curunit = 0;
        f__sequential=f__formatted=1;
        f__external=0;
        if(pars_f(f__fmtbuf)<0)
                err(a->icierr,100,"startint");
        fmt_bg();
        f__cblank=f__cplus=f__scale=0;
        f__svic=a;
        f__icnum=f__recpos=0;
        f__cursor = 0;
        f__hiwater = 0;
        f__icptr = a->iciunit;
        f__icend = f__icptr + a->icirlen*a->icirnum;
        f__cf = 0;
        return(0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

integer e_rsfi

(

Void

)

Definition at line 133 of file iio.c.

References en_fio(), f__fmtbuf, n, and NULL.

{       int n = en_fio();
        f__fmtbuf = NULL;
        return(n);
}

Here is the call graph for this function:

integer e_wsfi

(

Void

)

Definition at line 138 of file iio.c.

References en_fio(), err, f__fmtbuf, f__hiwater, f__recpos, f__svic, icilist::icierr, icilist::icirlen, icilist::icirnum, n, and NULL.

{
        int n;
        n = en_fio();
        f__fmtbuf = NULL;
        if(f__svic->icirnum != 1
         && (f__icnum >  f__svic->icirnum
         || (f__icnum == f__svic->icirnum && (f__recpos | f__hiwater))))
                err(f__svic->icierr,110,"inwrite");
        if (f__recpos < f__hiwater)
                f__recpos = f__hiwater;
        if (f__recpos >= f__svic->icirlen)
                err(f__svic->icierr,110,"recend");
        if (!f__recpos && f__icnum)
                return n;
        while(f__recpos++ < f__svic->icirlen)
                *f__icptr++ = ' ';
        return n;
}

Here is the call graph for this function:

int iw_rev

(

Void

)

Definition at line 77 of file iio.c.

References f__cursor, f__hiwater, f__recpos, f__workdone, and z_endp().

Referenced by s_wsfi().

{
        if(f__workdone)
                z_endp();
        f__hiwater = f__recpos = f__cursor = 0;
        return(f__workdone=0);
        }

Here is the call graph for this function:

Here is the caller graph for this function:

integer s_rsfi

(

icilist *

a

)

Definition at line 88 of file iio.c.

References a, c_si(), f__doed, f__doend, f__doned, f__donewrec, f__dorevert, f__getn, f__reading, n, rd_ed(), rd_ned(), z_endp(), z_getc(), and z_rnew().

{       int n;
        if(n=c_si(a)) return(n);
        f__reading=1;
        f__doed=rd_ed;
        f__doned=rd_ned;
        f__getn=z_getc;
        f__dorevert = z_endp;
        f__donewrec = z_rnew;
        f__doend = z_endp;
        return(0);
}

Here is the call graph for this function:

integer s_wsfi

(

icilist *

a

)

Definition at line 120 of file iio.c.

References a, c_si(), f__doed, f__doend, f__doned, f__donewrec, f__dorevert, f__putn, f__reading, iw_rev(), n, w_ed(), w_ned(), z_endp(), z_putc(), and z_wnew().

{       int n;
        if(n=c_si(a)) return(n);
        f__reading=0;
        f__doed=w_ed;
        f__doned=w_ned;
        f__putn=z_putc;
        f__dorevert = iw_rev;
        f__donewrec = z_wnew;
        f__doend = z_endp;
        return(0);
}

Here is the call graph for this function:

static int z_endp

(

Void

)

[static]

Definition at line 44 of file iio.c.

Referenced by iw_rev(), s_rsfi(), and s_wsfi().

{
        (*f__donewrec)();
        return 0;
        }

Here is the caller graph for this function:

int z_getc

(

Void

)

Definition at line 13 of file iio.c.

References err, f__recpos, f__svic, icilist::iciend, and icilist::icirlen.

Referenced by s_rsfi().

{
        if(f__recpos++ < f__svic->icirlen) {
                if(f__icptr >= f__icend) err(f__svic->iciend,(EOF),"endfile");
                return(*(unsigned char *)f__icptr++);
                }
        return '\n';
}

Here is the caller graph for this function:

void z_putc

(

int

c

)

Definition at line 26 of file iio.c.

References f__recpos, f__svic, and icilist::icirlen.

Referenced by c_liw(), s_wsfi(), and z_wSL().

{
        if (f__icptr < f__icend && f__recpos++ < f__svic->icirlen)
                *f__icptr++ = c;
}

Here is the caller graph for this function:

int z_rnew

(

Void

)

Definition at line 34 of file iio.c.

References f__cursor, f__hiwater, f__recpos, f__svic, icilist::icirlen, and icilist::iciunit.

{
        f__icptr = f__svic->iciunit + (++f__icnum)*f__svic->icirlen;
        f__recpos = 0;
        f__cursor = 0;
        f__hiwater = 0;
        return 1;
}

int z_wnew

(

Void

)

Definition at line 103 of file iio.c.

References f__cursor, f__hiwater, f__recpos, f__svic, and icilist::icirlen.

Referenced by s_wsfi().

{
        if (f__recpos < f__hiwater) {
                f__icptr += f__hiwater - f__recpos;
                f__recpos = f__hiwater;
                }
        while(f__recpos++ < f__svic->icirlen)
                *f__icptr++ = ' ';
        f__recpos = 0;
        f__cursor = 0;
        f__hiwater = 0;
        f__icnum++;
        return 1;
}

Here is the caller graph for this function:

---

Variable Documentation

char* f__icend

Definition at line 8 of file iio.c.

int f__icnum

Definition at line 10 of file iio.c.

char* f__icptr

Definition at line 47 of file err.c.

icilist* f__svic

Definition at line 24 of file err.c.

---