Open64 (mfef90, whirl2f, and IR tools)  TAG: version-openad; SVN changeset: 916
Classes | Defines | Variables
rnl.h File Reference
This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Classes

struct  Inpinfo
struct  Dims
struct  Nlentry
struct  Namelist

Defines

#define NVLESS   077 /* Typeless */
#define NV32I   04027 /* Short integer*/
#define NV64I   04077 /* Integer */
#define NVREAL   06077 /* Real */
#define NVDOUB   06177 /* Double */
#define WLESS   23
#define W32I   11
#define W64I   23
#define WREAL   23
#define WDOUB   40
#define WCOMP   50
#define MAXDIMS   10 /* Maximum number of dimensions for an array */
#define MAXNAML   31 /* Maximum length of namelist name */
#define RNL_ERROR   -3
#define RERR(css, n)
#define RERR2(css, n, m)
#define RERR3(css, n, m, t)
#define RNLERROR(s)
#define ISSPTB(c)   (((c) == ' ') || ((c) == '\t'))
#define MIN(a, b)   ((a) < (b) ? (a) : (b))
#define MATCH(c, a, b)   (a[(c >= 0x3f) ? b+1 : b] & (1 << (IND(c))))
#define TOGGLE_CHAR(c, cat, val)
#define IND(c)   ((c >= 0x3f) ? 0x7f - (unsigned)c : (unsigned)(0x40 - c - 1))
#define Nreturn(n)
#define NEND(css, n)
#define TRUE   (_btol(1))
#define FALSE   (_btol(0))
#define LGET(x)
#define CMNTLGET(x)
#define MAINLGET(x)
#define MAINCMNTLGET(x)
#define MRNLDELIM   0
#define MRNLREP   4
#define MRNLSEP   6
#define MRNLFLAG   8
#define MRNLCOMM   10

Variables

long _wnlrecsiz
long _BLNKSEP
long _MASKS []
long OUT_CHAR
long OUT_ECHO
long OUT_EQ
long OUT_LINE
long OUT_SEP
unum_t _OUT_UNIT
long _SKP_MESS
long _TYP_CONV

Define Documentation

#define CMNTLGET (   x)
Value:
{ \
        if (!inptr->incnt)                                      \
                if (ss = _rnl_fillrec(cup, echoptr, inptr))     \
                        return(ss);                             \
        x       = (char) *inptr->inptr++;                       \
        if (MATCH(x, _MASKS, MRNLCOMM)) {                       \
                x               = ' ';                          \
                /* start new record next time*/                 \
                inptr->incnt    = 1;                            \
        }                                                       \
        inptr->incnt--;                                         \
}

Definition at line 179 of file rnl.h.

Referenced by g_octhex(), n_getn(), n_getv(), nex_data(), and nl_read().

#define FALSE   (_btol(0))

Definition at line 159 of file rnl.h.

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

Definition at line 136 of file rnl.h.

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

Definition at line 99 of file rnl.h.

Referenced by g_charstr(), g_complx(), g_octhex(), isholl(), n_getn(), n_getv(), n_indx(), nex_data(), nl_read(), and RNL().

#define LGET (   x)
Value:
{ \
        if (!inptr->incnt)                                      \
                if (ss = _rnl_fillrec(cup, echoptr, inptr))     \
                        return(ss);                             \
        x       = (char) *inptr->inptr++;                       \
        inptr->incnt--;                                         \
}

Definition at line 171 of file rnl.h.

Referenced by g_charstr(), g_complx(), g_octhex(), get_holl(), get_quoholl(), n_indx(), and nex_data().

#define MAINCMNTLGET (   x)
Value:
{ \
        if (!inptr->incnt)                                      \
                if (ss = _rnl_fillrec(cup, echoptr, inptr)) {   \
                        if (ss == EOF) {                        \
                                NEND(css, FERDNLEF);                    \
                        }                                       \
                        else {                                  \
                                RERR(css, ss);                  \
                        }                                       \
                }                                               \
        x       = (char) *inptr->inptr++;                       \
        if (MATCH(x, _MASKS, MRNLCOMM)) {                       \
                x               = ' ';                          \
                inptr->incnt    = 1;                            \
        }                                                       \
        inptr->incnt--;                                         \
}

Definition at line 212 of file rnl.h.

Referenced by RNL().

#define MAINLGET (   x)
Value:
{ \
        if (!inptr->incnt)                                      \
                if (ss = _rnl_fillrec(cup, echoptr, inptr)) {   \
                        if (ss == EOF) {                        \
                                NEND(css, FERDNLEF);                    \
                        }                                       \
                        else {                                  \
                                RERR(css, ss);                  \
                        }                                       \
                }                                               \
        x       = (char) *inptr->inptr++;                       \
        inptr->incnt--;                                         \
}

Definition at line 198 of file rnl.h.

Referenced by RNL().

#define MATCH (   c,
  a,
  b 
)    (a[(c >= 0x3f) ? b+1 : b] & (1 << (IND(c))))

Definition at line 116 of file rnl.h.

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

Definition at line 63 of file rnl.h.

Referenced by _indx_nl(), and n_indx().

#define MAXNAML   31 /* Maximum length of namelist name */

Definition at line 64 of file rnl.h.

Referenced by _FRN(), _getname(), _getnlval(), _rnl90to77(), n_getn(), and RNL().

#define MIN (   a,
  b 
)    ((a) < (b) ? (a) : (b))

Definition at line 107 of file rnl.h.

#define MRNLCOMM   10

Definition at line 236 of file rnl.h.

Referenced by _g_charstr(), _nexdata(), g_charstr(), nex_data(), and rnlcomm_().

#define MRNLDELIM   0

Definition at line 232 of file rnl.h.

Referenced by _g_charstr(), _g_complx(), _g_number(), _getname(), _getnlval(), _nexdata(), _rnl90to77(), g_charstr(), n_getn(), nex_data(), RNL(), and rnldelm_().

#define MRNLFLAG   8

Definition at line 235 of file rnl.h.

Referenced by _nlrd_fillrec(), _rnl90to77(), _rnl_fillrec(), and rnlflag_().

#define MRNLREP   4

Definition at line 233 of file rnl.h.

Referenced by _g_charstr(), _getname(), _getnlval(), _indx_nl(), _ishol(), _nexdata(), g_charstr(), isholl(), n_getn(), n_getv(), n_indx(), nex_data(), and rnlrep_().

#define MRNLSEP   6

Definition at line 234 of file rnl.h.

Referenced by _g_charstr(), _g_complx(), _g_number(), _gocthex(), _ishol(), _nexdata(), _nlread(), _rnl90to77(), g_charstr(), g_octhex(), isholl(), nex_data(), nl_read(), RNL(), and rnlsep_().

#define NEND (   css,
  n 
)
Value:
{               \
        if (endf) {             \
                Nreturn(IO_END);\
        }                       \
	else			\
		_ferr(css,n); \
}

Definition at line 145 of file rnl.h.

Referenced by RNL().

#define Nreturn (   n)
Value:
{       \
        ss      = n;    \
        goto ret;       \
}

Definition at line 138 of file rnl.h.

Referenced by RNL().

#define NV32I   04027 /* Short integer*/

Definition at line 49 of file rnl.h.

Referenced by l_convert(), and n_indx().

#define NV64I   04077 /* Integer */

Definition at line 50 of file rnl.h.

Referenced by l_convert().

#define NVDOUB   06177 /* Double */

Definition at line 52 of file rnl.h.

Referenced by l_convert().

#define NVLESS   077 /* Typeless */

Definition at line 48 of file rnl.h.

#define NVREAL   06077 /* Real */

Definition at line 51 of file rnl.h.

Referenced by l_convert().

#define RERR (   css,
  n 
)
Value:
{       \
        if (errf) {             \
                Nreturn(IO_ERR);\
        }                       \
	else			\
		_ferr(css,n); \
}

Definition at line 70 of file rnl.h.

Referenced by l_write(), RNL(), and WNL().

#define RERR2 (   css,
  n,
  m 
)
Value:
{       \
        if (errf) {             \
                Nreturn(IO_ERR);\
        }                       \
	else			\
		_ferr(css,n,m);       \
}

Definition at line 78 of file rnl.h.

Referenced by RNL().

#define RERR3 (   css,
  n,
  m,
  t 
)
Value:
{       \
        if (errf) {             \
                Nreturn(IO_ERR);\
        }                       \
	else			\
		_ferr(css,n,m,t);     \
}

Definition at line 86 of file rnl.h.

Referenced by RNL().

#define RNL_ERROR   -3

Definition at line 68 of file rnl.h.

Referenced by _rnl_fillrec(), l_convert(), and nl_read().

#define RNLERROR (   s)
Value:
{               \
        errno   = s;            \
        return(RNL_ERROR);      \
}

Definition at line 94 of file rnl.h.

Referenced by g_charstr(), g_complx(), g_number(), g_octhex(), get_holl(), get_quoholl(), n_getn(), n_getv(), n_indx(), nex_data(), and nl_read().

#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 127 of file rnl.h.

Referenced by rnlcomm_(), rnldelm_(), rnlflag_(), rnlrep_(), and rnlsep_().

#define TRUE   (_btol(1))

Definition at line 156 of file rnl.h.

#define W32I   11

Definition at line 57 of file rnl.h.

#define W64I   23

Definition at line 58 of file rnl.h.

#define WCOMP   50

Definition at line 61 of file rnl.h.

#define WDOUB   40

Definition at line 60 of file rnl.h.

#define WLESS   23

Definition at line 56 of file rnl.h.

#define WREAL   23

Definition at line 59 of file rnl.h.

Variable Documentation

long _BLNKSEP

Definition at line 51 of file rnldata.c.

long _MASKS[]

Referenced by _g_charstr(), _g_complx(), _g_number(), _getname(), _getnlval(), _gocthex(), _indx_nl(), _ishol(), _nexdata(), _nlrd_fillrec(), _nlread(), _rnl90to77(), _rnl_fillrec(), g_charstr(), g_octhex(), isholl(), n_getn(), n_getv(), n_indx(), nex_data(), nl_read(), and RNL().

unum_t _OUT_UNIT

Definition at line 47 of file rnldata.c.

long _SKP_MESS

Definition at line 44 of file rnldata.c.

long _TYP_CONV

Definition at line 49 of file rnldata.c.

long _wnlrecsiz

Definition at line 46 of file wnlutil.c.

long OUT_CHAR

Definition at line 48 of file wnlutil.c.

long OUT_ECHO

Definition at line 54 of file wnlutil.c.

long OUT_EQ

Definition at line 52 of file wnlutil.c.

long OUT_LINE

Definition at line 56 of file wnlutil.c.

long OUT_SEP

Definition at line 50 of file wnlutil.c.

 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines