This graph shows which files directly or indirectly include this file:

Defines
#define	BLANK ((int) ' ')
#define	NULLC ((int) '\0')
#define	OCTAL 1 /* reading octal input */
#define	HEX 2 /* reading hex input */
#define	SKIPMSG " - Skipped record named: "
#define	UNITSTR " On Unit: "
#define	OCTSHFT 61 /* allow 20 octal digits */
#define	HEXSHFT 60 /* allow 15 hex digits */
#define	OCTSHFT4 30 /* allow 10 octal digits */
#define	HEXSHFT4 28 /* allow 7 hex digits */
#define	MAXNAML 31 /* 31-character name length */
#define	MAXDIMS 8 /* Maximum number of dimensions for an array */
#define	RNL_ERROR -3
#define	ISBLANK(c) (((c) == ' ') \|\| ((c) == '\t'))
#define	ISSEP(c) (isspace(c) \|\| (c) =='/' \|\| (c) ==',')
#define	ENDD(cond, css, n)
#define	ERROR0(cond, css, n)
#define	ERROR1(cond, css, n, p)
#define	ERROR3(cond, css, n, p, t)
#define	GETSTRD()
#define	TRUE (_btol(1))
#define	FALSE (_btol(0))
#define	TOGGLE_CHAR(c, cat, val)
#define	IND(c) ((c >= 0x3f) ? 0x7f - (unsigned)c : (unsigned)(0x40 - c - 1))
#define	MRNLDELIM 0
#define	MRNLREP 4
#define	MRNLSEP 6
#define	MRNLFLAG 8
#define	MRNLCOMM 10
Variables
long	_BLNKSEP
long	_MASKS []
unum_t	_OUT_UNIT
long	_SKP_MESS
long	_TYP_CONV

Define Documentation

#define BLANK ((int) ' ')

Definition at line 41 of file rnl90def.h.

#define ENDD	(	cond,
		css,
		n
	)

Value:

{               \
        if (!(cond))                    \
                _ferr(css, n);          \
        else {                          \
                errn    = n;            \
                goto finalization;      \
        }                               \
}

Definition at line 60 of file rnl90def.h.

Referenced by _FRN(), and _rnl90to77().

#define ERROR0	(	cond,
		css,
		n
	)

Value:

{               \
        if (!(cond))                    \
                _ferr(css, n);          \
        else                            \
                goto finalization;      \
}

Definition at line 68 of file rnl90def.h.

#define ERROR1	(	cond,
		css,
		n,
		p
	)

Value:

{       \
        if (!(cond))                    \
                _ferr(css, n, p);       \
        else                            \
                goto finalization;      \
}

Definition at line 75 of file rnl90def.h.

#define ERROR3	(	cond,
		css,
		n,
		p,
		t
	)

Value:

{       \
        if (!(cond))                    \
                _ferr(css, n, p, t);    \
        else                            \
                goto finalization;      \
}

Definition at line 82 of file rnl90def.h.

#define FALSE (_btol(0))

Definition at line 115 of file rnl90def.h.

#define GETSTRD ( )

Value:

{                               \
        SUBGTC(ch);                             \
        if (ch == enddelim) {                   \
                eos     = -1; /* end of string */\
                SUBGTC(ch); /* unless string delimiter is doubled */ \
                if (ch == enddelim)             \
                eos     = 0;                    \
                else {                          \
                        cup->ulineptr--;        \
                        cup->ulinecnt++;        \
                }                               \
        }                                       \
}

Definition at line 94 of file rnl90def.h.

Referenced by _g_charstr().

#define HEX 2 /* reading hex input */

Definition at line 44 of file rnl90def.h.

#define HEXSHFT 60 /* allow 15 hex digits */

Definition at line 49 of file rnl90def.h.

Referenced by _gocthex().

#define HEXSHFT4 28 /* allow 7 hex digits */

Definition at line 51 of file rnl90def.h.

Referenced by _gocthex().

#define IND ( c ) ((c >= 0x3f) ? 0x7f - (unsigned)c : (unsigned)(0x40 - c - 1))

Definition at line 134 of file rnl90def.h.

#define ISBLANK ( c ) (((c) == ' ') || ((c) == '\t'))

Definition at line 57 of file rnl90def.h.

Referenced by _FRN(), _g_charstr(), _g_complx(), _getname(), _getnlval(), _gocthex(), _indx_nl(), _ishol(), _nexdata(), _nlread(), and _rnl90to77().

#define ISSEP ( c ) (isspace(c) || (c) =='/' || (c) ==',')

Definition at line 58 of file rnl90def.h.

Referenced by _g_complx(), and _g_number().

#define MAXDIMS 8 /* Maximum number of dimensions for an array */

Definition at line 54 of file rnl90def.h.

#define MAXNAML 31 /* 31-character name length */

Definition at line 53 of file rnl90def.h.

#define MRNLCOMM 10

Definition at line 156 of file rnl90def.h.

#define MRNLDELIM 0

Definition at line 140 of file rnl90def.h.

#define MRNLFLAG 8

Definition at line 152 of file rnl90def.h.

#define MRNLREP 4

Definition at line 144 of file rnl90def.h.

#define MRNLSEP 6

Definition at line 148 of file rnl90def.h.

#define NULLC ((int) '\0')

Definition at line 42 of file rnl90def.h.

#define OCTAL 1 /* reading octal input */

Definition at line 43 of file rnl90def.h.

#define OCTSHFT 61 /* allow 20 octal digits */

Definition at line 48 of file rnl90def.h.

Referenced by _gocthex().

#define OCTSHFT4 30 /* allow 10 octal digits */

Definition at line 50 of file rnl90def.h.

Referenced by _gocthex().

#define RNL_ERROR -3

Definition at line 55 of file rnl90def.h.

#define SKIPMSG " - Skipped record named: "

Definition at line 45 of file rnl90def.h.

#define TOGGLE_CHAR	(	c,
		cat,
		val
	)

Value:

{ \
        if (val)                                                        \
                _MASKS[(c >= 0x3f) ? cat+1 : cat] |= (1 << (IND(c)));   \
        else                                                            \
                _MASKS[(c >= 0x3f) ? cat+1 : cat] &= ~(1 << (IND(c)));  \
}

Definition at line 126 of file rnl90def.h.

#define TRUE (_btol(1))

Definition at line 111 of file rnl90def.h.

#define UNITSTR " On Unit: "

Definition at line 46 of file rnl90def.h.