opn.c File Reference

#include <errno.h>
#include <fortran.h>
#include <liberrno.h>
#include <string.h>
#include <stdarg.h>
#include <cray/nassert.h>
#include "fmt.h"
#include "fio.h"
#include "f90io.h"

Include dependency graph for opn.c:

Go to the source code of this file.

Defines
#define	OPNERR(n)
#define	SETSPEC(_specifier, _default_value, _error_code, _nval, _spec_list)
#define	S(_spec)   , #_spec, OS_##_spec
#define	ARGS_11   (4 + 7*sizeof(_fcd)/sizeof(long))
#define	ARGS_12   (4 + 8*sizeof(_fcd)/sizeof(long))
#define	ARGS_13   (4 + 9*sizeof(_fcd)/sizeof(long))
#define	ARGS_16   (7 + 9*sizeof(_fcd)/sizeof(long))
#define	PASSED_ARG(x)   (1)
Functions
static int	findmatch (_fcd fortstring, int *result, int nval,...)
	__OPN (_f_int *unitn, _f_int *iostat, int *errf, _fcd file, _fcd status, _fcd access, _fcd form, _f_int *recl, _fcd blank, _fcd position, _fcd action_arg, _fcd delim_arg, _fcd pad_arg, int unused1, int unused2, int isf90_arg)
int	_OPEN (struct open_spec_list *o)

---

Define Documentation

#define ARGS_11   (4 + 7*sizeof(_fcd)/sizeof(long))

Definition at line 70 of file opn.c.

Referenced by __OPN().

#define ARGS_12   (4 + 8*sizeof(_fcd)/sizeof(long))

Definition at line 71 of file opn.c.

Referenced by __OPN().

#define ARGS_13   (4 + 9*sizeof(_fcd)/sizeof(long))

Definition at line 72 of file opn.c.

Referenced by __OPN().

#define ARGS_16   (7 + 9*sizeof(_fcd)/sizeof(long))

Definition at line 73 of file opn.c.

Referenced by __OPN().

#define OPNERR

(

n

)

Value:

{ \
        errn    = n;    \
        goto opn_done;  \
}

Definition at line 50 of file opn.c.

Referenced by __OPN().

#define PASSED_ARG

(

x

)

(1)

Definition at line 77 of file opn.c.

Referenced by __OPN().

#define S

(

_spec

)

, #_spec, OS_##_spec

Definition at line 64 of file opn.c.

Referenced by __OPN().

#define SETSPEC	(		_specifier,
			_default_value,
			_error_code,
			_nval,
			_spec_list
	)

Value:

\
        if (_fcdtocp(_specifier) == NULL) \
                a.o##_specifier = _default_value; \
        else if (! findmatch(_specifier, (int*) &a.o##_specifier, _nval \
                             _spec_list)) \
                OPNERR(_error_code)

Definition at line 55 of file opn.c.

Referenced by __OPN().

---

Function Documentation

__OPN	(	_f_int *	unitn,
		_f_int *	iostat,
		int *	errf,
		_fcd	file,
		_fcd	status,
		_fcd	access,
		_fcd	form,
		_f_int *	recl,
		_fcd	blank,
		_fcd	position,
		_fcd	action_arg,
		_fcd	delim_arg,
		_fcd	pad_arg,
		int	unused1,
		int	unused2,
		int	isf90_arg
	)

Definition at line 99 of file opn.c.

References _cptofcd(), _f_open(), _fcdlen(), _fcdtocp(), _ferr(), access, ARGS_11, ARGS_12, ARGS_13, ARGS_16, blank, CFT77_RETVAL, cup, delim, error(), FEIVUNTO, FEOPACCS, FEOPACTB, FEOPAUXT, FEOPBKIV, FEOPBLNK, FEOPCBNK, FEOPDLMB, FEOPDLMI, FEOPFNIV, FEOPFNRQ, FEOPFORM, FEOPNNEW, FEOPPADB, FEOPPDIV, FEOPPOSN, FEOPPSIV, FEOPRCRQ, FEOPRECL, FEOPSTAT, FS_AUX, GOOD_UNUM, if(), IO_ERR, IO_OKAY, NO, NULL, olist::oaccess, olist::oaction, olist::oblank, olist::odelim, olist::oerr, olist::ofile, olist::ofilelen, olist::oform, OLD, olist::opad, OPEN_UPTR, OPENLOCK, OPENUNLOCK, OPNERR, olist::oposition, olist::orecl, OS_ACTION_UNSPECIFIED, OS_APPEND, OS_ASIS, OS_BINARY, OS_DIRECT, OS_FORMATTED, OS_NEW, OS_NONE, OS_NULL, OS_OLD, OS_REPLACE, OS_SCRATCH, OS_SEQUENTIAL, OS_SYSTEM, OS_UNFORMATTED, OS_UNKNOWN, OS_YES, OS_ZERO, olist::ostatus, olist::ounit, PASSED_ARG, QUOTE, READ(), RSVD_UNUM, S, SETSPEC, STMT_BEGIN, STMT_END, T_OPEN, unit_s::uaction, unit_s::ublnk, unit_s::udelim, unit_s::ufmt, unit_s::ufnm, unit_s::ufs, UNKNOWN, unit_s::uostatus, unit_s::upad, unit_s::uposition, unit_s::urecl, unit_s::useq, WRITE(), YES, and ZERO.

Referenced by _OPEN().

Here is the call graph for this function:

int _OPEN

(

struct open_spec_list *

o

)

Definition at line 441 of file opn.c.

References __OPN(), open_spec_list::access, open_spec_list::action, open_spec_list::blank, open_spec_list::delim, open_spec_list::err, open_spec_list::file, open_spec_list::form, open_spec_list::iostat, NULL, open_spec_list::pad, open_spec_list::position, open_spec_list::recl, open_spec_list::status, open_spec_list::unit, and open_spec_list::version.

Here is the call graph for this function:

static int findmatch	(	_fcd	fortstring,
		int *	result,
		int	nval,
			...
	)		[static]

Definition at line 495 of file opn.c.

References _fcdlen(), _fcdtocp(), and ret.

Here is the call graph for this function: