|
pragma Ada_2012;
|
|
|
|
pragma Style_Checks (Off);
|
|
pragma Warnings (Off, "-gnatwu");
|
|
|
|
with Interfaces.C; use Interfaces.C;
|
|
|
|
package fcntl_linux_h is
|
|
|
|
O_ACCMODE : constant := 8#003#; -- fcntl-linux.h:42
|
|
O_RDONLY : constant := 8#0#; -- fcntl-linux.h:43
|
|
O_WRONLY : constant := 8#1#; -- fcntl-linux.h:44
|
|
O_RDWR : constant := 8#2#; -- fcntl-linux.h:45
|
|
|
|
O_CREAT : constant := 8#100#; -- fcntl-linux.h:47
|
|
|
|
O_EXCL : constant := 8#200#; -- fcntl-linux.h:50
|
|
|
|
O_NOCTTY : constant := 8#400#; -- fcntl-linux.h:53
|
|
|
|
O_TRUNC : constant := 8#1000#; -- fcntl-linux.h:56
|
|
|
|
O_APPEND : constant := 8#2000#; -- fcntl-linux.h:59
|
|
|
|
O_NONBLOCK : constant := 8#4000#; -- fcntl-linux.h:62
|
|
-- unsupported macro: O_NDELAY O_NONBLOCK
|
|
|
|
O_SYNC : constant := 8#4010000#; -- fcntl-linux.h:68
|
|
-- unsupported macro: O_FSYNC O_SYNC
|
|
|
|
O_ASYNC : constant := 8#20000#; -- fcntl-linux.h:72
|
|
|
|
F_GETLK : constant := 5; -- fcntl-linux.h:105
|
|
F_SETLK : constant := 6; -- fcntl-linux.h:106
|
|
F_SETLKW : constant := 7; -- fcntl-linux.h:107
|
|
|
|
F_GETLK64 : constant := 12; -- fcntl-linux.h:115
|
|
F_SETLK64 : constant := 13; -- fcntl-linux.h:116
|
|
F_SETLKW64 : constant := 14; -- fcntl-linux.h:117
|
|
|
|
F_DUPFD : constant := 0; -- fcntl-linux.h:167
|
|
F_GETFD : constant := 1; -- fcntl-linux.h:168
|
|
F_SETFD : constant := 2; -- fcntl-linux.h:169
|
|
F_GETFL : constant := 3; -- fcntl-linux.h:170
|
|
F_SETFL : constant := 4; -- fcntl-linux.h:171
|
|
|
|
FD_CLOEXEC : constant := 1; -- fcntl-linux.h:219
|
|
|
|
F_RDLCK : constant := 0; -- fcntl-linux.h:223
|
|
F_WRLCK : constant := 1; -- fcntl-linux.h:224
|
|
F_UNLCK : constant := 2; -- fcntl-linux.h:225
|
|
|
|
F_EXLCK : constant := 4; -- fcntl-linux.h:231
|
|
F_SHLCK : constant := 8; -- fcntl-linux.h:232
|
|
|
|
end fcntl_linux_h;
|
|
|
|
pragma Style_Checks (On);
|
|
pragma Warnings (On, "-gnatwu");
|