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

Go to the source code of this file.

Defines

#define ERROR0(cond, css, n)
#define ERROR1(cond, css, n, p)
#define NLWFLUSH()
#define NLCHAR(x)
#define NLINE()

Variables

long _wnlrecsiz
long OUT_CHAR
long OUT_ECHO
long OUT_LINE
long OUT_EQ
long OUT_SEP

Define Documentation

#define ERROR0 (   cond,
  css,
 
)
Value:
{                          \
        if (!(cond))                                    \
                _ferr(css,n);                           \
        else                                            \
                goto finalization;                      \
}

Definition at line 41 of file wnl90def.h.

#define ERROR1 (   cond,
  css,
  n,
 
)
Value:
{                       \
        if (!(cond))                                    \
                _ferr(css,(n), p);                      \
        else                                            \
                goto finalization;                      \
}

Definition at line 48 of file wnl90def.h.

#define NLCHAR (   x)
Value:
{                             \
        if (cup->ulinemax++ > cup->unmlsize) {  \
                ERROR0(errf, css, FEWRLONG); /* output record too long */ \
        }                                       \
        *(cup->ulineptr++)      = (long) x;     \
}

Definition at line 73 of file wnl90def.h.

Referenced by _FWN(), _nlstrent(), and _wnl90to77().

#define NLINE ( )
Value:
{ \
        if (OUT_LINE) {                                                 \
                NLWFLUSH();     /* Write out what's in line buffer */   \
                NLCHAR(' ');    /* write blank                  */      \
                NLCHAR(' ');    /* write blank                  */      \
        }                                                               \
}

Definition at line 84 of file wnl90def.h.

#define NLWFLUSH ( )
Value:
{                            \
        if (_fwch(cup, cup->ulinebuf, cup->ulinemax, 1) < 0) { \
                ERROR0(errf, css, errno);       \
        }                                       \
        cup->ulineptr   = cup->ulinebuf;        \
        cup->ulinemax   = 0;                    \
}

Definition at line 61 of file wnl90def.h.

Referenced by _FWN(), _nlstrent(), and _wnl90to77().


Variable Documentation

long _wnlrecsiz

Definition at line 46 of file wnlutil.c.

Referenced by _FWN(), and WNL().

long OUT_CHAR

Definition at line 48 of file wnlutil.c.

Referenced by _wnl90to77(), WNL(), and wnldelm_().

long OUT_ECHO

Definition at line 54 of file wnlutil.c.

Referenced by _wnl90to77(), WNL(), and wnlflag_().

long OUT_EQ

Definition at line 52 of file wnlutil.c.

Referenced by _wnl90to77(), WNL(), and wnlrep_().

long OUT_LINE

Definition at line 56 of file wnlutil.c.

Referenced by _FWN(), and wnlline_().

long OUT_SEP

Definition at line 50 of file wnlutil.c.

Referenced by _wnl90to77(), l_write(), lw_A(), and wnlsep_().

 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines