f90io.h File Reference

#include <stdlib.h>
#include <string.h>
#include <cray/dopevec.h>

Include dependency graph for f90io.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Classes
union	gfptr_t
struct	open_spec_list
struct	inquire_spec_list
struct	close_spec_list
struct	bio_spec_list
struct	ControlList
struct	iolist_header
struct	ioentry_header
struct	ioscalar_entry
struct	ioarray_entry
struct	ioimplieddo_entry
Defines
#define	IO_OKAY   0 /* Normal completion */
#define	IO_ERR   1 /* Error status */
#define	IO_END   2 /* End status */
#define	IO_EOR   3 /* End of record status */
#define	CILIST_VERSION   1 /* cilist version number */
#define	IOLIST_VERSION   1 /* current iolist version number */
Typedefs
typedef struct ControlList	ControlListType
typedef enum valtype_spec	entrycode_t
Functions
static int	_is_nonadv (ControlListType *cilist)
static int	setup_format (struct fiostate *css, unit *cup, ControlListType *cilist)
int	_FRF (ControlListType *cilist, iolist_header *iolist, void *stck)
int	_FWF (ControlListType *cilist, iolist_header *iolist, void *stck)
int	_FRU (ControlListType *cilist, iolist_header *iolist, void *stck)
int	_FWU (ControlListType *cilist, iolist_header *iolist, void *stck)
int	_OPEN (struct open_spec_list *osl)
int	_CLOSE (struct close_spec_list *csl)
int	_INQUIRE (struct inquire_spec_list *isl)
void	_BUFFERIN (struct bio_spec_list *bisl)
void	_BUFFEROUT (struct bio_spec_list *bosl)

---

Define Documentation

#define CILIST_VERSION   1 /* cilist version number */

Definition at line 217 of file f90io.h.

#define IO_END   2 /* End status */

Definition at line 72 of file f90io.h.

Referenced by _FRF(), _FRN(), _FRU(), and _RUF().

#define IO_EOR   3 /* End of record status */

Definition at line 73 of file f90io.h.

Referenced by _FRF().

#define IO_ERR   1 /* Error status */

Definition at line 71 of file f90io.h.

Referenced by $DFI(), $EFI(), __OPN(), _BACK(), _CLS(), _EOFW(), _FRF(), _FRN(), _FRU(), _FWF(), _FWN(), _FWU(), _INQ(), _REWF(), _RUF(), and _WUF().

#define IO_OKAY   0 /* Normal completion */

Definition at line 70 of file f90io.h.

Referenced by __OPN(), _BACK(), _CLS(), _EOFW(), _FRF(), _FRN(), _FRU(), _FWF(), _FWN(), _FWU(), _INQ(), _REWF(), _RUF(), _RUI(), _WUF(), _WUI(), and RNL().

#define IOLIST_VERSION   1 /* current iolist version number */

Definition at line 299 of file f90io.h.

---

Typedef Documentation

typedef struct ControlList ControlListType

typedef enum valtype_spec entrycode_t

Definition at line 640 of file f90io.h.

---

Function Documentation

void _BUFFERIN

(

struct bio_spec_list *

bisl

)

Definition at line 117 of file rb.c.

References _ferr(), _get_dc_param(), _imp_open(), _PRAGMA_INLINE, _rb(), bio_spec_list::bloc, cup, bio_spec_list::eloc, type_information_packet::elsize, type_information_packet::extlen, f90_type::int_len, type_information_packet::intlen, NULL, bio_spec_list::recmode, ret, SEQ, STMT_BEGIN, type_information_packet::stride, T_BUFIN, bio_spec_list::tiptr, f90_type::type, type_information_packet::type77, type_information_packet::type90, UNF, bio_spec_list::unit, and bio_spec_list::version.

Referenced by _RB().

Here is the call graph for this function:

void _BUFFEROUT

(

struct bio_spec_list *

bosl

)

Definition at line 117 of file wb.c.

References _ferr(), _get_dc_param(), _imp_open(), _PRAGMA_INLINE, _wb(), bio_spec_list::bloc, cup, bio_spec_list::eloc, type_information_packet::elsize, type_information_packet::extlen, f90_type::int_len, type_information_packet::intlen, NULL, bio_spec_list::recmode, ret, SEQ, STMT_BEGIN, type_information_packet::stride, T_BUFOUT, bio_spec_list::tiptr, f90_type::type, type_information_packet::type77, type_information_packet::type90, UNF, and bio_spec_list::unit.

Referenced by _WB().

Here is the call graph for this function:

int _CLOSE

(

struct close_spec_list *

csl

)

Definition at line 163 of file cls.c.

References _CLS(), close_spec_list::err, close_spec_list::iostat, close_spec_list::status, close_spec_list::unit, and close_spec_list::version.

Here is the call graph for this function:

int _FRF	(	ControlListType *	cilist,
		iolist_header *	iolist,
		void *	stck
	)

Definition at line 89 of file rf90.c.

References __tip_null, _cntig_chk(), _dr_endrec(), _fcdlen(), _fcdtocp(), _ferr(), _get_mismatch_error(), _imp_open(), _ir_endrec(), _is_nonadv(), _ld_read, _rdfmt, _sr_endrec(), _UENDF, _UEORF, _UERRF, _UIOSTF, _unit_seek(), _unpack_arry(), _xfer_iolist(), ControlList::advcode, DopeVector::assoc, DopeVector::base_addr, fiostate::iostate::fmtstate::blank0, DopeVector::charptr, cup, ControlList::dflag, DIR, gfptr_t::dv, ControlList::endflag, fiostate::iostate::fmtstate::endrec, ControlList::eorflag, ControlList::errflag, fiostate::f_cu, fiostate::f_shrdput, gfptr_t::fcd, FEADVEOR, FEADVSIZ, FEADVSPC, FEEORCND, FENOMEMY, FERDAFWR, FERDENDR, FEUNOTAL, FMT, ControlList::fmt, fiostate::iostate::fmt, free(), fiostate::iostate::fmtstate::freefmtbuf, fiostate::iostate::fmtstate::freepfmt, fiostate::iostate::fmtstate::icl, fiostate::iostate::fmtstate::icp, fiostate::iostate::fmtstate::iiae, ControlList::internal, IO_END, IO_EOR, IO_ERR, IO_OKAY, iolist_header::iolfirst, iolist_header::iollast, ControlList::iostat_spec, ControlList::iostatflg, fiostate::iostate::fmtstate::lcomma, fiostate::iostate::fmtstate::leftablim, fiostate::iostate::fmtstate::nonadv, NULL, unit_s::ok_rd_dir_fmt, unit_s::ok_rd_seq_fmt, DopeVector::p_or_a, unit_s::pnonadv, ControlList::rec_spec, SEQ, setup_format(), ControlList::size_spec, fiostate::iostate::fmtstate::slash, stat, STDIN_U, ControlList::stksize, STMT_BEGIN, STMT_END, T_RDF, T_RLIST, T_RSF, fiostate::iostate::fmtstate::tempicp, TF_FMT, TF_READ, fiostate::iostate::fmtstate::u, fiostate::u, unit_s::ublnk, unit_s::uend, unit_s::ufcompat, unit_s::ufcomplen, unit_s::ufcomsep, ControlList::uflag, unit_s::uflag, unit_s::ufrptcnt, unit_s::uft90, unit_s::ufunilist, unit_s::ulinebuf, unit_s::ulineptr, unit_s::umultfil, ControlList::unit, unit_s::urecsize, unit_s::uwrt, and gfptr_t::wa.

Here is the call graph for this function:

int _FRU	(	ControlListType *	cilist,
		iolist_header *	iolist,
		void *	stck
	)

Definition at line 76 of file ru90.c.

References _ferr(), _get_mismatch_error(), _imp_open(), _rdunf, _UENDF, _UERRF, _UIOSTF, _unit_seek(), _xfer_iolist(), cup, ControlList::dflag, DIR, dummy, ControlList::endflag, ControlList::errflag, fiostate::f_cu, fiostate::f_shrdput, FP::fdc, FERDAFWR, FERDENDR, FERDPEOF, FFEOD, FFEOF, FFERR, FS_FDC, FULL, IO_END, IO_ERR, IO_OKAY, iolist_header::iolfirst, iolist_header::iollast, ControlList::iostat_spec, ControlList::iostatflg, NO, NULL, unit_s::ok_rd_dir_unf, unit_s::ok_rd_seq_unf, ControlList::rec_spec, SEQ, stat, ControlList::stksize, STMT_BEGIN, STMT_END, ffsw::sw_error, ffsw::sw_stat, T_RDU, T_RSU, TF_READ, unit_s::ublkd, unit_s::uend, unit_s::ueor_found, unit_s::uflag, unit_s::ufp, unit_s::ufs, unit_s::ulastyp, unit_s::ulrecl, UNF, ControlList::unit, unit_s::urecpos, unit_s::useq, unit_s::uwrt, and gfptr_t::wa.

Here is the call graph for this function:

int _FWF	(	ControlListType *	cilist,
		iolist_header *	iolist,
		void *	stck
	)

Definition at line 78 of file wf90.c.

References __tip_null, _cntig_chk(), _dw_endrec(), _fcdlen(), _fcdtocp(), _ferr(), _get_mismatch_error(), _imp_open(), _is_nonadv(), _iw_endrec(), _ld_write, _lw_after_nonadv(), _nonadv_partrec(), _sw_endrec(), _UERRF, _UIOSTF, _unit_bksp(), _unit_seek(), _unpack_arry(), _wrfmt, _xfer_iolist(), ControlList::advcode, DopeVector::assoc, DopeVector::base_addr, DopeVector::charptr, fiostate::iostate::fmtstate::cplus, cup, ControlList::dflag, DIR, gfptr_t::dv, fiostate::iostate::fmtstate::endrec, ControlList::eorflag, ControlList::errflag, fiostate::f_cu, gfptr_t::fcd, FP::fdc, FEADVSPC, FENOMEMY, FEUNOTAL, FEWRAFEN, FMT, ControlList::fmt, fiostate::iostate::fmt, free(), fiostate::iostate::fmtstate::freefmtbuf, fiostate::iostate::fmtstate::freepfmt, fiostate::iostate::fmtstate::icl, fiostate::iostate::fmtstate::icp, fiostate::iostate::fmtstate::iiae, ControlList::internal, IO_ERR, IO_OKAY, iolist_header::iolfirst, iolist_header::iollast, ControlList::iostat_spec, ControlList::iostatflg, L, fiostate::iostate::fmtstate::leftablim, fiostate::iostate::fmtstate::nonadv, fiostate::iostate::fmtstate::nonl, NULL, unit_s::ok_wr_dir_fmt, unit_s::ok_wr_seq_fmt, DopeVector::p_or_a, unit_s::pnonadv, ControlList::rec_spec, SEQ, setup_format(), ControlList::size_spec, stat, STDOUT_U, ControlList::stksize, STMT_BEGIN, STMT_END, ffsw::sw_error, T_WDF, T_WLIST, T_WSF, fiostate::iostate::fmtstate::tempicp, TF_WRITE, fiostate::iostate::fmtstate::u, fiostate::u, unit_s::uend, unit_s::ufcompat, unit_s::ufcomplen, unit_s::ufcomsep, ControlList::uflag, unit_s::uflag, unit_s::uflshptr, unit_s::ufnegzero, unit_s::ufp, unit_s::ufrptcnt, unit_s::uft90, unit_s::ufunilist, unit_s::uldwsize, unit_s::ulinebuf, unit_s::ulinecnt, unit_s::ulinemax, unit_s::ulineptr, unit_s::umultfil, ControlList::unit, unit_s::urecsize, unit_s::uspcproc, unit_s::uwrt, and gfptr_t::wa.

Here is the call graph for this function:

int _FWU	(	ControlListType *	cilist,
		iolist_header *	iolist,
		void *	stck
	)

Definition at line 78 of file wu90.c.

References __tip_null, _ferr(), _fwwd, _get_mismatch_error(), _imp_open(), _UERRF, _UIOSTF, _unit_seek(), _wrunf, _xfer_iolist(), cup, ControlList::dflag, DIR, dummy, ControlList::endflag, ControlList::eorflag, ControlList::errflag, errno, fiostate::f_cu, unit_s::f_lastiolist, unit_s::f_lastwritten, FP::fdc, FEINTUNK, FENOMEMY, FEWRAFEN, free(), FS_FDC, FULL, IO_ERR, IO_OKAY, IOERR, iolist_header::ioetsize, iolist_header::iolfirst, iolist_header::iollast, ControlList::iostat_spec, ControlList::iostatflg, NULL, unit_s::ok_wr_dir_unf, unit_s::ok_wr_seq_unf, ControlList::rec_spec, ret, SEQ, stat, STD, FP::std, ControlList::stksize, STMT_BEGIN, STMT_END, ffsw::sw_error, T_WDU, T_WSU, TF_WRITE, unit_s::ublkd, unit_s::udalast, unit_s::udamax, unit_s::uend, ControlList::uflag, unit_s::uflag, unit_s::ufp, unit_s::ufs, unit_s::ulastyp, unit_s::ulrecl, unit_s::umultfil, UNF, ControlList::unit, unit_s::urecl, unit_s::urecpos, unit_s::uspcproc, unit_s::uwrt, gfptr_t::wa, and zero.

Here is the call graph for this function:

int _INQUIRE

(

struct inquire_spec_list *

isl

)

Definition at line 285 of file inq.c.

References _INQ(), inquire_spec_list::access, inquire_spec_list::action, inquire_spec_list::blank, inquire_spec_list::delim, inquire_spec_list::direct, inquire_spec_list::err, inquire_spec_list::exist, inquire_spec_list::file, inquire_spec_list::form, inquire_spec_list::formatted, inquire_spec_list::iostat, inquire_spec_list::name, inquire_spec_list::named, inquire_spec_list::nextrec, inquire_spec_list::number, inquire_spec_list::opened, inquire_spec_list::pad, inquire_spec_list::position, inquire_spec_list::read, inquire_spec_list::readwrite, inquire_spec_list::recl, inquire_spec_list::sequential, inquire_spec_list::unformatted, inquire_spec_list::unit, inquire_spec_list::version, and inquire_spec_list::write.

Here is the call graph for this function:

static int _is_nonadv

(

ControlListType *

cilist

)

[static]

Definition at line 427 of file f90io.h.

References _fcdlen(), and _fcdtocp().

Referenced by _FRF(), and _FWF().

Here is the call graph for this function:

int _OPEN

(

struct open_spec_list *

osl

)

Definition at line 441 of file opn.c.

References __OPN(), open_spec_list::access, open_spec_list::action, open_spec_list::blank, open_spec_list::delim, open_spec_list::err, open_spec_list::file, open_spec_list::form, open_spec_list::iostat, NULL, open_spec_list::pad, open_spec_list::position, open_spec_list::recl, open_spec_list::status, open_spec_list::unit, and open_spec_list::version.

Here is the call graph for this function:

static int setup_format	(	struct fiostate *	css,
		unit *	cup,
		ControlListType *	cilist
	)		[static]

Definition at line 456 of file f90io.h.

References _cntig_chk(), _fcdlen(), _fcdtocp(), _ferr(), _parse(), DopeVector::assoc, DopeVector::base_addr, DopeVector::charptr, FEFMTNUL, FEFMTPAL, FEINTUNK, FENOMEMY, free(), NULL, fmt_entry::offset, DopeVector::p_or_a, PARSER_LEVEL, and fmt_entry::rep_count.

Referenced by _FRF(), and _FWF().

Here is the call graph for this function: