open.c File Reference

#include <sys/param.h>
#include <string.h>
#include <stdlib.h>
#include <errno.h>
#include <liberrno.h>
#include <fcntl.h>
#include <unistd.h>
#include <cray/assign.h>
#include <sys/stat.h>
#include <stdio.h>
#include "fio.h"

Include dependency graph for open.c:

Go to the source code of this file.

Defines
#define	FERROR(cond, n)
#define	FERROR1(cond, n, p)
Functions
static void	freeit (void *)
int	_f_open (FIOSPTR css, unit **cup_p, olist *olptr, int isf90)
void	_set_ok_flags (unit *cup)
int	_get_mismatch_error (int noabort, int iost, unit *cup, FIOSPTR css)

---

Define Documentation

#define FERROR	(		cond,
			n
	)

Value:

{       \
        if (!cond)              \
                _ferr(css, n);  \
	else			\
		return(n);    \
}

Definition at line 52 of file open.c.

Referenced by _f_open().

#define FERROR1	(		cond,
			n,
			p
	)

Value:

{       \
        if (!cond)              \
                _ferr(css, n, p); \
	else			\
		return(n);    \
        }

Definition at line 59 of file open.c.

Referenced by _f_open().

---

Function Documentation

int _f_open	(	FIOSPTR	css,
		unit **	cup_p,
		olist *	olptr,
		int	isf90
	)

Definition at line 95 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, cup, assign_info_s::D_fildes, assign_info_s::D_fildes_flg, 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, MEM_LOCK, MXUNITSZ, NULL, 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, stat, STD, FP::std, 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::useq, unit_s::usysfd, unit_s::usystem, unit_s::utmpfil, and unit_s::utrunc.

Referenced by __OPN(), and _ll_implicit_open().

Here is the call graph for this function:

int _get_mismatch_error	(	int	noabort,
		int	iost,
		unit *	cup,
		FIOSPTR	css
	)

Definition at line 845 of file open.c.

References _ferr(), FEDIRTIV, FEFMTTIV, FEINTUNK, FEMIXAUX, FENOREAD, FENOWRIT, FESEQTIV, FEUNFMIV, FS_AUX, OS_READ, OS_WRITE, ret, T_RDF, T_RDU, T_WDF, T_WDU, TF_FMT, TF_WRITE, unit_s::uaction, unit_s::ufmt, unit_s::ufs, and unit_s::useq.

Referenced by __READ(), __READC(), __WRITE(), __WRITEC(), _FRF(), _FRU(), _FWF(), _FWU(), and _set_ok_flags().

Here is the call graph for this function:

void _set_ok_flags

(

unit *

cup

)

Definition at line 813 of file open.c.

References _get_mismatch_error(), NULL, unit_s::ok_rd_dir_fmt, unit_s::ok_rd_dir_unf, unit_s::ok_rd_seq_fmt, unit_s::ok_rd_seq_unf, unit_s::ok_wr_dir_fmt, unit_s::ok_wr_dir_unf, unit_s::ok_wr_seq_fmt, unit_s::ok_wr_seq_unf, T_RDF, T_RDU, T_RSF, T_RSU, T_WDF, T_WDU, T_WSF, and T_WSU.

Referenced by _f_open(), and _init_internal_unit().

Here is the call graph for this function:

static void freeit

(

void *

ptr

)

[static]

Definition at line 799 of file open.c.

References free(), and NULL.

Referenced by _f_open().

Here is the call graph for this function: