Open64 (mfef90, whirl2f, and IR tools)  TAG: version-openad; SVN changeset: 916
readc.c File Reference
#include <errno.h>
#include <foreign.h>
#include <liberrno.h>
#include "fio.h"
Include dependency graph for readc.c:

Go to the source code of this file.

Defines

#define BLANK   (long) ' '
#define ERET(err)

Functions

static void __READC ()
void READC (_f_int *unump, _f_int *uda, _f_int *charsp, _f_int *status)
void READCP (_f_int *unump, _f_int *uda, _f_int *charsp, _f_int *status)
static void __READC (int fulp, _f_int *unump, _f_int *uda, _f_int *charsp, _f_int *status)

Define Documentation

#define BLANK   (long) ' '

Definition at line 49 of file readc.c.

Referenced by __READC().

#define ERET (   err)
Value:
{       \
        chars   = 0;    \
        errn    = err;  \
        goto done;      \
}

Definition at line 51 of file readc.c.

Referenced by __READC().


Function Documentation

static void __READC ( ) [static]

Referenced by READC(), and READCP().

static void __READC ( int  fulp,
_f_int *  unump,
_f_int *  uda,
_f_int *  charsp,
_f_int *  status 
) [static]

Definition at line 97 of file readc.c.

References _frch(), _get_mismatch_error(), _imp_open(), BLANK, CNT, cup, EOD, EOR, ERET, errno, FEKLUDG1, FEKLUDG2, FEKLUDG3, FEKLUDG4, FETAPUTE, FMT, IOERR, NULL, unit_s::ok_rd_seq_fmt, ret, SEQ, STMT_BEGIN, STMT_END, T_RSF, TF_READ, unit_s::uend, and unit_s::uwrt.

Here is the call graph for this function:

void READC ( _f_int *  unump,
_f_int *  uda,
_f_int *  charsp,
_f_int *  status 
)

Definition at line 64 of file readc.c.

References __READC(), and FULL.

Here is the call graph for this function:

void READCP ( _f_int *  unump,
_f_int *  uda,
_f_int *  charsp,
_f_int *  status 
)

Definition at line 80 of file readc.c.

References __READC(), and PARTIAL.

Here is the call graph for this function:

 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines