Commit | Line | Data |
---|---|---|
42793c05 | 1 | use ExtUtils::MakeMaker; |
72f7b9a1 | 2 | use ExtUtils::Constant 0.07 'WriteConstants'; |
4ad3186e | 3 | WriteMakefile( |
1adb159c | 4 | NAME => 'Fcntl', |
69158f75 | 5 | MAN3PODS => {}, # Pods will be built by installman. |
4ad3186e | 6 | XSPROTOARG => '-noprototypes', # XXX remove later? |
c07a80fd | 7 | VERSION_FROM => 'Fcntl.pm', |
72f7b9a1 | 8 | realclean => {FILES=> 'constants.c constants.xs'}, |
4ad3186e | 9 | ); |
10 | ||
72f7b9a1 NC |
11 | my @names = (qw(FAPPEND FASYNC FCREAT FDEFER FDSYNC FD_CLOEXEC FEXCL FLARGEFILE |
12 | FNDELAY FNONBLOCK FRSYNC FSYNC FTRUNC F_ALLOCSP F_ALLOCSP64 | |
13 | F_COMPAT F_DUP2FD F_DUPFD F_EXLCK F_FREESP F_FREESP64 F_FSYNC | |
14 | F_FSYNC64 F_GETFD F_GETFL F_GETLK F_GETLK64 F_GETOWN F_NODNY | |
15 | F_POSIX F_RDACC F_RDDNY F_RDLCK F_RWACC F_RWDNY F_SETFD F_SETFL | |
16 | F_SETLK F_SETLK64 F_SETLKW F_SETLKW64 F_SETOWN F_SHARE F_SHLCK | |
17 | F_UNLCK F_UNSHARE F_WRACC F_WRDNY F_WRLCK O_ACCMODE O_ALIAS | |
18 | O_APPEND O_ASYNC O_BINARY O_CREAT O_DEFER O_DIRECT O_DIRECTORY | |
19 | O_DSYNC O_EXCL O_EXLOCK O_LARGEFILE O_NDELAY O_NOCTTY O_NOFOLLOW | |
20 | O_NOINHERIT O_NONBLOCK O_RANDOM O_RAW O_RDONLY O_RDWR O_RSRC | |
21 | O_RSYNC O_SEQUENTIAL O_SHLOCK O_SYNC O_TEMPORARY O_TEXT O_TRUNC | |
22 | O_WRONLY S_ENFMT S_IEXEC S_IFBLK S_IFCHR S_IFDIR S_IFIFO S_IFLNK | |
23 | S_IFREG S_IFSOCK S_IFWHT S_IREAD S_IRGRP S_IROTH S_IRUSR S_IRWXG | |
24 | S_IRWXO S_IRWXU S_ISGID S_ISTXT S_ISUID S_ISVTX S_IWGRP S_IWOTH | |
25 | S_IWRITE S_IWUSR S_IXGRP S_IXOTH S_IXUSR), | |
26 | {name=>"LOCK_SH", default=>["IV", "1"]}, | |
27 | {name=>"LOCK_EX", default=>["IV", "2"]}, | |
28 | {name=>"LOCK_NB", default=>["IV", "4"]}, | |
29 | {name=>"LOCK_UN", default=>["IV", "8"]}, | |
30 | {name=>"SEEK_SET", default=>["IV", "0"]}, | |
31 | {name=>"SEEK_CUR", default=>["IV", "1"]}, | |
32 | {name=>"SEEK_END", default=>["IV", "2"]}, | |
33 | {name=>"_S_IFMT", macro=>"S_IFMT", value=>"S_IFMT"}); | |
34 | WriteConstants( | |
35 | NAME => 'Fcntl', | |
36 | NAMES => \@names, | |
37 | ); |