fio.h File Reference
#include "fstats.h"#include <errno.h>#include <ffio.h>#include <fortran.h>#include <stdio.h>#include <sys/types.h>#include <sys/iosw.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 |
| #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 16 |
| #define | SUBUFSZ 48 |
| #define | DEFAULT_NBUF 4 |
| #define | TBUFSZW _MAXVL |
| #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 | 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 | INITIALIZE_LOCK(x) mutex_init(&(x), USYNC_THREAD, NULL) |
| #define | OPENLOCK() MEM_LOCK(&_openlock) |
| #define | OPENUNLOCK() MEM_UNLOCK(&_openlock) |
| #define | PARSELOCK() MEM_LOCK(&_parselock) |
| #define | PARSEUNLOCK() MEM_UNLOCK(&_parselock) |
| #define | FLSH_MEM() { _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 _f_int1 | 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, OS_OAPPEND, OS_KEYED } |
| 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 Documentation
| #define _rtc | ( | ) | 0 |
Definition at line 1187 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 |
Definition at line 866 of file fio.h.
Referenced by _get_dc_param().
| #define BLKSIZE 4096 |
Definition at line 190 of file fio.h.
Referenced by _do_open(), and _f_opn().
| #define CFT77_RETVAL | ( | _VAL | ) | (_VAL) |
| #define CHBUFSIZE (1024 * sizeof(long)) |
Definition at line 229 of file fio.h.
Referenced by _iochunk(), _stride_dv(), and _strip_mine().
| #define CLST_DELETE 2 |
Definition at line 284 of file fio.h.
Referenced by _CLS(), and _unit_close().
| #define CLST_KEEP 1 |
Definition at line 283 of file fio.h.
Referenced by _CLS(), and _unit_close().
| #define CLST_UNSPEC 0 |
Definition at line 282 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 | ) |
{ \
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 |
Definition at line 197 of file fio.h.
Referenced by _do_open().
| #define DIR 4 |
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().
| #define DT_CHAR 6 |
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().
| #define DT_CMPLX 4 |
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_DBLE 3 |
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().
| #define DT_INT 1 |
Definition at line 175 of file fio.h.
Referenced by _get_dc_param(), l_convert(), and l_write().
| #define DT_LOG 5 |
Definition at line 179 of file fio.h.
Referenced by l_convert(), l_write(), and nex_data().
| #define DT_NONE 0 |
Definition at line 174 of file fio.h.
Referenced by _REWF(), _unit_bksp(), and l_write().
| #define DT_REAL 2 |
Definition at line 176 of file fio.h.
Referenced by _get_dc_param(), g_complx(), l_convert(), and l_write().
| #define DT_SINT 7 |
Definition at line 181 of file fio.h.
Referenced by _get_dc_param(), l_convert(), and l_write().
| #define EOD -2 |
Definition at line 248 of file fio.h.
Referenced by __READ(), __READC(), _dr_endrec(), _frch(), _frwd(), _rb(), _rnl_fillrec(), and _sr_endrec().
| #define errfile stderr |
Definition at line 1384 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 | ( | ) | { _flsh_mem(); } |
Definition at line 945 of file fio.h.
Referenced by _alloc_unit(), and _init_internal_unit().
| #define FMT 5 |
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 1123 of file fio.h.
Referenced by __flush_f90(), __OPN(), _BACK(), _CLS(), _EOFW(), _f_inqu(), _f_open(), _fcontext(), _ll_implicit_open(), _REWF(), fstatf90_(), fstatf90_4_4_8_(), fstatf90_8_(), isattyf90_(), isattyf90_8_(), numblks_(), ttynamf90_(), and ttynamf90_8_().
| #define HASH_SIZE 256 |
Definition at line 100 of file fio.h.
Referenced by _get_next_unit().
| #define INITIALIZE_LOCK | ( | x | ) | mutex_init(&(x), USYNC_THREAD, NULL) |
Definition at line 913 of file fio.h.
Referenced by _alloc_unit(), and _init_internal_unit().
| #define INT 8 |
Definition at line 121 of file fio.h.
Referenced by ANL_FILE_MNGR::_Concat(), ANL_FILE_MNGR::_Exists(), ANL_CBUF::_Is_Splitc(), ANL_CBUF::_Split(), ANL_FILE_MNGR::_Write_Obuf(), Accumulate_Preg_Info(), Actual_data_size(), Actual_result_type(), LINEX::Add_access(), CFG_NODE_INFO::Add_array_may_reduc(), CFG_NODE_INFO::Add_array_param(), CFG_NODE_INFO::Add_array_reduc(), LOOPINFO::Add_bound(), LINEX::Add_coupled_terms(), CFG_NODE_INFO::Add_def_array(), CFG_NODE_INFO::Add_formal_array(), PROMPF_LINES::Add_Line(), PROMPF_LINES::Add_Lines(), CFG_NODE_INFO::Add_may_def_array(), CFG_NODE_INFO::Add_may_use_array(), CFG_NODE_INFO::Add_scalar_def(), CFG_NODE_INFO::Add_scalar_may_def(), CFG_NODE_INFO::Add_scalar_may_reduc(), CFG_NODE_INFO::Add_scalar_may_use(), CFG_NODE_INFO::Add_scalar_reduc(), CFG_NODE_INFO::Add_scalar_ref_may_passed(), CFG_NODE_INFO::Add_scalar_ref_passed(), CFG_NODE_INFO::Add_scalar_use(), Add_to_SOE(), PROMPF_INFO::Add_Trans(), CFG_NODE_INFO::Add_use_array(), WB_BROWSER::Address(), WB_BROWSER::Address_Walk(), Adjust_Opt_Level(), Adjust_signed_type(), WB_BROWSER::Alias(), WB_BROWSER::Alias_Walk(), Allocate_All_Formals(), Allocate_File_Statics(), WB_BROWSER::Ancestors(), ANL_CBUF::ANL_CBUF(), Append_Nest_Clauses(), Append_Prefetch_Attributes(), Apply_Controls(), ARB_Verify_all(), arrsection_to_array(), c_fp_class_q(), PROMPF_INFO::Cache_Winddown(), Calc_Actual_Area(), Calc_Formal_Area(), Can_Do_Fast_Multiply(), PROMPF_INFO::Check(), check_elf_header(), Check_Exprs(), PROMPF_INFO::Check_New_Ids(), PROMPF_INFO::Check_Old_Ids(), check_section_headers(), PROMPF_INFO::Check_Traverse(), Check_Trip_Counts(), Check_Trip_Counts_Traverse(), ir_a2b::CheckEnumTable(), ir_a2b::CheckFlagTable(), Class_Name(), Clear_Vararg_Symbols(), IPO_CLONE::Clone_Tree(), Collect_Goodies(), Compact_Buffer(), PROJECTED_REGION::Compare(), complex_divide(), complex_sqrt(), Concat2_Strings(), Configure_Alias_Options(), PROJECTED_REGION::Constant_bounds(), LINEX::Copy(), Copy_option(), Copy_ST_No_Base(), Count_WN_Node(), LOOPINFO::Create_linex(), PROJECTED_NODE::Create_linex(), cwh_add_to_module_files_table(), cwh_add_to_used_files_table(), cwh_addr_address_ST(), cwh_addr_adjust_array(), cwh_addr_f90_pointer_reference_ls(), cwh_addr_insert_bounds_check(), cwh_addr_lda(), cwh_addr_load_ST(), cwh_addr_pstore_ST(), cwh_addr_store_ST(), cwh_addr_WN_ST(), cwh_char_intrin(), cwh_do_tranformational(), cwh_dope_initialize(), cwh_dst_array_type(), cwh_expr_binop_shift(), cwh_expr_extract_arrayexp(), cwh_funny_fp_intrinsic(), cwh_inline_allocate(), cwh_intrin_build(), cwh_intrin_ieee_intrin_call_helper(), cwh_intrin_sync_intrin(), cwh_io_no_desc(), cwh_stk_fld_name(), cwh_stk_pop_iostmt(), cwh_stk_push_top_item_again(), cwh_stmt_conformance_checks_walk(), cwh_stmt_insert_conformance_check(), cwh_types_dope_TY(), cwh_types_find_f90_pointer_ty(), cwh_types_form_misaligned_TY(), cwh_types_get_dope_info(), cwh_types_mk_dope_invariant_TY(), cwh_types_size_WN(), cwh_types_WN_TY(), cwh_write_makedepend(), DaVinci::DaVinci(), Declare_Func_N_Arg(), Declare_Function(), WB_BROWSER::Defs(), Delinearize_Shape(), WB_BROWSER::Dep_Symbol(), WB_BROWSER::Deps_Loop(), WB_BROWSER::Deps_Ref(), DEPV_Copy(), DEPV_CreateEqual(), DEPV_CreateStar(), DEPV_Print(), DEPV_PrintBound(), Diag_Init(), Dim_Length(), PROMPF_INFO::Distribution(), Divide_Limit(), do_simple(), PROMPF_INFO::Donest_Outer_Tile(), DRA_Collect_Commons(), DRA_EC_Array_Portion_Parms(), DRA_Finalize(), DRA_Insert_Mangling_Sigs(), DRA_Make_File_Name(), DRA_Process_Commons(), DRA_Process_Globals(), draw_expr(), draw_stmt(), PROMPF_INFO::Dsm_Tile(), DST_Init(), Dump_Spaces(), Eliminate_Expr(), Em_Begin_File(), Em_Dwarf_End_Text_Arange(), Em_Dwarf_Prepare_Output(), ANL_FUNC_ENTRY::Emit_Dir_Entries(), emit_inits_for_symbol(), DaVinci::Emit_Menu(), ANL_FUNC_ENTRY::Emit_Original_Construct(), Emit_Repeated_Constant(), HASH_TABLE< ST *, ST * >::Enter(), HASH_TABLE< SIG_TYPE, DATA_TYPE >::Enter_If_Unique(), Enter_Pregs_Into_Symtab(), PROJECTED_REGION::Equivalent(), LINEX::Equivalent(), ErrMsg_Report_Nonuser(), ErrMsg_Report_User(), DaVinci::Event_Loop(), Exp_To_Linex(), Exp_To_Linex_Array(), Export_Name(), F90_Rank_Walk(), F90_Size_Walk(), F90_Wrap_ARREXP(), Fail_FmtAssertion(), WB_BROWSER::Fancy_Down(), WB_BROWSER::Fancy_Up(), Fatal_Error(), FB_Print(), fdump_PU_Info_state(), fei_add_use_path(), fei_allocate(), fei_close(), fei_control_list(), fei_inquire(), fei_matmul(), fei_open(), fei_prefetch_ref(), fei_proc_imp(), fei_redistribute(), fei_static_subscripts(), file_exists(), Fill_Align_Initialize_Parameters(), Fill_Align_Symbol(), PROJECTED_REGION::Fill_Out(), PROJECTED_NODE::Fill_Out(), Finalize_Stack_Frame(), HASH_TABLE< SIG_TYPE, DATA_TYPE >::Find(), Find_Error_Desc(), WB_BROWSER::Find_Operator(), WB_BROWSER::Find_Operator_Walk(), Find_Reduction_Symbol(), Find_Symbol(), WB_BROWSER::Find_Symbols(), Find_Useless_Exprs(), WB_BROWSER::Find_Walk(), MHD::First(), PROMPF_INFO::Fission(), fix_tree(), PROMPF_INFO::Fusion(), PROMPF_INFO::Gather_Scatter(), Gen_File_Table(), Gen_Temp_Named_Symbol(), PROMPF_INFO::General_Version(), Get_Altentry_UpFormal_Symbol(), Get_Array_Dim_Size(), get_base_and_offset(), LINEX::Get_constant_term(), PROJECTED_NODE::Get_constant_term(), Get_Implicit_Locals(), Get_Int_Ctrl_Val(), get_intrinsic_name(), get_ioitem_name(), get_iostatement_name(), Get_Name_Ctrl_Val(), Get_Parameter_Location(), Get_PU_arg_area_size(), Get_Resources(), get_section(), get_section_header(), Get_Section_ST_With_Given_Name(), Get_ST_formal_preg_num(), Get_ST_formal_ref_base(), Get_Struct_Parameter_Location(), Get_surrounding_loop_count(), Has_Control_Char(), PROJECTED_REGION::Has_Important_Messy_Bounds(), LINEX::Has_loop_coeff(), PROJECTED_REGION::Has_Messy_Bounds(), ID_MAP< NODE_TYPE, KEY_TYPE >::Hash(), HASH_TABLE< SIG_TYPE, DATA_TYPE >::HASH_TABLE(), WB_BROWSER::Help(), PROMPF_INFO::Hoist_Messy_Bounds(), id_str(), ARRAY_SUMMARY::Init(), PROJECTED_KERNEL::Init(), INIT2F_Translate_Array_Ref(), Init_Controls_Tbl(), Init_Error_Handler(), Init_PU_arg_area_size_array(), Init_ST_formal_info_for_PU(), WB_BROWSER::Initialize_Keymap(), INITV2C_array_dimension(), INITV2C_block_array(), INITV2C_block_struct(), INITV2C_struct_fill(), InitvKind_Name(), INITVKIND_val(), PROMPF_INFO::Inner_Fission(), IPO_ADDR_HASH::Insert(), Insert_Call(), PROMPF_INFO::Interchange(), PROMPF_INFO::Interleaved_Winddown(), IPA_copy_PU(), IPA_WN_DELETE_Tree(), IPL_EX_Add_Expr_Offsets(), IPL_EX_Add_Value_Offsets(), IPL_EX_Collapse_Trip_Counts(), IPL_EX_Copy_Expr(), IPL_EX_Copy_Expr_Tree(), IPL_EX_Copy_Value(), IPL_EX_Eliminate_Value(), IPL_EX_Expr_Evaluate(), IPL_EX_New_Constant(), IPL_EX_New_Expr_Expr(), IPL_EX_New_Value_Expr(), IPL_EX_Set_Expr_Index(), IPL_EXS_Chop_Down_Estimate(), IPL_EXS_Eliminate_Duplicate_Exprs(), IPL_EXS_Eliminate_Duplicate_Values(), IPL_EXS_Eliminate_Expr_Identities(), IPL_EXS_Inner_Fold(), IPL_EXS_Outer_Fold(), IPL_EXS_Reassociate(), IPL_EXS_Sort_Exprs(), IPL_EXS_Useless(), IR_Dwarf_Gen_File_Table(), ir_print_filename(), ir_put_expr(), ir_put_stmt(), ir_put_wn(), ir_size(), TERM::Is_equal(), is_equality(), Is_Exp_Linexable(), Is_nested_call(), is_nlist_typed(), Is_Substring(), WB_BROWSER::Kids(), DaVinci::Kill_Davinci(), Kind_Name(), Known_Size(), LABEL_Kind_Name(), layout_sections(), SLIST_NODE::Len(), Linearize_Shape(), LNO_Configure(), load_components(), Locate_symbol(), IPO_ADDR_HASH::Lookup(), LINEX::Loop_coeff_terms_equal(), WB_BROWSER::Loops_Walk(), Machine_Type(), main(), Make_Reduction_Identity(), LINEX::Map_access_vector(), LINEX::Map_from_SOE(), PROJECTED_REGION::Map_to_linex_array(), ir_a2b::MapStrToEnum(), PROJECTED_REGION::Matching_Segment_Stride(), Max_Arg_Area_Bytes(), LOOPINFO::Max_value(), PROJECTED_REGION::May_Union(), MEM_POOL_Report(), MemCtr_Add(), MemCtr_Add_Local(), DaVinci::Menu_Activate(), DaVinci::Menu_Deactivate(), LINEX::Merge(), MHD::Merge_Options(), LOOPINFO::Min_value(), Mod(), Move_Locations_To_Anl_File(), PROMPF_INFO::Mp_Tile(), PROMPF_INFO::Mp_Version(), Multiply_Limit(), My_Atoq(), Need_type_conversion(), W2CF_TRANSLATOR::Nest_Clauses_To_String(), New_Fld_Path_Info(), Node_Count(), DaVinci_Callback::Node_Select(), Callback::Node_Select(), LINEX::Num_loop_coeff_terms(), pad_global_arrays::operator()(), OPERATOR_name(), Parentize(), DaVinci::Parse_Event(), DaVinci::Parse_Menu_Label(), DaVinci::Parse_Node_Ids(), Pop_Controls(), SLIST_NODE::Pos(), PROMPF_INFO::Post_Peel(), PROMPF_INFO::Pre_Peel(), W2CF_TRANSLATOR::Prefetch_Attributes_To_String(), PROMPF_INFO::Prefetch_Version(), Preorder_Process_PUs(), TY::Print(), ST::Print(), FB_Info_Switch::Print(), MHD::Print(), PROMPF_INFO::Print(), PROMPF_TRANS::Print(), PROMPF_LINES::Print(), CFG_NODE_INFO::Print(), REGION_ARRAYS::Print(), PROJECTED_REGION::Print(), LOOPINFO::Print(), PROJECTED_KERNEL::Print(), LINEX::Print(), FB_NODE::Print(), PROMPF_INFO::Print_Compact(), PROMPF_TRANS::Print_Compact(), PROMPF_LINES::Print_Compact(), Print_Controls(), Print_Exprs(), LINEX::Print_file(), Print_INITV(), print_source(), Print_Symbol_Array(), Print_Tlog_Header(), Process_Command_Line(), Process_Command_Line_Group(), Process_Common_Options(), Process_Control_Opt(), Process_Feedback_Options(), Process_Fill_Align_Pragmas(), Process_Fill_Align_Pragmas_Recursive(), Process_Pragma(), PROJECTED_KERNEL::Project(), PROJECTED_REGION::Project(), PROJECTED_REGION::PROJECTED_REGION(), Projected_Region_From_St(), WB_BROWSER::Promp_Map(), Prompf_Assign_Ids_Traverse(), PROMPF_INFO::PROMPF_INFO(), PROMPF_INFO::Prompf_Info_Traverse(), PUinfo_Preg_Type(), QUADOP_ADD(), QUADOP_DIV(), QUADOP_DTOQ(), QUADOP_EQ(), QUADOP_GE(), QUADOP_GT(), QUADOP_ITOQ(), QUADOP_LE(), QUADOP_LT(), QUADOP_MPY(), QUADOP_NE(), QUADOP_NEGATE(), QUADOP_QTOD(), QUADOP_QTOI(), QUADOP_QTOS(), QUADOP_QTOU(), QUADOP_SQRT(), QUADOP_STOQ(), QUADOP_SUB(), QUADOP_UTOQ(), Rag_Handle_Woff_Args(), read_file(), Read_Global_Info(), Read_PU_Infos(), Recompute_addr_saved_stmt(), ARRAY_SUMMARY::Record_tlogs(), WB_BROWSER::Reduction_Walk(), References_Some_Label(), PROMPF_INFO::Register_Shutdown(), PROMPF_INFO::Register_SStrip(), PROMPF_INFO::Register_Startup(), PROMPF_INFO::Register_Winddown(), HASH_TABLE< SIG_TYPE, DATA_TYPE >::Remove(), Remove_Trailing_Zero_Fraction(), LINEX::Remove_Zero_Terms(), Rename_INITV_Labels(), Report_Delta_Time(), PROMPF_INFO::Reset_Last_Trans(), IPO_ADDR_HASH::Reset_Lookup(), WB_BROWSER::Reset_Subcommand(), Reset_Timers(), RESHAPE::Reshape_Constant_Shape(), RESHAPE::Reshape_Passed_Section(), RESHAPE::Reshapeable_Passed_Section(), restore_ctrl_val_set(), Rewrite_Pragmas_On_Structs(), Rewrite_Structs_In_MPRegion(), save_ctrl_val_set(), Sclass_Name(), WB_BROWSER::Sdebug(), Set_addr_saved_expr(), Set_addr_saved_stmt(), PROJECTED_KERNEL::Set_Difference(), Set_Error_Descriptor(), PROJECTED_NODE::Set_linex_eq(), PROJECTED_NODE::Set_linex_le(), LINEX::Set_linex_terms(), PROJECTED_NODE::Set_linexs(), WB_BROWSER::Set_Map_Id(), WB_BROWSER::Set_Node(), Set_PU_arg_area_size(), PROJECTED_REGION::Set_region(), Set_ST_formal_preg_num(), Set_ST_formal_ref_base(), WB_BROWSER::Set_Subcommand(), Set_Tcon_Value(), Set_up_all_preg_symbols(), setup_new_section_for_dwarf(), sgi_cmd_line(), show_tree(), SI_RR_Length(), Signal_Cleanup(), simple_intrinsic(), simple_intrinsic_nt(), PROJECTED_REGION::Simplify(), LINEX::Simplify(), SIMPNODE_SimplifyIntrinsic(), size_of_each_pu(), FB_FREQ::Sprintf(), ST2C_Define_A_Common_Block(), ST2C_Define_Common_Blocks(), ST2C_finalize(), ST2C_func_header(), ST2C_Get_Common_Block_Name(), ST2C_Get_Common_Ty2c_List(), ST2F_func_header(), ST_ATTR_Kind_Name(), Stab_Compare_Types(), Stab_Free_Namebufs(), Stab_Full_Split_Offset(), Stab_Lock_Tmpvar(), WB_BROWSER::Statements(), store_ctrl(), Substitute_Expr(), Substitute_Expr_Value(), LINEX::Substitute_Lindex(), Substitute_Value(), LINEX::Subtract(), WB_BROWSER::Summary(), WB_BROWSER::Summary_Actual(), WB_BROWSER::Summary_Callsite(), WB_BROWSER::Summary_Chi(), WB_BROWSER::Summary_Formal(), WB_BROWSER::Summary_Procedure(), WB_BROWSER::Summary_Region(), WB_BROWSER::Summary_Stid(), WB_BROWSER::Summary_Stmt(), Targ_Emit_Const(), Targ_Emit_String(), TARG_INT_Least_Sig_One(), TARG_INT_Most_Sig_One(), TARG_INT_Pop_Count(), Targ_IntrinsicOp(), Targ_Ipower(), Targ_Print(), Targ_WhirlOp(), WB_BROWSER::This_Node(), TI_ASM_DisAsm_Inst(), TI_ASM_Get_Bundle_Comp(), TI_ASM_Get_Bundle_Reloc_Value(), TI_ASM_Pack_Inst(), TI_ASM_Print_Inst(), TI_ASM_Set_Bundle_Comp(), TI_ASM_Set_Bundle_Reloc_Value(), TI_ASM_Unpack_Inst(), TI_BUNDLE_Clear(), TI_BUNDLE_Has_Property(), TI_BUNDLE_Is_Empty(), TI_BUNDLE_Is_Full(), TI_BUNDLE_Slot_Available(), TI_BUNDLE_Stop_Bit_Available(), TI_Initialize(), TI_LATENCY_Errata_Hazard(), TI_LATENCY_Operand_Hazard(), TI_LATENCY_Result_Hazard(), TI_RES_Can_Dual_Issue(), TI_RES_COUNT_Add(), TI_RES_COUNT_Add_Op_Resources(), TI_RES_COUNT_Add_Op_Resources_Scaled(), TI_RES_COUNT_Emit_Note(), TI_RES_COUNT_Min_II(), TI_RES_COUNT_Subtract(), TI_RES_COUNT_Subtract_Op_Resources(), TI_RES_COUNT_Subtract_Op_Resources_Scaled(), TI_RES_RES_Equal(), TI_RES_RES_Print(), TI_RES_RES_Reserve_Resources(), TI_RES_RES_Resources_Available(), TI_RES_RES_Resources_Equivalent(), TI_RES_RES_Resources_Grainy(), TI_RES_RES_Resources_Relevant(), TI_RES_RES_Set_BB_Cycle_Count(), TI_RES_RES_Unreserve_Resources(), Trace_Stack_Segments(), Tree_Equiv(), TSI_Bad_IIs(), TSI_II_Cycle_Resource_Ids_Used(), TSI_II_Resource_Requirement(), TSI_Last_Issue_Cycle(), TSI_Load_Access_Time(), TSI_Name(), TSI_Operand_Access_Time(), TSI_Resource_Requirement(), TSI_Resource_Total_Vector(), TSI_Resource_Total_Vector_Size(), TSI_Result_Available_Time(), TSI_Store_Available_Time(), TSI_Valid_Issue_Slot_Count(), TSI_Valid_Issue_Slots(), TSI_Write_Write_Interlock(), U64_LOWER_expr(), PROMPF_INFO::Undo_Fusion(), PROMPF_INFO::Undo_Post_Peel(), PROMPF_INFO::Undo_Pre_Peel(), WN_TREE_ITER< PRE_ORDER, WHIRL >::Unwind(), Update_Addr_Reset_Size(), Update_EHRegion_Inito(), Update_EHRegion_Inito_Used(), usage(), WB_BROWSER::Uses(), Verify_addr_flags_stmt(), Verify_addr_saved_expr(), WB_BROWSER::Vertex_Set_Node(), WB_BROWSER::Vertices(), PROMPF_INFO::Vintr_Fission(), W2C_Fini(), W2CF_Parentize(), W2F_Fini(), WB_BROWSER::WB_BROWSER(), WB_Parent_Search(), WHIRL2C_make_valid_c_name(), WHIRL2F_make_valid_name(), Whirl2Src_Translate_Iload_Str(), Whirl2Src_Translate_Istore_Str(), WN2C_call(), WN2C_func_entry(), WN2C_initialize(), WN2C_intrinsic_op(), WN2C_prefetch(), WN2C_translate_purple_main(), WN2F_Append_IO_CtrlList(), WN2F_Append_IO_List(), WN2F_ar_construct(), WN2F_call(), WN2F_Entry_Point(), WN2F_Expr_initialize(), WN2F_Function_Call_Lhs(), WN2F_Get_DoLoop_Bound(), WN2F_Get_Named_Param(), WN2F_implied_do(), WN2F_Infix_Op(), WN2F_initialize(), WN2F_interface_blk(), WN2F_Intr_Funcall(), WN2F_intrinsic_call(), WN2F_intrinsic_op(), WN2F_io(), WN2F_ios_cr(), WN2F_ios_decode(), WN2F_ios_encode(), WN2F_ios_inqlength(), WN2F_ios_print(), WN2F_ios_read(), WN2F_ios_rewrite(), WN2F_ios_write(), WN2F_noio_implied_do(), WN2F_prefetch(), WN2F_translate_purple_main(), WN2F_Translate_StringLEN(), WN_COPY_Tree(), WN_COPY_Tree_With_Map(), WN_CreateDO(), WN_CreateLabel(), WN_Cvtl_Ty(), WN_DELETE_Tree(), WN_get_dst(), WN_massage_input(), WN_Push(), WN_Rename_Duplicate_Labels(), WN_Solve_For(), WN_Symbol_Count(), WN_Tree_Has_Duplicate_Labels(), WN_TREE_ITER< POST_ORDER, WHIRL >::WN_TREE_next(), WN_TREE_put_stmt(), WN_WALK_SCFNext(), WN_WALK_StmtNext(), WN_WALK_TreeNext(), WN_write_flags(), WN_write_generic_map(), WN_write_prefetch(), ANL_VARLIST::Write(), write_output(), ANL_CBUF::Write_String(), ANL_FUNC_ENTRY::~ANL_FUNC_ENTRY(), and ANL_VARLIST::~ANL_VARLIST().
| #define IO_TYPE | ( | _U | ) |
Definition at line 1296 of file fio.h.
Referenced by _fcontext(), _ft_stclose(), and _ft_stopen().
| #define MYTASK 0 |
Definition at line 1162 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 1137 of file fio.h.
Referenced by __OPN(), _alloc_unit(), _f_open(), _fcleanup(), _fcontext(), _flushall(), _get_cup(), and _get_next_unit().
| #define OPENLOCK | ( | ) | MEM_LOCK(&_openlock) |
Definition at line 918 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 920 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);\
} \
}
| #define RECMAX 1024 |
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 895 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 868 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 875 of file fio.h.
Referenced by _dr_endrec().
| #define RSVD_UNUM | ( | _U | ) | ((_U) >= STDIN_U && (_U) <= STDERR_U) |
Definition at line 1130 of file fio.h.
Referenced by __flush_f90(), __OPN(), _CLS(), _f_inqu(), _f_open(), and _uniqinod().
| #define SEQ 3 |
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 1202 of file fio.h.
Referenced by __flush_f90(), __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_(), 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 1248 of file fio.h.
Referenced by __flush_f90(), __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_(), 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().
| #define T_BUFIN (01700 | TF_POS ) |
Definition at line 150 of file fio.h.
Referenced by _BUFFERIN(), _fcontext(), and _rb().
| #define T_BUFOUT (01600 | TF_POS ) |
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().
| #define T_ENDFILE (02300 | TF_POS ) |
Definition at line 155 of file fio.h.
Referenced by _EOFW(), and _fcontext().
| #define T_FLUSH (03500 ) |
Definition at line 167 of file fio.h.
Referenced by __flush_f90().
| #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().
| #define T_RDF (01200 | TF_READ | TF_POS | TF_FMT ) |
Definition at line 144 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 145 of file fio.h.
Referenced by _fcontext(), _FRU(), _get_mismatch_error(), _RUI(), and _set_ok_flags().
| #define T_REWIND (02100 | TF_POS ) |
Definition at line 153 of file fio.h.
Referenced by _fcontext(), and _REWF().
| #define T_RLIST (01400 | TF_READ | TF_POS ) |
Definition at line 146 of file fio.h.
Referenced by _fcontext(), and _FRF().
| #define T_RNL (01500 | TF_READ | TF_POS ) |
Definition at line 147 of file fio.h.
Referenced by _fcontext(), _FRN(), and RNL().
| #define T_RSF (00700 | TF_READ | TF_POS | TF_FMT ) |
Definition at line 142 of file fio.h.
Referenced by __READC(), _fcontext(), _FRF(), _set_ok_flags(), fgetcf90_(), fgetcf90_8_(), getcf90_(), and getcf90_8_().
| #define T_RSU (01100 | TF_READ | TF_POS ) |
Definition at line 143 of file fio.h.
Referenced by __READ(), _fcontext(), _FRU(), _RUI(), and _set_ok_flags().
| #define T_SETPOS (03100 | TF_POS ) |
Definition at line 163 of file fio.h.
Referenced by _fcontext(), fseekf90_(), fseekf90_4_8_4_(), fseekf90_8_(), and SETPOS().
| #define T_TAPE (03400 | TF_POS ) |
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_().
| #define T_WDF (00300 | TF_WRITE | TF_POS | TF_FMT ) |
Definition at line 137 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 138 of file fio.h.
Referenced by _fcontext(), _FWU(), _get_mismatch_error(), _set_ok_flags(), and _WUI().
| #define T_WLIST (00500 | TF_WRITE | TF_POS ) |
Definition at line 139 of file fio.h.
Referenced by _fcontext(), and _FWF().
| #define T_WNL (00600 | TF_WRITE | TF_POS ) |
Definition at line 140 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 135 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 136 of file fio.h.
Referenced by __WRITE(), _fcontext(), _FWU(), _set_ok_flags(), and _WUI().
| #define TBUFSZB (TBUFSZW * sizeof(long)) |
Definition at line 227 of file fio.h.
Referenced by _frch(), _fwch(), and _unit_bksp().
| #define TF_FMT 010 |
Definition at line 131 of file fio.h.
Referenced by _fcontext(), _FRF(), and _get_mismatch_error().
| #define TF_READ 002 |
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_().
| #define TF_WRITE 001 |
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_().
| #define UHASH | ( | x | ) | (x & (HASH_SIZE - 1)) |
Definition at line 1143 of file fio.h.
Referenced by _alloc_unit(), _get_cup(), and _get_next_unit().
| #define UNF 6 |
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 377 of file fio.h.
Referenced by _init_unit().
| #define WAITIO | ( | cup, | |||
| error_handle | ) |
Definition at line 983 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 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, INITIALIZE_LOCK, 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().
| void _b_char | ( | char * | a, | |
| char * | b, | |||
| ftnlen | blen | |||
| ) |
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 fdinfo::class, CLASS_CACHE, CLASS_CACHEA, CLASS_COS, CLASS_MR, CLASS_SDS, CLASS_SYSTEM, CLASS_TEXT, 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 901 of file fopn.c.
References _ae_setoflags(), _ferr(), _ffopen(), _FFOPEN_ERR, _ioblock, ACCESS_PERMS, AFLAGSIZE, gl_o_inf::aip, assign_info_s::b_bufsiz, assign_info_s::b_bufsiz_flg, BLKSIZE, DEF_SBIN_BS, errno, FP::fdc, fdopen(), FEINTFST, fileno(), gl_o_inf::fort, FS_FDC, FS_TEXT, isatty, MEM_LOCK, MEM_UNLOCK, assign_info_s::n_stride, assign_info_s::n_stride_flg, NULL, O_RAW, open, gl_o_inf::open_type, gl_o_inf::OT_FORTRAN, assign_info_s::pr_partit, assign_info_s::pr_partit_flg, assign_info_s::q_ocblks, assign_info_s::q_ocblks_flg, FP::std, STD, ffsw::sw_error, gl_o_inf::u, unit_s::ufmt, unit_s::ufp, unit_s::uid, unit_s::urecl, unit_s::useek, unit_s::useq, and YES.
Referenced by _f_opn().
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().
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(), _VALUE, 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, XRCALL, 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().
| void _fcontext | ( | FIOSPTR | fiosp | ) |
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().
| void _ferr | ( | FIOSPTR | fiosp, | |
| int | _Errno, | |||
| ... | ||||
| ) |
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.
| long _frch | ( | unit * | _Cup, | |
| long * | _Uda, | |||
| long | _Chars, | |||
| int | _Mode, | |||
| long * | _Status | |||
| ) |
Definition at line 145 of file frch.c.
References __fndc_charsz, _filbuf, _GINTIO, CNT, CPTR2BP, 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, SEEK_CUR, FP::std, STD, ffsw::sw_error, tbuf, TBUFSZB, unit_s::ublkd, unit_s::ucharset, unit_s::uffsw, unit_s::ufp, unit_s::ufs, unit_s::useq, and XRCALL.
Referenced by __READC(), _dr_endrec(), _rnl_fillrec(), _sr_endrec(), fgetcf90_(), fgetcf90_8_(), getcf90_(), and getcf90_8_().
| long _fwch | ( | unit * | _Cup, | |
| long * | _Uda, | |||
| long | _Chars, | |||
| int | _Mode | |||
| ) |
Definition at line 114 of file fwch.c.
References __fndc_charsz, CPTR2BP, EOF, errno, FP::fdc, FEINTFST, FESTIOER, FEWRAFEN, FILE_CNT, FILE_FLAG, FILE_PTR, FS_FDC, FS_TEXT, FULL, IOERR, PARTIAL, ret, SEEK_CUR, FP::std, 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, WPTR2BP, and XRCALL.
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, MEDIUM, PTR_ALIGNED, SIZE_ALIGNED, SMALL, and sp.
Referenced by _iochunk().
Definition at line 1458 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_().
Definition at line 849 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 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().
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, INITIALIZE_LOCK, 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(), _VALUE, _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().
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().
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().
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().
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 1524 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, MEDIUM, PTR_ALIGNED, SIZE_ALIGNED, SMALL, and sp.
Referenced by _iochunk().
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().
| 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 817 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(), fdinfo::class, CLASS_COS, 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, NO, ret, FP::std, 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, XRCALL, 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, NCV_NATIVE, unit_s::ucharset, and unit_s::unumcvrt.
Referenced by _f_opn().
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().
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, FP::std, 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, WAITIO, and XRCALL.
Referenced by _BACK(), _f_open(), _FWF(), and _FWN().
Definition at line 81 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, FP::std, 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 239 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, unit_s::usysfd, and XRCALL.
Referenced by _f_open(), and _unit_close().
Definition at line 67 of file unitseek.c.
References errno, FP::fdc, FEINTUNK, FEIVRECN, FENORECN, FS_BIN, FS_FDC, FS_TAPE, FS_TEXT, LIBFSEEK, FP::std, STD, ffsw::sw_error, TF_READ, unit_s::udalast, unit_s::udamax, unit_s::ufbitpos, unit_s::ufmt, unit_s::ufp, unit_s::ufs, unit_s::urecl, and XRCALL.
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, SEEK_CUR, FP::std, STD, ffsw::sw_error, trunc(), unit_s::uffsw, unit_s::ufp, unit_s::ufs, unit_s::useek, unit_s::useq, and XRCALL.
Referenced by __setpos64(), _f_open(), _REWF(), _setpos(), _unit_bksp(), and _unit_close().
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] |
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 ftype_t _f77_to_f90_type_cnvt[DT_MAX] |
| const short _f77_type_len[DT_MAX] |
Definition at line 96 of file tables.c.
Referenced by _get_dc_param(), and n_getv().
| const char* _f77_type_name[DT_MAX] |
| const short _f90_to_f77_type_cnvt[DVTYPE_NTYPES] |
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(), and _get_next_unit().
| 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().
Definition at line 60 of file globals.c.
Referenced by _do_open().
| 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] |
Definition at line 55 of file globals.c.
Referenced by _clruptr(), and _setuptr().
| xfer_func _rdfmt |
Referenced by _FRF(), _rdfmt(), and _xfer_iolist().
| xfer_func _rdunf |
Referenced by _FRU(), _rdunf(), and _xfer_iolist().
| struct fiostate _tsk_fiostate |
| xfer_func _wrfmt |
Referenced by _FWF(), _wrfmt(), and _xfer_iolist().
| xfer_func _wrunf |
Referenced by _FWU(), _wrunf(), and _xfer_iolist().
