lread.c File Reference

#include <limits.h>
#include <ctype.h>
#include <stdlib.h>
#include <string.h>
#include <fortran.h>
#include <cray/fmtconv.h>
#include <cray/nassert.h>
#include "fio.h"
#include "lio.h"
#include "f90io.h"

Include dependency graph for lread.c:

Go to the source code of this file.

Classes
struct	repdata
Defines
#define	MAXSH   1
#define	GENREALTO8(x)   ((_f_real8)(*x)) /* cast to _f_real8 */
#define	ADVANCE_INPUT(css, cup, lptr, lcnt)
Typedefs
typedef _f_real8	_gen_real
Functions
int	_nicverr (const int _Nicverror)
void	_set_stride (void *dest, void *src, long count, int elsize, long inc)
void	_cmplx_convert (void *dest, int size, _gen_real src[2])
long	_get_repcount (long *ptr, int limit, long *width)
int	_get_value (long *lptr, int lcnt, void *ptr, ftype_t type, int elsize, long *width)
int	_mr_scan_char (FIOSPTR css, unit *cup, char *ptr, int elsize, char **chptr, long *slen)
int	_mr_scan_complex (FIOSPTR css, unit *cup, void *cpxptr, int elsize, short is_mult)
int	_s_scan_extensions (void *ptr, ftype_t type, int elsize, long *begin, int left, long *size, long cmode)
int	_ld_read (FIOSPTR css, unit *cup, void *dptr, type_packet *tip, int _Unused)
Variables
const ic_func *	_ilditab [DVTYPE_NTYPES]

---

Define Documentation

#define ADVANCE_INPUT	(		css,
			cup,
			lptr,
			lcnt
	)

Value:

for (;;) {                              \
                while (lcnt == 0) { /* Find a non-empty line */         \
                        errn    = css->u.fmt.endrec(css, cup, 1);       \
                        if (errn != 0) {                                \
                                if (errn > 0) RERROR(errn);             \
                                if (errn < 0) REND(errn);               \
                        }                                               \
                        lptr    = cup->ulineptr;                        \
                        lcnt    = cup->ulinecnt;                        \
                }                                                       \
                if (! IS_WHITESPACE(*lptr))                             \
                        break;  /* Eureka! */                           \
                lptr    = lptr + 1;                                     \
                lcnt    = lcnt - 1;                                     \
        }

Definition at line 195 of file lread.c.

Referenced by _ld_read(), and _mr_scan_complex().

#define GENREALTO8

(

x

)

((_f_real8)(*x)) /* cast to _f_real8 */

Definition at line 170 of file lread.c.

Referenced by _cmplx_convert().

#define MAXSH   1

Definition at line 51 of file lread.c.

Referenced by _ld_read().

---

Typedef Documentation

typedef _f_real8 _gen_real

Definition at line 87 of file lread.c.

---

Function Documentation

void _cmplx_convert	(	void *	dest,
		int	size,
		_gen_real	src[2]
	)

Definition at line 1498 of file lread.c.

References GENREALTO8.

Referenced by _ld_read().

long _get_repcount	(	long *	ptr,
		int	limit,
		long *	width
	)

Definition at line 710 of file lread.c.

References IS_DIGIT, STAR, and ZERO.

Referenced by _ld_read().

int _get_value	(	long *	lptr,
		int	lcnt,
		void *	ptr,
		ftype_t	type,
		int	elsize,
		long *	width
	)

Definition at line 756 of file lread.c.

References _ilditab, _nicverr(), _s_scan_extensions(), dummy, FEKNTSUP, FENICVIC, FERDIVLG, IS_DELIMITER, repdata::lptr, MODEDP, MODEHP, and zero.

Referenced by _ld_read(), and _mr_scan_complex().

Here is the call graph for this function:

int _ld_read	(	FIOSPTR	css,
		unit *	cup,
		void *	dptr,
		type_packet *	tip,
		int	_Unused
	)

Definition at line 224 of file lread.c.

References _cmplx_convert(), _get_repcount(), _get_value(), _issddptr, _ld_read, _mr_scan_char(), _mr_scan_complex(), _set_stride(), ADVANCE_INPUT, BLANK, COMMA, type_information_packet::count, repdata::cplx, type_information_packet::elsize, fiostate::f_shrdput, FELDNOCX, FELDUNKI, FENOMEMY, fiostate::iostate::fmt, free(), IS_DIGIT, IS_SEPARATOR, repdata::lcnt, fiostate::iostate::fmtstate::lcomma, repdata::line, repdata::lptr, MAXSH, MIN, NULL, repdata::rchr, repdata::REPCHAR, repdata::repcnt, repdata::REPCPLX, repdata::REPLINE, repdata::REPNONE, repdata::REPNULL, repdata::reptype, RERROR, SLASH, fiostate::iostate::fmtstate::slash, stride, type_information_packet::stride, type_information_packet::type90, repdata::u, fiostate::u, unit_s::ulinecnt, unit_s::ulineptr, and unit_s::urepdata.

Here is the call graph for this function:

int _mr_scan_char	(	FIOSPTR	css,
		unit *	cup,
		char *	ptr,
		int	elsize,
		char **	chptr,
		long *	slen
	)

Definition at line 1350 of file lread.c.

References _ferr(), BLANK, delim, fiostate::iostate::fmtstate::endrec, FEINTUNK, FENOMEMY, fiostate::iostate::fmt, free(), IS_SEPARATOR, IS_STRING_DELIMITER, repdata::lcnt, repdata::lptr, NULL, RECMAX, REND, RERROR, fiostate::u, unit_s::ulinecnt, and unit_s::ulineptr.

Referenced by _ld_read().

Here is the call graph for this function:

int _mr_scan_complex	(	FIOSPTR	css,
		unit *	cup,
		void *	cpxptr,
		int	elsize,
		short	is_mult
	)

Definition at line 1211 of file lread.c.

References _get_value(), ADVANCE_INPUT, COMMA, FELDNOCX, IS_WHITESPACE, repdata::lcnt, LPAREN, repdata::lptr, RERROR, RPAREN, unit_s::ulinecnt, and unit_s::ulineptr.

Referenced by _ld_read().

Here is the call graph for this function:

int _nicverr

(

const int

_Nicverror

)

Definition at line 828 of file rdfmt.c.

Referenced by _g_complx(), _g_number(), _get_value(), _rdfmt(), and _s_scan_extensions().

int _s_scan_extensions	(	void *	ptr,
		ftype_t	type,
		int	elsize,
		long *	begin,
		int	left,
		long *	size,
		long	cmode
	)

Definition at line 918 of file lread.c.

References _nicverr(), _ou2s, _zu2s, BLANK, delim, dummy, FEKNTSUP, FELDSTRL, FELDUNKI, IS_DELIMITER, IS_SEPARATOR, repdata::lcnt, repdata::lptr, SQUOTE, and zero.

Referenced by _g_complx(), _g_number(), and _get_value().

Here is the call graph for this function:

void _set_stride	(	void *	dest,
		void *	src,
		long	count,
		int	elsize,
		long	inc
	)

Definition at line 90 of file setstride.c.

References BYTE, DOUBLEWORD, NULL, QUADWORD, and XFER_CASE.

Referenced by _ld_read().

---

Variable Documentation

const ic_func* _ilditab[DVTYPE_NTYPES]

Definition at line 80 of file iconvtab.c.

Referenced by _get_value().