/* 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);
}