sfe.c   [plain text]


/* sequential formatted external common routines*/
#include "config.h"
#include "f2c.h"
#include "fio.h"

extern char *f__fmtbuf;

integer
e_rsfe (void)
{
  int n;
  f__init = 1;
  n = en_fio ();
  f__fmtbuf = NULL;
  return (n);
}

int
c_sfe (cilist * a)		/* check */
{
  unit *p;
  if (a->ciunit >= MXUNIT || a->ciunit < 0)
    err (a->cierr, 101, "startio");
  p = &f__units[a->ciunit];
  if (p->ufd == NULL && fk_open (SEQ, FMT, a->ciunit))
    err (a->cierr, 114, "sfe");
  if (!p->ufmt)
    err (a->cierr, 102, "sfe");
  return (0);
}

integer
e_wsfe (void)
{
  int n;
  f__init = 1;
  n = en_fio ();
  f__fmtbuf = NULL;
#ifdef ALWAYS_FLUSH
  if (!n && fflush (f__cf))
    err (f__elist->cierr, errno, "write end");
#endif
  return n;
}