=head1 DESCRIPTION
-This module is just a translation of the C F<fnctl.h> file.
-Unlike the old mechanism of requiring a translated F<fnctl.ph>
+This module is just a translation of the C F<fcntl.h> file.
+Unlike the old mechanism of requiring a translated F<fcntl.ph>
file, this uses the B<h2xs> program (see the Perl source distribution)
and your native C compiler. This means that it has a
far more likely chance of getting the numbers right.
=cut
-our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $AUTOLOAD);
+use strict;
+our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
require Exporter;
-use XSLoader ();
+require XSLoader;
@ISA = qw(Exporter);
-$VERSION = "1.03";
+$VERSION = '1.11';
+
+XSLoader::load();
+
+# Named groups of exports
+%EXPORT_TAGS = (
+ 'flock' => [qw(LOCK_SH LOCK_EX LOCK_NB LOCK_UN)],
+ 'Fcompat' => [qw(FAPPEND FASYNC FCREAT FDEFER FDSYNC FEXCL FLARGEFILE
+ FNDELAY FNONBLOCK FRSYNC FSYNC FTRUNC)],
+ 'seek' => [qw(SEEK_SET SEEK_CUR SEEK_END)],
+ 'mode' => [qw(S_ISUID S_ISGID S_ISVTX S_ISTXT
+ _S_IFMT S_IFREG S_IFDIR S_IFLNK
+ S_IFSOCK S_IFBLK S_IFCHR S_IFIFO S_IFWHT S_ENFMT
+ S_IRUSR S_IWUSR S_IXUSR S_IRWXU
+ S_IRGRP S_IWGRP S_IXGRP S_IRWXG
+ S_IROTH S_IWOTH S_IXOTH S_IRWXO
+ S_IREAD S_IWRITE S_IEXEC
+ S_ISREG S_ISDIR S_ISLNK S_ISSOCK
+ S_ISBLK S_ISCHR S_ISFIFO
+ S_ISWHT S_ISENFMT
+ S_IFMT S_IMODE
+ )],
+);
+
# Items to export into callers namespace by default
# (move infrequently used names to @EXPORT_OK below)
@EXPORT =
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
);
# Other items we are prepared to export if requested
-@EXPORT_OK = qw(
- FAPPEND
- FASYNC
- FCREAT
- FDEFER
- FDSYNC
- FEXCL
- FLARGEFILE
- FNDELAY
- FNONBLOCK
- FRSYNC
- FSYNC
- FTRUNC
- LOCK_EX
- LOCK_NB
- LOCK_SH
- LOCK_UN
- S_ISUID S_ISGID S_ISVTX S_ISTXT
- _S_IFMT S_IFREG S_IFDIR S_IFLNK
- S_IFSOCK S_IFBLK S_IFCHR S_IFIFO S_IFWHT S_ENFMT
- S_IRUSR S_IWUSR S_IXUSR S_IRWXU
- S_IRGRP S_IWGRP S_IXGRP S_IRWXG
- S_IROTH S_IWOTH S_IXOTH S_IRWXO
- S_IREAD S_IWRITE S_IEXEC
- &S_ISREG &S_ISDIR &S_ISLNK &S_ISSOCK &S_ISBLK &S_ISCHR &S_ISFIFO
- &S_ISWHT &S_ISENFMT &S_IFMT &S_IMODE
- SEEK_SET
- SEEK_CUR
- SEEK_END
-);
-# Named groups of exports
-%EXPORT_TAGS = (
- 'flock' => [qw(LOCK_SH LOCK_EX LOCK_NB LOCK_UN)],
- 'Fcompat' => [qw(FAPPEND FASYNC FCREAT FDEFER FDSYNC FEXCL FLARGEFILE
- FNDELAY FNONBLOCK FRSYNC FSYNC FTRUNC)],
- 'seek' => [qw(SEEK_SET SEEK_CUR SEEK_END)],
- 'mode' => [qw(S_ISUID S_ISGID S_ISVTX S_ISTXT
- _S_IFMT S_IFREG S_IFDIR S_IFLNK
- S_IFSOCK S_IFBLK S_IFCHR S_IFIFO S_IFWHT S_ENFMT
- S_IRUSR S_IWUSR S_IXUSR S_IRWXU
- S_IRGRP S_IWGRP S_IXGRP S_IRWXG
- S_IROTH S_IWOTH S_IXOTH S_IRWXO
- S_IREAD S_IWRITE S_IEXEC
- &S_ISREG &S_ISDIR &S_ISLNK &S_ISSOCK
- &S_ISBLK &S_ISCHR &S_ISFIFO
- &S_ISWHT &S_ISENFMT
- &S_IFMT &S_IMODE
- )],
-);
-
-sub FD_CLOEXEC ();
-
-sub F_ALLOCSP ();
-sub F_ALLOCSP64 ();
-sub F_COMPAT ();
-sub F_DUP2FD ();
-sub F_DUPFD ();
-sub F_EXLCK ();
-sub F_FREESP ();
-sub F_FREESP64 ();
-sub F_FSYNC ();
-sub F_FSYNC64 ();
-sub F_GETFD ();
-sub F_GETFL ();
-sub F_GETLK ();
-sub F_GETLK64 ();
-sub F_GETOWN ();
-sub F_NODNY ();
-sub F_POSIX ();
-sub F_RDACC ();
-sub F_RDDNY ();
-sub F_RDLCK ();
-sub F_RWACC ();
-sub F_RWDNY ();
-sub F_SETFD ();
-sub F_SETFL ();
-sub F_SETLK ();
-sub F_SETLK64 ();
-sub F_SETLKW ();
-sub F_SETLKW64 ();
-sub F_SETOWN ();
-sub F_SHARE ();
-sub F_SHLCK ();
-sub F_UNLCK ();
-sub F_UNSHARE ();
-sub F_WRACC ();
-sub F_WRDNY ();
-sub F_WRLCK ();
-
-sub O_ACCMODE ();
-sub O_ALIAS ();
-sub O_APPEND ();
-sub O_ASYNC ();
-sub O_BINARY ();
-sub O_CREAT ();
-sub O_DEFER ();
-sub O_DIRECT ();
-sub O_DIRECTORY ();
-sub O_DSYNC ();
-sub O_EXCL ();
-sub O_EXLOCK ();
-sub O_LARGEFILE ();
-sub O_NDELAY ();
-sub O_NOCTTY ();
-sub O_NOFOLLOW ();
-sub O_NONBLOCK ();
-sub O_RDONLY ();
-sub O_RDWR ();
-sub O_RSRC ();
-sub O_RSYNC ();
-sub O_SHLOCK ();
-sub O_SYNC ();
-sub O_TEMPORARY ();
-sub O_TEXT ();
-sub O_TRUNC ();
-sub O_WRONLY ();
-
-sub FAPPEND ();
-sub FASYNC ();
-sub FCREAT ();
-sub FDEFER ();
-sub FDSYNC ();
-sub FEXCL ();
-sub FLARGEFILE ();
-sub FNDELAY ();
-sub FNONBLOCK ();
-sub FRSYNC ();
-sub FSYNC ();
-sub FTRUNC ();
-
-sub LOCK_EX ();
-sub LOCK_NB ();
-sub LOCK_SH ();
-sub LOCK_UN ();
-
-sub SEEK_SET ();
-sub SEEK_CUR ();
-sub SEEK_END ();
-
-sub S_ISUID ();
-sub S_ISGID ();
-sub S_ISVTX ();
-sub S_ISTXT ();
-sub _S_IFMT ();
-sub S_IFMT (;$);
-sub S_IMODE ($);
-sub S_IFREG ();
-sub S_IFDIR ();
-sub S_IFLNK ();
-sub S_IFSOCK ();
-sub S_IFBLK ();
-sub S_IFCHR ();
-sub S_IFIFO ();
-sub S_IFWHT ();
-sub S_ENFMT ();
-sub S_IRUSR ();
-sub S_IWUSR ();
-sub S_IXUSR ();
-sub S_IRWXU ();
-sub S_IRGRP ();
-sub S_IWGRP ();
-sub S_IXGRP ();
-sub S_IRWXG ();
-sub S_IROTH ();
-sub S_IWOTH ();
-sub S_IXOTH ();
-sub S_IRWXO ();
-sub S_IREAD ();
-sub S_IWRITE ();
-sub S_IEXEC ();
-
-sub S_IFREG ();
-sub S_IFDIR ();
-sub S_IFLNK ();
-sub S_IFSOCK ();
-sub S_IFBLK ();
-sub S_IFCHR ();
-sub S_IFIFO ();
-sub S_IFWHT ();
-sub S_IFENFMT ();
-
-sub S_IFMT (;$) { @_ ? ( $_[0] & _S_IFMT ) : _S_IFMT }
-sub S_IMODE ($) { $_[0] & 07777 }
-
-sub S_ISREG ($) { ( $_[0] & _S_IFMT ) == S_IFREG }
-sub S_ISDIR ($) { ( $_[0] & _S_IFMT ) == S_IFDIR }
-sub S_ISLNK ($) { ( $_[0] & _S_IFMT ) == S_IFLNK }
-sub S_ISSOCK ($) { ( $_[0] & _S_IFMT ) == S_IFSOCK }
-sub S_ISBLK ($) { ( $_[0] & _S_IFMT ) == S_IFBLK }
-sub S_ISCHR ($) { ( $_[0] & _S_IFMT ) == S_IFCHR }
-sub S_ISFIFO ($) { ( $_[0] & _S_IFMT ) == S_IFIFO }
-sub S_ISWHT ($) { ( $_[0] & _S_IFMT ) == S_ISWHT }
-sub S_ISENFMT ($) { ( $_[0] & _S_IFMT ) == S_ISENFMT }
-
-sub AUTOLOAD {
- (my $constname = $AUTOLOAD) =~ s/.*:://;
- my $val = constant($constname, 0);
- if ($! != 0) {
- if ($! =~ /Invalid/ || $!{EINVAL}) {
- $AutoLoader::AUTOLOAD = $AUTOLOAD;
- goto &AutoLoader::AUTOLOAD;
- }
- else {
- my ($pack,$file,$line) = caller;
- die "Your vendor has not defined Fcntl macro $constname, used at $file line $line.
-";
- }
- }
- *$AUTOLOAD = sub () { $val };
- goto &$AUTOLOAD;
-}
-
-XSLoader::load 'Fcntl', $VERSION;
+@EXPORT_OK = (qw(
+ DN_ACCESS
+ DN_ATTRIB
+ DN_CREATE
+ DN_DELETE
+ DN_MODIFY
+ DN_MULTISHOT
+ DN_RENAME
+ F_GETLEASE
+ F_GETSIG
+ F_NOTIFY
+ F_SETLEASE
+ F_SETSIG
+ LOCK_MAND
+ LOCK_READ
+ LOCK_RW
+ LOCK_WRITE
+ O_IGNORE_CTTY
+ O_NOATIME
+ O_NOLINK
+ O_NOTRANS
+), map {@{$_}} values %EXPORT_TAGS);
1;
https://perl5.git.perl.org / perl5.git / blobdiff