mirror of
https://git.savannah.gnu.org/git/parallel.git
synced 2024-11-24 15:07:55 +00:00
78 lines
1.7 KiB
Perl
78 lines
1.7 KiB
Perl
package POSIX;
|
|
use strict;
|
|
use warnings;
|
|
|
|
our(@ISA, %EXPORT_TAGS, @EXPORT_OK, @EXPORT, $AUTOLOAD, %SIGRT) = ();
|
|
|
|
our $VERSION = "1.17";
|
|
|
|
use AutoLoader;
|
|
|
|
use XSLoader ();
|
|
|
|
use Fcntl qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK F_SETFD
|
|
F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND
|
|
O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC
|
|
O_WRONLY SEEK_CUR SEEK_END SEEK_SET
|
|
S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG
|
|
S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISUID
|
|
S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR);
|
|
|
|
# Grandfather old foo_h form to new :foo_h form
|
|
my $loaded;
|
|
|
|
sub import {
|
|
load_imports() unless $loaded++;
|
|
my $this = shift;
|
|
my @list = map { m/^\w+_h$/ ? ":$_" : $_ } @_;
|
|
local $Exporter::ExportLevel = 1;
|
|
Exporter::import($this,@list);
|
|
}
|
|
|
|
sub croak { require Carp; goto &Carp::croak }
|
|
# declare usage to assist AutoLoad
|
|
sub usage;
|
|
|
|
XSLoader::load 'POSIX', $VERSION;
|
|
|
|
sub AUTOLOAD {
|
|
no strict;
|
|
no warnings 'uninitialized';
|
|
if ($AUTOLOAD =~ /::(_?[a-z])/) {
|
|
# require AutoLoader;
|
|
$AutoLoader::AUTOLOAD = $AUTOLOAD;
|
|
goto &AutoLoader::AUTOLOAD
|
|
}
|
|
local $! = 0;
|
|
my $constname = $AUTOLOAD;
|
|
$constname =~ s/.*:://;
|
|
my ($error, $val) = constant($constname);
|
|
croak $error if $error;
|
|
*$AUTOLOAD = sub { $val };
|
|
|
|
goto &$AUTOLOAD;
|
|
}
|
|
|
|
package POSIX::SigAction;
|
|
|
|
use AutoLoader 'AUTOLOAD';
|
|
|
|
package POSIX::SigRt;
|
|
|
|
use AutoLoader 'AUTOLOAD';
|
|
|
|
use Tie::Hash;
|
|
|
|
use vars qw($SIGACTION_FLAGS $_SIGRTMIN $_SIGRTMAX $_sigrtn @ISA);
|
|
@POSIX::SigRt::ISA = qw(Tie::StdHash);
|
|
|
|
$SIGACTION_FLAGS = 0;
|
|
|
|
tie %POSIX::SIGRT, 'POSIX::SigRt';
|
|
|
|
sub DESTROY {};
|
|
|
|
package POSIX;
|
|
|
|
1;
|