wu.c File Reference

#include <errno.h>
#include <liberrno.h>
#include <fortran.h>
#include "fio.h"

Include dependency graph for wu.c:

Go to the source code of this file.

Defines
#define	ERROR0(cond, n)
#define	ERROR1(cond, n, p)
Functions
int	_WUF ()
int	_WUI (_fcd funit, _fcd _arg2, long *err, long *_arg4, _f_int *iostat, _f_int *rec, FIOSPTR cssa)
int	_WUF (FIOSPTR cssa)

---

Define Documentation

#define ERROR0	(		cond,
			n
	)

Value:

{       \
        if (!(cond))            \
                _ferr(css, (n));\
        else                    \
                goto error;     \
}

Definition at line 60 of file wu.c.

Referenced by _WUI().

#define ERROR1	(		cond,
			n,
			p
	)

Value:

{       \
        if (!(cond))            \
                _ferr(css, (n), p);\
        else                    \
                goto error;     \
}

Definition at line 67 of file wu.c.

Referenced by _WUI().

---

Function Documentation

int _WUF

(

)

Referenced by _WUI().

int _WUF

(

FIOSPTR

cssa

)

Definition at line 392 of file wu.c.

References __tip_null, _ferr(), _fwwd, _UERRC, _UERRF, _UIOSTF, CFT77_RETVAL, errno, error(), fiostate::f_cu, FP::fdc, FEINTUNK, free(), FS_FDC, FULL, GET_FIOS_PTR, IO_ERR, IO_OKAY, IOERR, NULL, ret, FP::std, STD, STMT_END, TF_WRITE, unit_s::ublkd, unit_s::udalast, unit_s::udamax, unit_s::uflag, unit_s::ufp, unit_s::ufs, unit_s::uiostat, unit_s::ulrecl, unit_s::urecl, unit_s::urecpos, unit_s::useq, and zero.

Here is the call graph for this function:

int _WUI	(	_fcd	funit,
		_fcd	_arg2,
		long *	err,
		long *	_arg4,
		_f_int *	iostat,
		_f_int *	rec,
		FIOSPTR	cssa
	)

Definition at line 100 of file wu.c.

References _ferr(), _imp_open77(), _UERRF, _UIOSTF, _unit_seek(), _WUF(), CFT77_RETVAL, cup, DIR, error(), ERROR0, ERROR1, fiostate::f_iostmt, FP::fdc, FEIOACTV, FS_AUX, GET_FIOS_PTR, IO_OKAY, NULL, OS_WRITE, stat, STMT_BEGIN, ffsw::sw_error, unit_s::uaction, unit_s::udalast, unit_s::udamax, unit_s::uend, unit_s::uflag, unit_s::ufmt, unit_s::ufp, unit_s::ufs, unit_s::uiostat, unit_s::ulastyp, unit_s::umultfil, UNF, unit_s::useq, unit_s::uspcproc, and unit_s::uwrt.

Here is the call graph for this function: