X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FFcntl%2FMakefile.PL;h=23465b9792145cf3f7bc8f4ee6101c8018c5c8da;hb=2bad225e044a6e3cf063675adbf900894460d1ee;hp=0346373713170ce4b6eaa484dffcd22d80ec26cb;hpb=69158f75613eae787b94b6b4c3c353cf740e0e09;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/Fcntl/Makefile.PL b/ext/Fcntl/Makefile.PL
index 0346373..23465b9 100644
--- a/ext/Fcntl/Makefile.PL
+++ b/ext/Fcntl/Makefile.PL
@@ -1,8 +1,37 @@
 use ExtUtils::MakeMaker;
+use ExtUtils::Constant 0.11 'WriteConstants';
 WriteMakefile(
     NAME 	=> 'Fcntl',
     MAN3PODS 	=> {}, 	# Pods will be built by installman.
     XSPROTOARG => '-noprototypes', 		# XXX remove later?
     VERSION_FROM => 'Fcntl.pm',
+    realclean => {FILES=> 'const-c.inc const-xs.inc'},
 );
 
+my @names = (qw(FAPPEND FASYNC FCREAT FDEFER FDSYNC FD_CLOEXEC FEXCL FLARGEFILE
+	       FNDELAY FNONBLOCK FRSYNC FSYNC FTRUNC F_ALLOCSP F_ALLOCSP64
+	       F_COMPAT F_DUP2FD F_DUPFD F_EXLCK F_FREESP F_FREESP64 F_FSYNC
+	       F_FSYNC64 F_GETFD F_GETFL F_GETLK F_GETLK64 F_GETOWN F_NODNY
+	       F_POSIX F_RDACC F_RDDNY F_RDLCK F_RWACC F_RWDNY F_SETFD F_SETFL
+	       F_SETLK F_SETLK64 F_SETLKW F_SETLKW64 F_SETOWN F_SHARE F_SHLCK
+	       F_UNLCK F_UNSHARE F_WRACC F_WRDNY F_WRLCK O_ACCMODE O_ALIAS
+	       O_APPEND O_ASYNC O_BINARY O_CREAT O_DEFER O_DIRECT O_DIRECTORY
+	       O_DSYNC O_EXCL O_EXLOCK O_LARGEFILE O_NDELAY O_NOCTTY O_NOFOLLOW
+	       O_NOINHERIT O_NONBLOCK O_RANDOM O_RAW O_RDONLY O_RDWR O_RSRC
+	       O_RSYNC O_SEQUENTIAL O_SHLOCK O_SYNC O_TEMPORARY O_TEXT O_TRUNC
+	       O_WRONLY S_ENFMT S_IEXEC S_IFBLK S_IFCHR S_IFDIR S_IFIFO S_IFLNK
+	       S_IFREG S_IFSOCK S_IFWHT S_IREAD S_IRGRP S_IROTH S_IRUSR S_IRWXG
+	       S_IRWXO S_IRWXU S_ISGID S_ISTXT S_ISUID S_ISVTX S_IWGRP S_IWOTH
+	       S_IWRITE S_IWUSR S_IXGRP S_IXOTH S_IXUSR),
+            {name=>"LOCK_SH", default=>["IV", "1"]},
+            {name=>"LOCK_EX", default=>["IV", "2"]},
+            {name=>"LOCK_NB", default=>["IV", "4"]},
+            {name=>"LOCK_UN", default=>["IV", "8"]},
+            {name=>"SEEK_SET", default=>["IV", "0"]},
+            {name=>"SEEK_CUR", default=>["IV", "1"]},
+            {name=>"SEEK_END", default=>["IV", "2"]},
+            {name=>"_S_IFMT", macro=>"S_IFMT", value=>"S_IFMT"});
+WriteConstants(
+    NAME => 'Fcntl',
+    NAMES => \@names,
+);