Imported gcc-4.4.3

[msp430-gcc.git] / libf2c / libI77 / sue.c

diff --git a/libf2c/libI77/sue.c b/libf2c/libI77/sue.c
deleted file mode 100644 (file)
index 8865054..0000000
--- a/libf2c/libI77/sue.c
+++ /dev/null
@@ -1,88 +0,0 @@
-#include "config.h"
-#include "f2c.h"
-#include "fio.h"
-extern uiolen f__reclen;
-off_t f__recloc;
-
-#ifdef KR_headers
-c_sue(a) cilist *a;
-#else
-c_sue(cilist *a)
-#endif
-{
-       f__external=f__sequential=1;
-       f__formatted=0;
-       f__curunit = &f__units[a->ciunit];
-       if(a->ciunit >= MXUNIT || a->ciunit < 0)
-               err(a->cierr,101,"startio");
-       f__elist=a;
-       if(f__curunit->ufd==NULL && fk_open(SEQ,UNF,a->ciunit))
-               err(a->cierr,114,"sue");
-       f__cf=f__curunit->ufd;
-       if(f__curunit->ufmt) err(a->cierr,103,"sue");
-       if(!f__curunit->useek) err(a->cierr,103,"sue");
-       return(0);
-}
-#ifdef KR_headers
-integer s_rsue(a) cilist *a;
-#else
-integer s_rsue(cilist *a)
-#endif
-{
-       int n;
-       if(f__init != 1) f_init();
-       f__init = 3;
-       f__reading=1;
-       if(n=c_sue(a)) return(n);
-       f__recpos=0;
-       if(f__curunit->uwrt && f__nowreading(f__curunit))
-               err(a->cierr, errno, "read start");
-       if(fread((char *)&f__reclen,sizeof(uiolen),1,f__cf)
-               != 1)
-       {       if(feof(f__cf))
-               {       f__curunit->uend = 1;
-                       err(a->ciend, EOF, "start");
-               }
-               clearerr(f__cf);
-               err(a->cierr, errno, "start");
-       }
-       return(0);
-}
-#ifdef KR_headers
-integer s_wsue(a) cilist *a;
-#else
-integer s_wsue(cilist *a)
-#endif
-{
-       int n;
-       if(f__init != 1) f_init();
-       f__init = 3;
-       if(n=c_sue(a)) return(n);
-       f__reading=0;
-       f__reclen=0;
-       if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
-               err(a->cierr, errno, "write start");
-       f__recloc=FTELL(f__cf);
-       FSEEK(f__cf,(off_t)sizeof(uiolen),SEEK_CUR);
-       return(0);
-}
-integer e_wsue(Void)
-{      off_t loc;
-       f__init = 1;
-       fwrite((char *)&f__reclen,sizeof(uiolen),1,f__cf);
-#ifdef ALWAYS_FLUSH
-       if (fflush(f__cf))
-               err(f__elist->cierr, errno, "write end");
-#endif
-       loc=FTELL(f__cf);
-       FSEEK(f__cf,f__recloc,SEEK_SET);
-       fwrite((char *)&f__reclen,sizeof(uiolen),1,f__cf);
-       FSEEK(f__cf,loc,SEEK_SET);
-       return(0);
-}
-integer e_rsue(Void)
-{
-       f__init = 1;
-       FSEEK(f__cf,(off_t)(f__reclen-f__recpos+sizeof(uiolen)),SEEK_CUR);
-       return(0);
-}