-- Generated by utildgen.c from system includes
with Interfaces.C;
package Util.Systems.Types is
subtype dev_t is Interfaces.C.unsigned;
subtype ino_t is Long_Long_Integer;
subtype off_t is Long_Long_Integer;
subtype blksize_t is Interfaces.C.int;
subtype blkcnt_t is Long_Long_Integer;
subtype uid_t is Interfaces.C.unsigned;
subtype gid_t is Interfaces.C.unsigned;
subtype nlink_t is Interfaces.C.unsigned_short;
subtype mode_t is Interfaces.C.unsigned_short;
S_IFMT : constant mode_t := 8#00170000#;
S_IFDIR : constant mode_t := 8#00040000#;
S_IFCHR : constant mode_t := 8#00020000#;
S_IFBLK : constant mode_t := 8#00060000#;
S_IFREG : constant mode_t := 8#00100000#;
S_IFIFO : constant mode_t := 8#00010000#;
S_IFLNK : constant mode_t := 8#00120000#;
S_IFSOCK : constant mode_t := 8#00140000#;
S_ISUID : constant mode_t := 8#00004000#;
S_ISGID : constant mode_t := 8#00002000#;
S_IREAD : constant mode_t := 8#00000400#;
S_IWRITE : constant mode_t := 8#00000200#;
S_IEXEC : constant mode_t := 8#00000100#;
type File_Type is new Interfaces.C.int;
subtype Time_Type is Long_Long_Integer;
type Timespec is record
tv_sec : Time_Type;
tv_nsec : Long_Long_Integer;
end record;
pragma Convention (C_Pass_By_Copy, Timespec);
type Seek_Mode is (SEEK_SET, SEEK_CUR, SEEK_END);
for Seek_Mode use (SEEK_SET => 0, SEEK_CUR => 1, SEEK_END => 2);
-- Size = 144
-- st_dev = 4
-- st_mode = 2
-- st_uid = 4
-- st_atim = 8
-- st_nlink@ 6
-- st_rdev@ 24
-- st_size@ 96
STAT_NAME : constant String := "_stat64";
FSTAT_NAME : constant String := "_fstat64";
type Stat_Type is record
st_dev : dev_t;
st_mode : mode_t;
st_nlink : nlink_t;
st_ino : ino_t;
st_uid : uid_t;
st_gid : gid_t;
st_rdev : dev_t;
st_atim : Timespec;
st_mtim : Timespec;
st_ctim : Timespec;
st_birthtim : Timespec;
st_size : off_t;
st_blocks : blkcnt_t;
st_blksize : blksize_t;
st_flags : Interfaces.C.unsigned;
st_gen : Interfaces.C.unsigned;
st_lspare : Interfaces.C.unsigned;
st_qspare1 : Interfaces.C.unsigned;
st_qspare2 : Interfaces.C.unsigned;
st_qspare3 : Interfaces.C.unsigned;
st_qspare4 : Interfaces.C.unsigned;
end record;
pragma Convention (C_Pass_By_Copy, Stat_Type);
end Util.Systems.Types;