diff options
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.c | 43 |
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 |