diff options
Diffstat (limited to 'gcc/f/runtime/libI77/endfile.c')
-rw-r--r-- | gcc/f/runtime/libI77/endfile.c | 195 |
1 files changed, 0 insertions, 195 deletions
diff --git a/gcc/f/runtime/libI77/endfile.c b/gcc/f/runtime/libI77/endfile.c deleted file mode 100644 index 6050d1e3b30..00000000000 --- a/gcc/f/runtime/libI77/endfile.c +++ /dev/null @@ -1,195 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#include <sys/types.h> -#include "rawio.h" - -#ifdef KR_headers -extern char *strcpy(); -#else -#undef abs -#undef min -#undef max -#include <stdlib.h> -#include <string.h> -#endif - -#ifdef NON_UNIX_STDIO -#ifndef unlink -#define unlink remove -#endif -#else -#if defined (MSDOS) && !defined (GO32) -#include "io.h" -#endif -#endif - -#ifdef NON_UNIX_STDIO -extern char *f__r_mode[], *f__w_mode[]; -#endif - -#ifdef KR_headers -integer f_end(a) alist *a; -#else -integer f_end(alist *a) -#endif -{ - unit *b; - if (f__init & 2) - f__fatal (131, "I/O recursion"); - if(a->aunit>=MXUNIT || a->aunit<0) err(a->aerr,101,"endfile"); - b = &f__units[a->aunit]; - if(b->ufd==NULL) { - char nbuf[10]; - (void) sprintf(nbuf,"fort.%ld",a->aunit); -#ifdef NON_UNIX_STDIO - { FILE *tf; - if (tf = fopen(nbuf, f__w_mode[0])) - fclose(tf); - } -#else - close(creat(nbuf, 0666)); -#endif - return(0); - } - b->uend=1; - return(b->useek ? t_runc(a) : 0); -} - - static int -#ifdef NON_UNIX_STDIO -#ifdef KR_headers -copy(from, len, to) char *from, *to; register long len; -#else -copy(FILE *from, register long len, FILE *to) -#endif -{ - int k, len1; - char buf[BUFSIZ]; - - while(fread(buf, len1 = len > BUFSIZ ? BUFSIZ : (int)len, 1, from)) { - if (!fwrite(buf, len1, 1, to)) - return 1; - if ((len -= len1) <= 0) - break; - } - return 0; - } -#else -#ifdef KR_headers -copy(from, len, to) char *from, *to; register long len; -#else -copy(char *from, register long len, char *to) -#endif -{ - register size_t n; - int k, rc = 0, tmp; - char buf[BUFSIZ]; - - if ((k = open(from, O_RDONLY)) < 0) - return 1; - if ((tmp = creat(to,0666)) < 0) - return 1; - while((n = read(k, buf, (size_t) (len > BUFSIZ ? BUFSIZ : (int)len))) > 0) { - if (write(tmp, buf, n) != n) - { rc = 1; break; } - if ((len -= n) <= 0) - break; - } - close(k); - close(tmp); - return n < 0 ? 1 : rc; - } -#endif - -#ifndef L_tmpnam -#define L_tmpnam 16 -#endif - - int -#ifdef KR_headers -t_runc(a) alist *a; -#else -t_runc(alist *a) -#endif -{ - char nm[L_tmpnam+12]; /* extra space in case L_tmpnam is tiny */ - long loc, len; - unit *b; -#ifdef NON_UNIX_STDIO - FILE *bf, *tf; -#else - FILE *bf; -#endif - int rc = 0; - - b = &f__units[a->aunit]; - if(b->url) - return(0); /*don't truncate direct files*/ - loc=ftell(bf = b->ufd); - fseek(bf,0L,SEEK_END); - len=ftell(bf); - if (loc >= len || b->useek == 0 || b->ufnm == NULL) - return(0); -#ifdef NON_UNIX_STDIO - fclose(b->ufd); -#else - rewind(b->ufd); /* empty buffer */ -#endif - if (!loc) { -#ifdef NON_UNIX_STDIO - if (!(bf = fopen(b->ufnm, f__w_mode[b->ufmt]))) -#else - if (close(creat(b->ufnm,0666))) -#endif - rc = 1; - if (b->uwrt) - b->uwrt = 1; - goto done; - } -#ifdef _POSIX_SOURCE - tmpnam(nm); -#else - strcpy(nm,"tmp.FXXXXXX"); - mktemp(nm); -#endif -#ifdef NON_UNIX_STDIO - if (!(bf = fopen(b->ufnm, f__r_mode[0]))) { - bad: - rc = 1; - goto done; - } - if (!(tf = fopen(nm, f__w_mode[0]))) - goto bad; - if (copy(bf, loc, tf)) { - bad1: - rc = 1; - goto done1; - } - if (!(bf = freopen(b->ufnm, f__w_mode[0], bf))) - goto bad1; - if (!(tf = freopen(nm, f__r_mode[0], tf))) - goto bad1; - if (copy(tf, loc, bf)) - goto bad1; - if (f__w_mode[0] != f__w_mode[b->ufmt]) { - if (!(bf = freopen(b->ufnm, f__w_mode[b->ufmt|2], bf))) - goto bad1; - fseek(bf, loc, SEEK_SET); - } -done1: - fclose(tf); - unlink(nm); -done: - f__cf = b->ufd = bf; -#else - if (copy(b->ufnm, loc, nm) - || copy(nm, loc, b->ufnm)) - rc = 1; - unlink(nm); - fseek(b->ufd, loc, SEEK_SET); -done: -#endif - if (rc) - err(a->aerr,111,"endfile"); - return 0; - } |