blob: fa4558d9639df6e4f208bea1b7c40794deb909d6 (
plain) (
blame)
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
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#include "ratdef.h"
extern void r4tocstr (register RCHAR *rstr, register char *cstr);
FINT
OPEN(rname, mode)
RCHAR *rname;
register FINT *mode;
{
register FILE *fp;
char cname[FILENAMESIZE];
r4tocstr(rname, cname);
if (*mode == APPEND)
fp = fopen(cname, "a");
else if (*mode == READWRITE || *mode == WRITE)
fp = fopen(cname, "w");
else
fp = fopen(cname, "r");
if (fp == NULL)
return(RERR); /* unable to open file */
_fdtofile[fileno(fp)] = fp;
return(fileno(fp));
}
|
