![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to endfile.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10dc / libI77|
Return to endfile.c CVS log | Up to [Research Unix] / researchv10dc / libI77 |
1.1 root 1: #include "f2c.h"
2: #include "fio.h"
3: #include "sys/types.h"
4: #include "rawio.h"
5:
6: #ifdef KR_headers
7: extern char *strcpy();
8: #else
9: #undef abs
10: #undef min
11: #undef max
12: #include "stdlib.h"
13: #include "string.h"
14: #endif
15:
16: #ifdef NON_UNIX_STDIO
17: #ifndef unlink
18: #define unlink remove
19: #endif
20: #else
21: #ifdef MSDOS
22: #include "io.h"
23: #endif
24: #endif
25:
26: #ifdef NON_UNIX_STDIO
27: extern char *f__r_mode[], *f__w_mode[];
28: #endif
29:
30: #ifdef KR_headers
31: integer f_end(a) alist *a;
32: #else
33: integer f_end(alist *a)
34: #endif
35: {
36: unit *b;
37: if(a->aunit>=MXUNIT || a->aunit<0) err(a->aerr,101,"endfile");
38: b = &f__units[a->aunit];
39: if(b->ufd==NULL) {
40: char nbuf[10];
41: (void) sprintf(nbuf,"fort.%ld",a->aunit);
42: #ifdef NON_UNIX_STDIO
43: { FILE *tf;
44: if (tf = fopen(nbuf, f__w_mode[0]))
45: fclose(tf);
46: }
47: #else
48: close(creat(nbuf, 0666));
49: #endif
50: return(0);
51: }
52: b->uend=1;
53: return(b->useek ? t_runc(a) : 0);
54: }
55:
56: static int
57: #ifdef NON_UNIX_STDIO
58: #ifdef KR_headers
59: copy(from, len, to) char *from, *to; register long len;
60: #else
61: copy(FILE *from, register long len, FILE *to)
62: #endif
63: {
64: int k, len1;
65: char buf[BUFSIZ];
66:
67: while(fread(buf, len1 = len > BUFSIZ ? BUFSIZ : (int)len, 1, from)) {
68: if (!fwrite(buf, len1, 1, to))
69: return 1;
70: if ((len -= len1) <= 0)
71: break;
72: }
73: return 0;
74: }
75: #else
76: #ifdef KR_headers
77: copy(from, len, to) char *from, *to; register long len;
78: #else
79: copy(char *from, register long len, char *to)
80: #endif
81: {
82: register int n;
83: int k, rc = 0, tmp;
84: char buf[BUFSIZ];
85:
86: if ((k = open(from, O_RDONLY)) < 0)
87: return 1;
88: if ((tmp = creat(to,0666)) < 0)
89: return 1;
90: while((n = read(k, buf, len > BUFSIZ ? BUFSIZ : (int)len)) > 0) {
91: if (write(tmp, buf, n) != n)
92: { rc = 1; break; }
93: if ((len -= n) <= 0)
94: break;
95: }
96: close(k);
97: close(tmp);
98: return n < 0 ? 1 : rc;
99: }
100: #endif
101:
102: #ifndef L_tmpnam
103: #define L_tmpnam 16
104: #endif
105:
106: int
107: #ifdef KR_headers
108: t_runc(a) alist *a;
109: #else
110: t_runc(alist *a)
111: #endif
112: {
113: char nm[L_tmpnam+12]; /* extra space in case L_tmpnam is tiny */
114: long loc, len;
115: unit *b;
116: #ifdef NON_UNIX_STDIO
117: FILE *bf, *tf;
118: #else
119: FILE *bf;
120: #endif
121: int rc = 0;
122:
123: b = &f__units[a->aunit];
124: if(b->url)
125: return(0); /*don't truncate direct files*/
126: loc=ftell(bf = b->ufd);
127: fseek(bf,0L,SEEK_END);
128: len=ftell(bf);
129: if (loc >= len || b->useek == 0 || b->ufnm == NULL)
130: return(0);
131: #ifdef NON_UNIX_STDIO
132: fclose(b->ufd);
133: #else
134: rewind(b->ufd); /* empty buffer */
135: #endif
136: if (!loc) {
137: #ifdef NON_UNIX_STDIO
138: if (!(bf = fopen(b->ufnm, f__w_mode[b->ufmt])))
139: #else
140: if (close(creat(b->ufnm,0666)))
141: #endif
142: rc = 1;
143: if (b->uwrt)
144: b->uwrt = 1;
145: goto done;
146: }
147: #ifdef _POSIX_SOURCE
148: tmpnam(nm);
149: #else
150: strcpy(nm,"tmp.FXXXXXX");
151: mktemp(nm);
152: #endif
153: #ifdef NON_UNIX_STDIO
154: if (!(bf = fopen(b->ufnm, f__r_mode[0]))) {
155: bad:
156: rc = 1;
157: goto done;
158: }
159: if (!(tf = fopen(nm, f__w_mode[0])))
160: goto bad;
161: if (copy(bf, loc, tf)) {
162: bad1:
163: rc = 1;
164: goto done1;
165: }
166: if (!(bf = freopen(b->ufnm, f__w_mode[0], bf)))
167: goto bad1;
168: if (!(tf = freopen(nm, f__r_mode[0], tf)))
169: goto bad1;
170: if (copy(tf, loc, bf))
171: goto bad1;
172: if (f__w_mode[0] != f__w_mode[b->ufmt]) {
173: if (!(bf = freopen(b->ufnm, f__w_mode[b->ufmt+2], bf)))
174: goto bad1;
175: fseek(bf, loc, SEEK_SET);
176: }
177: done1:
178: fclose(tf);
179: unlink(nm);
180: done:
181: f__cf = b->ufd = bf;
182: #else
183: if (copy(b->ufnm, loc, nm)
184: || copy(nm, loc, b->ufnm))
185: rc = 1;
186: unlink(nm);
187: fseek(b->ufd, loc, SEEK_SET);
188: done:
189: #endif
190: if (rc)
191: err(a->aerr,111,"endfile");
192: return 0;
193: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.