diff options
Diffstat (limited to 'libf2c/libI77/sue.c')
-rw-r--r-- | libf2c/libI77/sue.c | 93 |
1 files changed, 0 insertions, 93 deletions
diff --git a/libf2c/libI77/sue.c b/libf2c/libI77/sue.c deleted file mode 100644 index a20df66d31f..00000000000 --- a/libf2c/libI77/sue.c +++ /dev/null @@ -1,93 +0,0 @@ -#include "config.h" -#include "f2c.h" -#include "fio.h" -extern uiolen f__reclen; -off_t f__recloc; - -int -c_sue (cilist * a) -{ - 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); -} - -integer -s_rsue (cilist * a) -{ - 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); -} - -integer -s_wsue (cilist * a) -{ - 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); -} |