Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
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 ERROR0 | ( | cond, | |
css, | |||
n | |||
) |
{ \ if (!(cond)) \ _ferr(css,n); \ else \ goto finalization; \ }
Definition at line 41 of file wnl90def.h.
#define ERROR1 | ( | cond, | |
css, | |||
n, | |||
p | |||
) |
{ \ if (!(cond)) \ _ferr(css,(n), p); \ else \ goto finalization; \ }
Definition at line 48 of file wnl90def.h.
#define NLCHAR | ( | x | ) |
{ \ 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 | ( | ) |
{ \ 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 | ( | ) |
{ \ 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().
long _wnlrecsiz |
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_().