mirrors/cosmopolitan
1
0
Fork 0
mirror of https://github.com/jart/cosmopolitan.git synced 2025-06-27 14:58:30 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Initial import

Browse source
This commit is contained in:
Justine Tunney 2020-06-15 07:18:57 -07:00
commit c91b3c5006
14915 changed files with 590219 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

29
third_party/f2c/sfe.c vendored Normal file
View file

@ -0,0 +1,29 @@
/* 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;
}