summaryrefslogtreecommitdiff
path: root/Build/source/utils/pmx/pmx-2.6.18/libf2c/sfe.c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.18/libf2c/sfe.c')
-rw-r--r--Build/source/utils/pmx/pmx-2.6.18/libf2c/sfe.c43
1 files changed, 0 insertions, 43 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.18/libf2c/sfe.c b/Build/source/utils/pmx/pmx-2.6.18/libf2c/sfe.c
deleted file mode 100644
index 21e1f044645..00000000000
--- a/Build/source/utils/pmx/pmx-2.6.18/libf2c/sfe.c
+++ /dev/null
@@ -1,43 +0,0 @@
-/* sequential formatted external common routines*/
-#include "f2c.h"
-#include "fio.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-extern char *f__fmtbuf;
-
-integer e_rsfe(Void)
-{ int n;
- n=en_fio();
- f__fmtbuf=NULL;
- return(n);
-}
-
- int
-#ifdef KR_headers
-c_sfe(a) cilist *a; /* check */
-#else
-c_sfe(cilist *a) /* check */
-#endif
-{ 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;
-}
-#ifdef __cplusplus
-}
-#endif