Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
#include "fstats.h"
#include <errno.h>
#include <ffio.h>
#include <fortran.h>
#include <stdio.h>
#include <sys/types.h>
#include <cray/assign.h>
#include <cray/fndc.h>
#include <cray/format.h>
#include <cray/fortio.h>
#include <cray/mtlock.h>
#include <cray/dopevec.h>
#include <cray/nassert.h>
#include <cray/portdefs.h>
Go to the source code of this file.
Classes | |
union | FP |
struct | unit_s |
struct | fiostate |
union | fiostate::iostate |
struct | fiostate::iostate::unfstate |
struct | fiostate::iostate::fmtstate |
struct | olist |
struct | cllist |
struct | inlist |
struct | type_information_packet |
Defines | |
#define | PRINT_TIP(tipa) |
#define | HASH_SIZE 256 /* must be a power of 2 */ |
#define | STDIN_U 100 /* Special stdin unit */ |
#define | STDOUT_U 101 /* Special stdout unit */ |
#define | STDERR_U 102 /* Special stderr unit */ |
#define | RECMAX 1024 /* Default (initial) size of line buffer */ |
#define | RECMAXLDO 133 /* List-directed output line length */ |
#define | ERROR 1 |
#define | OK 0 |
#define | YES 1 |
#define | NO 0 |
#define | WRITE 1 /* write */ |
#define | READ 2 /* read */ |
#define | SEQ 3 /* sequential access */ |
#define | DIR 4 /* direct access */ |
#define | FMT 5 /* formatted */ |
#define | UNF 6 /* unformatted */ |
#define | EXT 7 /* external */ |
#define | INT 8 /* internal */ |
#define | TF_WRITE 001 /* write statement */ |
#define | TF_READ 002 /* read statement */ |
#define | TF_POS 004 /* statement which might reposition a file */ |
#define | TF_FMT 010 /* formatted read or write statement */ |
#define | T_WSF (00100 | TF_WRITE | TF_POS | TF_FMT ) |
#define | T_WSU (00200 | TF_WRITE | TF_POS ) |
#define | T_WDF (00300 | TF_WRITE | TF_POS | TF_FMT ) |
#define | T_WDU (00400 | TF_WRITE | TF_POS ) |
#define | T_WLIST (00500 | TF_WRITE | TF_POS ) |
#define | T_WNL (00600 | TF_WRITE | TF_POS ) |
#define | T_RSF (00700 | TF_READ | TF_POS | TF_FMT ) |
#define | T_RSU (01100 | TF_READ | TF_POS ) |
#define | T_RDF (01200 | TF_READ | TF_POS | TF_FMT ) |
#define | T_RDU (01300 | TF_READ | TF_POS ) |
#define | T_RLIST (01400 | TF_READ | TF_POS ) |
#define | T_RNL (01500 | TF_READ | TF_POS ) |
#define | T_BUFOUT (01600 | TF_POS ) |
#define | T_BUFIN (01700 | TF_POS ) |
#define | T_OPEN (02000 ) |
#define | T_REWIND (02100 | TF_POS ) |
#define | T_BACKSPACE (02200 | TF_POS ) |
#define | T_ENDFILE (02300 | TF_POS ) |
#define | T_CLOSE (02400 ) |
#define | T_INQF (02500 ) |
#define | T_INQU (02600 ) |
#define | T_MISC (02700 | TF_POS ) |
#define | T_GETPOS (03000 ) |
#define | T_SETPOS (03100 | TF_POS ) |
#define | T_LENGTH (03200 ) |
#define | T_UNIT (03300 ) |
#define | T_TAPE (03400 | TF_POS ) |
#define | T_FLUSH (03500 ) |
#define | T_NUMBLKS (03600 ) |
#define | DT_NONE 0 /* Typeless */ |
#define | DT_INT 1 /* Integer */ |
#define | DT_REAL 2 /* Real */ |
#define | DT_DBLE 3 /* Double */ |
#define | DT_CMPLX 4 /* Complex */ |
#define | DT_LOG 5 /* Logical */ |
#define | DT_CHAR 6 /* Character */ |
#define | DT_SINT 7 /* Short integer */ |
#define | DT_DBLCOM |
#define | DT_MAX 9 /* Number of data types */ |
#define | BLKSIZE 4096 /* Bytes in a 512-word disk block */ |
#define | SECTOR BLKSIZE /* Temporary synonym for BLKSIZE */ |
#define | DEF_BIN_BS 1 |
#define | DEF_SBIN_BS 1 |
#define | DFBUFSZ 8 /* Direct formatted buffer size */ |
#define | SFBUFSZ 8 /* Sequential formatted buffer size */ |
#define | DUBUFSZ 8 /* Direct unformatted buffer size */ |
#define | SUBUFSZ 48 /* Sequential unformatted buffer size */ |
#define | DEFAULT_NBUF 4 /* Default no. of direct-access buffers */ |
#define | TBUFSZW 36 |
#define | TBUFSZB (TBUFSZW * sizeof(long)) |
#define | CHBUFSIZE (1024 * sizeof(long)) /* chunking buf size (bytes) */ |
#define | IO_OKAY 0 /* Normal completion */ |
#define | IO_ERR 1 /* Error status */ |
#define | IO_END 2 /* End status */ |
#define | CNT 1 /* Count exhausted */ |
#define | EOR 0 /* End-of-record */ |
#define | EOF -1 /* End-of-file */ |
#define | EOD -2 /* End-of-data */ |
#define | IOERR -1 /* Fortran I/O error */ |
#define | PARTIAL 0 /* Partial record I/O */ |
#define | FULL 1 /* Full record I/O */ |
#define | CLST_UNSPEC 0 /* STATUS= unspecified */ |
#define | CLST_KEEP 1 /* STATUS='KEEP' */ |
#define | CLST_DELETE 2 /* STATUS='DELETE' */ |
#define | _UERRF 01 /* ERR= specified */ |
#define | _UEORF 02 /* EOR= specified */ |
#define | _UENDF 04 /* END= specified */ |
#define | _UIOSTF 010 /* IOSTAT= specified */ |
#define | _UERRC 020 /* ERR condition */ |
#define | _UEORC 040 /* EOR condition with ADVANCE='NO' */ |
#define | _UENDC 0100 /* ENDFILE condition */ |
#define | CVOLATILE volatile |
#define | UNIT_HEADER (offsetof(unit, auxlockp)) |
#define | ABORT_ON_ERROR (cup == NULL || (cup->uflag & (_UERRF | _UIOSTF)) == 0) |
#define | RERROR(n) |
#define | RERROR1(n, p) |
#define | GOERROR(err, label) { errn = err; goto label; } |
#define | GOERROR1(err, p, label) { errn = err; parm = p; goto label; } |
#define | REND(n) |
#define | OPENLOCK() MEM_LOCK(&_openlock) |
#define | OPENUNLOCK() MEM_UNLOCK(&_openlock) |
#define | PARSELOCK() MEM_LOCK(&_parselock) |
#define | PARSEUNLOCK() MEM_UNLOCK(&_parselock) |
#define | FLSH_MEM() { } |
#define | MAX(a, b) ((a) > (b) ? (a) : (b)) |
#define | MIN(a, b) ((a) < (b) ? (a) : (b)) |
#define | FF2FTNST(ffstat) _ffstat_cnvt[ffstat] |
#define | AIOCHK(cup) |
#define | MAXRECALL 1000000 |
#define | WAITIO(cup, error_handle) |
#define | POWER_OF_TWO(n) ((n & (n - 1)) == 0 && n != 0) |
#define | COMPADD(cup, pbytes, pbits, pval) pbytes = pbits = pval = 0; |
#define | CREATE_F90_INFO(ts, tip, type77) |
#define | GOOD_UNUM(u) ((u) >= 0) |
#define | RSVD_UNUM(_U) ((_U) >= STDIN_U && (_U) <= STDERR_U) |
#define | OPEN_UPTR(_U) ((_U) != NULL && (_U)->ufs != 0) |
#define | UHASH(x) (x & (HASH_SIZE - 1)) |
#define | UNIT_NUM(_U) ((_U)->uid) |
#define | GT_UNUM(_U, _N) { _N = UNIT_NUM(_U); } |
#define | MYTASK 0 |
#define | _rtc() 0 |
#define | INCRINIO |
#define | CHKSTOP |
#define | STMT_BEGIN(_UNUM, _INTFLAG, _STMTCODE, _CILIST, _LOCFIOSP, _CUP) |
#define | STMT_END(_CUP, _STATSCODE, _CILIST, _LOCFIOSP) |
#define | CFT77_RETVAL(_VAL) (_VAL) |
#define | GET_FIOS_PTR(_P) _P = &_tsk_fiostate; |
#define | IO_TYPE(_U) |
#define | errfile stderr |
Typedefs | |
typedef short | s_flag |
typedef long | ftnlen |
typedef _f_comp8 | _gen_complex |
typedef long | bcont |
typedef struct unit_s | unit |
struct { | |
unit * ulist | |
} | unit_htable |
typedef struct fiostate * | FIOSPTR |
typedef struct type_information_packet | type_packet |
typedef int | xfer_func (FIOSPTR css, unit *cup, void *dptr, type_packet *tip, int mode) |
typedef long | xfer_func_c (unit *cup, void *uda, type_packet *tip, int mode, int *ubc_ret, long *wr, int *status) |
Enumerations | |
enum | status_spec { OS_UNKNOWN = 1, OS_OLD, OS_NEW, OS_SCRATCH, OS_REPLACE } |
enum | access_spec { OS_SEQUENTIAL = 1, OS_DIRECT } |
enum | form_spec { OS_FORMATTED = 1, OS_UNFORMATTED, OS_BINARY, OS_SYSTEM } |
enum | blank_spec { OS_NULL = 1, OS_ZERO } |
enum | position_spec { OS_REWIND = 1, OS_ASIS, OS_APPEND } |
enum | action_spec { OS_ACTION_UNSPECIFIED = 0, OS_READ = 1, OS_WRITE = 2, OS_READWRITE = (OS_READ | OS_WRITE) } |
enum | delim_spec { OS_NONE = 1, OS_QUOTE, OS_APOSTROPHE } |
enum | pad_spec { OS_NO = 1, OS_YES } |
Functions | |
unit * | _alloc_unit (unum_t unum, int private) |
void | _fcleanup (void) |
void | _fcontext (FIOSPTR fiosp) |
void | _ferr (FIOSPTR fiosp, int _Errno,...) |
long | _frch (unit *_Cup, long *_Uda, long _Chars, int _Mode, long *_Status) |
long | _fwch (unit *_Cup, long *_Uda, long _Chars, int _Mode) |
unit * | _search_unit_list (unit *p, unum_t unum) |
unit * | _get_next_unit (unit *p, int iflock, int iftask) |
unit * | _implicit_open (int acc, int form, unum_t unum, int errf, int *errn) |
unit * | _imp_open (struct fiostate *css, int acc, int form, unum_t unum, int errf, int *errn) |
unit * | _imp_open77 (struct fiostate *css, int acc, int form, unum_t unum, int errf, int *errn) |
void | _initialize_fortran_io (void) |
void | _init_unit (unit *cup) |
unit * | _init_internal_unit (void) |
int | _parse (FIOSPTR _Css, unit *_Cup, fmt_type **_Prsfmt) |
int | _unit_bksp (unit *cup) |
int | _unit_close (unit *cup, int cstat, FIOSPTR css) |
int | _unit_scratch (unit *cup) |
int | _unit_seek (unit *cup, recn_t recn, int iost) |
int | _unit_trunc (unit *cup) |
int | _setpos (FIOSPTR css, unit *cup, int *pa, int len) |
int | _uniqinod (unit *cup, assign_info *aip) |
int | _f_opn (char *actnam, unit *cup, FIOSPTR css, int tufs, int aifound, assign_info *aip, struct stat *statp, int statp_valid, int catcherr, int o_sysflgs) |
int | _do_open (unit *cup, FIOSPTR css, int tufs, char *actnam, int flags, int aifound, assign_info *aip, union spec_u *fdspec, int catcherr) |
void | _set_device_and_inode (int sysfd, dev_t *devicep, ino_t *inodep) |
int | _dw_endrec (FIOSPTR _Css, unit *_Cup, int _Count) |
int | _iw_endrec (FIOSPTR _Css, unit *_Cup, int _Count) |
int | _sw_endrec (FIOSPTR _Css, unit *_Cup, int _Count) |
int | _nonadv_endrec (FIOSPTR _Css, unit *_Cup) |
int | _lw_after_nonadv (FIOSPTR _Css, unit *_Cup, int _Linelimit, int _Namelistflag) |
int | _dr_endrec (FIOSPTR _Css, unit *_Cup, int _Count) |
int | _ir_endrec (FIOSPTR _Css, unit *_Cup, int _Count) |
int | _sr_endrec (FIOSPTR _Css, unit *_Cup, int _Count) |
void | _gather_data (void *lbuf, long items, long inc, int len, void *ptr) |
void | _scatter_data (void *ptr, long items, long inc, int len, void *lbuf) |
void | _set_ok_flags (unit *cup) |
int | _get_mismatch_error (int noabort, int iost, unit *cup, FIOSPTR css) |
int | _iochunk (FIOSPTR css, unit *cup, xfer_func *func, struct DvDimen *dimen, type_packet *tip, short nd, long extent, int bshft, bcont *addr) |
void | _flsh_mem (void) |
int | _deduce_fstruct (int, struct fdinfo *, int) |
void | _setup_cvrt (unit *cup) |
void | _b_char (char *a, char *b, ftnlen blen) |
void | _copy_n_trim (char *a, ftnlen alen, char *b) |
static unit * | _get_cup (unum_t unum) |
static unit * | _get_int_cup (void) |
static void | _release_cup (unit *cup) |
Variables | |
xfer_func | _rdunf |
xfer_func | _wrunf |
xfer_func | _rdfmt |
xfer_func | _wrfmt |
xfer_func | _ld_read |
xfer_func | _ld_write |
xfer_func_c | _frwd |
xfer_func_c | _fwwd |
unit_htable | _fort_unit [] |
plock_t | _openlock |
plock_t | _ioblock |
plock_t | _parselock |
plock_t | _stdin_lock |
plock_t | _stdout_lock |
plock_t | _stderr_lock |
int | _f_rcsz |
int | _f_ldsz |
int | _def_bin_bs |
int | _def_sbin_bs |
const ftype_t | _f77_to_f90_type_cnvt [DT_MAX] |
const short | _f90_to_f77_type_cnvt [DVTYPE_NTYPES] |
const short | _f77_type_len [DT_MAX] |
const char * | _f90_type_name [DVTYPE_NTYPES] |
const char * | _f77_type_name [DT_MAX] |
const short | _charset_cnvt [CS_MAX] |
const short | _ffstat_cnvt [7] |
const short | _old_namelist_to_f77_type_cnvt [10] |
type_packet | __tip_null |
struct fiostate | _tsk_fiostate |
short | _fortran_io_is_init |
short | _e_fortran_io_is_init |
short | _i_fortran_io_is_init |
unit * | _fort_internal_unit |
#define _rtc | ( | ) | 0 |
Definition at line 1186 of file fio.h.
Referenced by _ft_stclose(), _ft_stopen(), and _unit_close().
#define _UENDC 0100 /* ENDFILE condition */ |
#define _UIOSTF 010 /* IOSTAT= specified */ |
Definition at line 865 of file fio.h.
Referenced by _get_dc_param().
Definition at line 189 of file fio.h.
Referenced by _do_open(), and _f_opn().
#define CFT77_RETVAL | ( | _VAL | ) | (_VAL) |
Definition at line 228 of file fio.h.
Referenced by _iochunk(), _stride_dv(), and _strip_mine().
#define CLST_DELETE 2 /* STATUS='DELETE' */ |
Definition at line 283 of file fio.h.
Referenced by _CLS(), and _unit_close().
Definition at line 282 of file fio.h.
Referenced by _CLS(), and _unit_close().
#define CLST_UNSPEC 0 /* STATUS= unspecified */ |
Definition at line 281 of file fio.h.
Referenced by _CLS(), _f_open(), _fcleanup(), and _unit_close().
#define CREATE_F90_INFO | ( | ts, | |
tip, | |||
type77 | |||
) |
{ \ ts.type = _f77_to_f90_type_cnvt[type77]; \ ts.dpflag = (type77 == DT_DBLE) ? 1 : 0; \ ts.int_len = _f77_type_len[type77] << 3; \ ts.dec_len = ts.int_len >> 3; \ if (type77 == DT_SINT) { \ ts.kind_or_star = DVD_STAR; \ if (ts.dec_len == sizeof(_f_int)) \ ts.dec_len = ts.dec_len >> 1; \ } \ else \ ts.kind_or_star = DVD_DEFAULT; \ tip.type77 = type77; \ tip.type90 = ts.type; \ tip.intlen = ts.int_len; \ tip.extlen = ts.int_len; \ tip.elsize = ts.int_len >> 3; \ tip.stride = 1; \ tip.cnvindx = 0; \ }
#define DEF_BIN_BS 1 |
#define DEF_SBIN_BS 1 |
Definition at line 196 of file fio.h.
Referenced by _do_open().
#define DEFAULT_NBUF 4 /* Default no. of direct-access buffers */ |
Definition at line 117 of file fio.h.
Referenced by _FRF(), _FRU(), _FWF(), _FWU(), _ll_implicit_open(), _RUI(), _WUI(), find_files_in_directory(), and Process_Feedback_Options().
Definition at line 180 of file fio.h.
Referenced by get_holl(), get_quoholl(), l_write(), n_getv(), nex_data(), nl_read(), RNL(), and WNL().
Definition at line 178 of file fio.h.
Referenced by find_rep(), g_complx(), g_octhex(), get_holl(), get_quoholl(), l_write(), nex_data(), and nl_read().
#define DT_DBLCOM |
#define DT_DBLE 3 /* Double */ |
Definition at line 177 of file fio.h.
Referenced by _get_dc_param(), find_rep(), g_number(), g_octhex(), get_holl(), get_quoholl(), l_convert(), l_write(), and nl_read().
Definition at line 175 of file fio.h.
Referenced by _get_dc_param(), l_convert(), and l_write().
Definition at line 179 of file fio.h.
Referenced by l_convert(), l_write(), and nex_data().
Definition at line 174 of file fio.h.
Referenced by _REWF(), _unit_bksp(), and l_write().
Definition at line 176 of file fio.h.
Referenced by _get_dc_param(), g_complx(), l_convert(), and l_write().
#define DT_SINT 7 /* Short integer */ |
Definition at line 181 of file fio.h.
Referenced by _get_dc_param(), l_convert(), and l_write().
Definition at line 247 of file fio.h.
Referenced by __READ(), __READC(), _dr_endrec(), _frch(), _frwd(), _rb(), _rnl_fillrec(), and _sr_endrec().
#define errfile stderr |
Definition at line 1383 of file fio.h.
Referenced by _f_open(), _fcontext(), _pr_echomsg(), and pr_msg().
#define ERROR 1 |
Definition at line 109 of file fio.h.
Referenced by _ALL(), _ALL_1(), _ALL_2(), _ALL_4(), _ANY(), _ANY_1(), _ANY_2(), _ANY_4(), _COUNT(), _COUNT_1(), _COUNT_2(), _COUNT_4(), _CSHIFT(), _EOSHIFT(), _MAXLOC__D(), _MAXLOC__I1(), _MAXLOC__I2(), _MAXLOC__I4(), _MAXLOC__J(), _MAXLOC__S(), _MAXLOC__S4(), _MAXVAL__D(), _MAXVAL__I1(), _MAXVAL__I2(), _MAXVAL__I4(), _MAXVAL__J(), _MAXVAL__S(), _MAXVAL__S4(), _MINLOC__D(), _MINLOC__I1(), _MINLOC__I2(), _MINLOC__I4(), _MINLOC__J(), _MINLOC__S(), _MINLOC__S4(), _MINVAL__D(), _MINVAL__I1(), _MINVAL__I2(), _MINVAL__I4(), _MINVAL__J(), _MINVAL__S(), _MINVAL__S4(), _PACK(), _RESHAPE(), _SPREAD(), _TRANS(), _TRANSFER(), _UNPACK(), alloc_res(), calculate_pad(), find_prog_unit_tbl(), and NAME().
#define FF2FTNST | ( | ffstat | ) | _ffstat_cnvt[ffstat] |
#define FLSH_MEM | ( | ) | { } |
Definition at line 946 of file fio.h.
Referenced by _alloc_unit(), and _init_internal_unit().
#define FMT 5 /* formatted */ |
Definition at line 118 of file fio.h.
Referenced by __READC(), __WRITEC(), _FRF(), _FRN(), _FWF(), _FWN(), _ll_implicit_open(), _nlrdecho(), _rnlecho(), RNL(), and WNL().
#define GET_FIOS_PTR | ( | _P | ) | _P = &_tsk_fiostate; |
#define GOERROR1 | ( | err, | |
p, | |||
label | |||
) | { errn = err; parm = p; goto label; } |
Definition at line 1122 of file fio.h.
Referenced by __OPN(), _BACK(), _CLS(), _EOFW(), _f_inqu(), _f_open(), _fcontext(), _ll_implicit_open(), _REWF(), flush_(), fstatf90_(), fstatf90_4_4_8_(), fstatf90_8_(), isattyf90_(), isattyf90_8_(), numblks_(), ttynamf90_(), and ttynamf90_8_().
#define HASH_SIZE 256 /* must be a power of 2 */ |
Definition at line 100 of file fio.h.
Referenced by _get_next_unit().
#define IO_TYPE | ( | _U | ) |
Definition at line 1295 of file fio.h.
Referenced by _fcontext(), _ft_stclose(), and _ft_stopen().
#define MYTASK 0 |
Definition at line 1161 of file fio.h.
Referenced by _alloc_unit(), _get_next_unit(), and _search_unit_list().
Definition at line 1136 of file fio.h.
Referenced by __OPN(), _alloc_unit(), _f_open(), _fcleanup(), _fcontext(), _flushall(), _get_cup(), and _get_next_unit().
Definition at line 917 of file fio.h.
Referenced by __OPN(), _CLS(), _f_inqu(), _init_internal_unit(), and _ll_implicit_open().
#define OPENUNLOCK | ( | ) | MEM_UNLOCK(&_openlock) |
Definition at line 919 of file fio.h.
Referenced by __OPN(), _CLS(), _f_inqu(), _init_internal_unit(), and _ll_implicit_open().
#define PARSELOCK | ( | ) | MEM_LOCK(&_parselock) |
#define PARSEUNLOCK | ( | ) | MEM_UNLOCK(&_parselock) |
#define POWER_OF_TWO | ( | n | ) | ((n & (n - 1)) == 0 && n != 0) |
#define PRINT_TIP | ( | tipa | ) |
{ \ fprintf(stderr, "tip address = %o\n", tipa); \ fprintf(stderr, " type90 = %d\n", (tipa)->type90); \ fprintf(stderr, " type77 = %d\n", (tipa)->type77); \ fprintf(stderr, " intlen = %d\n", (tipa)->intlen); \ fprintf(stderr, " extlen = %d\n", (tipa)->extlen); \ fprintf(stderr, " cnvindx = %d\n", (tipa)->cnvindx); \ fprintf(stderr, " count = %ld\n", (tipa)->count); \ fprintf(stderr, " stride = %ld\n", (tipa)->stride); \ fprintf(stderr, " elsize = %d\n", (tipa)->elsize); \ if ((tipa)->cnvindx) { \ fprintf(stderr, " newfunc = %d\n", (tipa)->newfunc);\ fprintf(stderr, " cnvtype = %d\n", (tipa)->cnvtype);\ fprintf(stderr, " cnvfunc = %o\n", (tipa)->cnvfunc);\ } \ }
Definition at line 106 of file fio.h.
Referenced by _mr_scan_char().
#define REND | ( | n | ) |
{ \ if ((cup == NULL) || (cup->uflag & (_UENDF | _UIOSTF)) == 0) \ _ferr(css, n); \ else \ return(n); \ }
Definition at line 894 of file fio.h.
Referenced by _ir_endrec(), _mr_scan_char(), and _sr_endrec().
#define RERROR | ( | n | ) |
{ \ if (ABORT_ON_ERROR) \ _ferr(css, n); \ else \ return(n); \ }
Definition at line 867 of file fio.h.
Referenced by _dr_endrec(), _dw_endrec(), _iw_endrec(), _ld_read(), _ld_write(), _mr_scan_char(), _mr_scan_complex(), _nonadv_endrec(), _nonadv_partrec(), _sr_endrec(), and _sw_endrec().
#define RERROR1 | ( | n, | |
p | |||
) |
{ \ if (ABORT_ON_ERROR) \ _ferr(css, n, p); \ else \ return(n); \ }
Definition at line 874 of file fio.h.
Referenced by _dr_endrec().
Definition at line 116 of file fio.h.
Referenced by __READ(), __READC(), __WRITE(), __WRITEC(), _BUFFERIN(), _BUFFEROUT(), _FRF(), _FRN(), _FRU(), _FWF(), _FWN(), _FWU(), _GETPOS_(), _LENGTH_(), _nlrdecho(), _rnlecho(), _RUI(), _UNIT_(), _WUI(), fseekf90_(), fseekf90_4_8_4_(), fseekf90_8_(), ftellf90_8_(), ftellf90_8_4_(), RNL(), SETPOS(), SKIPF(), and WNL().
#define STMT_BEGIN | ( | _UNUM, | |
_INTFLAG, | |||
_STMTCODE, | |||
_CILIST, | |||
_LOCFIOSP, | |||
_CUP | |||
) |
{\ FIOSPTR fiosp; \ \ assert( _CILIST == NULL ); \ if (_LOCFIOSP != NULL) \ fiosp = _LOCFIOSP; \ else \ GET_FIOS_PTR(fiosp); \ if (_INTFLAG) \ _CUP = _get_int_cup(); /* internal file */ \ else \ _CUP = _get_cup(_UNUM); /* external file */ \ \ /* Set fields which are accessed by _fcontext(). */ \ \ INCRINIO; \ fiosp->f_cu = _CUP; \ fiosp->f_curun = _UNUM; \ fiosp->f_intflg = _INTFLAG; \ fiosp->f_iostmt = _STMTCODE; \ \ if ((_STMTCODE) & TF_FMT) \ fiosp->u.fmt.u.fe.fmtbuf = NULL; \ \ fiosp->f_rtbgn = _rtc(); /* for statistics */ \ }
Definition at line 1201 of file fio.h.
Referenced by __OPN(), __READ(), __READC(), __WRITE(), __WRITEC(), _BACK(), _BUFFERIN(), _BUFFEROUT(), _CLS(), _EOFW(), _FRF(), _FRN(), _FRU(), _FWF(), _FWN(), _FWU(), _GETPOS_(), _INQ(), _LENGTH_(), _REWF(), _RUI(), _UNIT_(), _WUI(), fgetcf90_(), fgetcf90_8_(), flush_(), fputcf90_(), fputcf90_8_(), fseekf90_(), fseekf90_4_8_4_(), fseekf90_8_(), fstatf90_(), fstatf90_4_4_8_(), fstatf90_8_(), ftellf90_8_(), ftellf90_8_4_(), getcf90_(), getcf90_8_(), isattyf90_(), isattyf90_8_(), numblks_(), putcf90_(), putcf90_8_(), RNL(), SETPOS(), SKIPF(), ttynamf90_(), ttynamf90_8_(), and WNL().
#define STMT_END | ( | _CUP, | |
_STATSCODE, | |||
_CILIST, | |||
_LOCFIOSP | |||
) |
{ \ FIOSPTR fiosp; \ \ assert( _CILIST == NULL ); \ if (_LOCFIOSP != NULL) \ fiosp = _LOCFIOSP; \ else \ GET_FIOS_PTR(fiosp); \ if ((_CUP) != NULL) { \ if (fiosp->f_iostmt & TF_POS) \ cup->uposition = 0; \ FSTATS_POST(_CUP, _STATSCODE, fiosp); \ _release_cup(_CUP); /* unlock the unit */ \ } \ CHKSTOP \ fiosp->f_curun = -1; \ fiosp->f_iostmt = 0; \ fiosp->f_cu = NULL; \ }
Definition at line 1247 of file fio.h.
Referenced by __OPN(), __READ(), __READC(), __WRITE(), __WRITEC(), _BACK(), _CLS(), _EOFW(), _FRF(), _FRN(), _FRU(), _FWF(), _FWN(), _FWU(), _GETPOS_(), _INQ(), _LENGTH_(), _rb(), _REWF(), _RUF(), _UNIT_(), _wb(), _WUF(), fgetcf90_(), fgetcf90_8_(), flush_(), fputcf90_(), fputcf90_8_(), fseekf90_(), fseekf90_4_8_4_(), fseekf90_8_(), fstatf90_(), fstatf90_4_4_8_(), fstatf90_8_(), ftellf90_8_(), ftellf90_8_4_(), getcf90_(), getcf90_8_(), isattyf90_(), isattyf90_8_(), numblks_(), putcf90_(), putcf90_8_(), RNL(), SETPOS(), SKIPF(), ttynamf90_(), ttynamf90_8_(), and WNL().
#define T_BACKSPACE (02200 | TF_POS ) |
Definition at line 154 of file fio.h.
Referenced by _BACK(), and _fcontext().
Definition at line 150 of file fio.h.
Referenced by _BUFFERIN(), _fcontext(), and _rb().
Definition at line 149 of file fio.h.
Referenced by _BUFFEROUT(), _fcontext(), and _wb().
#define T_CLOSE (02400 ) |
Definition at line 156 of file fio.h.
Referenced by _CLS(), _fcontext(), and _unit_close().
Definition at line 155 of file fio.h.
Referenced by _EOFW(), and _fcontext().
#define T_GETPOS (03000 ) |
Definition at line 162 of file fio.h.
Referenced by _fcontext(), _GETPOS_(), ftellf90_8_(), and ftellf90_8_4_().
#define T_INQF (02500 ) |
Definition at line 157 of file fio.h.
Referenced by _fcontext(), and _INQ().
#define T_INQU (02600 ) |
Definition at line 158 of file fio.h.
Referenced by _fcontext(), _INQ(), fstatf90_(), fstatf90_4_4_8_(), fstatf90_8_(), isattyf90_(), isattyf90_8_(), ttynamf90_(), and ttynamf90_8_().
#define T_LENGTH (03200 ) |
Definition at line 164 of file fio.h.
Referenced by _fcontext(), and _LENGTH_().
#define T_NUMBLKS (03600 ) |
Definition at line 168 of file fio.h.
Referenced by numblks_().
#define T_OPEN (02000 ) |
Definition at line 152 of file fio.h.
Referenced by __OPN(), and _fcontext().
Definition at line 144 of file fio.h.
Referenced by _fcontext(), _FRF(), _get_mismatch_error(), and _set_ok_flags().
Definition at line 145 of file fio.h.
Referenced by _fcontext(), _FRU(), _get_mismatch_error(), _RUI(), and _set_ok_flags().
Definition at line 153 of file fio.h.
Referenced by _fcontext(), and _REWF().
Definition at line 146 of file fio.h.
Referenced by _fcontext(), and _FRF().
Definition at line 147 of file fio.h.
Referenced by _fcontext(), _FRN(), and RNL().
Definition at line 142 of file fio.h.
Referenced by __READC(), _fcontext(), _FRF(), _set_ok_flags(), fgetcf90_(), fgetcf90_8_(), getcf90_(), and getcf90_8_().
Definition at line 143 of file fio.h.
Referenced by __READ(), _fcontext(), _FRU(), _RUI(), and _set_ok_flags().
Definition at line 163 of file fio.h.
Referenced by _fcontext(), fseekf90_(), fseekf90_4_8_4_(), fseekf90_8_(), and SETPOS().
Definition at line 166 of file fio.h.
Referenced by _fcontext().
#define T_UNIT (03300 ) |
Definition at line 165 of file fio.h.
Referenced by _fcontext(), and _UNIT_().
Definition at line 137 of file fio.h.
Referenced by _fcontext(), _FWF(), _get_mismatch_error(), and _set_ok_flags().
Definition at line 138 of file fio.h.
Referenced by _fcontext(), _FWU(), _get_mismatch_error(), _set_ok_flags(), and _WUI().
Definition at line 139 of file fio.h.
Referenced by _fcontext(), and _FWF().
Definition at line 140 of file fio.h.
Referenced by _fcontext(), _FWN(), _ld_write(), _write_delimited_char(), and WNL().
Definition at line 135 of file fio.h.
Referenced by __WRITEC(), _fcontext(), _FWF(), _set_ok_flags(), fputcf90_(), fputcf90_8_(), putcf90_(), and putcf90_8_().
Definition at line 136 of file fio.h.
Referenced by __WRITE(), _fcontext(), _FWU(), _set_ok_flags(), and _WUI().
Definition at line 226 of file fio.h.
Referenced by _frch(), _fwch(), and _unit_bksp().
Definition at line 131 of file fio.h.
Referenced by _fcontext(), _FRF(), and _get_mismatch_error().
#define TF_POS 004 /* statement which might reposition a file */ |
Definition at line 129 of file fio.h.
Referenced by __READ(), __READC(), _fcontext(), _FRF(), _FRN(), _FRU(), _RUF(), _unit_seek(), fgetcf90_(), fgetcf90_8_(), getcf90_(), and getcf90_8_().
Definition at line 128 of file fio.h.
Referenced by __WRITE(), __WRITEC(), _fcontext(), _FWF(), _FWN(), _FWU(), _get_mismatch_error(), _WUF(), fputcf90_(), fputcf90_8_(), putcf90_(), and putcf90_8_().
Definition at line 1142 of file fio.h.
Referenced by _alloc_unit(), _get_cup(), _get_next_unit(), and f90_or_f77().
#define UNF 6 /* unformatted */ |
Definition at line 119 of file fio.h.
Referenced by __READ(), __WRITE(), _BUFFERIN(), _BUFFEROUT(), _FRU(), _FWU(), _GETPOS_(), _LENGTH_(), _RUI(), _UNIT_(), _WUI(), fseekf90_(), fseekf90_4_8_4_(), fseekf90_8_(), ftellf90_8_(), ftellf90_8_4_(), SETPOS(), and SKIPF().
#define UNIT_HEADER (offsetof(unit, auxlockp)) |
Definition at line 376 of file fio.h.
Referenced by _init_unit().
Definition at line 982 of file fio.h.
Referenced by __setpos64(), _GETPOS_(), _LENGTH_(), _rb(), _REWF(), _setpos(), _UNIT_(), _unit_bksp(), and _wb().
typedef _f_comp8 _gen_complex |
typedef struct type_information_packet type_packet |
typedef { ... } unit_htable |
typedef int xfer_func(FIOSPTR css, unit *cup, void *dptr, type_packet *tip, int mode) |
typedef long xfer_func_c(unit *cup, void *uda, type_packet *tip, int mode, int *ubc_ret, long *wr, int *status) |
enum access_spec |
enum action_spec |
enum blank_spec |
enum delim_spec |
enum form_spec |
enum position_spec |
enum status_spec |
unit* _alloc_unit | ( | unum_t | unum, |
int | private | ||
) |
Definition at line 69 of file fortunit.c.
References _e_fortran_io_is_init, _fort_unit, _init_unit(), _initialize_e_fortran_io(), cup, errno, FENOMEMY, FLSH_MEM, unit_s::hashlink, MEM_LOCK, MYTASK, NULL, OPEN_UPTR, unit_s::private, UHASH, unit_s::uid, unit_s::uiolock, and unit_s::utid.
Referenced by _f_open(), and _setuptr().
Definition at line 80 of file util.c.
References MIN.
Referenced by _f_inqu(), ttynamf90_(), and ttynamf90_8_().
void _copy_n_trim | ( | char * | a, |
ftnlen | alen, | ||
char * | b | ||
) |
int _deduce_fstruct | ( | int | , |
struct fdinfo * | , | ||
int | |||
) |
Definition at line 89 of file openutil.c.
References FS_AUX, FS_BIN, FS_COS, FS_F77, FS_FDC, FS_PURE, FS_TAPE, FS_TEXT, FS_U, FS_UNBLOCKED, NULL, and STD.
Referenced by _fcontext(), and _ft_stopen().
int _do_open | ( | unit * | cup, |
FIOSPTR | css, | ||
int | tufs, | ||
char * | actnam, | ||
int | flags, | ||
int | aifound, | ||
assign_info * | aip, | ||
union spec_u * | fdspec, | ||
int | catcherr | ||
) |
Definition at line 901 of file fopn.c.
References _ae_setoflags(), _ferr(), _ioblock, ACCESS_PERMS, AFLAGSIZE, assign_info_s::b_bufsiz, assign_info_s::b_bufsiz_flg, BLKSIZE, DEF_SBIN_BS, errno, FP::fdc, FEINTFST, fileno(), FS_FDC, FS_TEXT, isatty, MEM_LOCK, MEM_UNLOCK, assign_info_s::n_stride, assign_info_s::n_stride_flg, NULL, O_RAW, open, assign_info_s::pr_partit, assign_info_s::pr_partit_flg, assign_info_s::q_ocblks, assign_info_s::q_ocblks_flg, STD, FP::std, ffsw::sw_error, unit_s::ufmt, unit_s::ufp, unit_s::uid, unit_s::urecl, unit_s::useek, unit_s::useq, and YES.
Referenced by _f_opn().
int _dr_endrec | ( | FIOSPTR | _Css, |
unit * | _Cup, | ||
int | _Count | ||
) |
Definition at line 725 of file rf.c.
References _frch(), CNT, EOD, EOF, EOR, errno, FENORECN, FERDMALR, fiostate::iostate::fmt, FULL, fiostate::iostate::fmtstate::leftablim, NULL, RERROR, RERROR1, stat, fiostate::u, unit_s::udalast, unit_s::udamax, unit_s::ulinebuf, unit_s::ulinecnt, unit_s::ulineptr, and unit_s::urecsize.
Referenced by _FRF().
int _dw_endrec | ( | FIOSPTR | _Css, |
unit * | _Cup, | ||
int | _Count | ||
) |
Definition at line 793 of file wf.c.
References _fwch(), BLANK, errno, fiostate::iostate::fmt, FULL, fiostate::iostate::fmtstate::leftablim, NULL, RERROR, fiostate::u, unit_s::udalast, unit_s::udamax, unit_s::ulinebuf, unit_s::ulinecnt, unit_s::ulinemax, unit_s::ulineptr, and unit_s::urecl.
Referenced by _FWF().
int _f_opn | ( | char * | actnam, |
unit * | cup, | ||
FIOSPTR | css, | ||
int | tufs, | ||
int | aifound, | ||
assign_info * | aip, | ||
struct stat * | statp, | ||
int | statp_valid, | ||
int | catcherr, | ||
int | o_sysflgs | ||
) |
Definition at line 94 of file fopn.c.
References __fndc_align, _defbufsiz_warning, _do_open(), _ffconvert_stat(), _fwarn(), _gsys_qtape, _setup_cvrt(), assign_info_s::a_sdsfil_flg, AS_FORTRAN90, AS_IRIX_F77, AS_IRIX_F90, AS_SKIPBAD, AUTO_ACPT, AUTO_SKIP, assign_info_s::b_bufsiz, assign_info_s::b_bufsiz_flg, BLKSIZE, assign_info_s::C_chrcnv, assign_info_s::C_chrcnv_flg, assign_info_s::d_datrcv, assign_info_s::d_datrcv_flg, DEF_BIN_BS, DUBUFSZ, errno, assign_info_s::F_filter, assign_info_s::F_filter_flg, assign_info_s::f_fortst, assign_info_s::f_fortst_flg, FC_AUTOBAD, FC_GETINFO, FC_STAT, fd, FP::fdc, FEFILACT, FEINTFST, FENOICNV, FENOSKPB, FEOPIVRL, FEOPNFMT, FEOPNNDA, FEOPNUNF, FERQTRNC, FESDSFSS, FFBOD, FFC_BINARY, FFC_CODED, FFC_REC, FFC_STRM, FFC_WEOF, FFC_WRTRUNC, FFSTAT, fileno(), FPARMAX, FS_BIN, FS_COS, FS_F77, FS_FDC, FS_TAPE, FS_TAPE50, FS_TEXT, FS_U, FS_UNBLOCKED, fstat, FWDEFBSZ, getenv(), _dal_s::gran, isatty, assign_info_s::m_multup, assign_info_s::m_multup_flg, make_fdspec(), MAX, assign_info_s::N_datcnv, assign_info_s::N_datcnv_flg, assign_info_s::n_preall, assign_info_s::n_preall_flg, NO, NULL, O_RAW, opt_flags, OS_ACTION_UNSPECIFIED, OS_READ, OS_READWRITE, OS_WRITE, POWER_OF_TWO, ret, assign_info_s::S_comsep, assign_info_s::S_comsep_flg, assign_info_s::s_fstrct_flg, stat, STD, FP::std, SUBUFSZ, ffsw::sw_count, ffsw::sw_error, assign_info_s::t_tmpfil_flg, assign_info_s::T_utrunc, assign_info_s::T_utrunc_flg, assign_info_s::u_bufcnt, assign_info_s::u_bufcnt_flg, assign_info_s::U_unicoslist, assign_info_s::U_unicoslist_flg, unit_s::uaction, unit_s::ualign, unit_s::ualignmask, unit_s::uasync, unit_s::ublkd, unit_s::ubmx, unit_s::ucharset, unit_s::udamax, unit_s::ufcompat, unit_s::ufcomplen, unit_s::ufcomsep, unit_s::uffsw, unit_s::uflagword, unit_s::ufmt, unit_s::ufnegzero, unit_s::ufnl_skip, unit_s::ufp, unit_s::ufrptcnt, unit_s::ufs, unit_s::uft90, unit_s::ufunilist, unit_s::umultfil, unit_s::umultup, unit_s::unumcvrt, unit_s::urecl, unit_s::uscrtch, unit_s::useek, unit_s::useq, unit_s::usysfd, unit_s::usysread, unit_s::usyswrite, unit_s::utmpfil, unit_s::utrunc, assign_info_s::W_compwidth, assign_info_s::W_compwidth_flg, assign_info_s::Y_nl_skip, assign_info_s::Y_nl_skip_flg, assign_info_s::y_reptcnt, assign_info_s::y_reptcnt_flg, YES, assign_info_s::Z_neg_zero, and assign_info_s::Z_neg_zero_flg.
Referenced by _f_open().
void _fcleanup | ( | void | ) |
Definition at line 62 of file fcleanup.c.
References _get_next_unit(), _is_file_name(), _lmessage(), _print_statistics, _unit_close(), CLST_UNSPEC, EOF, FS_AUX, NULL, OPEN_UPTR, pass, ret, unit_s::ufs, and unit_s::uid.
Referenced by _ferr(), and _initialize_e_fortran_io().
Definition at line 67 of file fcontext.c.
References _deduce_fstruct(), _who_called_me(), unit_s::alfnm, cup, errfile, fiostate::f_cu, fiostate::f_curun, fiostate::f_intflg, fiostate::f_iostmt, FP::fdc, FIO_METHOD, FIO_STRUCT, fiostate::iostate::fmt, fprintf(), FS_FDC, GOOD_UNUM, if(), IO_TYPE, len, MAX_ENT_LEN, name, NULL, OPEN_UPTR, FP::std, T_BACKSPACE, T_BUFIN, T_BUFOUT, T_CLOSE, T_ENDFILE, T_GETPOS, T_INQF, T_INQU, T_LENGTH, T_OPEN, T_RDF, T_RDU, T_REWIND, T_RLIST, T_RNL, T_RSF, T_RSU, T_SETPOS, T_TAPE, T_UNIT, T_WDF, T_WDU, T_WLIST, T_WNL, T_WSF, T_WSU, TF_FMT, TF_READ, TF_WRITE, fiostate::iostate::fmtstate::u, fiostate::u, unit_s::ufmt, unit_s::ufp, and unit_s::ufs.
Referenced by _ferr().
Definition at line 64 of file ferror.c.
References _fcleanup(), _fcontext(), _lmessage(), MPP_LOCK, and NULL.
Referenced by $DFI(), $EFI(), __OPN(), __WRITE(), __WRITEC(), _BACK(), _BUFFERIN(), _BUFFEROUT(), _CLS(), _do_open(), _EOFW(), _f_inqu(), _f_open(), _FRF(), _FRU(), _FWF(), _FWU(), _gdc_abort(), _get_mismatch_error(), _getfchar(), _GETPOS_(), _ld_write(), _ll_implicit_open(), _mr_scan_char(), _nlrdecho(), _rb(), _rdfmt(), _REWF(), _rnlecho(), _RUF(), _RUI(), _UNIT_(), _wb(), _wrfmt(), _WUF(), _WUI(), _xfer_iolist(), fseekf90_(), fseekf90_4_8_4_(), fseekf90_8_(), fstatf90_(), fstatf90_4_4_8_(), fstatf90_8_(), ftellf90_8_(), ftellf90_8_4_(), isattyf90_(), isattyf90_8_(), make_fdspec(), numblks_(), set_varg_(), SETPOS(), setup_format(), ttynamf90_(), and ttynamf90_8_().
void _flsh_mem | ( | void | ) |
Definition at line 53 of file flsh_mem.c.
Definition at line 145 of file frch.c.
References __fndc_charsz, _filbuf, _GINTIO, CNT, EOD, EOF, EOR, errno, FP::fdc, FEINTFST, FEINTUNK, FEMIXAUX, FESTIOER, FF2FTNST, FFCNT, FFEOR, FFSTAT, FILE_CNT, FILE_FLAG, FILE_PTR, FS_AUX, FS_FDC, FS_TEXT, FULL, IOERR, MIN, NULL, PARTIAL, ret, stat, STD, FP::std, ffsw::sw_error, tbuf, TBUFSZB, unit_s::ublkd, unit_s::ucharset, unit_s::uffsw, unit_s::ufp, unit_s::ufs, and unit_s::useq.
Referenced by __READC(), _dr_endrec(), _rnl_fillrec(), _sr_endrec(), fgetcf90_(), fgetcf90_8_(), getcf90_(), and getcf90_8_().
Definition at line 114 of file fwch.c.
References __fndc_charsz, EOF, errno, FP::fdc, FEINTFST, FESTIOER, FEWRAFEN, FILE_CNT, FILE_FLAG, FILE_PTR, FS_FDC, FS_TEXT, FULL, IOERR, PARTIAL, ret, STD, FP::std, ffsw::sw_error, tbuf, TBUFSZB, unit_s::ucharset, unit_s::uend, unit_s::uffsw, unit_s::ufp, unit_s::ufs, unit_s::umultfil, and unit_s::uspcproc.
Referenced by __WRITEC(), _dw_endrec(), _nlrdecho(), _nonadv_endrec(), _nonadv_partrec(), _rnlecho(), _sw_endrec(), fputcf90_(), fputcf90_8_(), putcf90_(), and putcf90_8_().
void _gather_data | ( | void * | lbuf, |
long | items, | ||
long | inc, | ||
int | len, | ||
void * | ptr | ||
) |
Definition at line 112 of file scatgath.c.
References LARGE, len, MEDIUM, PTR_ALIGNED, SIZE_ALIGNED, SMALL, and sp.
Referenced by _iochunk().
Definition at line 1457 of file fio.h.
References _search_unit_list(), unit_s::auxlockp, cup, MEM_LOCK, MEM_UNLOCK, NULL, OPEN_UPTR, unit_s::private, UHASH, unit_s::uid, and unit_s::uiolock.
Referenced by _clruptr(), _ll_implicit_open(), _nlrdecho(), _rnlecho(), _setuptr(), usdumplockf90_(), usdumplockf90_8_(), usdumpsemaf90_(), and usdumpsemaf90_8_().
static unit* _get_int_cup | ( | void | ) | [static] |
int _get_mismatch_error | ( | int | noabort, |
int | iost, | ||
unit * | cup, | ||
FIOSPTR | css | ||
) |
Definition at line 845 of file open.c.
References _ferr(), FEDIRTIV, FEFMTTIV, FEINTUNK, FEMIXAUX, FENOREAD, FENOWRIT, FESEQTIV, FEUNFMIV, FS_AUX, OS_READ, OS_WRITE, ret, T_RDF, T_RDU, T_WDF, T_WDU, TF_FMT, TF_WRITE, unit_s::uaction, unit_s::ufmt, unit_s::ufs, and unit_s::useq.
Referenced by __READ(), __READC(), __WRITE(), __WRITEC(), _FRF(), _FRU(), _FWF(), _FWU(), and _set_ok_flags().
unit* _get_next_unit | ( | unit * | p, |
int | iflock, | ||
int | iftask | ||
) |
Definition at line 205 of file fortunit.c.
References _fort_unit, _release_cup(), unit_s::auxlockp, cup, HASH_SIZE, unit_s::hashlink, MEM_LOCK, MYTASK, NULL, OPEN_UPTR, unit_s::private, UHASH, unit_s::uid, unit_s::uiolock, and unit_s::utid.
Referenced by _f_inqu(), _fcleanup(), _flushall(), _mixed_scope(), and _uniqinod().
unit* _imp_open77 | ( | struct fiostate * | css, |
int | acc, | ||
int | form, | ||
unum_t | unum, | ||
int | errf, | ||
int * | errn | ||
) |
unit* _implicit_open | ( | int | acc, |
int | form, | ||
unum_t | unum, | ||
int | errf, | ||
int * | errn | ||
) |
Definition at line 144 of file impopen.c.
References _ll_implicit_open(), and GET_FIOS_PTR.
unit* _init_internal_unit | ( | void | ) |
Definition at line 98 of file initunit.c.
References _fort_internal_unit, _i_fortran_io_is_init, _init_unit(), _initialize_i_fortran_io(), _LELVL_ABORT, _lerror(), _set_ok_flags(), cup, FENOMEMY, FLSH_MEM, unit_s::hashlink, NULL, OPENLOCK, OPENUNLOCK, OS_NONE, OS_READWRITE, OS_YES, unit_s::uaction, unit_s::ublnk, unit_s::udelim, unit_s::ufmt, unit_s::uid, unit_s::uiolock, unit_s::upad, and unit_s::useq.
void _init_unit | ( | unit * | cup | ) |
Definition at line 69 of file initunit.c.
References FS_DEFAULT, unit_s::ufs, UNIT_HEADER, unit_s::unitchk, unit_s::usysfd, and unit_s::utrunc.
Referenced by _alloc_unit(), and _init_internal_unit().
void _initialize_fortran_io | ( | void | ) |
Definition at line 146 of file finit.c.
References _f_rcsz, _fortran_io_is_init, _lwrite_setup(), _wf_setup(), LOADED, and LOADED_DATA.
Referenced by _initialize_e_fortran_io(), and _initialize_i_fortran_io().
int _iochunk | ( | FIOSPTR | css, |
unit * | cup, | ||
xfer_func * | func, | ||
struct DvDimen * | dimen, | ||
type_packet * | tip, | ||
short | nd, | ||
long | extent, | ||
int | bshft, | ||
bcont * | addr | ||
) |
Definition at line 63 of file iochunk.c.
References _gather_data(), _scatter_data(), CHBUFSIZE, type_information_packet::count, type_information_packet::elsize, PARTIAL, type_information_packet::stride, and unit_s::uwrt.
Referenced by _stride_dv().
int _ir_endrec | ( | FIOSPTR | _Css, |
unit * | _Cup, | ||
int | _Count | ||
) |
Definition at line 805 of file rf.c.
References FERDIEOF, fiostate::iostate::fmt, fiostate::iostate::fmtstate::icl, fiostate::iostate::fmtstate::icp, fiostate::iostate::fmtstate::iiae, fiostate::iostate::fmtstate::leftablim, NULL, REND, fiostate::u, unit_s::ulinebuf, unit_s::ulinecnt, unit_s::ulineptr, and unit_s::urecsize.
Referenced by _FRF().
int _iw_endrec | ( | FIOSPTR | _Css, |
unit * | _Cup, | ||
int | _Count | ||
) |
Definition at line 866 of file wf.c.
References BLANK, FEWRIEND, fiostate::iostate::fmt, fiostate::iostate::fmtstate::icl, fiostate::iostate::fmtstate::icp, fiostate::iostate::fmtstate::iiae, fiostate::iostate::fmtstate::leftablim, NULL, RERROR, fiostate::u, unit_s::ulinebuf, unit_s::ulinecnt, unit_s::ulinemax, and unit_s::ulineptr.
Referenced by _FWF().
int _lw_after_nonadv | ( | FIOSPTR | _Css, |
unit * | _Cup, | ||
int | _Linelimit, | ||
int | _Namelistflag | ||
) |
Definition at line 1076 of file wf.c.
References _newrec_listio_after_nonadvancing, _sw_endrec(), BLANK, FEWRLONG, NULL, unit_s::ulinebuf, unit_s::ulinemax, unit_s::ulineptr, and unit_s::urecsize.
Referenced by _FWF(), and _FWN().
int _nonadv_endrec | ( | FIOSPTR | _Css, |
unit * | _Cup | ||
) |
Definition at line 1045 of file wf.c.
References _fwch(), errno, FULL, NULL, unit_s::pnonadv, RERROR, unit_s::uflshptr, unit_s::ulinebuf, and unit_s::ulinemax.
Referenced by _BACK(), _EOFW(), _REWF(), and _unit_close().
Definition at line 63 of file parse.c.
References _fmt_parse, fiostate::iostate::fmt, fiostate::iostate::fmtstate::freepfmt, LIB_CALL, msg_entry::msg_column, msg_entry::msg_number, NULL, OFFSET, PARSELOCK, PARSER_LEVEL, PARSEUNLOCK, fiostate::iostate::fmtstate::u, and fiostate::u.
Referenced by setup_format().
static void _release_cup | ( | unit * | cup | ) | [static] |
Definition at line 1523 of file fio.h.
Referenced by _clruptr(), _f_inqu(), _f_open(), _get_next_unit(), _ll_implicit_open(), _nlrdecho(), _rnlecho(), and _setuptr().
void _scatter_data | ( | void * | ptr, |
long | items, | ||
long | inc, | ||
int | len, | ||
void * | lbuf | ||
) |
Definition at line 289 of file scatgath.c.
References LARGE, len, MEDIUM, PTR_ALIGNED, SIZE_ALIGNED, SMALL, and sp.
Referenced by _iochunk().
unit* _search_unit_list | ( | unit * | p, |
unum_t | unum | ||
) |
Definition at line 162 of file fortunit.c.
References unit_s::hashlink, MYTASK, NULL, unit_s::private, unit_s::uid, and unit_s::utid.
Referenced by _get_cup(), and f90_or_f77().
void _set_device_and_inode | ( | int | sysfd, |
dev_t * | devicep, | ||
ino_t * | inodep | ||
) |
Definition at line 188 of file openutil.c.
Referenced by _f_open(), and _setuptr().
void _set_ok_flags | ( | unit * | cup | ) |
Definition at line 813 of file open.c.
References _get_mismatch_error(), NULL, unit_s::ok_rd_dir_fmt, unit_s::ok_rd_dir_unf, unit_s::ok_rd_seq_fmt, unit_s::ok_rd_seq_unf, unit_s::ok_wr_dir_fmt, unit_s::ok_wr_dir_unf, unit_s::ok_wr_seq_fmt, unit_s::ok_wr_seq_unf, T_RDF, T_RDU, T_RSF, T_RSU, T_WDF, T_WDU, T_WSF, and T_WSU.
Referenced by _f_open(), and _init_internal_unit().
Definition at line 49 of file dsetpos.c.
References _dshiftl(), _unit_trunc(), errno, FP::fdc, FDC_ERR_NOSUP, FEBIOISP, FEBIOSNT, FEINTFST, FEMIXAUX, FFC_SEEKA, FFC_SEEKE, FFC_WEOF, FP_BSEEK, FP_SETPOS, FS_AUX, FS_FDC, FS_TEXT, len, NO, ret, STD, FP::std, ffsw::sw_error, unit_s::uend, unit_s::uffsw, unit_s::uflagword, unit_s::ufmt, unit_s::ufp, unit_s::ufs, unit_s::urecpos, unit_s::utrunc, unit_s::uwrt, WAITIO, and YES.
Referenced by _f_open(), and SETPOS().
void _setup_cvrt | ( | unit * | cup | ) |
Definition at line 156 of file openutil.c.
References CS_CDC, CS_EBCDIC, CS_NATIVE, NCV_CDC, NCV_IBM, unit_s::ucharset, and unit_s::unumcvrt.
Referenced by _f_opn().
int _sr_endrec | ( | FIOSPTR | _Css, |
unit * | _Cup, | ||
int | _Count | ||
) |
Definition at line 856 of file rf.c.
References _frch(), CNT, EOD, EOF, EOR, errno, FERDENDR, FERDMEMY, FERDPEOF, fiostate::iostate::fmt, FULL, IOERR, fiostate::iostate::fmtstate::leftablim, MB, NULL, PARTIAL, REND, RERROR, stat, tbuf, fiostate::u, unit_s::uend, unit_s::ulinebuf, unit_s::ulinecnt, unit_s::ulineptr, and unit_s::urecsize.
Referenced by _FRF(), and _FRN().
int _sw_endrec | ( | FIOSPTR | _Css, |
unit * | _Cup, | ||
int | _Count | ||
) |
Definition at line 937 of file wf.c.
References _fwch(), errno, fiostate::iostate::fmt, FULL, fiostate::iostate::fmtstate::leftablim, fiostate::iostate::fmtstate::nonl, NULL, PARTIAL, RERROR, fiostate::u, unit_s::uflshptr, unit_s::ulinebuf, unit_s::ulinecnt, unit_s::ulinemax, and unit_s::ulineptr.
Referenced by _FWF(), _FWN(), and _lw_after_nonadv().
int _uniqinod | ( | unit * | cup, |
assign_info * | aip | ||
) |
Definition at line 224 of file openutil.c.
References _get_next_unit(), FEMDUPOP, FEOPFNCN, fstat, assign_info_s::m_multup, assign_info_s::m_multup_flg, NULL, RSVD_UNUM, stat, unit_s::udevice, unit_s::uid, unit_s::uinode, unit_s::umultup, and unit_s::usysfd.
Referenced by _f_open(), and _setuptr().
int _unit_bksp | ( | unit * | cup | ) |
Definition at line 69 of file unitbksp.c.
References _unit_trunc(), DT_NONE, FP::fdc, FEBKSPIV, FEBSPNRD, FEINTFST, FEINTUNK, FEMIXAUX, FENOBKPI, FENOBKSP, FS_AUX, FS_BIN, FS_FDC, FS_TEXT, FTELLZERO, LIBFSEEK, LIBFTELL, ret, STD, FP::std, ffsw::sw_error, tbuf, TBUFSZB, unit_s::uend, unit_s::uffsw, unit_s::ufmt, unit_s::ufp, unit_s::ufs, unit_s::ulastyp, unit_s::urecpos, unit_s::useek, unit_s::useq, unit_s::uspcproc, unit_s::utrunc, unit_s::uwrt, and WAITIO.
Referenced by _BACK(), _f_open(), _FWF(), and _FWN().
int _unit_close | ( | unit * | cup, |
int | cstat, | ||
FIOSPTR | css | ||
) |
Definition at line 77 of file unitclose.c.
References _f_abort, _ft_stclose(), _nonadv_endrec(), _rtc, _unit_scratch(), _unit_trunc(), unit_s::alfnm, unit_s::auxlockp, CLST_DELETE, CLST_KEEP, CLST_UNSPEC, errno, fiostate::f_rtbgn, FP::fdc, FEINTFST, FEMIXAUX, FFC_NOCLOSE, free(), FS_AUX, FS_FDC, FS_TEXT, FSTATS_POST, MEM_UNLOCK, NULL, unit_s::pnonadv, ret, STD, FP::std, ffsw::sw_error, T_CLOSE, unit_s::uend, unit_s::uflagword, unit_s::ufnm, unit_s::ufp, unit_s::ufs, unit_s::ulinebuf, unit_s::upfcstk, unit_s::urepdata, unit_s::uscrtch, unit_s::useq, unit_s::utmpfil, unit_s::utrunc, and unit_s::uwrt.
Referenced by _CLS(), _f_open(), and _fcleanup().
int _unit_scratch | ( | unit * | cup | ) |
Definition at line 235 of file unitclose.c.
References unit_s::alfnm, errno, FC_SCRATCH, FP::fdc, FENODELT, FS_FDC, NULL, ret, SCR_SINGLELINK, SCR_UNLINKED, stat, unit_s::udevice, unit_s::ufp, unit_s::ufs, unit_s::uinode, unlink, unit_s::unlinked, unit_s::uscrtch, unit_s::usnglink, and unit_s::usysfd.
Referenced by _f_open(), and _unit_close().
int _unit_seek | ( | unit * | cup, |
recn_t | recn, | ||
int | iost | ||
) |
Definition at line 67 of file unitseek.c.
References errno, FP::fdc, FEINTUNK, FEIVRECN, FENORECN, FS_BIN, FS_FDC, FS_TAPE, FS_TEXT, LIBFSEEK, STD, FP::std, ffsw::sw_error, TF_READ, unit_s::udalast, unit_s::udamax, unit_s::ufbitpos, unit_s::ufmt, unit_s::ufp, unit_s::ufs, and unit_s::urecl.
Referenced by _FRF(), _FRU(), _FWF(), _FWU(), _RUI(), and _WUI().
int _unit_trunc | ( | unit * | cup | ) |
Definition at line 69 of file unittrunc.c.
References errno, FP::fdc, FEINTFST, fileno(), FS_FDC, FS_TEXT, L, LIBFSEEK, LIBFTELL, LIBFTRUNC, STD, FP::std, ffsw::sw_error, trunc(), unit_s::uffsw, unit_s::ufp, unit_s::ufs, unit_s::useek, and unit_s::useq.
Referenced by __setpos64(), _f_open(), _REWF(), _setpos(), _unit_bksp(), and _unit_close().
Definition at line 204 of file tables.c.
Referenced by _FRF(), _FWF(), _FWN(), _FWU(), _nlstrent(), _wnl90to77(), and _WUF().
const short _charset_cnvt[CS_MAX] |
Definition at line 157 of file tables.c.
Referenced by _get_dc_param().
int _def_bin_bs |
int _def_sbin_bs |
short _e_fortran_io_is_init |
Definition at line 128 of file finit.c.
Referenced by _alloc_unit(), and _initialize_e_fortran_io().
const short _f77_type_len[DT_MAX] |
Definition at line 96 of file tables.c.
Referenced by _get_dc_param(), and n_getv().
Definition at line 77 of file tables.c.
Referenced by _get_dc_param().
const char* _f90_type_name[DVTYPE_NTYPES] |
Definition at line 119 of file tables.c.
Referenced by _gdc_abort().
int _f_rcsz |
Definition at line 65 of file globals.c.
Referenced by _f_open(), and _initialize_fortran_io().
const short _ffstat_cnvt[7] |
Definition at line 70 of file globals.c.
Referenced by _init_internal_unit().
Definition at line 68 of file globals.c.
Referenced by _alloc_unit(), _get_next_unit(), and f90_or_f77().
short _fortran_io_is_init |
Definition at line 127 of file finit.c.
Referenced by _initialize_e_fortran_io(), _initialize_fortran_io(), and _initialize_i_fortran_io().
short _i_fortran_io_is_init |
Definition at line 129 of file finit.c.
Referenced by _init_internal_unit(), and _initialize_i_fortran_io().
Definition at line 60 of file globals.c.
Referenced by _do_open().
Referenced by _FRF(), _ld_read(), _strip_mine(), and _xfer_iolist().
Referenced by _FWF(), _FWN(), _ld_write(), _nlstrent(), _wnl90to77(), and _xfer_iolist().
const short _old_namelist_to_f77_type_cnvt[10] |
Definition at line 55 of file globals.c.
Referenced by _clruptr(), and _setuptr().
Referenced by _FRF(), _rdfmt(), and _xfer_iolist().
Referenced by _FRU(), _rdunf(), and _xfer_iolist().
struct fiostate _tsk_fiostate |
Referenced by _FWF(), _wrfmt(), and _xfer_iolist().
Referenced by _FWU(), _wrunf(), and _xfer_iolist().