30 lines
685 B
C
30 lines
685 B
C
|
/* sequential formatted external common routines*/
|
||
|
|
#include "third_party/f2c/fio.h"
|
||
|
|
#include "third_party/f2c/fmt.h"
|
||
|
|
|
||
|
|
integer e_rsfe(Void) {
|
||
|
|
int n;
|
||
|
|
n = en_fio();
|
||
|
|
f__fmtbuf = NULL;
|
||
|
|
return (n);
|
||
|
|
}
|
||
|
|
|
||
|
|
int c_sfe(cilist *a) /* check */
|
||
|
|
{
|
||
|
|
unit *p;
|
||
|
|
f__curunit = p = &f__units[a->ciunit];
|
||
|
|
if (a->ciunit >= MXUNIT || a->ciunit < 0) err(a->cierr, 101, "startio");
|
||
|
|
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 = en_fio();
|
||
|
|
f__fmtbuf = NULL;
|
||
|
|
#ifdef ALWAYS_FLUSH
|
||
|
|
if (!n && fflush(f__cf)) err(f__elist->cierr, errno, "write end");
|
||
|
|
#endif
|
||
|
|
return n;
|
||
|
|
}
|