diff options
Diffstat (limited to 'gcc/f/runtime/libI77/endfile.c')
| -rw-r--r-- | gcc/f/runtime/libI77/endfile.c | 195 |
1 files changed, 195 insertions, 0 deletions
diff --git a/gcc/f/runtime/libI77/endfile.c b/gcc/f/runtime/libI77/endfile.c new file mode 100644 index 00000000000..6050d1e3b30 --- /dev/null +++ b/gcc/f/runtime/libI77/endfile.c @@ -0,0 +1,195 @@ +#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; + } |