lwrite.c File Reference

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

Include dependency graph for lwrite.c:

Go to the source code of this file.

Defines
#define	MAXSH   1
#define	COMPEQ(css, cptr, newtype, newelsize)
#define	WINT1   4
#define	WINT2   6
#define	WINT4   11
#define	WDIG4   7
#define	WDIG8   16
#define	WDIG16   30
#define	WRL4   15
#define	WRL8   24
#define	WRL16   41
Functions
int	_beautify (ftype_t type, long *plain, long *limit, long *pretty, short isf90)
int	_find_dupcnt (void *ptr, long count, long stride, int elsize, short ischar)
int	_write_delimited_char (FIOSPTR css, unit *cup, char *sptr, int len, long dchar)
int	_ld_write (FIOSPTR css, unit *cup, void *dptr, type_packet *tip, int _Unused)
void	_lwrite_setup (void)
Variables
short	_old_list_out_repcounts = 0
short	_90_char_nonchar_delim_blanks = 1
short	_blank_at_start_of_empty_rec = 1
oc_func *	_oldotab [DVTYPE_NTYPES]
oc_func	_sd2udee

---

Define Documentation

#define COMPEQ	(		css,
			cptr,
			newtype,
			newelsize
	)

Value:

( \
        (css->u.fmt.u.le.type == newtype) && \
        (css->u.fmt.u.le.elsize == newelsize) && \
        (css->u.fmt.u.le.elsize > sizeof(css->u.fmt.u.le.u.value) ? \
                (memcmp(css->u.fmt.u.le.u.copy, cptr, newelsize) == 0) : \
                (memcmp(css->u.fmt.u.le.u.value, cptr, newelsize) == 0)))

Definition at line 79 of file lwrite.c.

Referenced by _ld_write().

#define MAXSH   1

Definition at line 49 of file lwrite.c.

Referenced by _ld_write().

#define WDIG16   30

Definition at line 91 of file lwrite.c.

Referenced by _ld_write().

#define WDIG4   7

Definition at line 89 of file lwrite.c.

Referenced by _ld_write().

#define WDIG8   16

Definition at line 90 of file lwrite.c.

Referenced by _ld_write().

#define WINT1   4

Definition at line 86 of file lwrite.c.

Referenced by _ld_write().

#define WINT2   6

Definition at line 87 of file lwrite.c.

Referenced by _ld_write().

#define WINT4   11

Definition at line 88 of file lwrite.c.

Referenced by _ld_write().

#define WRL16   41

Definition at line 94 of file lwrite.c.

Referenced by _ld_write().

#define WRL4   15

Definition at line 92 of file lwrite.c.

Referenced by _ld_write().

#define WRL8   24

Definition at line 93 of file lwrite.c.

Referenced by _ld_write().

---

Function Documentation

int _beautify	(	ftype_t	type,
		long *	plain,
		long *	limit,
		long *	pretty,
		short	isf90
	)

Definition at line 1028 of file lwrite.c.

References BLANK, NULL, PERIOD, PLUS, start, ZERO, and zero.

Referenced by _ld_write(), and _wnl_beautify().

int _find_dupcnt	(	void *	ptr,
		long	count,
		long	stride,
		int	elsize,
		short	ischar
	)

Definition at line 921 of file lwrite.c.

References repdata::lptr, NULL, p1, p2, and stride.

Referenced by _ld_write().

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

Definition at line 106 of file lwrite.c.

References _90_char_nonchar_delim_blanks, _beautify(), _blank_at_start_of_empty_rec, _dreal16, _dreal8, _ferr(), _find_dupcnt(), _issddptr, _ld_write, _lvtob(), _old_list_out_repcounts, _oldotab, _s2ui, _sd2udee, _write_delimited_char(), BLANK, blanks, COMMA, COMPEQ, type_information_packet::count, delim, DEXP16, DEXP8, DQUOTE, type_information_packet::elsize, fiostate::iostate::fmtstate::endrec, fiostate::f_iostmt, FEINTUNK, FEKNTSUP, FENOMEMY, FEWRLONG, fiostate::iostate::fmt, free(), if(), ITEMBUFSIZ, LPAREN, MAXSH, MIN, MODEDP, MODEHP, MODEMSN, MODEUN, NULL, OS_NONE, OS_QUOTE, repdata::repcnt, RERROR, RPAREN, SQUOTE, STAR, stride, type_information_packet::stride, T_WNL, tbuf, type_information_packet::type90, fiostate::iostate::fmtstate::u, fiostate::u, unit_s::udelim, unit_s::ufcomplen, unit_s::ufcomsep, unit_s::ufnegzero, unit_s::ufrptcnt, unit_s::uft90, unit_s::uldwsize, unit_s::ulinemax, unit_s::ulineptr, WDIG16, WDIG4, WDIG8, WINT, WINT1, WINT2, WINT4, WOCTHWD, WOCTWRD, WREAL16, WREAL8, WRL16, WRL4, WRL8, and zero.

Here is the call graph for this function:

void _lwrite_setup

(

void

)

Definition at line 1318 of file lwrite.c.

References _90_char_nonchar_delim_blanks, _blank_at_start_of_empty_rec, _dreal16, _dreal8, _old_list_out_repcounts, DREAL16, DREAL16_P, DREAL16_YMP80, DREAL8, DREAL8_P, DREAL8_YMP80, getenv(), and NULL.

Referenced by _initialize_fortran_io().

Here is the call graph for this function:

int _write_delimited_char	(	FIOSPTR	css,
		unit *	cup,
		char *	sptr,
		int	len,
		long	dchar
	)

Definition at line 1175 of file lwrite.c.

References BLANK, fiostate::iostate::fmtstate::endrec, fiostate::f_iostmt, fiostate::iostate::fmt, NULL, T_WNL, fiostate::u, unit_s::uft90, unit_s::uldwsize, unit_s::ulinemax, and unit_s::ulineptr.

Referenced by _ld_write().

---

Variable Documentation

short _90_char_nonchar_delim_blanks = 1

Definition at line 57 of file lwrite.c.

Referenced by _ld_write(), and _lwrite_setup().

short _blank_at_start_of_empty_rec = 1

Definition at line 58 of file lwrite.c.

Referenced by _ld_write(), and _lwrite_setup().

short _old_list_out_repcounts = 0

Definition at line 56 of file lwrite.c.

Referenced by _ld_write(), and _lwrite_setup().

oc_func* _oldotab[DVTYPE_NTYPES]

Definition at line 83 of file oconvtab.c.

Referenced by _ld_write().

oc_func _sd2udee