lread.c File Reference

#include "f2c.h"
#include "fio.h"
#include "stdlib.h"
#include "fmt.h"
#include "lio.h"
#include "ctype.h"
#include "fp.h"

Include dependency graph for lread.c:

Go to the source code of this file.

Defines
#define	AX   4
#define	B   2
#define	BUFSIZE   128
#define	ERR(x)   if(n=(x)) return(n)
#define	EX   8
#define	GETC(x)   (x=(*l_getc)())
#define	isapos(x)   (f__ltab[x+1]&AX)
#define	isblnk(x)   (f__ltab[x+1]&B)
#define	isexp(x)   (f__ltab[x+1]&EX)
#define	issep(x)   (f__ltab[x+1]&SX)
#define	issign(x)   (f__ltab[x+1]&SG)
#define	iswhit(x)   (f__ltab[x+1]&WH)
#define	Ptr   ((flex *)ptr)
#define	SG   16
#define	SX   1
#define	un_getc   ungetc
#define	Ungetc(x, y)   (*l_ungetc)(x,y)
#define	WH   32
Functions
int	c_le (cilist *a)
integer	e_rsle (Void)
static int	l_C (Void)
static int	l_CHAR (Void)
static int	l_L (Void)
static int	l_R (int poststar, int reqint)
int	l_read (ftnint *number, char *ptr, ftnlen len, ftnint type)
static int	Lfinish (int ch, int dot, int *rvp)
static int	nmL_getc (Void)
static int	nmL_ungetc (int x, FILE *f)
static int	rd_count (register int ch)
integer	s_rsle (cilist *a)
int	t_getc (Void)
int	ungetc (int, FILE *)
Variables
const char *	f__fmtbuf
char *	f__lchar
int	f__lcount
int(*	f__lioproc )(ftnint *, char *, ftnlen, ftnint)
flag	f__lquit
char	f__ltab [128+1]
int	f__ltype
double	f__lx
double	f__ly
int	l_eof
int(*)(*)	l_getc (void)
int(*)(*)(*)	l_ungetc (int, FILE *)
static int(*	nmL_getc_save )(Void)
static char *	nmL_next
int	nml_read
static int(*	nmL_ungetc_save )(int, FILE *)
static char	nmLbuf [256]

---

Define Documentation

#define AX   4

Definition at line 50 of file lread.c.

#define B   2

Definition at line 49 of file lread.c.

#define BUFSIZE   128

Definition at line 482 of file lread.c.

#define ERR

(

x

)

if(n=(x)) return(n)

Definition at line 109 of file lread.c.

#define EX   8

Definition at line 51 of file lread.c.

#define GETC

(

x

)

(x=(*l_getc)())

Definition at line 110 of file lread.c.

#define isapos

(

x

)

(f__ltab[x+1]&AX)

Definition at line 44 of file lread.c.

#define isblnk

(

x

)

(f__ltab[x+1]&B)

Definition at line 42 of file lread.c.

#define isexp

(

x

)

(f__ltab[x+1]&EX)

Definition at line 45 of file lread.c.

#define issep

(

x

)

(f__ltab[x+1]&SX)

Definition at line 43 of file lread.c.

#define issign

(

x

)

(f__ltab[x+1]&SG)

Definition at line 46 of file lread.c.

#define iswhit

(

x

)

(f__ltab[x+1]&WH)

Definition at line 47 of file lread.c.

#define Ptr   ((flex *)ptr)

#define SG   16

Definition at line 52 of file lread.c.

#define SX   1

Definition at line 48 of file lread.c.

#define un_getc   ungetc

Definition at line 75 of file lread.c.

#define Ungetc	(		x,
			y
	)		(*l_ungetc)(x,y)

Definition at line 111 of file lread.c.

#define WH   32

Definition at line 53 of file lread.c.

---

Function Documentation

int c_le

(

cilist *

a

)

Definition at line 629 of file lread.c.

integer e_rsle

(

Void

)

Definition at line 92 of file lread.c.

static int l_C

(

Void

)

[static]

Definition at line 281 of file lread.c.

static int l_CHAR

(

Void

)

[static]

Definition at line 485 of file lread.c.

static int l_L

(

Void

)

[static]

Definition at line 426 of file lread.c.

static int l_R	(	int	poststar,
		int	reqint
	)		[static]

Definition at line 117 of file lread.c.

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

Definition at line 651 of file lread.c.

static int Lfinish	(	int	ch,
		int	dot,
		int *	rvp
	)		[static]

Definition at line 378 of file lread.c.

static int nmL_getc

(

Void

)

[static]

Definition at line 353 of file lread.c.

static int nmL_ungetc	(	int	x,
		FILE *	f
	)		[static]

Definition at line 367 of file lread.c.

static int rd_count

(

register int

ch

)

[static]

Definition at line 268 of file lread.c.

integer s_rsle

(

cilist *

a

)

Definition at line 782 of file lread.c.

int t_getc

(

Void

)

Definition at line 84 of file lread.c.

int ungetc	(	int	,
		FILE *
	)

---

Variable Documentation

const char* f__fmtbuf

Definition at line 35 of file err.c.

char* f__lchar

Definition at line 107 of file lread.c.

int f__lcount

Definition at line 106 of file lread.c.

int(* f__lioproc)(ftnint *, char *, ftnlen, ftnint)

Definition at line 36 of file lread.c.

flag f__lquit

Definition at line 105 of file lread.c.

char f__ltab[128+1]

Initial value:

 {      
        0,
        0,0,AX,0,0,0,0,0,0,WH|B,SX|WH,0,0,0,0,0,
        0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
        SX|B|WH,0,AX,0,0,0,0,AX,0,0,0,SG,SX,SG,0,SX,
        0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
        0,0,0,0,EX,EX,0,0,0,0,0,0,0,0,0,0,
        0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
        AX,0,0,0,EX,EX,0,0,0,0,0,0,0,0,0,0,
        0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
}

Definition at line 54 of file lread.c.

int f__ltype

Definition at line 106 of file lread.c.

double f__lx

Definition at line 108 of file lread.c.

double f__ly

Definition at line 108 of file lread.c.

int l_eof

Definition at line 40 of file lread.c.

int(*)(*) l_getc(void)

Definition at line 36 of file lread.c.

int(*)(*)(*) l_ungetc(int, FILE *)

Definition at line 37 of file lread.c.

int(* nmL_getc_save)(Void) [static]

Definition at line 345 of file lread.c.

char * nmL_next [static]

Definition at line 344 of file lread.c.

int nml_read

Definition at line 106 of file lread.c.

int(* nmL_ungetc_save)(int, FILE *) [static]

Definition at line 349 of file lread.c.

char nmLbuf[256] [static]

Definition at line 344 of file lread.c.