/* H.Stat: Header file for stat call (Specialised version for Perl) */

struct stat
{
        int		st_type;        /* file type (file/directory) */
        int		st_ftype;       /* file type (-1 if unstamped) */
        int		st_load;	/* load address */
        int		st_exec;	/* execution address */
        int		st_length;	/* file size in bytes */
        int		st_attr;	/* file attributes */
        double		st_time;        /* time stamp (0 if unstamped) */
        time_t		st_utime;	/* time stamp in Unix format */
};

/* File types */

#define T_FILE		1		/* Plain file */
#define T_DIRECTORY	2		/* Directory */

/* File attribute bits */

#define S_READ		0x01		/* Read access for user */
#define S_WRITE		0x02		/* Write access for user */
#define S_LOCK		0x08		/* File is locked */
#define S_PREAD		0x10		/* Public read access */
#define S_PWRITE	0x20		/* Public write access */

extern int stat (char *name, struct stat *buf);
