ru.c File Reference

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

Include dependency graph for ru.c:

Go to the source code of this file.

Defines
#define	ERROR0(cond, n)
#define	ERROR1(cond, n, p)
Functions
int	_RUF ()
int	_RUI (_fcd _Unitid, _fcd _arg2, long *err, long *end, _f_int *iostat, _f_int *rec, FIOSPTR cssa)
int	_RUF (FIOSPTR cssa)

---

Define Documentation

#define ERROR0	(		cond,
			n
	)

Value:

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

Definition at line 55 of file ru.c.

Referenced by _FRN(), _FWN(), _rnl90to77(), _RUI(), and _wnl90to77().

#define ERROR1	(		cond,
			n,
			p
	)

Value:

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

Definition at line 62 of file ru.c.

Referenced by _FRN(), _rnl90to77(), and _RUI().

---

Function Documentation

int _RUF

(

)

Referenced by _RUI().

int _RUF

(

FIOSPTR

cssa

)

Definition at line 369 of file ru.c.

References _ferr(), _UENDC, _UENDF, _UERRC, _UERRF, _UIOSTF, CFT77_RETVAL, cup, dummy, fiostate::f_cu, fiostate::f_shrdput, FP::fdc, FEINTUNK, FERDENDR, FERDPEOF, FFEOD, FFEOF, FFERR, FS_FDC, FULL, GET_FIOS_PTR, IO_END, IO_ERR, IO_OKAY, NULL, STMT_END, ffsw::sw_error, ffsw::sw_stat, TF_READ, unit_s::ublkd, unit_s::uend, unit_s::ueor_found, unit_s::uflag, unit_s::ufp, unit_s::ufs, unit_s::uiostat, unit_s::ulrecl, unit_s::urecpos, and unit_s::useq.

Here is the call graph for this function:

int _RUI	(	_fcd	_Unitid,
		_fcd	_arg2,
		long *	err,
		long *	end,
		_f_int *	iostat,
		_f_int *	rec,
		FIOSPTR	cssa
	)

Definition at line 95 of file ru.c.

References _ferr(), _imp_open77(), _RUF(), _UENDC, _UENDF, _UERRC, _UERRF, _UIOSTF, _unit_seek(), CFT77_RETVAL, cup, DIR, error(), ERROR0, ERROR1, fiostate::f_iostmt, FEDIRTIV, FEIOACTV, FEMIXAUX, FEMIXBUF, FENOREAD, FERDAFWR, FESEQTIV, FEUNFMIV, FS_AUX, GET_FIOS_PTR, IO_OKAY, NO, NULL, OS_READ, SEQ, stat, STMT_BEGIN, T_RDU, T_RSU, unit_s::uaction, unit_s::ueor_found, unit_s::uflag, unit_s::ufmt, unit_s::ufs, unit_s::uiostat, unit_s::ulastyp, UNF, unit_s::useq, and unit_s::uwrt.

Here is the call graph for this function: