Initial import

third_party/f2c/sfe.c

@@ -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;
+}