1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
#include "sys/types.h"
#include "sys/stat.h"
#include "f2c.h"
#include "fio.h"
extern char *mkstemp(), *malloc(), *strcpy();
extern FILE *fdopen();
extern integer f_clos();
integer f_open(a) olist *a;
{ unit *b;
int n;
char buf[256];
cllist x;
if(a->ounit>=MXUNIT || a->ounit<0)
err(a->oerr,101,"open")
curunit = b = &units[a->ounit];
if(b->ufd) {
if(a->ofnm==0)
{
same: if(a->oblnk!= 0) b->ublnk= *a->oblnk== 'z'?1:0;
return(0);
}
g_char(a->ofnm,a->ofnmlen,buf);
if(inode(buf)==b->uinode) goto same;
x.cunit=a->ounit;
x.csta=0;
x.cerr=a->oerr;
if((n=f_clos(&x))!=0) return(n);
}
b->url=a->orl;
if(a->oblnk && (*a->oblnk=='z' || *a->oblnk == 'Z')) b->ublnk=1;
else b->ublnk=0;
if(a->ofm==0)
{ if(b->url>0) b->ufmt=0;
else b->ufmt=1;
}
else if(*a->ofm=='f' || *a->ofm == 'F') b->ufmt=1;
else b->ufmt=0;
if (a->ofnm) {
g_char(a->ofnm,a->ofnmlen,buf);
if (!buf[0])
err(a->oerr,107,"open")
}
else
sprintf(buf, "fort.%ld", a->ounit);
b->uscrtch = 0;
switch(a->osta ? *a->osta : 'u')
{
case 'o':
case 'O':
if(!a->ofnm) err(a->oerr,107,"open")
if(access(buf,0))
err(a->oerr,errno,"open")
break;
case 's':
case 'S':
b->uscrtch=1;
(void) strcpy(buf,"tmp.FXXXXXX");
(void) mkstemp(buf);
(void) close(creat(buf, 0666));
break;
case 'n':
case 'N':
if(a->ofnm==0) err(a->oerr,107,"open")
(void) close(creat(buf, 0666));
break;
}
done:
b->ufnm=(char *) malloc((unsigned int)(strlen(buf)+1));
if(b->ufnm==NULL) err(a->oerr,113,"no space");
(void) strcpy(b->ufnm,buf);
b->uend=0;
if(isdev(buf))
{ b->ufd = fopen(buf,"r");
if(b->ufd==NULL) err(a->oerr,errno,buf)
else b->uwrt = 0;
}
else {
b->uwrt = 0;
if((b->ufd = fopen(buf, "r")) == NULL) {
if ((n = open(buf,1)) >= 0) {
b->uwrt = 2;
}
else {
n = creat(buf, 0666);
b->uwrt = 1;
}
if (n < 0
|| (b->ufd = fdopen(n, "w")) == NULL)
err(a->oerr, errno, "open");
}
if(b->url > 0) /* one can more easily find the end */
(void) fseek(b->ufd, 0L, 0);
}
b->useek=canseek(b->ufd);
if((b->uinode=inode(buf))==-1)
err(a->oerr,108,"open")
if(a->orl && b->useek) rewind(b->ufd);
return(0);
}
fk_open(seq,fmt,n) ftnint n;
{ char nbuf[10];
olist a;
(void) sprintf(nbuf,"fort.%ld",n);
a.oerr=1;
a.ounit=n;
a.ofnm=nbuf;
a.ofnmlen=strlen(nbuf);
a.osta=NULL;
a.oacc= seq==SEQ?"s":"d";
a.ofm = fmt==FMT?"f":"u";
a.orl = seq==DIR?1:0;
a.oblnk=NULL;
return(f_open(&a));
}
isdev(s) char *s;
{ struct stat x;
int j;
if(stat(s, &x) == -1) return(0);
if((j = (x.st_mode&S_IFMT)) == S_IFREG || j == S_IFDIR) return(0);
else return(1);
}
|
