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.
*/
#define import_spp
#define import_xnames
#define import_finfo
#define import_libc
#include <iraf.h>
/* C_FINFO -- FIO get directory info for named file.
*/
int
c_finfo (
char *fname, /* name of file to be opened */
struct _finfo *fi /* finfo structure (output) */
)
{
register int status;
iferr (status = (int) FINFO (c_sppstr(fname), (XLONG *)fi)) {
status = ERR;
} else if (status != XERR) {
c_strpak ((XCHAR *)fi->fi_owner, fi->fi_owner, SZ_OWNERSTR);
status = OK;
} else
status = ERR;
return (status);
}
|
