osprey/libf/include/fio.h File Reference
#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.
Data Types | |
| union | FP |
| type | unit_s |
| type | fiostate |
| union | fiostate::iostate |
| type | fiostate::iostate::unfstate |
| type | fiostate::iostate::fmtstate |
| type | olist |
| type | cllist |
| type | inlist |
| type | type_information_packet |
Defines | |
| #define | PRINT_TIP(tipa) |
| #define | HASH_SIZE 256 |
| #define | STDIN_U 100 |
| #define | STDOUT_U 101 |
| #define | STDERR_U 102 |
| #define | RECMAX 1024 |
| #define | RECMAXLDO 133 |
| #define | ERROR 1 |
| #define | OK 0 |
| #define | YES 1 |
| #define | NO 0 |
| #define | WRITE 1 |
| #define | READ 2 |
| #define | SEQ 3 |
| #define | DIR 4 |
| #define | FMT 5 |
| #define | UNF 6 |
| #define | EXT 7 |
| #define | INT 8 |
| #define | TF_WRITE 001 |
| #define | TF_READ 002 |
| #define | TF_POS 004 |
| #define | TF_FMT 010 |
| #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 |
| #define | DT_INT 1 |
| #define | DT_REAL 2 |
| #define | DT_DBLE 3 |
| #define | DT_CMPLX 4 |
| #define | DT_LOG 5 |
| #define | DT_CHAR 6 |
| #define | DT_SINT 7 |
| #define | DT_DBLCOM 8 |
| #define | DT_MAX 9 |
| #define | BLKSIZE 4096 |
| #define | SECTOR BLKSIZE |
| #define | DEF_BIN_BS 1 |
| #define | DEF_SBIN_BS 1 |
| #define | DFBUFSZ 8 |
| #define | SFBUFSZ 8 |
| #define | DUBUFSZ 8 |
| #define | SUBUFSZ 48 |
| #define | DEFAULT_NBUF 4 |
| #define | TBUFSZW 36 |
| #define | TBUFSZB (TBUFSZW * sizeof(long)) |
| #define | CHBUFSIZE (1024 * sizeof(long)) |
| #define | IO_OKAY 0 |
| #define | IO_ERR 1 |
| #define | IO_END 2 |
| #define | CNT 1 |
| #define | EOR 0 |
| #define | EOF -1 |
| #define | EOD -2 |
| #define | IOERR -1 |
| #define | PARTIAL 0 |
| #define | FULL 1 |
| #define | CLST_UNSPEC 0 |
| #define | CLST_KEEP 1 |
| #define | CLST_DELETE 2 |
| #define | _UERRF 01 |
| #define | _UEORF 02 |
| #define | _UENDF 04 |
| #define | _UIOSTF 010 |
| #define | _UERRC 020 |
| #define | _UEORC 040 |
| #define | _UENDC 0100 |
| #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 |
| type { | |
| 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/Subroutines | |
| 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) |
| int | _get_dc_param (FIOSPTR, unit *, struct f90_type, type_packet *) |
| int | _is_file_name (long n) |
| void | flush_ (const unum_t *n) |
| int | _f_open (FIOSPTR css, unit **cup_p, olist *olptr, int isf90) |
| int | _f_inqu (FIOSPTR css, unit *cup, inlist *a) |
| int | _fortname (char *buf, unum_t n) |
| int | _mixed_scope (unit *cup) |
| int | _ft_stopen (unit *cup, char *atstr) |
| int | _ft_stclose (unit *cup) |
| int | _unpack_arry (void *dvc, DopeVectorType *dvnc) |
| int | _nonadv_partrec (FIOSPTR css, 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 Documentation
| #define _rtc | ( | ) | 0 |
Definition at line 1226 of file fio.h.
Referenced by _ft_stclose(), _ft_stopen(), and _unit_close().
| #define _UENDF 04 |
| #define _UERRC 020 |
| #define _UERRF 01 |
| #define _UIOSTF 010 |
| #define ABORT_ON_ERROR (cup == NULL || (cup->uflag & (_UERRF | _UIOSTF)) == 0) |
| #define BLKSIZE 4096 |
| #define CFT77_RETVAL | ( | _VAL | ) | (_VAL) |
| #define CHBUFSIZE (1024 * sizeof(long)) |
| #define CLST_DELETE 2 |
| #define CLST_KEEP 1 |
| #define CLST_UNSPEC 0 |
Definition at line 296 of file fio.h.
Referenced by _CLS(), _f_open(), _fcleanup(), and _unit_close().
| #define COMPADD | ( | cup, | |||
| pbytes, | |||||
| pbits, | |||||
| pval | ) | pbytes = pbits = pval = 0; |
| #define CREATE_F90_INFO | ( | ts, | |||
| tip, | |||||
| type77 | ) |
Value:
{ \
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_SBIN_BS 1 |
| #define DIR 4 |
Definition at line 131 of file fio.h.
Referenced by _FRF(), _FRU(), _FWF(), _FWU(), _ll_implicit_open(), _PXFCLOSEDIR(), _PXFOPENDIR(), _PXFREADDIR(), _PXFREWINDDIR(), _RUI(), _WUI(), c_dfe(), c_due(), create_tmpdir(), f_find_com(), find_files_in_directory(), fk_open(), jcf_path_extdirs_arg(), pch_open_file(), and Process_Feedback_Options().
| #define DT_CHAR 6 |
Definition at line 194 of file fio.h.
Referenced by get_holl(), get_quoholl(), l_write(), n_getv(), nex_data(), nl_read(), RNL(), and WNL().
| #define DT_CMPLX 4 |
Definition at line 192 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_DBLE 3 |
Definition at line 191 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().
| #define DT_INT 1 |
| #define DT_LOG 5 |
| #define DT_NONE 0 |
| #define DT_REAL 2 |
Definition at line 190 of file fio.h.
Referenced by _get_dc_param(), g_complx(), l_convert(), and l_write().
| #define DT_SINT 7 |
| #define EOD -2 |
Definition at line 262 of file fio.h.
Referenced by __READ(), __READC(), _dr_endrec(), _frch(), _frwd(), _rb(), _rnl_fillrec(), and _sr_endrec().
| #define errfile stderr |
Definition at line 1423 of file fio.h.
Referenced by _f_open(), _fcontext(), _PAUSE(), _pr_echomsg(), and pr_msg().
| #define FF2FTNST | ( | ffstat | ) | _ffstat_cnvt[ffstat] |
| #define FLSH_MEM | ( | ) | { } |
| #define FMT 5 |
Definition at line 132 of file fio.h.
Referenced by __READC(), __WRITEC(), _FRF(), _FRN(), _FWF(), _FWN(), _ll_implicit_open(), _nlrdecho(), _rnlecho(), c_dfe(), c_le(), c_nle(), c_sfe(), fgetcf90_(), fk_open(), fnum_(), fputcf90_(), RNL(), setup(), and WNL().
| #define GET_FIOS_PTR | ( | _P | ) | _P = &_tsk_fiostate; |
Definition at line 1139 of file fio.h.
Referenced by __OPN(), _BACK(), _CLS(), _EOFW(), _f_inqu(), _f_open(), _fcontext(), _ll_implicit_open(), _REWF(), flush_(), fnum_(), fstatf90_(), fstatf90_4_4_8_(), fstatf90_8_(), isattyf90_(), isattyf90_8_(), numblks_(), ttynamf90_(), and ttynamf90_8_().
| #define IO_TYPE | ( | _U | ) |
Value:
Definition at line 1335 of file fio.h.
Referenced by _fcontext(), _ft_stclose(), and _ft_stopen().
| #define MYTASK 0 |
Definition at line 1201 of file fio.h.
Referenced by _alloc_unit(), _get_next_unit(), and _search_unit_list().
| #define OPEN_UPTR | ( | _U | ) | ((_U) != NULL && (_U)->ufs != 0) |
Definition at line 1176 of file fio.h.
Referenced by __OPN(), _alloc_unit(), _f_open(), _fcleanup(), _fcontext(), _flushall(), _get_cup(), _get_next_unit(), and flush_().
| #define OPENLOCK | ( | ) | MEM_LOCK(&_openlock) |
Definition at line 934 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 936 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 PRINT_TIP | ( | tipa | ) |
Value:
{ \
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);\
} \
}
| #define RECMAX 1024 |
| #define REND | ( | n | ) |
Value:
{ \
if ((cup == NULL) || (cup->uflag & (_UENDF | _UIOSTF)) == 0) \
_ferr(css, n); \
else \
return(n); \
}
Definition at line 909 of file fio.h.
Referenced by _ir_endrec(), _mr_scan_char(), and _sr_endrec().
| #define RERROR | ( | n | ) |
Value:
{ \
if (ABORT_ON_ERROR) \
_ferr(css, n); \
else \
return(n); \
}
Definition at line 882 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().
Value:
{ \
if (ABORT_ON_ERROR) \
_ferr(css, n, p); \
else \
return(n); \
}
Definition at line 889 of file fio.h.
Referenced by _dr_endrec().
| #define RSVD_UNUM | ( | _U | ) | ((_U) >= STDIN_U && (_U) <= STDERR_U) |
| #define STMT_BEGIN | ( | _UNUM, | |||
| _INTFLAG, | |||||
| _STMTCODE, | |||||
| _CILIST, | |||||
| _LOCFIOSP, | |||||
| _CUP | ) |
Value:
{\
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 1241 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(), CHECKTP(), CLOSEV(), ENDSP(), fgetcf90_(), fgetcf90_8_(), flush_(), fnum_(), 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_(), GETTP(), isattyf90_(), isattyf90_8_(), numblks_(), putcf90_(), putcf90_8_(), RNL(), SETPOS(), SETSP(), SETTP(), setup(), SKIPF(), STARTSP(), TSYNC(), ttynamf90_(), ttynamf90_8_(), and WNL().
| #define STMT_END | ( | _CUP, | |||
| _STATSCODE, | |||||
| _CILIST, | |||||
| _LOCFIOSP | ) |
Value:
{ \
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 1287 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(), _Setbuf(), _Setlinebuf(), _UNIT_(), _wb(), _WUF(), CHECKTP(), CLOSEV(), ENDSP(), fgetcf90_(), fgetcf90_8_(), flush_(), fnum_(), 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_(), GETTP(), isattyf90_(), isattyf90_8_(), numblks_(), putcf90_(), putcf90_8_(), RNL(), SETPOS(), SETSP(), SETTP(), SKIPF(), STARTSP(), TSYNC(), ttynamf90_(), ttynamf90_8_(), and WNL().
| #define T_BACKSPACE (02200 | TF_POS ) |
| #define T_BUFIN (01700 | TF_POS ) |
| #define T_BUFOUT (01600 | TF_POS ) |
| #define T_CLOSE (02400 ) |
| #define T_ENDFILE (02300 | TF_POS ) |
| #define T_GETPOS (03000 ) |
Definition at line 176 of file fio.h.
Referenced by _fcontext(), _GETPOS_(), ftellf90_8_(), and ftellf90_8_4_().
| #define T_INQF (02500 ) |
| #define T_INQU (02600 ) |
Definition at line 172 of file fio.h.
Referenced by _fcontext(), _INQ(), fnum_(), fstatf90_(), fstatf90_4_4_8_(), fstatf90_8_(), isattyf90_(), isattyf90_8_(), ttynamf90_(), and ttynamf90_8_().
| #define T_LENGTH (03200 ) |
| #define T_NUMBLKS (03600 ) |
| #define T_OPEN (02000 ) |
| #define T_RDF (01200 | TF_READ | TF_POS | TF_FMT ) |
Definition at line 158 of file fio.h.
Referenced by _fcontext(), _FRF(), _get_mismatch_error(), and _set_ok_flags().
| #define T_RDU (01300 | TF_READ | TF_POS ) |
Definition at line 159 of file fio.h.
Referenced by _fcontext(), _FRU(), _get_mismatch_error(), _RUI(), and _set_ok_flags().
| #define T_REWIND (02100 | TF_POS ) |
| #define T_RLIST (01400 | TF_READ | TF_POS ) |
| #define T_RNL (01500 | TF_READ | TF_POS ) |
| #define T_RSF (00700 | TF_READ | TF_POS | TF_FMT ) |
Definition at line 156 of file fio.h.
Referenced by __READC(), _fcontext(), _FRF(), _set_ok_flags(), fgetcf90_(), fgetcf90_8_(), getcf90_(), getcf90_8_(), and setup().
| #define T_RSU (01100 | TF_READ | TF_POS ) |
Definition at line 157 of file fio.h.
Referenced by __READ(), _fcontext(), _FRU(), _RUI(), and _set_ok_flags().
| #define T_SETPOS (03100 | TF_POS ) |
Definition at line 177 of file fio.h.
Referenced by _fcontext(), fseekf90_(), fseekf90_4_8_4_(), fseekf90_8_(), and SETPOS().
| #define T_TAPE (03400 | TF_POS ) |
| #define T_UNIT (03300 ) |
| #define T_WDF (00300 | TF_WRITE | TF_POS | TF_FMT ) |
Definition at line 151 of file fio.h.
Referenced by _fcontext(), _FWF(), _get_mismatch_error(), and _set_ok_flags().
| #define T_WDU (00400 | TF_WRITE | TF_POS ) |
Definition at line 152 of file fio.h.
Referenced by _fcontext(), _FWU(), _get_mismatch_error(), _set_ok_flags(), and _WUI().
| #define T_WLIST (00500 | TF_WRITE | TF_POS ) |
| #define T_WNL (00600 | TF_WRITE | TF_POS ) |
Definition at line 154 of file fio.h.
Referenced by _fcontext(), _FWN(), _ld_write(), _write_delimited_char(), and WNL().
| #define T_WSF (00100 | TF_WRITE | TF_POS | TF_FMT ) |
Definition at line 149 of file fio.h.
Referenced by __WRITEC(), _fcontext(), _FWF(), _set_ok_flags(), fputcf90_(), fputcf90_8_(), putcf90_(), and putcf90_8_().
| #define T_WSU (00200 | TF_WRITE | TF_POS ) |
Definition at line 150 of file fio.h.
Referenced by __WRITE(), _fcontext(), _FWU(), _set_ok_flags(), and _WUI().
| #define TBUFSZB (TBUFSZW * sizeof(long)) |
| #define TF_FMT 010 |
| #define TF_READ 002 |
Definition at line 143 of file fio.h.
Referenced by __READ(), __READC(), _fcontext(), _FRF(), _FRN(), _FRU(), _RUF(), _Setbuf(), _Setlinebuf(), _unit_seek(), fgetcf90_(), fgetcf90_8_(), getcf90_(), and getcf90_8_().
| #define TF_WRITE 001 |
Definition at line 142 of file fio.h.
Referenced by __WRITE(), __WRITEC(), _fcontext(), _FWF(), _FWN(), _FWU(), _get_mismatch_error(), _WUF(), fputcf90_(), fputcf90_8_(), putcf90_(), and putcf90_8_().
| #define UHASH | ( | x | ) | (x & (HASH_SIZE - 1)) |
Definition at line 1182 of file fio.h.
Referenced by _alloc_unit(), _get_cup(), _get_next_unit(), and f90_or_f77().
| #define UNF 6 |
Definition at line 133 of file fio.h.
Referenced by __READ(), __WRITE(), _BUFFERIN(), _BUFFEROUT(), _FRU(), _FWU(), _GETPOS_(), _LENGTH_(), _RUI(), _UNIT_(), _WUI(), c_due(), c_sue(), f_find_com(), fseekf90_(), fseekf90_4_8_4_(), fseekf90_8_(), ftellf90_8_(), ftellf90_8_4_(), GETTP(), SETPOS(), SETSP(), SETTP(), and SKIPF().
| #define UNIT_HEADER (offsetof(unit, auxlockp)) |
| #define WAITIO | ( | cup, | |||
| error_handle | ) |
Definition at line 999 of file fio.h.
Referenced by __setpos64(), _GETPOS_(), _LENGTH_(), _rb(), _REWF(), _setpos(), _UNIT_(), _unit_bksp(), and _wb().
Typedef Documentation
| 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) |
Enumeration Type Documentation
| enum access_spec |
| enum action_spec |
| enum blank_spec |
| enum delim_spec |
| enum form_spec |
| enum position_spec |
| enum status_spec |
Function Documentation
Definition at line 75 of file fortunit.c.
References _e_fortran_io_is_init, _fort_unit, _init_unit(), _initialize_e_fortran_io(), assert, errno, FENOMEMY, FLSH_MEM, unit_s::hashlink, malloc, 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().
| int _deduce_fstruct | ( | int | , | |
| struct fdinfo * | , | |||
| int | ||||
| ) |
Definition at line 89 of file openutil.c.
References CLASS_X, 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 977 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, EACCES, errno, FP::fdc, fdopen, FEINTFST, fileno, FS_FDC, FS_TEXT, i, isatty, long, MEM_LOCK, MEM_UNLOCK, memset, assign_info_s::n_stride, assign_info_s::n_stride_flg, NULL, O_ACCMODE, O_APPEND, O_RAW, O_RDONLY, O_RDWR, O_WRONLY, open, assign_info_s::pr_partit, assign_info_s::pr_partit_flg, assign_info_s::q_ocblks, assign_info_s::q_ocblks_flg, setvbuf(), STD, FP::std, STDERR_FILENO, ffsw::sw_error, unit_s::ufmt, unit_s::ufp, unit_s::uid, unit_s::urecl, unit_s::useek, unit_s::useq, void, and YES.
Referenced by _f_opn().
Definition at line 729 of file rf.c.
References _frch(), assert, CNT, EOD, EOF, EOR, errno, FENORECN, FERDMALR, fiostate::iostate::fmt, FULL, i, fiostate::iostate::fmtstate::leftablim, length, NULL, RERROR, RERROR1, fiostate::u, unit_s::udalast, unit_s::udamax, unit_s::ulinebuf, unit_s::ulinecnt, unit_s::ulineptr, and unit_s::urecsize.
Referenced by _FRF().
Definition at line 793 of file wf.c.
References _fwch(), assert, BLANK, errno, fiostate::iostate::fmt, FULL, i, fiostate::iostate::fmtstate::leftablim, NULL, ptr, 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().
Definition at line 67 of file inquire.c.
References _b_char(), _btol, _copy_n_trim(), _ferr(), _get_a_options(), _get_next_unit(), _LELVL_RETURN, _release_cup(), buf, errno, FEINTUNK, FENOMEMY, free(), GOOD_UNUM, inlist::inacc, inlist::inacclen, inlist::inaction, inlist::inactonlen, inlist::inblank, inlist::inblanklen, inlist::indelim, inlist::indelimlen, inlist::indir, inlist::indirlen, inlist::inerr, inlist::inex, inlist::infile, inlist::infilen, inlist::infmt, inlist::infmtlen, inlist::inform, inlist::informlen, inlist::inname, inlist::innamed, inlist::innamlen, inlist::innrec, inlist::innum, inlist::inopen, inlist::inpad, inlist::inpadlen, inlist::inposit, inlist::inpositlen, inlist::inrdwrtlen, inlist::inread, inlist::inreadlen, inlist::inrecl, inlist::inredwrit, inlist::inseq, inlist::inseqlen, inlist::inunf, inlist::inunflen, inlist::inunit, inlist::inwrite, inlist::inwritelen, LONG_MAX, malloc, MAX, MXUNITSZ, NULL, OPENLOCK, OPENUNLOCK, OS_APOSTROPHE, OS_APPEND, OS_ASIS, OS_NO, OS_NONE, OS_QUOTE, OS_READ, OS_READWRITE, OS_REWIND, OS_WRITE, OS_YES, p, RSVD_UNUM, s, stat::st_dev, stat::st_ino, stat, unit_s::uaction, unit_s::ublnk, unit_s::udalast, unit_s::udelim, unit_s::udevice, unit_s::ufmt, unit_s::ufnm, unit_s::uid, unit_s::uinode, unit_s::upad, unit_s::uposition, unit_s::urecl, unit_s::urecsize, and unit_s::useq.
Referenced by _INQ().
Definition at line 99 of file open.c.
References _alloc_unit(), _assign_asgcmd_info(), _copy_n_trim(), _f_ldsz, _f_opn(), _f_rcsz, _ferr(), _fortname(), _ft_stopen(), _gsys_qtape, _mixed_scope(), _release_cup(), _set_device_and_inode(), _set_ok_flags(), _setpos(), _stderr_lock, _stdin_lock, _stdout_lock, _uniqinod(), _unit_bksp(), _unit_close(), _unit_scratch(), _unit_trunc(), assign_info_s::a_actfil, assign_info_s::a_actfil_flg, unit_s::alfnm, AS_GLOBAL, AS_PRIVATE, AS_PROCESS, AS_TEAM, AS_THREAD, ASN_G_ALL, ASN_G_DF, ASN_G_DU, ASN_G_SF, ASN_G_SU, unit_s::auxlockp, close, CLST_UNSPEC, assign_info_s::D_fildes, assign_info_s::D_fildes_flg, ENOENT, errfile, errno, assign_info_s::F_filter_flg, FP::fdc, FEINTUNK, FEIVUNIT, FENOGLOB, FENOMEMY, FENOPRIV, FENOTEAM, FENOTHRD, FEOPFNNX, FEOPSTFN, FERROR, FERROR1, fileno, FORTSTATS, freeit(), FS_COS, FS_F77, FS_FDC, FS_TAPE, FS_TEXT, FS_UNBLOCKED, fstat, GOOD_UNUM, malloc, MEM_LOCK, mkstemp(), MXUNITSZ, NULL, O_CREAT, O_EXCL, O_TRUNC, olist::oaccess, olist::oaction, olist::oblank, olist::odelim, olist::oerr, olist::ofile, olist::ofilelen, olist::oform, OK, olist::opad, OPEN_UPTR, olist::oposition, olist::orecl, OS_APPEND, OS_ASIS, OS_BINARY, OS_FORMATTED, OS_NEW, OS_OLD, OS_REPLACE, OS_REWIND, OS_SCRATCH, OS_SEQUENTIAL, OS_SYSTEM, OS_UNKNOWN, OS_ZERO, olist::ostatus, olist::ounit, assign_info_s::P_ioscop, assign_info_s::P_ioscop_flg, RSVD_UNUM, assign_info_s::s_fstrct, assign_info_s::s_fstrct_flg, S_ISCHR, S_ISFIFO, stat::st_mode, stat, STD, FP::std, STDERR_FILENO, STDIN_FILENO, STDOUT_FILENO, strdup, unit_s::uaction, unit_s::ubinary, unit_s::ublnk, unit_s::udamax, unit_s::udelim, unit_s::udevice, unit_s::ufmt, unit_s::ufnm, unit_s::ufp, unit_s::ufs, unit_s::uft90, unit_s::uid, unit_s::uinode, unit_s::uldwsize, unit_s::ulinebuf, unit_s::uostatus, unit_s::upad, unit_s::uposition, unit_s::urecl, unit_s::urecsize, unit_s::uscrtch, unit_s::useek, unit_s::useq, unit_s::usysfd, unit_s::usystem, unit_s::utmpfil, unit_s::utrunc, and void.
Referenced by __OPN(), and _ll_implicit_open().
| 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 122 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, dest, DUBUFSZ, EACCES, 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, flags, 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, i, isatty, long, 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_ACCMODE, O_CREAT, O_RAW, O_RDONLY, O_RDWR, O_WRONLY, 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, S_ISREG, src, stat::st_mode, stat::st_size, STD, FP::std, STDERR_FILENO, STDOUT_FILENO, 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().
Definition at line 69 of file fcleanup.c.
References _get_next_unit(), _is_file_name(), _lmessage(), _print_statistics, _unit_close(), abort, CLST_UNSPEC, EOF, fflush(), FS_AUX, NULL, OPEN_UPTR, ret, sprintf(), unit_s::ufs, unit_s::uid, and void.
Referenced by _END(), _ferr(), and _initialize_e_fortran_io().
Definition at line 67 of file fcontext.c.
References _deduce_fstruct(), _who_called_me(), unit_s::alfnm, 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, i, if(), IO_TYPE, len, lineno, MAX_ENT_LEN, NULL, offset, OPEN_UPTR, FP::std, strlen(), 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, unit_s::ufs, and void.
Referenced by _ferr().
Definition at line 62 of file ferror.c.
References _fcleanup(), _fcontext(), _lmessage(), abort, args, fflush(), MPP_LOCK, NULL, va_end, and va_start.
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(), CHECKTP(), CLOSEV(), ENDSP(), fnum_(), 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(), SETSP(), setup_format(), STARTSP(), TSYNC(), ttynamf90_(), and ttynamf90_8_().
Definition at line 53 of file flsh_mem.c.
| int _fortname | ( | char * | buf, | |
| unum_t | n | |||
| ) |
Definition at line 149 of file frch.c.
References __fndc_charsz, _fdc_unpackc(), _filbuf, _GINTIO, clearerr(), CNT, count, EOD, EOF, EOR, errno, FP::fdc, FEINTFST, FEINTUNK, FEMIXAUX, feof(), ferror(), FESTIOER, FF2FTNST, FFCNT, FFEOR, FFSTAT, fgets(), FILE_CNT, FILE_FLAG, FILE_PTR, fill(), fptr, FS_AUX, FS_FDC, FS_TEXT, fseek, FULL, getc(), IOERR, memchr(), MIN, NULL, PARTIAL, ret, SEEK_CUR, STD, FP::std, strlen(), ffsw::sw_error, tbuf, TBUFSZB, unit_s::ublkd, unit_s::ucharset, unit_s::uffsw, unit_s::ufp, unit_s::ufs, ungetc(), unit_s::useq, and void.
Referenced by __READC(), _dr_endrec(), _rnl_fillrec(), _sr_endrec(), fgetcf90_(), fgetcf90_8_(), getcf90_(), and getcf90_8_().
| int _ft_stclose | ( | unit * | cup | ) |
Definition at line 182 of file stats.c.
References _rtc, file_name, free(), unit_s::ftstat, getpid, IO_TYPE, NULL, sp, strncpy(), unit_s::ufnm, unit_s::uid, unit_s::usysfd, void, and write.
Referenced by _unit_close().
| int _ft_stopen | ( | unit * | cup, | |
| char * | atstr | |||
| ) |
Definition at line 77 of file stats.c.
References _deduce_fstruct(), _rtc, errno, fd, FP::fdc, FENOMEMY, file_name, unit_s::ftstat, getpid, IO_TYPE, malloc, memcpy, memset, MIN, NULL, sp, STDERR_FILENO, STDIN_FILENO, strlen(), unit_s::ufmt, unit_s::ufnm, unit_s::ufp, unit_s::ufs, unit_s::uid, unit_s::urecl, unit_s::usysfd, void, and write.
Referenced by _f_open().
Definition at line 142 of file fwch.c.
References __fndc_charsz, _fdc_packc(), count, EOF, errno, FP::fdc, FEINTFST, ferror(), FESTIOER, FEWRAFEN, FILE_CNT, FILE_FLAG, FILE_PTR, fptr, fputc(), FS_FDC, FS_TEXT, fseek, FULL, fwrite, IOERR, PARTIAL, putc(), ret, SEEK_CUR, 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, unit_s::uspcproc, and void.
Referenced by __WRITEC(), _dw_endrec(), _nlrdecho(), _nonadv_endrec(), _nonadv_partrec(), _rnlecho(), _sw_endrec(), fputcf90_(), fputcf90_8_(), putcf90_(), and putcf90_8_().
Definition at line 105 of file scatgath.c.
References assert, i, memcpy, PTR_ALIGNED, SIZE_ALIGNED, sp, step(), and void.
Referenced by _iochunk().
Definition at line 1497 of file fio.h.
References _search_unit_list(), unit_s::auxlockp, 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(), _PXFFILENO(), _rnlecho(), _setuptr(), usdumplockf90_(), usdumplockf90_8_(), usdumpsemaf90_(), and usdumpsemaf90_8_().
| int _get_dc_param | ( | FIOSPTR | , | |
| unit * | , | |||
| struct | f90_type, | |||
| type_packet * | ||||
| ) |
Definition at line 86 of file getdcparam.c.
References __fndc_f77sz, __fndc_ncfunc, _charset_cnvt, _f77_type_len, _f90_to_f77_type_cnvt, _gdc_abort(), _gdc_dflt2len(), _gdc_kind2len(), _gdc_star2len(), ABORT_ON_ERROR, assert, type_information_packet::cnvfunc, type_information_packet::cnvindx, type_information_packet::cnvtype, COMPLEX_SZ, f90_type::dec_len, f90_type::dpflag, DT_DBLE, DT_INT, DT_REAL, DT_SINT, DT_SPECREAL, DVTYPE_ASCII, DVTYPE_COMPLEX, DVTYPE_INTEGER, DVTYPE_LOGICAL, DVTYPE_REAL, DVTYPE_TYPELESS, type_information_packet::extlen, FENCNV90, f90_type::int_len, type_information_packet::intlen, f90_type::kind_or_star, NCV_IEG, c_funs_s::new_style_func, type_information_packet::newfunc, printf(), REAL_SZ, c_funs_s::to_foreign, c_funs_s::to_native, f90_type::type, type_information_packet::type77, type_information_packet::type90, _dsz_s::typlen, unit_s::ucharset, unit_s::unumcvrt, and unit_s::uwrt.
Referenced by _BUFFERIN(), _BUFFEROUT(), _stride_dv(), _strip_mine(), and _xfer_iolist().
Definition at line 887 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().
Definition at line 211 of file fortunit.c.
References _fort_unit, _release_cup(), unit_s::auxlockp, 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(), _uniqinod(), and flush_().
Definition at line 104 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(), FENOMEMY, FLSH_MEM, unit_s::hashlink, malloc, 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.
Definition at line 73 of file initunit.c.
References FS_DEFAULT, memset, unit_s::ufs, UNIT_HEADER, unit_s::unitchk, unit_s::usysfd, unit_s::utrunc, and void.
Referenced by _alloc_unit(), and _init_internal_unit().
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 67 of file iochunk.c.
References _gather_data(), _scatter_data(), assert, CHBUFSIZE, type_information_packet::count, type_information_packet::elsize, func, i, long, PARTIAL, type_information_packet::stride, and unit_s::uwrt.
Referenced by _stride_dv().
Definition at line 809 of file rf.c.
References assert, FERDIEOF, fiostate::iostate::fmt, i, 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 _is_file_name | ( | long | n | ) |
Definition at line 104 of file util.c.
Referenced by _fcleanup(), _fortname(), _setunit(), and fmt_unit().
Definition at line 866 of file wf.c.
References assert, BLANK, FEWRIEND, fiostate::iostate::fmt, i, fiostate::iostate::fmtstate::icl, fiostate::iostate::fmtstate::icp, fiostate::iostate::fmtstate::iiae, fiostate::iostate::fmtstate::leftablim, memset, NULL, RERROR, fiostate::u, unit_s::ulinebuf, unit_s::ulinecnt, unit_s::ulinemax, unit_s::ulineptr, and void.
Referenced by _FWF().
Definition at line 1076 of file wf.c.
References _newrec_listio_after_nonadvancing, _sw_endrec(), assert, BLANK, FEWRLONG, i, NULL, unit_s::ulinebuf, unit_s::ulinemax, unit_s::ulineptr, and unit_s::urecsize.
| int _mixed_scope | ( | unit * | cup | ) |
Definition at line 302 of file openutil.c.
References _get_next_unit(), FEMIXSCP, NULL, unit_s::private, and unit_s::uid.
Referenced by _f_open().
Definition at line 1045 of file wf.c.
References _fwch(), assert, 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 989 of file wf.c.
References _fwch(), assert, BLANK, errno, i, MIN, NULL, PARTIAL, RERROR, unit_s::uflshptr, unit_s::ulinebuf, unit_s::ulinemax, unit_s::ulineptr, and unit_s::urecsize.
Referenced by _FWF().
Definition at line 63 of file parse.c.
References _fmt_parse, fiostate::iostate::fmt, fptr, 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().
Definition at line 1563 of file fio.h.
Referenced by _clruptr(), _f_inqu(), _f_open(), _get_next_unit(), _ll_implicit_open(), _nlrdecho(), _PXFFILENO(), _rnlecho(), and _setuptr().
Definition at line 282 of file scatgath.c.
References assert, i, memcpy, PTR_ALIGNED, SIZE_ALIGNED, sp, step(), and void.
Referenced by _iochunk().
Definition at line 168 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().
Definition at line 188 of file openutil.c.
References fstat, stat::st_dev, and stat::st_ino.
Referenced by _f_open(), and _setuptr().
Definition at line 855 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 53 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, fseek, NO, offset, pos(), 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.
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().
Definition at line 860 of file rf.c.
References _frch(), assert, CNT, EOD, EOF, EOR, errno, FERDENDR, FERDMEMY, FERDPEOF, fiostate::iostate::fmt, FULL, IOERR, fiostate::iostate::fmtstate::leftablim, length, MB, NULL, offset, PARTIAL, realloc, REND, RERROR, tbuf, fiostate::u, unit_s::uend, unit_s::ulinebuf, unit_s::ulinecnt, unit_s::ulineptr, and unit_s::urecsize.
Definition at line 937 of file wf.c.
References _fwch(), assert, errno, fiostate::iostate::fmt, FULL, i, fiostate::iostate::fmtstate::leftablim, mode, 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, S_ISCHR, S_ISFIFO, stat::st_mode, STDERR_FILENO, 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 81 of file unitbksp.c.
References _unit_trunc(), DT_NONE, FP::fdc, FEBKSPIV, FEBSPNRD, FEINTFST, FEINTUNK, FEMIXAUX, FENOBKPI, FENOBKSP, ferror(), fread, FS_AUX, FS_BIN, FS_FDC, FS_TEXT, FTELLZERO, i, LIBFSEEK, LIBFTELL, ok(), ret, ssize_t, 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, void, WAITIO, x, and is::y.
Definition at line 81 of file unitclose.c.
References __ffclose(), _f_abort, _ft_stclose(), _nonadv_endrec(), _rtc, _unit_scratch(), _unit_trunc(), unit_s::alfnm, assert, unit_s::auxlockp, CLST_DELETE, CLST_KEEP, CLST_UNSPEC, errno, fiostate::f_rtbgn, fclose(), FP::fdc, FEINTFST, FEMIXAUX, FFC_NOCLOSE, free(), FS_AUX, FS_FDC, FS_TEXT, FSTATS_POST, MEM_UNLOCK, memset, 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, unit_s::uwrt, and void.
Referenced by _CLS(), _f_open(), and _fcleanup().
| int _unit_scratch | ( | unit * | cup | ) |
Definition at line 239 of file unitclose.c.
References unit_s::alfnm, ENOENT, errno, FC_SCRATCH, FP::fdc, FENODELT, FS_FDC, NULL, ret, SCR_SINGLELINK, SCR_UNLINKED, stat::st_dev, stat::st_ino, 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().
Definition at line 77 of file unitseek.c.
References assert, errno, FP::fdc, FEINTUNK, FEIVRECN, FENORECN, FS_BIN, FS_FDC, FS_TAPE, FS_TEXT, LIBFSEEK, offset, pos(), SEEK_SET, STD, FP::std, strlen(), 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 81 of file unittrunc.c.
References errno, FP::fdc, FEINTFST, fflush(), fileno, FS_FDC, FS_TEXT, L, LIBFSEEK, LIBFTELL, LIBFTRUNC, SEEK_CUR, SEEK_SET, 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().
| int _unpack_arry | ( | void * | dvc, | |
| DopeVectorType * | dvnc | |||
| ) |
Definition at line 295 of file cntigchk.c.
References _fcdlen, _fcdtocp, DopeVector::a, addr(), base, DopeVector::base_addr, DopeVector::charptr, DopeVector::dimension, DVTYPE_ASCII, DopeVector::DvDimen::extent, i, f90_type::int_len, memcpy, DopeVector::n_dim, restrict, DopeVector::DvDimen::stride_mult, f90_type::type, and DopeVector::type_lens.
Variable Documentation
Definition at line 204 of file tables.c.
Referenced by _FRF(), _FWF(), _FWN(), _FWU(), _nlstrent(), _wnl90to77(), and _WUF().
| const short _charset_cnvt[CS_MAX] |
| 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 ftype_t _f77_to_f90_type_cnvt[DT_MAX] |
| const short _f77_type_len[DT_MAX] |
| const char* _f77_type_name[DT_MAX] |
| const short _f90_to_f77_type_cnvt[DVTYPE_NTYPES] |
| const char* _f90_type_name[DVTYPE_NTYPES] |
| int _f_rcsz |
| const short _ffstat_cnvt[7] |
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().
| xfer_func_c _frwd |
| short _i_fortran_io_is_init |
Definition at line 129 of file finit.c.
Referenced by _init_internal_unit(), and _initialize_i_fortran_io().
| xfer_func _ld_read |
Referenced by _FRF(), _ld_read(), _strip_mine(), and _xfer_iolist().
| xfer_func _ld_write |
Referenced by _FWF(), _FWN(), _ld_write(), _nlstrent(), _wnl90to77(), and _xfer_iolist().
| const short _old_namelist_to_f77_type_cnvt[10] |
| xfer_func _rdfmt |
Referenced by _FRF(), _rdfmt(), and _xfer_iolist().
| xfer_func _rdunf |
Referenced by _FRU(), _rdunf(), and _xfer_iolist().
| xfer_func _wrfmt |
Referenced by _FWF(), _wrfmt(), and _xfer_iolist().
| xfer_func _wrunf |
Referenced by _FWU(), _wrunf(), and _xfer_iolist().
