ilnw.c File Reference

#include "f2c.h"
#include "fio.h"
#include "lio.h"

Include dependency graph for ilnw.c:

Go to the source code of this file.

Functions
void	z_putc (int)
static int	z_wSL (Void)
static void	c_liw (icilist *a)
integer	s_wsni (icilist *a)
integer	s_wsli (icilist *a)
integer	e_wsli (Void)
Variables
char *	f__icptr
char *	f__icend
icilist *	f__svic
int	f__icnum

---

Function Documentation

static void c_liw

(

icilist *

a

)

[static]

Definition at line 29 of file ilnw.c.

References a, f__cf, f__cursor, f__curunit, f__donewrec, f__elist, f__external, f__formatted, f__putn, f__reading, f__recpos, f__svic, L_len, z_putc(), and z_wSL().

Referenced by s_wsli(), and s_wsni().

{
        f__reading = 0;
        f__external = 0;
        f__formatted = 1;
        f__putn = z_putc;
        L_len = a->icirlen;
        f__donewrec = z_wSL;
        f__svic = a;
        f__icnum = f__recpos = 0;
        f__cursor = 0;
        f__cf = 0;
        f__curunit = 0;
        f__icptr = a->iciunit;
        f__icend = f__icptr + a->icirlen*a->icirnum;
        f__elist = (cilist *)a;
        }

Here is the call graph for this function:

Here is the caller graph for this function:

integer e_wsli

(

Void

)

Definition at line 76 of file ilnw.c.

References z_wSL().

{
        z_wSL();
        return(0);
        }

Here is the call graph for this function:

integer s_wsli

(

icilist *

a

)

Definition at line 68 of file ilnw.c.

References a, c_liw(), f__lioproc, and l_write().

{
        f__lioproc = l_write;
        c_liw(a);
        return(0);
        }

Here is the call graph for this function:

integer s_wsni

(

icilist *

a

)

Definition at line 52 of file ilnw.c.

References a, c_liw(), cilist::cifmt, x_wsne(), and z_wSL().

{
        cilist ca;

        c_liw(a);
        ca.cifmt = a->icifmt;
        x_wsne(&ca);
        z_wSL();
        return 0;
        }

Here is the call graph for this function:

void z_putc

(

int

)

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:

static int z_wSL

(

Void

)

[static]

Definition at line 18 of file ilnw.c.

References z_putc(), and z_rnew().

Referenced by c_liw(), e_wsli(), and s_wsni().

{
        while(f__recpos < f__svic->icirlen)
                z_putc(' ');
        return z_rnew();
        }

Here is the call graph for this function:

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.

---