#include <ctype.h>#include <stdlib.h>#include <string.h>#include <cray/dopevec.h>#include "util/utildefs.h"


Go to the source code of this file.
| #define IO_END 2 |
| #define IO_ERR 1 |
| #define IO_OKAY 0 |
| typedef struct ControlList ControlListType |
| typedef enum valtype_spec entrycode_t |
| 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(), assert, bio_spec_list::bloc, 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().
| 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, 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().
| int _CLOSE | ( | struct close_spec_list * | csl | ) |
Definition at line 168 of file cls.c.
References _CLS(), assert, close_spec_list::err, close_spec_list::iostat, close_spec_list::status, close_spec_list::unit, and close_spec_list::version.
| int _cntig_chk | ( | DopeVectorType * | dv, | |
| void ** | newar, | |||
| int * | nocontig, | |||
| long * | extent, | |||
| long * | nbytes | |||
| ) |
Definition at line 77 of file cntigchk.c.
References _fcdlen, _fcdtocp, DopeVector::a, addr(), base, DopeVector::base_addr, DopeVector::charptr, DopeVector::dimension, DVTYPE_ASCII, DopeVector::DvDimen::extent, FENOMEMY, i, f90_type::int_len, malloc, memcpy, DopeVector::n_dim, NULL, DopeVector::DvDimen::stride_mult, f90_type::type, and DopeVector::type_lens.
Referenced by _FRF(), _FWF(), and setup_format().
| 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, assert, DopeVector::assoc, DopeVector::base_addr, fiostate::iostate::fmtstate::blank0, DopeVector::charptr, 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, fiostate::iostate::fmt, FMT, ControlList::fmt, free(), fiostate::iostate::fmtstate::freefmtbuf, fiostate::iostate::fmtstate::freepfmt, fiostate::iostate::fmtstate::icl, fiostate::iostate::fmtstate::icp, fiostate::iostate::fmtstate::iiae, 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, realloc, ControlList::rec_spec, SEQ, setup_format(), ControlList::size_spec, fiostate::iostate::fmtstate::slash, 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, void, and gfptr_t::wa.
| 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(), assert, ControlList::dflag, DIR, DVTYPE_TYPELESS, 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, 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, void, and gfptr_t::wa.
| int _FWF | ( | ControlListType * | cilist, | |
| iolist_header * | iolist, | |||
| void * | stck | |||
| ) |
Definition at line 82 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, assert, DopeVector::assoc, DopeVector::base_addr, DopeVector::charptr, fiostate::iostate::fmtstate::cplus, 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, fiostate::iostate::fmt, FMT, ControlList::fmt, free(), fiostate::iostate::fmtstate::freefmtbuf, fiostate::iostate::fmtstate::freepfmt, fiostate::iostate::fmtstate::icl, fiostate::iostate::fmtstate::icp, fiostate::iostate::fmtstate::iiae, 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, offset, unit_s::ok_wr_dir_fmt, unit_s::ok_wr_seq_fmt, DopeVector::p_or_a, unit_s::pnonadv, realloc, ControlList::rec_spec, SEQ, setup_format(), ControlList::size_spec, 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, void, and gfptr_t::wa.
| 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(), assert, ControlList::dflag, DIR, DVTYPE_TYPELESS, 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, fwrite, IO_ERR, IO_OKAY, IOERR, iolist_header::ioetsize, iolist_header::iolfirst, iolist_header::iollast, ControlList::iostat_spec, ControlList::iostatflg, malloc, memset, NULL, unit_s::ok_wr_dir_unf, unit_s::ok_wr_seq_unf, ControlList::rec_spec, ret, SEQ, size_t, ssize_t, 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, void, gfptr_t::wa, and zero.
| int _INQUIRE | ( | struct inquire_spec_list * | isl | ) |
Definition at line 289 of file inq.c.
References _INQ(), inquire_spec_list::access, inquire_spec_list::action, assert, 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.
| static int _is_nonadv | ( | ControlListType * | cilist | ) | [static] |
| int _OPEN | ( | struct open_spec_list * | osl | ) |
Definition at line 463 of file opn.c.
References __OPN(), open_spec_list::access, open_spec_list::action, assert, 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.
| int _xfer_iolist | ( | FIOSPTR | css, | |
| unit * | cup, | |||
| iolist_header * | iolist, | |||
| xfer_func * | func | |||
| ) |
Definition at line 140 of file dopexfer.c.
References _ddope_nest, _df, _fcdlen, _fcdtocp, _ferr(), _get_dc_param(), _ld_read, _ld_write, _map_to_dv(), _rdfmt, _rdunf, _stride_dv(), _strip_mine(), _wrfmt, _wrunf, _xfer_iolist(), DopeVector::a, assert, DopeVector::base_addr, type_information_packet::cnvindx, type_information_packet::count, DD, DEBUG_90IO, f90_type::dec_len, DopeVector::dimension, ioarray_entry::dovar, f90_type::dpflag, ioarray_entry::dv, DVTYPE_ASCII, type_information_packet::elsize, DopeVector::DvDimen::extent, type_information_packet::extlen, unit_s::f_lastiolist, gfptr_t::fcd, FEINCZER, FEINTUNK, fprintf(), FULL, func, iolist_header::icount, ioarray_entry::indflag, f90_type::int_len, type_information_packet::intlen, ioentry_header::ioentsize, ioscalar_entry::iovar_address, f90_type::kind_or_star, MAXDIM, mode, DopeVector::n_dim, NULL, dovarlist::nvar, PARTIAL, putc(), ret, signed, sm(), SMSCALE, type_information_packet::stride, DopeVector::DvDimen::stride_mult, ioscalar_entry::tinfo, f90_type::type, type_information_packet::type77, type_information_packet::type90, DopeVector::type_lens, unit_s::ucharset, unit_s::ufmt, unit_s::uid, unit_s::unumcvrt, gfptr_t::v, and ioentry_header::valtype.
Referenced by _FRF(), _FRU(), _FWF(), _FWU(), and _xfer_iolist().
| static int setup_format | ( | struct fiostate * | css, | |
| unit * | cup, | |||
| ControlListType * | cilist | |||
| ) | [static] |
Definition at line 468 of file f90io.h.
References _cntig_chk(), _fcdlen, _fcdtocp, _ferr(), _parse(), DopeVector::assoc, DopeVector::base_addr, DopeVector::charptr, FEFMTNUL, FEFMTPAL, FEINTUNK, FENOMEMY, fptr, free(), int, isdigit(), malloc, NULL, fmt_entry::offset, DopeVector::p_or_a, PARSER_LEVEL, fmt_entry::rep_count, and strlen().
1.5.6