osprey/libI77/fmt.c File Reference

#include <cmplrs/fio.h>
#include <limits.h>
#include "fmt.h"
#include "err.h"
#include "varfmt.h"
#include "iomode.h"
#include "bcompat.h"
#include "uio.h"

Include dependency graph for fmt.c:

Go to the source code of this file.

Defines
#define	skip(s)   while(*s==' ') s++
#define	SYLMX   300
#define	MYQUOTE   '\2'
#define	MYHOLL   '\3'
#define	MYESC   '\7'
#define	TBUFLEN   80
Functions/Subroutines
int	_type_f (int)
static char *	f_s (unit *, char *, int)
static char *	f_list (unit *, char *)
static char *	i_tem (unit *, char *)
static char *	gt_num (unit *, char *, int *)
static char *	gt_wnum (unit *, char *, int *)
int	pars_f (unit *ftnunit, char *s)
int	ne_d (unit *ftnunit, char *s, char **p)
int	e_d (unit *ftnunit, char *s, char **p)
int	op_gen (unit *ftnunit, int a, long b, long c, int d)
int	en_fio (unit **ftnunit)
int	do_fio_1dim (ftnint *type, char *ptr, flex *do_idx, ftnint *lb, ftnint *ub, ftnint *step, ftnlen len, ftnlen idxlen)
int	do_fio64_1dim (ftnint *type, char *ptr, flex *do_idx, XINT *lb, XINT *ub, XINT *step, ftnlen len, ftnlen idxlen)
int	do_fio64_mp_1dim (ftnint *type, char *ptr, flex *do_idx, XINT *lb, XINT *ub, XINT *step, unit **fu, ftnlen len, ftnlen idxlen)
int	do_fio (ftnint *type, ftnint *number, char *ptr, ftnlen len)
int	do_fio64 (ftnint *type, XINT *number, char *ptr, ftnlen len)
int	do_fio_mp (ftnint *type, ftnint *number, char *ptr, unit **fu, ftnlen len)
int	do_fio64_mp (ftnint *type, XINT *number, char *ptr, unit **fu, ftnlen len)
void	fmt_bg (unit *ftnunit)
char *	ap_end (unit *ftnunit, char *s)
int	do_fioi4 (unsigned int val)
int	do_fioi4_mp (unsigned int val, unit *f77curunit)
int	do_fioi8 (long long val)
int	do_fioi8_mp (long long val, unit *f77curunit)
int	do_fior4 (float val)
int	do_fior4_mp (float val, unit *f77curunit)
int	do_fio8 (double val)
int	do_fio8_mp (double val, unit *f77curunit)
int	do_f4f8 (void *inptr, ftnlen len)
int	do_f4f8_mp (ftnint *type, void *inptr, unit *ftnunit, ftnlen len)
int	do_fioxa4_mp (char *ptr, XINT num, unit **fu)
int	do_fioxa4 (char *ptr, XINT num)
int	do_fioxa8_mp (char *ptr, XINT num, unit **fu)
int	do_fioxa8 (char *ptr, XINT num)
int	do_fioxh1_mp (char *ptr, XINT clen, XINT num, unit **fu)
int	do_fioxh1 (char *ptr, XINT clen, XINT num)
int	do_fioxi1_mp (char *ptr, XINT num, unit **fu)
int	do_fioxi1 (char *ptr, XINT num)
int	do_fioxi2_mp (char *ptr, XINT num, unit **fu)
int	do_fioxi2 (char *ptr, XINT num)
int	do_fioxi4_mp (char *ptr, XINT num, unit **fu)
int	do_fioxi4 (char *ptr, XINT num)
int	do_fioxi8_mp (char *ptr, XINT num, unit **fu)
int	do_fioxi8 (char *ptr, XINT num)
int	do_fioxl1_mp (char *ptr, XINT num, unit **fu)
int	do_fioxl1 (char *ptr, XINT num)
int	do_fioxl2_mp (char *ptr, XINT num, unit **fu)
int	do_fioxl2 (char *ptr, XINT num)
int	do_fioxl4_mp (char *ptr, XINT num, unit **fu)
int	do_fioxl4 (char *ptr, XINT num)
int	do_fioxl8_mp (char *ptr, XINT num, unit **fu)
int	do_fioxl8 (char *ptr, XINT num)
int	do_fioxr4_mp (char *ptr, XINT num, unit **fu)
int	do_fioxr4 (char *ptr, XINT num)
int	do_fioxr8_mp (char *ptr, XINT num, unit **fu)
int	do_fioxr8 (char *ptr, XINT num)
int	do_fioxr16_mp (char *ptr, XINT num, unit **fu)
int	do_fioxr16 (char *ptr, XINT num)
int	do_fioxc4_mp (char *ptr, XINT num, unit **fu)
int	do_fioxc4 (char *ptr, XINT num)
int	do_fioxc8_mp (char *ptr, XINT num, unit **fu)
int	do_fioxc8 (char *ptr, XINT num)
int	do_fioxc16_mp (char *ptr, XINT num, unit **fu)
int	do_fioxc16 (char *ptr, XINT num)
int	do_fioxa4v_mp (ftnint val, unit **fu)
int	do_fioxa4v (ftnint val)
int	do_fioxa8v_mp (ftnll val, unit **fu)
int	do_fioxa8v (ftnll val)
int	do_fioxh1v_mp (char val, unit **fu)
int	do_fioxh1v (char val)
int	do_fioxi1v_mp (char val, unit **fu)
int	do_fioxi1v (char val)
int	do_fioxi2v_mp (short val, unit **fu)
int	do_fioxi2v (short val)
int	do_fioxi4v_mp (ftnint val, unit **fu)
int	do_fioxi4v (ftnint val)
int	do_fioxi8v_mp (ftnll val, unit **fu)
int	do_fioxi8v (ftnll val)
int	do_fioxl1v_mp (char val, unit **fu)
int	do_fioxl1v (char val)
int	do_fioxl2v_mp (short val, unit **fu)
int	do_fioxl2v (short val)
int	do_fioxl4v_mp (ftnint val, unit **fu)
int	do_fioxl4v (ftnint val)
int	do_fioxl8v_mp (ftnll val, unit **fu)
int	do_fioxl8v (ftnll val)
int	do_fioxr4v_mp (float val, unit **fu)
int	do_fioxr4v (float val)
int	do_fioxr8v_mp (double val, unit **fu)
int	do_fioxr8v (double val)
int	do_fioxr16v_mp (long double val, unit **fu)
int	do_fioxr16v (long double val)
int	do_fioxc4v_mp (float rval, float ival, unit **fu)
int	do_fioxc4v (float rval, float ival)
int	do_fioxc8v_mp (double rval, double ival, unit **fu)
int	do_fioxc8v (double rval, double ival)
int	do_fioxc16v_mp (long double rval, long double ival, unit **fu)
int	do_fioxc16v (long double rval, long double ival)
Variables
vfmt_struct	f77vfmt_com_

---

Define Documentation

#define MYESC   '\7'

Definition at line 65 of file fmt.c.

Referenced by gt_num(), gt_wnum(), and ne_d().

#define MYHOLL   '\3'

Definition at line 64 of file fmt.c.

Referenced by ne_d().

#define MYQUOTE   '\2'

Definition at line 63 of file fmt.c.

Referenced by ne_d().

#define skip

(

s

)

while(*s==' ') s++

Definition at line 50 of file fmt.c.

Referenced by _bfd_coff_link_input_bfd(), _bfd_discard_section_stabs(), _bfd_elf_add_default_symbol(), _bfd_generic_section_already_linked(), _bfd_link_section_stabs(), _bfd_mips_elf_discard_info(), _cpp_handle_directive(), adjust_toc_syms(), aout_link_write_symbols(), arm_asm_output_labelref(), arm_strip_name_encoding(), BB_Should_Skip(), c_finish_bc_stmt(), CG_LOOP_Skip(), CG_PU_Initialize(), CGTARG_LOOP_Optimize(), cris_elf_relocate_section(), DEFUN(), df_urec_local_compute(), do_if(), do_ifdef(), do_ifndef(), do_xifdef(), ecoff_link_add_externals(), elf32_hppa_relocate_section(), elf32_sparc_relocate_section(), elf64_x86_64_relocate_section(), elf_i386_relocate_section(), elf_link_add_object_symbols(), elf_m68k_relocate_section(), elf_s390_relocate_section(), elf_vax_relocate_section(), emit_push_insn(), f_list(), f_s(), Force_If_Convert(), GCM_LICM_Skip_Op_Binary_Search(), gt_wnum(), GTY(), HB_Block_Select(), i370_elf_relocate_section(), lang_specific_driver(), ldfile_try_open_bfd(), load_specs(), Local_Sched_PU_Should_Skip(), lookup_option(), m32r_elf_relocate_section(), machine_matches(), mn10300_elf_final_link_relocate(), modify_reg_pav(), pdp11_aout_link_input_section(), ppc64_elf_edit_opd(), ppc64_elf_edit_toc(), ppc64_elf_relocate_section(), ppc_elf_relocate_section(), print_multilib_info(), process_command(), Remove_Skips(), Remove_Trailing_Zero_Fraction(), sh_elf64_relocate_section(), sh_elf_relocate_section(), sh_symbian_strip_name_encoding(), sparc64_elf_relocate_section(), Special_Sequence(), strnrstrn(), strnstrn(), walk_wild_section(), WFE_Expand_Top_Level_Decl(), WGEN_Expand_Top_Level_Decl(), WN2C_pragma(), WN2F_pragma(), and xcoff_link_input_bfd().

#define SYLMX   300

Definition at line 61 of file fmt.c.

Referenced by op_gen().

#define TBUFLEN   80

Definition at line 616 of file fmt.c.

---

Function Documentation

int _type_f

(

int

n

)

Definition at line 768 of file fmt.c.

References A, APOS, AW, B, D, E, ED, EE, F, G, GE, H, I, IM, L, NED, O, OM, Q, RET, REVERT, SLASH, T, TL, TR, X, Z, and ZM.

Referenced by do_f4f8_mp(), and do_fio64_mp().

char* ap_end	(	unit *	ftnunit,
		char *	s
	)

Definition at line 819 of file fmt.c.

References errno, f77fatal(), NULL, and quote.

Referenced by ne_d().

int do_f4f8	(	void *	inptr,
		ftnlen	len
	)

Definition at line 897 of file fmt.c.

References do_f4f8_mp(), f77curunit, TYDREAL, and TYREAL.

int do_f4f8_mp	(	ftnint *	type,
		void *	inptr,
		unit *	ftnunit,
		ftnlen	len
	)

Definition at line 907 of file fmt.c.

References _type_f(), BN, BZ, COLON, ED, EOF, n, NED, NONL, NULL, P, p, RET, REVERT, S, short, SP, and SS.

Referenced by do_f4f8(), do_fio8_mp(), do_fioi4_mp(), do_fioi8_mp(), and do_fior4_mp().

int do_fio	(	ftnint *	type,
		ftnint *	number,
		char *	ptr,
		ftnlen	len
	)

Definition at line 611 of file fmt.c.

References do_fio_mp(), and f77curunit.

int do_fio64	(	ftnint *	type,
		XINT *	number,
		char *	ptr,
		ftnlen	len
	)

Definition at line 620 of file fmt.c.

References do_fio64_mp(), and f77curunit.

int do_fio64_1dim	(	ftnint *	type,
		char *	ptr,
		flex *	do_idx,
		XINT *	lb,
		XINT *	ub,
		XINT *	step,
		ftnlen	len,
		ftnlen	idxlen
	)

Definition at line 516 of file fmt.c.

References do_fio64_mp_1dim(), and f77curunit.

int do_fio64_mp	(	ftnint *	type,
		XINT *	number,
		char *	ptr,
		unit **	fu,
		ftnlen	len
	)

Definition at line 633 of file fmt.c.

References _type_f(), BN, BZ, COLON, ED, EOF, i, n, NED, NONL, NULL, P, p, RET, REVERT, S, short, SP, SS, and XINT.

Referenced by do_fio64(), do_fio_mp(), do_fioxa4(), do_fioxa4_mp(), do_fioxa4v(), do_fioxa4v_mp(), do_fioxa8(), do_fioxa8_mp(), do_fioxa8v(), do_fioxa8v_mp(), do_fioxc16(), do_fioxc16_mp(), do_fioxc16v(), do_fioxc16v_mp(), do_fioxc4(), do_fioxc4_mp(), do_fioxc4v(), do_fioxc4v_mp(), do_fioxc8(), do_fioxc8_mp(), do_fioxc8v(), do_fioxc8v_mp(), do_fioxh1(), do_fioxh1_mp(), do_fioxh1v(), do_fioxh1v_mp(), do_fioxi1(), do_fioxi1_mp(), do_fioxi1v(), do_fioxi1v_mp(), do_fioxi2(), do_fioxi2_mp(), do_fioxi2v(), do_fioxi2v_mp(), do_fioxi4(), do_fioxi4_mp(), do_fioxi4v(), do_fioxi4v_mp(), do_fioxi8(), do_fioxi8_mp(), do_fioxi8v(), do_fioxi8v_mp(), do_fioxl1(), do_fioxl1_mp(), do_fioxl1v(), do_fioxl1v_mp(), do_fioxl2(), do_fioxl2_mp(), do_fioxl2v(), do_fioxl2v_mp(), do_fioxl4(), do_fioxl4_mp(), do_fioxl4v(), do_fioxl4v_mp(), do_fioxl8(), do_fioxl8_mp(), do_fioxl8v(), do_fioxl8v_mp(), do_fioxr16(), do_fioxr16_mp(), do_fioxr16v(), do_fioxr16v_mp(), do_fioxr4(), do_fioxr4_mp(), do_fioxr4v(), do_fioxr4v_mp(), do_fioxr8(), do_fioxr8_mp(), do_fioxr8v(), and do_fioxr8v_mp().

int do_fio64_mp_1dim	(	ftnint *	type,
		char *	ptr,
		flex *	do_idx,
		XINT *	lb,
		XINT *	ub,
		XINT *	step,
		unit **	fu,
		ftnlen	len,
		ftnlen	idxlen
	)

Definition at line 525 of file fmt.c.

References f77curunit.

Referenced by do_fio64_1dim(), and do_fio_1dim().

int do_fio8

(

double

val

)

Definition at line 883 of file fmt.c.

References do_fio8_mp(), and f77curunit.

int do_fio8_mp	(	double	val,
		unit *	f77curunit
	)

Definition at line 890 of file fmt.c.

References do_f4f8_mp(), and TYDREAL.

Referenced by do_fio8().

int do_fio_1dim	(	ftnint *	type,
		char *	ptr,
		flex *	do_idx,
		ftnint *	lb,
		ftnint *	ub,
		ftnint *	step,
		ftnlen	len,
		ftnlen	idxlen
	)

Definition at line 506 of file fmt.c.

References do_fio64_mp_1dim(), f77curunit, and XINT.

int do_fio_mp	(	ftnint *	type,
		ftnint *	number,
		char *	ptr,
		unit **	fu,
		ftnlen	len
	)

Definition at line 626 of file fmt.c.

References do_fio64_mp(), and XINT.

Referenced by do_fio().

int do_fioi4

(

unsigned int

val

)

Definition at line 841 of file fmt.c.

References do_fioi4_mp(), and f77curunit.

int do_fioi4_mp	(	unsigned int	val,
		unit *	f77curunit
	)

Definition at line 848 of file fmt.c.

References do_f4f8_mp(), and TYINT.

Referenced by do_fioi4().

int do_fioi8

(

long long

val

)

Definition at line 855 of file fmt.c.

References do_fioi8_mp(), and f77curunit.

int do_fioi8_mp	(	long long	val,
		unit *	f77curunit
	)

Definition at line 862 of file fmt.c.

References do_f4f8_mp(), and TYLONGLONG.

Referenced by do_fioi8().

int do_fior4

(

float

val

)

Definition at line 869 of file fmt.c.

References do_fior4_mp(), and f77curunit.

int do_fior4_mp	(	float	val,
		unit *	f77curunit
	)

Definition at line 876 of file fmt.c.

References do_f4f8_mp(), and TYREAL.

Referenced by do_fior4().

int do_fioxa4	(	char *	ptr,
		XINT	num
	)

Definition at line 1098 of file fmt.c.

References do_fio64_mp(), f77curunit, TYADDR, and XINT.

int do_fioxa4_mp	(	char *	ptr,
		XINT	num,
		unit **	fu
	)

Definition at line 1090 of file fmt.c.

References do_fio64_mp(), TYADDR, and XINT.

int do_fioxa4v

(

ftnint

val

)

Definition at line 1394 of file fmt.c.

References do_fio64_mp(), f77curunit, TYADDR, and XINT.

int do_fioxa4v_mp	(	ftnint	val,
		unit **	fu
	)

Definition at line 1386 of file fmt.c.

References do_fio64_mp(), TYADDR, and XINT.

int do_fioxa8	(	char *	ptr,
		XINT	num
	)

Definition at line 1114 of file fmt.c.

References do_fio64_mp(), f77curunit, TYADDR, and XINT.

int do_fioxa8_mp	(	char *	ptr,
		XINT	num,
		unit **	fu
	)

Definition at line 1106 of file fmt.c.

References do_fio64_mp(), TYADDR, and XINT.

int do_fioxa8v

(

ftnll

val

)

Definition at line 1412 of file fmt.c.

References do_fio64_mp(), f77curunit, TYADDR, and XINT.

int do_fioxa8v_mp	(	ftnll	val,
		unit **	fu
	)

Definition at line 1403 of file fmt.c.

References do_fio64_mp(), TYADDR, and XINT.

int do_fioxc16	(	char *	ptr,
		XINT	num
	)

Definition at line 1374 of file fmt.c.

References do_fio64_mp(), f77curunit, TYQUAD, and XINT.

int do_fioxc16_mp	(	char *	ptr,
		XINT	num,
		unit **	fu
	)

Definition at line 1362 of file fmt.c.

References do_fio64_mp(), TYQUAD, and XINT.

int do_fioxc16v	(	long double	rval,
		long double	ival
	)

Definition at line 1702 of file fmt.c.

References do_fio64_mp(), f77curunit, rvalue(), TYQUAD, and XINT.

int do_fioxc16v_mp	(	long double	rval,
		long double	ival,
		unit **	fu
	)

Definition at line 1689 of file fmt.c.

References do_fio64_mp(), rvalue(), TYQUAD, and XINT.

int do_fioxc4	(	char *	ptr,
		XINT	num
	)

Definition at line 1326 of file fmt.c.

References do_fio64_mp(), f77curunit, TYREAL, and XINT.

int do_fioxc4_mp	(	char *	ptr,
		XINT	num,
		unit **	fu
	)

Definition at line 1314 of file fmt.c.

References do_fio64_mp(), TYREAL, and XINT.

int do_fioxc4v	(	float	rval,
		float	ival
	)

Definition at line 1650 of file fmt.c.

References do_fio64_mp(), f77curunit, rvalue(), TYREAL, and XINT.

int do_fioxc4v_mp	(	float	rval,
		float	ival,
		unit **	fu
	)

Definition at line 1637 of file fmt.c.

References do_fio64_mp(), rvalue(), TYREAL, and XINT.

int do_fioxc8	(	char *	ptr,
		XINT	num
	)

Definition at line 1350 of file fmt.c.

References do_fio64_mp(), f77curunit, TYDREAL, and XINT.

int do_fioxc8_mp	(	char *	ptr,
		XINT	num,
		unit **	fu
	)

Definition at line 1338 of file fmt.c.

References do_fio64_mp(), TYDREAL, and XINT.

int do_fioxc8v	(	double	rval,
		double	ival
	)

Definition at line 1676 of file fmt.c.

References do_fio64_mp(), f77curunit, rvalue(), TYDREAL, and XINT.

int do_fioxc8v_mp	(	double	rval,
		double	ival,
		unit **	fu
	)

Definition at line 1663 of file fmt.c.

References do_fio64_mp(), rvalue(), TYDREAL, and XINT.

int do_fioxh1	(	char *	ptr,
		XINT	clen,
		XINT	num
	)

Definition at line 1130 of file fmt.c.

References do_fio64_mp(), f77curunit, TYCHAR, and XINT.

int do_fioxh1_mp	(	char *	ptr,
		XINT	clen,
		XINT	num,
		unit **	fu
	)

Definition at line 1122 of file fmt.c.

References do_fio64_mp(), TYCHAR, and XINT.

int do_fioxh1v

(

char

val

)

Definition at line 1430 of file fmt.c.

References do_fio64_mp(), f77curunit, TYCHAR, and XINT.

int do_fioxh1v_mp	(	char	val,
		unit **	fu
	)

Definition at line 1421 of file fmt.c.

References do_fio64_mp(), TYCHAR, and XINT.

int do_fioxi1	(	char *	ptr,
		XINT	num
	)

Definition at line 1146 of file fmt.c.

References do_fio64_mp(), f77curunit, TYBYTE, and XINT.

int do_fioxi1_mp	(	char *	ptr,
		XINT	num,
		unit **	fu
	)

Definition at line 1138 of file fmt.c.

References do_fio64_mp(), TYBYTE, and XINT.

int do_fioxi1v

(

char

val

)

Definition at line 1448 of file fmt.c.

References do_fio64_mp(), f77curunit, TYBYTE, and XINT.

int do_fioxi1v_mp	(	char	val,
		unit **	fu
	)

Definition at line 1439 of file fmt.c.

References do_fio64_mp(), TYBYTE, and XINT.

int do_fioxi2	(	char *	ptr,
		XINT	num
	)

Definition at line 1162 of file fmt.c.

References do_fio64_mp(), f77curunit, TYSHORT, and XINT.

int do_fioxi2_mp	(	char *	ptr,
		XINT	num,
		unit **	fu
	)

Definition at line 1154 of file fmt.c.

References do_fio64_mp(), TYSHORT, and XINT.

int do_fioxi2v

(

short

val

)

Definition at line 1466 of file fmt.c.

References do_fio64_mp(), f77curunit, TYSHORT, and XINT.

int do_fioxi2v_mp	(	short	val,
		unit **	fu
	)

Definition at line 1457 of file fmt.c.

References do_fio64_mp(), TYSHORT, and XINT.

int do_fioxi4	(	char *	ptr,
		XINT	num
	)

Definition at line 1178 of file fmt.c.

References do_fio64_mp(), f77curunit, TYINT, and XINT.

int do_fioxi4_mp	(	char *	ptr,
		XINT	num,
		unit **	fu
	)

Definition at line 1170 of file fmt.c.

References do_fio64_mp(), TYINT, and XINT.

int do_fioxi4v

(

ftnint

val

)

Definition at line 1484 of file fmt.c.

References do_fio64_mp(), f77curunit, TYINT, and XINT.

int do_fioxi4v_mp	(	ftnint	val,
		unit **	fu
	)

Definition at line 1475 of file fmt.c.

References do_fio64_mp(), TYINT, and XINT.

int do_fioxi8	(	char *	ptr,
		XINT	num
	)

Definition at line 1194 of file fmt.c.

References do_fio64_mp(), f77curunit, TYLONGLONG, and XINT.

int do_fioxi8_mp	(	char *	ptr,
		XINT	num,
		unit **	fu
	)

Definition at line 1186 of file fmt.c.

References do_fio64_mp(), TYLONGLONG, and XINT.

int do_fioxi8v

(

ftnll

val

)

Definition at line 1502 of file fmt.c.

References do_fio64_mp(), f77curunit, TYLONGLONG, and XINT.

int do_fioxi8v_mp	(	ftnll	val,
		unit **	fu
	)

Definition at line 1493 of file fmt.c.

References do_fio64_mp(), TYLONGLONG, and XINT.

int do_fioxl1	(	char *	ptr,
		XINT	num
	)

Definition at line 1210 of file fmt.c.

References do_fio64_mp(), f77curunit, TYLOGICAL1, and XINT.

int do_fioxl1_mp	(	char *	ptr,
		XINT	num,
		unit **	fu
	)

Definition at line 1202 of file fmt.c.

References do_fio64_mp(), TYLOGICAL1, and XINT.

int do_fioxl1v

(

char

val

)

Definition at line 1520 of file fmt.c.

References do_fio64_mp(), f77curunit, TYLOGICAL1, and XINT.

int do_fioxl1v_mp	(	char	val,
		unit **	fu
	)

Definition at line 1511 of file fmt.c.

References do_fio64_mp(), TYLOGICAL1, and XINT.

int do_fioxl2	(	char *	ptr,
		XINT	num
	)

Definition at line 1226 of file fmt.c.

References do_fio64_mp(), f77curunit, TYLOGICAL2, and XINT.

int do_fioxl2_mp	(	char *	ptr,
		XINT	num,
		unit **	fu
	)

Definition at line 1218 of file fmt.c.

References do_fio64_mp(), TYLOGICAL2, and XINT.

int do_fioxl2v

(

short

val

)

Definition at line 1538 of file fmt.c.

References do_fio64_mp(), f77curunit, TYLOGICAL2, and XINT.

int do_fioxl2v_mp	(	short	val,
		unit **	fu
	)

Definition at line 1529 of file fmt.c.

References do_fio64_mp(), TYLOGICAL2, and XINT.

int do_fioxl4	(	char *	ptr,
		XINT	num
	)

Definition at line 1242 of file fmt.c.

References do_fio64_mp(), f77curunit, TYLOGICAL4, and XINT.

int do_fioxl4_mp	(	char *	ptr,
		XINT	num,
		unit **	fu
	)

Definition at line 1234 of file fmt.c.

References do_fio64_mp(), TYLOGICAL4, and XINT.

int do_fioxl4v

(

ftnint

val

)

Definition at line 1556 of file fmt.c.

References do_fio64_mp(), f77curunit, TYLOGICAL4, and XINT.

int do_fioxl4v_mp	(	ftnint	val,
		unit **	fu
	)

Definition at line 1547 of file fmt.c.

References do_fio64_mp(), TYLOGICAL4, and XINT.

int do_fioxl8	(	char *	ptr,
		XINT	num
	)

Definition at line 1258 of file fmt.c.

References do_fio64_mp(), f77curunit, TYLOGICAL8, and XINT.

int do_fioxl8_mp	(	char *	ptr,
		XINT	num,
		unit **	fu
	)

Definition at line 1250 of file fmt.c.

References do_fio64_mp(), TYLOGICAL8, and XINT.

int do_fioxl8v

(

ftnll

val

)

Definition at line 1574 of file fmt.c.

References do_fio64_mp(), f77curunit, TYLOGICAL8, and XINT.

int do_fioxl8v_mp	(	ftnll	val,
		unit **	fu
	)

Definition at line 1565 of file fmt.c.

References do_fio64_mp(), TYLOGICAL8, and XINT.

int do_fioxr16	(	char *	ptr,
		XINT	num
	)

Definition at line 1306 of file fmt.c.

References do_fio64_mp(), f77curunit, TYQUAD, and XINT.

int do_fioxr16_mp	(	char *	ptr,
		XINT	num,
		unit **	fu
	)

Definition at line 1298 of file fmt.c.

References do_fio64_mp(), TYQUAD, and XINT.

int do_fioxr16v

(

long double

val

)

Definition at line 1628 of file fmt.c.

References do_fio64_mp(), f77curunit, TYQUAD, and XINT.

int do_fioxr16v_mp	(	long double	val,
		unit **	fu
	)

Definition at line 1619 of file fmt.c.

References do_fio64_mp(), TYQUAD, and XINT.

int do_fioxr4	(	char *	ptr,
		XINT	num
	)

Definition at line 1274 of file fmt.c.

References do_fio64_mp(), f77curunit, TYREAL, and XINT.

int do_fioxr4_mp	(	char *	ptr,
		XINT	num,
		unit **	fu
	)

Definition at line 1266 of file fmt.c.

References do_fio64_mp(), TYREAL, and XINT.

int do_fioxr4v

(

float

val

)

Definition at line 1592 of file fmt.c.

References do_fio64_mp(), f77curunit, TYREAL, and XINT.

int do_fioxr4v_mp	(	float	val,
		unit **	fu
	)

Definition at line 1583 of file fmt.c.

References do_fio64_mp(), TYREAL, and XINT.

int do_fioxr8	(	char *	ptr,
		XINT	num
	)

Definition at line 1290 of file fmt.c.

References do_fio64_mp(), f77curunit, TYDREAL, and XINT.

int do_fioxr8_mp	(	char *	ptr,
		XINT	num,
		unit **	fu
	)

Definition at line 1282 of file fmt.c.

References do_fio64_mp(), TYDREAL, and XINT.

int do_fioxr8v

(

double

val

)

Definition at line 1610 of file fmt.c.

References do_fio64_mp(), f77curunit, TYDREAL, and XINT.

int do_fioxr8v_mp	(	double	val,
		unit **	fu
	)

Definition at line 1601 of file fmt.c.

References do_fio64_mp(), TYDREAL, and XINT.

int e_d	(	unit *	ftnunit,
		char *	s,
		char **	p
	)

Definition at line 276 of file fmt.c.

References A, AW, B, d, D, E, EE, F, G, GE, gt_num(), gt_wnum(), I, IM, L, n, O, OM, op_gen(), Q, void, x, Z, and ZM.

Referenced by i_tem().

int en_fio

(

unit **

ftnunit

)

Definition at line 496 of file fmt.c.

References do_fio_SIZE_mp, L, NULL, one, TYINT, and XINT.

Referenced by e_rdfe_mp(), e_rsfe_mp(), e_rsfi_mp(), e_wdfe_mp(), and e_wsfi_mp().

static char * f_list	(	unit *	ftnunit,
		char *	s
	)			[static]

Definition at line 107 of file fmt.c.

References i_tem(), NULL, op_gen(), REVERT, skip, and void.

Referenced by f_s().

static char * f_s	(	unit *	ftnunit,
		char *	s,
		int	curloc
	)			[static]

Definition at line 90 of file fmt.c.

References f_list(), NULL, op_gen(), RET, and skip.

Referenced by i_tem(), and pars_f().

void fmt_bg

(

unit *

ftnunit

)

Definition at line 758 of file fmt.c.

Referenced by c_si(), s_rdfe64_mp(), s_rsfe_com(), s_wdfe64_mp(), and wsfe().

static char * gt_num	(	unit *	ftnunit,
		char *	s,
		int *	n
	)			[static]

Definition at line 464 of file fmt.c.

References c, call_vfmt(), and MYESC.

Referenced by e_d(), gt_wnum(), i_tem(), and ne_d().

static char * gt_wnum	(	unit *	ftnunit,
		char *	s,
		int *	n
	)			[static]

Definition at line 453 of file fmt.c.

References gt_num(), MYESC, and skip.

Referenced by e_d().

static char * i_tem	(	unit *	ftnunit,
		char *	s
	)			[static]

Definition at line 129 of file fmt.c.

References curloc, e_d(), f_s(), gt_num(), n, ne_d(), NULL, and op_gen().

Referenced by f_list().

int ne_d	(	unit *	ftnunit,
		char *	s,
		char **	p
	)

Definition at line 147 of file fmt.c.

References ap_end(), APOS, BN, BZ, COLON, gt_num(), H, MYESC, MYHOLL, MYQUOTE, n, NONL, NULL, op_gen(), P, S, SLASH, SP, SS, T, TL, TR, unit_s::uwrt, void, WR_OP, X, and x.

Referenced by i_tem().

int op_gen	(	unit *	ftnunit,
		int	a,
		long	b,
		long	c,
		int	d
	)

Definition at line 433 of file fmt.c.

References malloc, p, realloc, and SYLMX.

Referenced by e_d(), f_list(), f_s(), i_tem(), and ne_d().

int pars_f	(	unit *	ftnunit,
		char *	s
	)

Definition at line 80 of file fmt.c.

References f_s(), and NULL.

Referenced by c_si(), s_rdfe64_mp(), s_rsfe_com(), s_wdfe64_mp(), and wsfe().

---

Variable Documentation

vfmt_struct f77vfmt_com_

Referenced by c_sfe(), and c_si().