File manager - Edit - /home/ferretapmx/public_html/perl5.tar
Back
File/Glob.pm 0000644 00000030452 15231101164 0006642 0 ustar 00 package File::Glob; use strict; our($VERSION, @ISA, @EXPORT_OK, @EXPORT_FAIL, %EXPORT_TAGS, $DEFAULT_FLAGS); require XSLoader; use feature 'switch'; @ISA = qw(Exporter); # NOTE: The glob() export is only here for compatibility with 5.6.0. # csh_glob() should not be used directly, unless you know what you're doing. %EXPORT_TAGS = ( 'glob' => [ qw( GLOB_ABEND GLOB_ALPHASORT GLOB_ALTDIRFUNC GLOB_BRACE GLOB_CSH GLOB_ERR GLOB_ERROR GLOB_LIMIT GLOB_MARK GLOB_NOCASE GLOB_NOCHECK GLOB_NOMAGIC GLOB_NOSORT GLOB_NOSPACE GLOB_QUOTE GLOB_TILDE bsd_glob glob ) ], ); $EXPORT_TAGS{bsd_glob} = [@{$EXPORT_TAGS{glob}}]; pop @{$EXPORT_TAGS{bsd_glob}}; # no "glob" @EXPORT_OK = (@{$EXPORT_TAGS{'glob'}}, 'csh_glob'); $VERSION = '1.17'; sub import { require Exporter; local $Exporter::ExportLevel = $Exporter::ExportLevel + 1; Exporter::import(grep { my $passthrough; given ($_) { $DEFAULT_FLAGS &= ~GLOB_NOCASE() when ':case'; $DEFAULT_FLAGS |= GLOB_NOCASE() when ':nocase'; when (':globally') { no warnings 'redefine'; *CORE::GLOBAL::glob = \&File::Glob::csh_glob; } if ($_ eq ':bsd_glob') { no strict; *{caller."::glob"} = \&bsd_glob_override; } $passthrough = 1; } $passthrough; } @_); } XSLoader::load(); $DEFAULT_FLAGS = GLOB_CSH(); if ($^O =~ /^(?:MSWin32|VMS|os2|dos|riscos)$/) { $DEFAULT_FLAGS |= GLOB_NOCASE(); } # File::Glob::glob() is deprecated because its prototype is different from # CORE::glob() (use bsd_glob() instead) sub glob { splice @_, 1; # don't pass PL_glob_index as flags! goto &bsd_glob; } 1; __END__ =head1 NAME File::Glob - Perl extension for BSD glob routine =head1 SYNOPSIS use File::Glob ':bsd_glob'; @list = bsd_glob('*.[ch]'); $homedir = bsd_glob('~gnat', GLOB_TILDE | GLOB_ERR); if (GLOB_ERROR) { # an error occurred reading $homedir } ## override the core glob (CORE::glob() does this automatically ## by default anyway, since v5.6.0) use File::Glob ':globally'; my @sources = <*.{c,h,y}>; ## override the core glob, forcing case sensitivity use File::Glob qw(:globally :case); my @sources = <*.{c,h,y}>; ## override the core glob forcing case insensitivity use File::Glob qw(:globally :nocase); my @sources = <*.{c,h,y}>; ## glob on all files in home directory use File::Glob ':globally'; my @sources = <~gnat/*>; =head1 DESCRIPTION The glob angle-bracket operator C<< <> >> is a pathname generator that implements the rules for file name pattern matching used by Unix-like shells such as the Bourne shell or C shell. File::Glob::bsd_glob() implements the FreeBSD glob(3) routine, which is a superset of the POSIX glob() (described in IEEE Std 1003.2 "POSIX.2"). bsd_glob() takes a mandatory C<pattern> argument, and an optional C<flags> argument, and returns a list of filenames matching the pattern, with interpretation of the pattern modified by the C<flags> variable. Since v5.6.0, Perl's CORE::glob() is implemented in terms of bsd_glob(). Note that they don't share the same prototype--CORE::glob() only accepts a single argument. Due to historical reasons, CORE::glob() will also split its argument on whitespace, treating it as multiple patterns, whereas bsd_glob() considers them as one pattern. But see C<:bsd_glob> under L</EXPORTS>, below. =head2 META CHARACTERS \ Quote the next metacharacter [] Character class {} Multiple pattern * Match any string of characters ? Match any single character ~ User name home directory The metanotation C<a{b,c,d}e> is a shorthand for C<abe ace ade>. Left to right order is preserved, with results of matches being sorted separately at a low level to preserve this order. As a special case C<{>, C<}>, and C<{}> are passed undisturbed. =head2 EXPORTS See also the L</POSIX FLAGS> below, which can be exported individually. =head3 C<:bsd_glob> The C<:bsd_glob> export tag exports bsd_glob() and the constants listed below. It also overrides glob() in the calling package with one that behaves like bsd_glob() with regard to spaces (the space is treated as part of a file name), but supports iteration in scalar context; i.e., it preserves the core function's feature of returning the next item each time it is called. =head3 C<:glob> The C<:glob> tag, now discouraged, is the old version of C<:bsd_glob>. It exports the same constants and functions, but its glob() override does not support iteration; it returns the last file name in scalar context. That means this will loop forever: use File::Glob ':glob'; while (my $file = <* copy.txt>) { ... } =head3 C<bsd_glob> This function, which is included in the two export tags listed above, takes one or two arguments. The first is the glob pattern. The second is a set of flags ORed together. The available flags are listed below under L</POSIX FLAGS>. If the second argument is omitted, C<GLOB_CSH> (or C<GLOB_CSH|GLOB_NOCASE> on VMS and DOSish systems) is used by default. =head3 C<:nocase> and C<:case> These two export tags globally modify the default flags that bsd_glob() and, except on VMS, Perl's built-in C<glob> operator use. C<GLOB_NOCASE> is turned on or off, respectively. =head3 C<csh_glob> The csh_glob() function can also be exported, but you should not use it directly unless you really know what you are doing. It splits the pattern into words and feeds each one to bsd_glob(). Perl's own glob() function uses this internally. =head2 POSIX FLAGS The POSIX defined flags for bsd_glob() are: =over 4 =item C<GLOB_ERR> Force bsd_glob() to return an error when it encounters a directory it cannot open or read. Ordinarily bsd_glob() continues to find matches. =item C<GLOB_LIMIT> Make bsd_glob() return an error (GLOB_NOSPACE) when the pattern expands to a size bigger than the system constant C<ARG_MAX> (usually found in limits.h). If your system does not define this constant, bsd_glob() uses C<sysconf(_SC_ARG_MAX)> or C<_POSIX_ARG_MAX> where available (in that order). You can inspect these values using the standard C<POSIX> extension. =item C<GLOB_MARK> Each pathname that is a directory that matches the pattern has a slash appended. =item C<GLOB_NOCASE> By default, file names are assumed to be case sensitive; this flag makes bsd_glob() treat case differences as not significant. =item C<GLOB_NOCHECK> If the pattern does not match any pathname, then bsd_glob() returns a list consisting of only the pattern. If C<GLOB_QUOTE> is set, its effect is present in the pattern returned. =item C<GLOB_NOSORT> By default, the pathnames are sorted in ascending ASCII order; this flag prevents that sorting (speeding up bsd_glob()). =back The FreeBSD extensions to the POSIX standard are the following flags: =over 4 =item C<GLOB_BRACE> Pre-process the string to expand C<{pat,pat,...}> strings like csh(1). The pattern '{}' is left unexpanded for historical reasons (and csh(1) does the same thing to ease typing of find(1) patterns). =item C<GLOB_NOMAGIC> Same as C<GLOB_NOCHECK> but it only returns the pattern if it does not contain any of the special characters "*", "?" or "[". C<NOMAGIC> is provided to simplify implementing the historic csh(1) globbing behaviour and should probably not be used anywhere else. =item C<GLOB_QUOTE> Use the backslash ('\') character for quoting: every occurrence of a backslash followed by a character in the pattern is replaced by that character, avoiding any special interpretation of the character. (But see below for exceptions on DOSISH systems). =item C<GLOB_TILDE> Expand patterns that start with '~' to user name home directories. =item C<GLOB_CSH> For convenience, C<GLOB_CSH> is a synonym for C<GLOB_BRACE | GLOB_NOMAGIC | GLOB_QUOTE | GLOB_TILDE | GLOB_ALPHASORT>. =back The POSIX provided C<GLOB_APPEND>, C<GLOB_DOOFFS>, and the FreeBSD extensions C<GLOB_ALTDIRFUNC>, and C<GLOB_MAGCHAR> flags have not been implemented in the Perl version because they involve more complex interaction with the underlying C structures. The following flag has been added in the Perl implementation for csh compatibility: =over 4 =item C<GLOB_ALPHASORT> If C<GLOB_NOSORT> is not in effect, sort filenames is alphabetical order (case does not matter) rather than in ASCII order. =back =head1 DIAGNOSTICS bsd_glob() returns a list of matching paths, possibly zero length. If an error occurred, &File::Glob::GLOB_ERROR will be non-zero and C<$!> will be set. &File::Glob::GLOB_ERROR is guaranteed to be zero if no error occurred, or one of the following values otherwise: =over 4 =item C<GLOB_NOSPACE> An attempt to allocate memory failed. =item C<GLOB_ABEND> The glob was stopped because an error was encountered. =back In the case where bsd_glob() has found some matching paths, but is interrupted by an error, it will return a list of filenames B<and> set &File::Glob::ERROR. Note that bsd_glob() deviates from POSIX and FreeBSD glob(3) behaviour by not considering C<ENOENT> and C<ENOTDIR> as errors - bsd_glob() will continue processing despite those errors, unless the C<GLOB_ERR> flag is set. Be aware that all filenames returned from File::Glob are tainted. =head1 NOTES =over 4 =item * If you want to use multiple patterns, e.g. C<bsd_glob("a* b*")>, you should probably throw them in a set as in C<bsd_glob("{a*,b*}")>. This is because the argument to bsd_glob() isn't subjected to parsing by the C shell. Remember that you can use a backslash to escape things. =item * On DOSISH systems, backslash is a valid directory separator character. In this case, use of backslash as a quoting character (via GLOB_QUOTE) interferes with the use of backslash as a directory separator. The best (simplest, most portable) solution is to use forward slashes for directory separators, and backslashes for quoting. However, this does not match "normal practice" on these systems. As a concession to user expectation, therefore, backslashes (under GLOB_QUOTE) only quote the glob metacharacters '[', ']', '{', '}', '-', '~', and backslash itself. All other backslashes are passed through unchanged. =item * Win32 users should use the real slash. If you really want to use backslashes, consider using Sarathy's File::DosGlob, which comes with the standard Perl distribution. =back =head1 SEE ALSO L<perlfunc/glob>, glob(3) =head1 AUTHOR The Perl interface was written by Nathan Torkington E<lt>gnat@frii.comE<gt>, and is released under the artistic license. Further modifications were made by Greg Bacon E<lt>gbacon@cs.uah.eduE<gt>, Gurusamy Sarathy E<lt>gsar@activestate.comE<gt>, and Thomas Wegner E<lt>wegner_thomas@yahoo.comE<gt>. The C glob code has the following copyright: Copyright (c) 1989, 1993 The Regents of the University of California. All rights reserved. This code is derived from software contributed to Berkeley by Guido van Rossum. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. 3. Neither the name of the University nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. =cut POSIX.pm 0000644 00000040375 15231101164 0006007 0 ustar 00 package POSIX; use strict; use warnings; our ($AUTOLOAD, %SIGRT); our $VERSION = '1.30'; require 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); my $loaded; sub import { my $pkg = shift; load_imports() unless $loaded++; # Grandfather old foo_h form to new :foo_h form s/^(?=\w+_h$)/:/ for my @list = @_; local $Exporter::ExportLevel = 1; Exporter::import($pkg,@list); } sub croak { require Carp; goto &Carp::croak } sub usage { croak "Usage: POSIX::$_[0]" } XSLoader::load(); my %replacement = ( atexit => 'END {}', atof => undef, atoi => undef, atol => undef, bsearch => \'not supplied', calloc => undef, clearerr => 'IO::Handle::clearerr', div => '/, % and int', execl => undef, execle => undef, execlp => undef, execv => undef, execve => undef, execvp => undef, fclose => 'IO::Handle::close', fdopen => 'IO::Handle::new_from_fd', feof => 'IO::Handle::eof', ferror => 'IO::Handle::error', fflush => 'IO::Handle::flush', fgetc => 'IO::Handle::getc', fgetpos => 'IO::Seekable::getpos', fgets => 'IO::Handle::gets', fileno => 'IO::Handle::fileno', fopen => 'IO::File::open', fprintf => 'printf', fputc => 'print', fputs => 'print', fread => 'read', free => undef, freopen => 'open', fscanf => '<> and regular expressions', fseek => 'IO::Seekable::seek', fsetpos => 'IO::Seekable::setpos', fsync => 'IO::Handle::sync', ftell => 'IO::Seekable::tell', fwrite => 'print', labs => 'abs', ldiv => '/, % and int', longjmp => 'die', malloc => undef, memchr => 'index()', memcmp => 'eq', memcpy => '=', memmove => '=', memset => 'x', offsetof => undef, putc => 'print', putchar => 'print', puts => 'print', qsort => 'sort', rand => \'non-portable, use Perl\'s rand instead', realloc => undef, scanf => '<> and regular expressions', setbuf => 'IO::Handle::setbuf', setjmp => 'eval {}', setvbuf => 'IO::Handle::setvbuf', siglongjmp => 'die', sigsetjmp => 'eval {}', srand => \'not supplied; refer to Perl\'s srand documentation', sscanf => 'regular expressions', strcat => '.=', strchr => 'index()', strcmp => 'eq', strcpy => '=', strcspn => 'regular expressions', strlen => 'length', strncat => '.=', strncmp => 'eq', strncpy => '=', strpbrk => undef, strrchr => 'rindex()', strspn => undef, strtok => undef, tmpfile => 'IO::File::new_tmpfile', ungetc => 'IO::Handle::ungetc', vfprintf => undef, vprintf => undef, vsprintf => undef, ); my %reimpl = ( assert => 'expr => croak "Assertion failed" if !$_[0]', tolower => 'string => lc($_[0])', toupper => 'string => uc($_[0])', closedir => 'dirhandle => CORE::closedir($_[0])', opendir => 'directory => my $dh; CORE::opendir($dh, $_[0]) ? $dh : undef', readdir => 'dirhandle => CORE::readdir($_[0])', rewinddir => 'dirhandle => CORE::rewinddir($_[0])', errno => '$! + 0', creat => 'filename, mode => &open($_[0], &O_WRONLY | &O_CREAT | &O_TRUNC, $_[1])', fcntl => 'filehandle, cmd, arg => CORE::fcntl($_[0], $_[1], $_[2])', getgrgid => 'gid => CORE::getgrgid($_[0])', getgrnam => 'name => CORE::getgrnam($_[0])', atan2 => 'x, y => CORE::atan2($_[0], $_[1])', cos => 'x => CORE::cos($_[0])', exp => 'x => CORE::exp($_[0])', fabs => 'x => CORE::abs($_[0])', log => 'x => CORE::log($_[0])', pow => 'x, exponent => $_[0] ** $_[1]', sin => 'x => CORE::sin($_[0])', sqrt => 'x => CORE::sqrt($_[0])', getpwnam => 'name => CORE::getpwnam($_[0])', getpwuid => 'uid => CORE::getpwuid($_[0])', kill => 'pid, sig => CORE::kill $_[1], $_[0]', raise => 'sig => CORE::kill $_[0], $$; # Is this good enough', getc => 'handle => CORE::getc($_[0])', getchar => 'CORE::getc(STDIN)', gets => 'scalar <STDIN>', remove => 'filename => (-d $_[0]) ? CORE::rmdir($_[0]) : CORE::unlink($_[0])', rename => 'oldfilename, newfilename => CORE::rename($_[0], $_[1])', rewind => 'filehandle => CORE::seek($_[0],0,0)', abs => 'x => CORE::abs($_[0])', exit => 'status => CORE::exit($_[0])', getenv => 'name => $ENV{$_[0]}', system => 'command => CORE::system($_[0])', strerror => 'errno => local $! = $_[0]; "$!"', strstr => 'big, little => CORE::index($_[0], $_[1])', chmod => 'mode, filename => CORE::chmod($_[0], $_[1])', fstat => 'fd => CORE::open my $dup, "<&", $_[0]; CORE::stat($dup)', # Gross. mkdir => 'directoryname, mode => CORE::mkdir($_[0], $_[1])', stat => 'filename => CORE::stat($_[0])', umask => 'mask => CORE::umask($_[0])', wait => 'CORE::wait()', waitpid => 'pid, options => CORE::waitpid($_[0], $_[1])', gmtime => 'time => CORE::gmtime($_[0])', localtime => 'time => CORE::localtime($_[0])', time => 'CORE::time', alarm => 'seconds => CORE::alarm($_[0])', chdir => 'directory => CORE::chdir($_[0])', chown => 'uid, gid, filename => CORE::chown($_[0], $_[1], $_[2])', fork => 'CORE::fork', getegid => '$) + 0', geteuid => '$> + 0', getgid => '$( + 0', getgroups => 'my %seen; grep !$seen{$_}++, split " ", $)', getlogin => 'CORE::getlogin()', getpgrp => 'CORE::getpgrp', getpid => '$$', getppid => 'CORE::getppid', getuid => '$<', isatty => 'filehandle => -t $_[0]', link => 'oldfilename, newfilename => CORE::link($_[0], $_[1])', rmdir => 'directoryname => CORE::rmdir($_[0])', unlink => 'filename => CORE::unlink($_[0])', utime => 'filename, atime, mtime => CORE::utime($_[1], $_[2], $_[0])', ); eval join ';', map "sub $_", keys %replacement, keys %reimpl; sub AUTOLOAD { my ($func) = ($AUTOLOAD =~ /.*::(.*)/); if (my $code = $reimpl{$func}) { my ($num, $arg) = (0, ''); if ($code =~ s/^(.*?) *=> *//) { $arg = $1; $num = 1 + $arg =~ tr/,//; } # no warnings to be consistent with the old implementation, where each # function was in its own little AutoSplit world: eval qq{ sub $func { no warnings; usage "$func($arg)" if \@_ != $num; $code } }; no strict; goto &$AUTOLOAD; } if (exists $replacement{$func}) { my $how = $replacement{$func}; croak "Unimplemented: POSIX::$func() is C-specific, stopped" unless defined $how; croak "Unimplemented: POSIX::$func() is $$how" if ref $how; croak "Use method $how() instead of POSIX::$func()" if $how =~ /::/; croak "Unimplemented: POSIX::$func() is C-specific: use $how instead"; } constant($func); } sub perror { print STDERR "@_: " if @_; print STDERR $!,"\n"; } sub printf { usage "printf(pattern, args...)" if @_ < 1; CORE::printf STDOUT @_; } sub sprintf { usage "sprintf(pattern, args...)" if @_ == 0; CORE::sprintf(shift,@_); } sub load_imports { our %EXPORT_TAGS = ( assert_h => [qw(assert NDEBUG)], ctype_h => [qw(isalnum isalpha iscntrl isdigit isgraph islower isprint ispunct isspace isupper isxdigit tolower toupper)], dirent_h => [], errno_h => [qw(E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT EAGAIN EALREADY EBADF EBUSY ECHILD ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDOM EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK EMSGSIZE ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS ENODEV ENOENT ENOEXEC ENOLCK ENOMEM ENOPROTOOPT ENOSPC ENOSYS ENOTBLK ENOTCONN ENOTDIR ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM EPFNOSUPPORT EPIPE EPROCLIM EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE ERESTART EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE ETIMEDOUT ETOOMANYREFS ETXTBSY EUSERS EWOULDBLOCK EXDEV errno)], fcntl_h => [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 creat SEEK_CUR SEEK_END SEEK_SET S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG S_ISUID S_IWGRP S_IWOTH S_IWUSR)], float_h => [qw(DBL_DIG DBL_EPSILON DBL_MANT_DIG DBL_MAX DBL_MAX_10_EXP DBL_MAX_EXP DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP FLT_DIG FLT_EPSILON FLT_MANT_DIG FLT_MAX FLT_MAX_10_EXP FLT_MAX_EXP FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP FLT_RADIX FLT_ROUNDS LDBL_DIG LDBL_EPSILON LDBL_MANT_DIG LDBL_MAX LDBL_MAX_10_EXP LDBL_MAX_EXP LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP)], grp_h => [], limits_h => [qw( ARG_MAX CHAR_BIT CHAR_MAX CHAR_MIN CHILD_MAX INT_MAX INT_MIN LINK_MAX LONG_MAX LONG_MIN MAX_CANON MAX_INPUT MB_LEN_MAX NAME_MAX NGROUPS_MAX OPEN_MAX PATH_MAX PIPE_BUF SCHAR_MAX SCHAR_MIN SHRT_MAX SHRT_MIN SSIZE_MAX STREAM_MAX TZNAME_MAX UCHAR_MAX UINT_MAX ULONG_MAX USHRT_MAX _POSIX_ARG_MAX _POSIX_CHILD_MAX _POSIX_LINK_MAX _POSIX_MAX_CANON _POSIX_MAX_INPUT _POSIX_NAME_MAX _POSIX_NGROUPS_MAX _POSIX_OPEN_MAX _POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_SSIZE_MAX _POSIX_STREAM_MAX _POSIX_TZNAME_MAX)], locale_h => [qw(LC_ALL LC_COLLATE LC_CTYPE LC_MESSAGES LC_MONETARY LC_NUMERIC LC_TIME NULL localeconv setlocale)], math_h => [qw(HUGE_VAL acos asin atan ceil cosh fabs floor fmod frexp ldexp log10 modf pow sinh tan tanh)], pwd_h => [], setjmp_h => [qw(longjmp setjmp siglongjmp sigsetjmp)], signal_h => [qw(SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK SA_RESETHAND SA_RESTART SA_SIGINFO SIGABRT SIGALRM SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT SIGKILL SIGPIPE %SIGRT SIGRTMIN SIGRTMAX SIGQUIT SIGSEGV SIGSTOP SIGTERM SIGTSTP SIGTTIN SIGTTOU SIGUSR1 SIGUSR2 SIGBUS SIGPOLL SIGPROF SIGSYS SIGTRAP SIGURG SIGVTALRM SIGXCPU SIGXFSZ SIG_BLOCK SIG_DFL SIG_ERR SIG_IGN SIG_SETMASK SIG_UNBLOCK raise sigaction signal sigpending sigprocmask sigsuspend)], stdarg_h => [], stddef_h => [qw(NULL offsetof)], stdio_h => [qw(BUFSIZ EOF FILENAME_MAX L_ctermid L_cuserid L_tmpname NULL SEEK_CUR SEEK_END SEEK_SET STREAM_MAX TMP_MAX stderr stdin stdout clearerr fclose fdopen feof ferror fflush fgetc fgetpos fgets fopen fprintf fputc fputs fread freopen fscanf fseek fsetpos ftell fwrite getchar gets perror putc putchar puts remove rewind scanf setbuf setvbuf sscanf tmpfile tmpnam ungetc vfprintf vprintf vsprintf)], stdlib_h => [qw(EXIT_FAILURE EXIT_SUCCESS MB_CUR_MAX NULL RAND_MAX abort atexit atof atoi atol bsearch calloc div free getenv labs ldiv malloc mblen mbstowcs mbtowc qsort realloc strtod strtol strtoul wcstombs wctomb)], string_h => [qw(NULL memchr memcmp memcpy memmove memset strcat strchr strcmp strcoll strcpy strcspn strerror strlen strncat strncmp strncpy strpbrk strrchr strspn strstr strtok strxfrm)], sys_stat_h => [qw(S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR fstat mkfifo)], sys_times_h => [], sys_types_h => [], sys_utsname_h => [qw(uname)], sys_wait_h => [qw(WEXITSTATUS WIFEXITED WIFSIGNALED WIFSTOPPED WNOHANG WSTOPSIG WTERMSIG WUNTRACED)], termios_h => [qw( B0 B110 B1200 B134 B150 B1800 B19200 B200 B2400 B300 B38400 B4800 B50 B600 B75 B9600 BRKINT CLOCAL CREAD CS5 CS6 CS7 CS8 CSIZE CSTOPB ECHO ECHOE ECHOK ECHONL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR INLCR INPCK ISIG ISTRIP IXOFF IXON NCCS NOFLSH OPOST PARENB PARMRK PARODD TCIFLUSH TCIOFF TCIOFLUSH TCION TCOFLUSH TCOOFF TCOON TCSADRAIN TCSAFLUSH TCSANOW TOSTOP VEOF VEOL VERASE VINTR VKILL VMIN VQUIT VSTART VSTOP VSUSP VTIME cfgetispeed cfgetospeed cfsetispeed cfsetospeed tcdrain tcflow tcflush tcgetattr tcsendbreak tcsetattr )], time_h => [qw(CLK_TCK CLOCKS_PER_SEC NULL asctime clock ctime difftime mktime strftime tzset tzname)], unistd_h => [qw(F_OK NULL R_OK SEEK_CUR SEEK_END SEEK_SET STDERR_FILENO STDIN_FILENO STDOUT_FILENO W_OK X_OK _PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON _PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX _PC_PIPE_BUF _PC_VDISABLE _POSIX_CHOWN_RESTRICTED _POSIX_JOB_CONTROL _POSIX_NO_TRUNC _POSIX_SAVED_IDS _POSIX_VDISABLE _POSIX_VERSION _SC_ARG_MAX _SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL _SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS _SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION _exit access ctermid cuserid dup2 dup execl execle execlp execv execve execvp fpathconf fsync getcwd getegid geteuid getgid getgroups getpid getuid isatty lseek pathconf pause setgid setpgid setsid setuid sysconf tcgetpgrp tcsetpgrp ttyname)], utime_h => [], ); # Exporter::export_tags(); { # De-duplicate the export list: my %export; @export{map {@$_} values %EXPORT_TAGS} = (); # Doing the de-dup with a temporary hash has the advantage that the SVs in # @EXPORT are actually shared hash key scalars, which will save some memory. our @EXPORT = keys %export; our @EXPORT_OK = (qw(close lchown nice open pipe read sleep times write printf sprintf), grep {!exists $export{$_}} keys %reimpl, keys %replacement); } require Exporter; } package POSIX::SigAction; sub new { bless {HANDLER => $_[1], MASK => $_[2], FLAGS => $_[3] || 0, SAFE => 0}, $_[0] } sub handler { $_[0]->{HANDLER} = $_[1] if @_ > 1; $_[0]->{HANDLER} }; sub mask { $_[0]->{MASK} = $_[1] if @_ > 1; $_[0]->{MASK} }; sub flags { $_[0]->{FLAGS} = $_[1] if @_ > 1; $_[0]->{FLAGS} }; sub safe { $_[0]->{SAFE} = $_[1] if @_ > 1; $_[0]->{SAFE} }; { package POSIX::SigSet; # This package is here entirely to make sure that POSIX::SigSet is seen by the # PAUSE indexer, so that it will always be clearly indexed in core. This is to # prevent the accidental case where a third-party distribution can accidentally # claim the POSIX::SigSet package, as occurred in 2011-12. -- rjbs, 2011-12-30 } package POSIX::SigRt; require Tie::Hash; our @ISA = 'Tie::StdHash'; our ($_SIGRTMIN, $_SIGRTMAX, $_sigrtn); our $SIGACTION_FLAGS = 0; sub _init { $_SIGRTMIN = &POSIX::SIGRTMIN; $_SIGRTMAX = &POSIX::SIGRTMAX; $_sigrtn = $_SIGRTMAX - $_SIGRTMIN; } sub _croak { &_init unless defined $_sigrtn; die "POSIX::SigRt not available" unless defined $_sigrtn && $_sigrtn > 0; } sub _getsig { &_croak; my $rtsig = $_[0]; # Allow (SIGRT)?MIN( + n)?, a common idiom when doing these things in C. $rtsig = $_SIGRTMIN + ($1 || 0) if $rtsig =~ /^(?:(?:SIG)?RT)?MIN(\s*\+\s*(\d+))?$/; return $rtsig; } sub _exist { my $rtsig = _getsig($_[1]); my $ok = $rtsig >= $_SIGRTMIN && $rtsig <= $_SIGRTMAX; ($rtsig, $ok); } sub _check { my ($rtsig, $ok) = &_exist; die "No POSIX::SigRt signal $_[1] (valid range SIGRTMIN..SIGRTMAX, or $_SIGRTMIN..$_SIGRTMAX)" unless $ok; return $rtsig; } sub new { my ($rtsig, $handler, $flags) = @_; my $sigset = POSIX::SigSet->new($rtsig); my $sigact = POSIX::SigAction->new($handler, $sigset, $flags); POSIX::sigaction($rtsig, $sigact); } sub EXISTS { &_exist } sub FETCH { my $rtsig = &_check; my $oa = POSIX::SigAction->new(); POSIX::sigaction($rtsig, undef, $oa); return $oa->{HANDLER} } sub STORE { my $rtsig = &_check; new($rtsig, $_[2], $SIGACTION_FLAGS) } sub DELETE { delete $SIG{ &_check } } sub CLEAR { &_exist; delete @SIG{ &POSIX::SIGRTMIN .. &POSIX::SIGRTMAX } } sub SCALAR { &_croak; $_sigrtn + 1 } tie %POSIX::SIGRT, 'POSIX::SigRt'; # and the expression on the line above is true, so we return true. Math/BigInt/FastCalc.pm 0000644 00000005466 15231101164 0010634 0 ustar 00 package Math::BigInt::FastCalc; use 5.006; use strict; use warnings; use Math::BigInt::Calc 1.997; use vars '$VERSION'; $VERSION = '0.30'; ############################################################################## # global constants, flags and accessory # announce that we are compatible with MBI v1.83 and up sub api_version () { 2; } # use Calc to override the methods that we do not provide in XS for my $method (qw/ str num add sub mul div rsft lsft mod modpow modinv gcd pow root sqrt log_int fac nok digit check from_hex from_bin from_oct as_hex as_bin as_oct zeros base_len xor or and alen 1ex /) { no strict 'refs'; *{'Math::BigInt::FastCalc::_' . $method} = \&{'Math::BigInt::Calc::_' . $method}; } require XSLoader; XSLoader::load(__PACKAGE__, $VERSION, Math::BigInt::Calc::_base_len()); ############################################################################## ############################################################################## 1; __END__ =pod =head1 NAME Math::BigInt::FastCalc - Math::BigInt::Calc with some XS for more speed =head1 SYNOPSIS Provides support for big integer calculations. Not intended to be used by other modules. Other modules which sport the same functions can also be used to support Math::BigInt, like L<Math::BigInt::GMP> or L<Math::BigInt::Pari>. =head1 DESCRIPTION In order to allow for multiple big integer libraries, Math::BigInt was rewritten to use library modules for core math routines. Any module which follows the same API as this can be used instead by using the following: use Math::BigInt lib => 'libname'; 'libname' is either the long name ('Math::BigInt::Pari'), or only the short version like 'Pari'. To use this library: use Math::BigInt lib => 'FastCalc'; Note that from L<Math::BigInt> v1.76 onwards, FastCalc will be loaded automatically, if possible. =head1 STORAGE FastCalc works exactly like Calc, in stores the numbers in decimal form, chopped into parts. =head1 METHODS The following functions are now implemented in FastCalc.xs: _is_odd _is_even _is_one _is_zero _is_two _is_ten _zero _one _two _ten _acmp _len _inc _dec __strip_zeros _copy =head1 LICENSE This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself. =head1 AUTHORS Original math code by Mark Biggar, rewritten by Tels L<http://bloodgate.com/> in late 2000. Separated from BigInt and shaped API with the help of John Peacock. Fixed, sped-up and enhanced by Tels http://bloodgate.com 2001-2003. Further streamlining (api_version 1 etc.) by Tels 2004-2007. Bug-fixing by Peter John Acklam E<lt>pjacklam@online.noE<gt> 2010-2011. =head1 SEE ALSO L<Math::BigInt>, L<Math::BigFloat>, L<Math::BigInt::GMP>, L<Math::BigInt::FastCalc> and L<Math::BigInt::Pari>. =cut stdc-predef.ph 0000644 00000000763 15231101164 0007275 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_STDC_PREDEF_H)) { eval 'sub _STDC_PREDEF_H () {1;}' unless defined(&_STDC_PREDEF_H); eval 'sub __STDC_IEC_559__ () {1;}' unless defined(&__STDC_IEC_559__); eval 'sub __STDC_IEC_559_COMPLEX__ () {1;}' unless defined(&__STDC_IEC_559_COMPLEX__); eval 'sub __STDC_ISO_10646__ () {201103;}' unless defined(&__STDC_ISO_10646__); eval 'sub __STDC_NO_THREADS__ () {1;}' unless defined(&__STDC_NO_THREADS__); } 1; Config_git.pl 0000644 00000000631 15231101164 0007143 0 ustar 00 ###################################################################### # WARNING: 'lib/Config_git.pl' is generated by make_patchnum.pl # DO NOT EDIT DIRECTLY - edit make_patchnum.pl instead ###################################################################### $Config::Git_Data=<<'ENDOFGIT'; git_commit_id='' git_describe='' git_branch='' git_uncommitted_changes='' git_commit_id_title='' ENDOFGIT Errno.pm 0000644 00000014564 15231101164 0006173 0 ustar 00 # -*- buffer-read-only: t -*- # # This file is auto-generated. ***ANY*** changes here will be lost # package Errno; require Exporter; use Config; use strict; "$Config{'archname'}-$Config{'osvers'}" eq "x86_64-linux-thread-multi-4.18.0-553.117.1.el8_10.x86_64" or die "Errno architecture (x86_64-linux-thread-multi-4.18.0-553.117.1.el8_10.x86_64) does not match executable architecture ($Config{'archname'}-$Config{'osvers'})"; our $VERSION = "1.15"; $VERSION = eval $VERSION; our @ISA = 'Exporter'; my %err; BEGIN { %err = ( EPERM => 1, ENOENT => 2, ESRCH => 3, EINTR => 4, EIO => 5, ENXIO => 6, E2BIG => 7, ENOEXEC => 8, EBADF => 9, ECHILD => 10, EWOULDBLOCK => 11, EAGAIN => 11, ENOMEM => 12, EACCES => 13, EFAULT => 14, ENOTBLK => 15, EBUSY => 16, EEXIST => 17, EXDEV => 18, ENODEV => 19, ENOTDIR => 20, EISDIR => 21, EINVAL => 22, ENFILE => 23, EMFILE => 24, ENOTTY => 25, ETXTBSY => 26, EFBIG => 27, ENOSPC => 28, ESPIPE => 29, EROFS => 30, EMLINK => 31, EPIPE => 32, EDOM => 33, ERANGE => 34, EDEADLOCK => 35, EDEADLK => 35, ENAMETOOLONG => 36, ENOLCK => 37, ENOSYS => 38, ENOTEMPTY => 39, ELOOP => 40, ENOMSG => 42, EIDRM => 43, ECHRNG => 44, EL2NSYNC => 45, EL3HLT => 46, EL3RST => 47, ELNRNG => 48, EUNATCH => 49, ENOCSI => 50, EL2HLT => 51, EBADE => 52, EBADR => 53, EXFULL => 54, ENOANO => 55, EBADRQC => 56, EBADSLT => 57, EBFONT => 59, ENOSTR => 60, ENODATA => 61, ETIME => 62, ENOSR => 63, ENONET => 64, ENOPKG => 65, EREMOTE => 66, ENOLINK => 67, EADV => 68, ESRMNT => 69, ECOMM => 70, EPROTO => 71, EMULTIHOP => 72, EDOTDOT => 73, EBADMSG => 74, EOVERFLOW => 75, ENOTUNIQ => 76, EBADFD => 77, EREMCHG => 78, ELIBACC => 79, ELIBBAD => 80, ELIBSCN => 81, ELIBMAX => 82, ELIBEXEC => 83, EILSEQ => 84, ERESTART => 85, ESTRPIPE => 86, EUSERS => 87, ENOTSOCK => 88, EDESTADDRREQ => 89, EMSGSIZE => 90, EPROTOTYPE => 91, ENOPROTOOPT => 92, EPROTONOSUPPORT => 93, ESOCKTNOSUPPORT => 94, ENOTSUP => 95, EOPNOTSUPP => 95, EPFNOSUPPORT => 96, EAFNOSUPPORT => 97, EADDRINUSE => 98, EADDRNOTAVAIL => 99, ENETDOWN => 100, ENETUNREACH => 101, ENETRESET => 102, ECONNABORTED => 103, ECONNRESET => 104, ENOBUFS => 105, EISCONN => 106, ENOTCONN => 107, ESHUTDOWN => 108, ETOOMANYREFS => 109, ETIMEDOUT => 110, ECONNREFUSED => 111, EHOSTDOWN => 112, EHOSTUNREACH => 113, EALREADY => 114, EINPROGRESS => 115, ESTALE => 116, EUCLEAN => 117, ENOTNAM => 118, ENAVAIL => 119, EISNAM => 120, EREMOTEIO => 121, EDQUOT => 122, ENOMEDIUM => 123, EMEDIUMTYPE => 124, ECANCELED => 125, ENOKEY => 126, EKEYEXPIRED => 127, EKEYREVOKED => 128, EKEYREJECTED => 129, EOWNERDEAD => 130, ENOTRECOVERABLE => 131, ERFKILL => 132, EHWPOISON => 133, ); # Generate proxy constant subroutines for all the values. # Well, almost all the values. Unfortunately we can't assume that at this # point that our symbol table is empty, as code such as if the parser has # seen code such as C<exists &Errno::EINVAL>, it will have created the # typeglob. # Doing this before defining @EXPORT_OK etc means that even if a platform is # crazy enough to define EXPORT_OK as an error constant, everything will # still work, because the parser will upgrade the PCS to a real typeglob. # We rely on the subroutine definitions below to update the internal caches. # Don't use %each, as we don't want a copy of the value. foreach my $name (keys %err) { if ($Errno::{$name}) { # We expect this to be reached fairly rarely, so take an approach # which uses the least compile time effort in the common case: eval "sub $name() { $err{$name} }; 1" or die $@; } else { $Errno::{$name} = \$err{$name}; } } } our @EXPORT_OK = keys %err; our %EXPORT_TAGS = ( POSIX => [qw( E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT EAGAIN EALREADY EBADF EBUSY ECHILD ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDOM EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK EMSGSIZE ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS ENODEV ENOENT ENOEXEC ENOLCK ENOMEM ENOPROTOOPT ENOSPC ENOSYS ENOTBLK ENOTCONN ENOTDIR ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM EPFNOSUPPORT EPIPE EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE ERESTART EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE ETIMEDOUT ETOOMANYREFS ETXTBSY EUSERS EWOULDBLOCK EXDEV )] ); sub TIEHASH { bless \%err } sub FETCH { my (undef, $errname) = @_; return "" unless exists $err{$errname}; my $errno = $err{$errname}; return $errno == $! ? $errno : 0; } sub STORE { require Carp; Carp::confess("ERRNO hash is read only!"); } *CLEAR = *DELETE = \*STORE; # Typeglob aliasing uses less space sub NEXTKEY { each %err; } sub FIRSTKEY { my $s = scalar keys %err; # initialize iterator each %err; } sub EXISTS { my (undef, $errname) = @_; exists $err{$errname}; } tie %!, __PACKAGE__; # Returns an object, objects are true. __END__ =head1 NAME Errno - System errno constants =head1 SYNOPSIS use Errno qw(EINTR EIO :POSIX); =head1 DESCRIPTION C<Errno> defines and conditionally exports all the error constants defined in your system C<errno.h> include file. It has a single export tag, C<:POSIX>, which will export all POSIX defined error numbers. C<Errno> also makes C<%!> magic such that each element of C<%!> has a non-zero value only if C<$!> is set to that value. For example: use Errno; unless (open(FH, "/fangorn/spouse")) { if ($!{ENOENT}) { warn "Get a wife!\n"; } else { warn "This path is barred: $!"; } } If a specified constant C<EFOO> does not exist on the system, C<$!{EFOO}> returns C<"">. You may use C<exists $!{EFOO}> to check whether the constant is available on the system. =head1 CAVEATS Importing a particular constant may not be very portable, because the import will fail on platforms that do not have that constant. A more portable way to set C<$!> to a valid value is to use: if (exists &Errno::EFOO) { $! = &Errno::EFOO; } =head1 AUTHOR Graham Barr <gbarr@pobox.com> =head1 COPYRIGHT Copyright (c) 1997-8 Graham Barr. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut # ex: set ro: Sys/Hostname.pm 0000644 00000007074 15231101164 0007440 0 ustar 00 package Sys::Hostname; use strict; use Carp; require Exporter; our @ISA = qw/ Exporter /; our @EXPORT = qw/ hostname /; our $VERSION; our $host; BEGIN { $VERSION = '1.16'; { local $SIG{__DIE__}; eval { require XSLoader; XSLoader::load(); }; warn $@ if $@; } } sub hostname { # method 1 - we already know it return $host if defined $host; # method 1' - try to ask the system $host = ghname() if defined &ghname; return $host if defined $host; if ($^O eq 'VMS') { # method 2 - no sockets ==> return DECnet node name eval { local $SIG{__DIE__}; $host = (gethostbyname('me'))[0] }; if ($@) { return $host = $ENV{'SYS$NODE'}; } # method 3 - has someone else done the job already? It's common for the # TCP/IP stack to advertise the hostname via a logical name. (Are # there any other logicals which TCP/IP stacks use for the host name?) $host = $ENV{'ARPANET_HOST_NAME'} || $ENV{'INTERNET_HOST_NAME'} || $ENV{'MULTINET_HOST_NAME'} || $ENV{'UCX$INET_HOST'} || $ENV{'TCPWARE_DOMAINNAME'} || $ENV{'NEWS_ADDRESS'}; return $host if $host; # method 4 - does hostname happen to work? my($rslt) = `hostname`; if ($rslt !~ /IVVERB/) { ($host) = $rslt =~ /^(\S+)/; } return $host if $host; # rats! $host = ''; croak "Cannot get host name of local machine"; } elsif ($^O eq 'MSWin32') { ($host) = gethostbyname('localhost'); chomp($host = `hostname 2> NUL`) unless defined $host; return $host; } elsif ($^O eq 'epoc') { $host = 'localhost'; return $host; } else { # Unix # is anyone going to make it here? local $ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin'; # Paranoia. # method 2 - syscall is preferred since it avoids tainting problems # XXX: is it such a good idea to return hostname untainted? eval { local $SIG{__DIE__}; require "syscall.ph"; $host = "\0" x 65; ## preload scalar syscall(&SYS_gethostname, $host, 65) == 0; } # method 2a - syscall using systeminfo instead of gethostname # -- needed on systems like Solaris || eval { local $SIG{__DIE__}; require "sys/syscall.ph"; require "sys/systeminfo.ph"; $host = "\0" x 65; ## preload scalar syscall(&SYS_systeminfo, &SI_HOSTNAME, $host, 65) != -1; } # method 3 - trusty old hostname command || eval { local $SIG{__DIE__}; local $SIG{CHLD}; $host = `(hostname) 2>/dev/null`; # bsdish } # method 4 - use POSIX::uname(), which strictly can't be expected to be # correct || eval { local $SIG{__DIE__}; require POSIX; $host = (POSIX::uname())[1]; } # method 5 - sysV uname command (may truncate) || eval { local $SIG{__DIE__}; $host = `uname -n 2>/dev/null`; ## sysVish } # bummer || croak "Cannot get host name of local machine"; # remove garbage $host =~ tr/\0\r\n//d; $host; } } 1; __END__ =head1 NAME Sys::Hostname - Try every conceivable way to get hostname =head1 SYNOPSIS use Sys::Hostname; $host = hostname; =head1 DESCRIPTION Attempts several methods of getting the system hostname and then caches the result. It tries the first available of the C library's gethostname(), C<`$Config{aphostname}`>, uname(2), C<syscall(SYS_gethostname)>, C<`hostname`>, C<`uname -n`>, and the file F</com/host>. If all that fails it C<croak>s. All NULs, returns, and newlines are removed from the result. =head1 AUTHOR David Sundstrom E<lt>F<sunds@asictest.sc.ti.com>E<gt> Texas Instruments XS code added by Greg Bacon E<lt>F<gbacon@cs.uah.edu>E<gt> =cut linux/posix_types.ph 0000644 00000000565 15231101164 0010622 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_LINUX_POSIX_TYPES_H)) { eval 'sub _LINUX_POSIX_TYPES_H () {1;}' unless defined(&_LINUX_POSIX_TYPES_H); require 'linux/stddef.ph'; undef(&__FD_SETSIZE) if defined(&__FD_SETSIZE); eval 'sub __FD_SETSIZE () {1024;}' unless defined(&__FD_SETSIZE); require 'asm/posix_types.ph'; } 1; linux/stddef.ph 0000644 00000000074 15231101164 0007500 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); 1; linux/ioctl.ph 0000644 00000000304 15231101164 0007335 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_LINUX_IOCTL_H)) { eval 'sub _LINUX_IOCTL_H () {1;}' unless defined(&_LINUX_IOCTL_H); require 'asm/ioctl.ph'; } 1; arybase.pm 0000644 00000005410 15231101164 0006522 0 ustar 00 package arybase; our $VERSION = "0.05"; require XSLoader; XSLoader::load(); # This returns true, which makes require happy. __END__ =head1 NAME arybase - Set indexing base via $[ =head1 SYNOPSIS $[ = 1; @a = qw(Sun Mon Tue Wed Thu Fri Sat); print $a[3], "\n"; # prints Tue =head1 DESCRIPTION This module implements Perl's C<$[> variable. You should not use it directly. Assigning to C<$[> has the I<compile-time> effect of making the assigned value, converted to an integer, the index of the first element in an array and the first character in a substring, within the enclosing lexical scope. It can be written with or without C<local>: $[ = 1; local $[ = 1; It only works if the assignment can be detected at compile time and the value assigned is constant. It affects the following operations: $array[$element] @array[@slice] $#array (list())[$slice] splice @array, $index, ... each @array keys @array index $string, $substring # return value is affected pos $string substr $string, $offset, ... As with the default base of 0, negative bases count from the end of the array or string, starting with -1. If C<$[> is a positive integer, indices from C<$[-1> to 0 also count from the end. If C<$[> is negative (why would you do that, though?), indices from C<$[> to 0 count from the beginning of the string, but indices below C<$[> count from the end of the string as though the base were 0. Prior to Perl 5.16, indices from 0 to C<$[-1> inclusive, for positive values of C<$[>, behaved differently for different operations; negative indices equal to or greater than a negative C<$[> likewise behaved inconsistently. =head1 HISTORY Before Perl 5, C<$[> was a global variable that affected all array indices and string offsets. Starting with Perl 5, it became a file-scoped compile-time directive, which could be made lexically-scoped with C<local>. "File-scoped" means that the C<$[> assignment could leak out of the block in which occurred: { $[ = 1; # ... array base is 1 here ... } # ... still 1, but not in other files ... In Perl 5.10, it became strictly lexical. The file-scoped behaviour was removed (perhaps inadvertently, but what's done is done). In Perl 5.16, the implementation was moved into this module, and out of the Perl core. The erratic behaviour that occurred with indices between -1 and C<$[> was made consistent between operations, and, for negative bases, indices from C<$[> to -1 inclusive were made consistent between operations. =head1 BUGS Error messages that mention array indices use the 0-based index. C<keys $arrayref> and C<each $arrayref> do not respect the current value of C<$[>. =head1 SEE ALSO L<perlvar/"$[">, L<Array::Base> and L<String::Base>. =cut DynaLoader.pm 0000644 00000060555 15231101164 0007131 0 ustar 00 # Generated from DynaLoader_pm.PL package DynaLoader; # And Gandalf said: 'Many folk like to know beforehand what is to # be set on the table; but those who have laboured to prepare the # feast like to keep their secret; for wonder makes the words of # praise louder.' # (Quote from Tolkien suggested by Anno Siegel.) # # See pod text at end of file for documentation. # See also ext/DynaLoader/README in source tree for other information. # # Tim.Bunce@ig.co.uk, August 1994 BEGIN { $VERSION = '1.14'; } use Config; # enable debug/trace messages from DynaLoader perl code $dl_debug = $ENV{PERL_DL_DEBUG} || 0 unless defined $dl_debug; # # Flags to alter dl_load_file behaviour. Assigned bits: # 0x01 make symbols available for linking later dl_load_file's. # (only known to work on Solaris 2 using dlopen(RTLD_GLOBAL)) # (ignored under VMS; effect is built-in to image linking) # # This is called as a class method $module->dl_load_flags. The # definition here will be inherited and result on "default" loading # behaviour unless a sub-class of DynaLoader defines its own version. # sub dl_load_flags { 0x00 } ($dl_dlext, $dl_so, $dlsrc) = @Config::Config{qw(dlext so dlsrc)}; $do_expand = 0; @dl_require_symbols = (); # names of symbols we need @dl_resolve_using = (); # names of files to link with @dl_library_path = (); # path to look for files #XSLoader.pm may have added elements before we were required #@dl_shared_objects = (); # shared objects for symbols we have #@dl_librefs = (); # things we have loaded #@dl_modules = (); # Modules we have loaded # This is a fix to support DLD's unfortunate desire to relink -lc @dl_resolve_using = dl_findfile('-lc') if $dlsrc eq "dl_dld.xs"; # Initialise @dl_library_path with the 'standard' library path # for this platform as determined by Configure. push(@dl_library_path, split(' ', $Config::Config{libpth})); my $ldlibpthname = $Config::Config{ldlibpthname}; my $ldlibpthname_defined = defined $Config::Config{ldlibpthname}; my $pthsep = $Config::Config{path_sep}; # Add to @dl_library_path any extra directories we can gather from environment # during runtime. if ($ldlibpthname_defined && exists $ENV{$ldlibpthname}) { push(@dl_library_path, split(/$pthsep/, $ENV{$ldlibpthname})); } # E.g. HP-UX supports both its native SHLIB_PATH *and* LD_LIBRARY_PATH. if ($ldlibpthname_defined && $ldlibpthname ne 'LD_LIBRARY_PATH' && exists $ENV{LD_LIBRARY_PATH}) { push(@dl_library_path, split(/$pthsep/, $ENV{LD_LIBRARY_PATH})); } # No prizes for guessing why we don't say 'bootstrap DynaLoader;' here. # NOTE: All dl_*.xs (including dl_none.xs) define a dl_error() XSUB boot_DynaLoader('DynaLoader') if defined(&boot_DynaLoader) && !defined(&dl_error); if ($dl_debug) { print STDERR "DynaLoader.pm loaded (@INC, @dl_library_path)\n"; print STDERR "DynaLoader not linked into this perl\n" unless defined(&boot_DynaLoader); } 1; # End of main code sub croak { require Carp; Carp::croak(@_) } sub bootstrap_inherit { my $module = $_[0]; local *isa = *{"$module\::ISA"}; local @isa = (@isa, 'DynaLoader'); # Cannot goto due to delocalization. Will report errors on a wrong line? bootstrap(@_); } sub bootstrap { # use local vars to enable $module.bs script to edit values local(@args) = @_; local($module) = $args[0]; local(@dirs, $file); unless ($module) { require Carp; Carp::confess("Usage: DynaLoader::bootstrap(module)"); } # A common error on platforms which don't support dynamic loading. # Since it's fatal and potentially confusing we give a detailed message. croak("Can't load module $module, dynamic loading not available in this perl.\n". " (You may need to build a new perl executable which either supports\n". " dynamic loading or has the $module module statically linked into it.)\n") unless defined(&dl_load_file); my @modparts = split(/::/,$module); my $modfname = $modparts[-1]; # Some systems have restrictions on files names for DLL's etc. # mod2fname returns appropriate file base name (typically truncated) # It may also edit @modparts if required. $modfname = &mod2fname(\@modparts) if defined &mod2fname; my $modpname = join('/',@modparts); print STDERR "DynaLoader::bootstrap for $module ", "(auto/$modpname/$modfname.$dl_dlext)\n" if $dl_debug; foreach (@INC) { my $dir = "$_/auto/$modpname"; next unless -d $dir; # skip over uninteresting directories # check for common cases to avoid autoload of dl_findfile my $try = "$dir/$modfname.$dl_dlext"; last if $file = ($do_expand) ? dl_expandspec($try) : ((-f $try) && $try); # no luck here, save dir for possible later dl_findfile search push @dirs, $dir; } # last resort, let dl_findfile have a go in all known locations $file = dl_findfile(map("-L$_",@dirs,@INC), $modfname) unless $file; croak("Can't locate loadable object for module $module in \@INC (\@INC contains: @INC)") unless $file; # wording similar to error from 'require' my $bootname = "boot_$module"; $bootname =~ s/\W/_/g; @dl_require_symbols = ($bootname); # Execute optional '.bootstrap' perl script for this module. # The .bs file can be used to configure @dl_resolve_using etc to # match the needs of the individual module on this architecture. my $bs = $file; $bs =~ s/(\.\w+)?(;\d*)?$/\.bs/; # look for .bs 'beside' the library if (-s $bs) { # only read file if it's not empty print STDERR "BS: $bs ($^O, $dlsrc)\n" if $dl_debug; eval { do $bs; }; warn "$bs: $@\n" if $@; } my $boot_symbol_ref; # Many dynamic extension loading problems will appear to come from # this section of code: XYZ failed at line 123 of DynaLoader.pm. # Often these errors are actually occurring in the initialisation # C code of the extension XS file. Perl reports the error as being # in this perl code simply because this was the last perl code # it executed. my $libref = dl_load_file($file, $module->dl_load_flags) or croak("Can't load '$file' for module $module: ".dl_error()); push(@dl_librefs,$libref); # record loaded object my @unresolved = dl_undef_symbols(); if (@unresolved) { require Carp; Carp::carp("Undefined symbols present after loading $file: @unresolved\n"); } $boot_symbol_ref = dl_find_symbol($libref, $bootname) or croak("Can't find '$bootname' symbol in $file\n"); push(@dl_modules, $module); # record loaded module boot: my $xs = dl_install_xsub("${module}::bootstrap", $boot_symbol_ref, $file); # See comment block above push(@dl_shared_objects, $file); # record files loaded &$xs(@args); } sub dl_findfile { # Read ext/DynaLoader/DynaLoader.doc for detailed information. # This function does not automatically consider the architecture # or the perl library auto directories. my (@args) = @_; my (@dirs, $dir); # which directories to search my (@found); # full paths to real files we have found #my $dl_ext= 'so'; # $Config::Config{'dlext'} suffix for perl extensions #my $dl_so = 'so'; # $Config::Config{'so'} suffix for shared libraries print STDERR "dl_findfile(@args)\n" if $dl_debug; # accumulate directories but process files as they appear arg: foreach(@args) { # Special fast case: full filepath requires no search if (m:/: && -f $_) { push(@found,$_); last arg unless wantarray; next; } # Deal with directories first: # Using a -L prefix is the preferred option (faster and more robust) if (m:^-L:) { s/^-L//; push(@dirs, $_); next; } # Otherwise we try to try to spot directories by a heuristic # (this is a more complicated issue than it first appears) if (m:/: && -d $_) { push(@dirs, $_); next; } # Only files should get this far... my(@names, $name); # what filenames to look for if (m:-l: ) { # convert -lname to appropriate library name s/-l//; push(@names,"lib$_.$dl_so"); push(@names,"lib$_.a"); } else { # Umm, a bare name. Try various alternatives: # these should be ordered with the most likely first push(@names,"$_.$dl_dlext") unless m/\.$dl_dlext$/o; push(@names,"$_.$dl_so") unless m/\.$dl_so$/o; push(@names,"lib$_.$dl_so") unless m:/:; push(@names,"$_.a") if !m/\.a$/ and $dlsrc eq "dl_dld.xs"; push(@names, $_); } my $dirsep = '/'; foreach $dir (@dirs, @dl_library_path) { next unless -d $dir; foreach $name (@names) { my($file) = "$dir$dirsep$name"; print STDERR " checking in $dir for $name\n" if $dl_debug; $file = ($do_expand) ? dl_expandspec($file) : (-f $file && $file); #$file = _check_file($file); if ($file) { push(@found, $file); next arg; # no need to look any further } } } } if ($dl_debug) { foreach(@dirs) { print STDERR " dl_findfile ignored non-existent directory: $_\n" unless -d $_; } print STDERR "dl_findfile found: @found\n"; } return $found[0] unless wantarray; @found; } sub dl_expandspec { my($spec) = @_; # Optional function invoked if DynaLoader.pm sets $do_expand. # Most systems do not require or use this function. # Some systems may implement it in the dl_*.xs file in which case # this Perl version should be excluded at build time. # This function is designed to deal with systems which treat some # 'filenames' in a special way. For example VMS 'Logical Names' # (something like unix environment variables - but different). # This function should recognise such names and expand them into # full file paths. # Must return undef if $spec is invalid or file does not exist. my $file = $spec; # default output to input return undef unless -f $file; print STDERR "dl_expandspec($spec) => $file\n" if $dl_debug; $file; } sub dl_find_symbol_anywhere { my $sym = shift; my $libref; foreach $libref (@dl_librefs) { my $symref = dl_find_symbol($libref,$sym); return $symref if $symref; } return undef; } __END__ =head1 NAME DynaLoader - Dynamically load C libraries into Perl code =head1 SYNOPSIS package YourPackage; require DynaLoader; @ISA = qw(... DynaLoader ...); bootstrap YourPackage; # optional method for 'global' loading sub dl_load_flags { 0x01 } =head1 DESCRIPTION This document defines a standard generic interface to the dynamic linking mechanisms available on many platforms. Its primary purpose is to implement automatic dynamic loading of Perl modules. This document serves as both a specification for anyone wishing to implement the DynaLoader for a new platform and as a guide for anyone wishing to use the DynaLoader directly in an application. The DynaLoader is designed to be a very simple high-level interface that is sufficiently general to cover the requirements of SunOS, HP-UX, NeXT, Linux, VMS and other platforms. It is also hoped that the interface will cover the needs of OS/2, NT etc and also allow pseudo-dynamic linking (using C<ld -A> at runtime). It must be stressed that the DynaLoader, by itself, is practically useless for accessing non-Perl libraries because it provides almost no Perl-to-C 'glue'. There is, for example, no mechanism for calling a C library function or supplying arguments. A C::DynaLib module is available from CPAN sites which performs that function for some common system types. And since the year 2000, there's also Inline::C, a module that allows you to write Perl subroutines in C. Also available from your local CPAN site. DynaLoader Interface Summary @dl_library_path @dl_resolve_using @dl_require_symbols $dl_debug @dl_librefs @dl_modules @dl_shared_objects Implemented in: bootstrap($modulename) Perl @filepaths = dl_findfile(@names) Perl $flags = $modulename->dl_load_flags Perl $symref = dl_find_symbol_anywhere($symbol) Perl $libref = dl_load_file($filename, $flags) C $status = dl_unload_file($libref) C $symref = dl_find_symbol($libref, $symbol) C @symbols = dl_undef_symbols() C dl_install_xsub($name, $symref [, $filename]) C $message = dl_error C =over 4 =item @dl_library_path The standard/default list of directories in which dl_findfile() will search for libraries etc. Directories are searched in order: $dl_library_path[0], [1], ... etc @dl_library_path is initialised to hold the list of 'normal' directories (F</usr/lib>, etc) determined by B<Configure> (C<$Config{'libpth'}>). This should ensure portability across a wide range of platforms. @dl_library_path should also be initialised with any other directories that can be determined from the environment at runtime (such as LD_LIBRARY_PATH for SunOS). After initialisation @dl_library_path can be manipulated by an application using push and unshift before calling dl_findfile(). Unshift can be used to add directories to the front of the search order either to save search time or to override libraries with the same name in the 'normal' directories. The load function that dl_load_file() calls may require an absolute pathname. The dl_findfile() function and @dl_library_path can be used to search for and return the absolute pathname for the library/object that you wish to load. =item @dl_resolve_using A list of additional libraries or other shared objects which can be used to resolve any undefined symbols that might be generated by a later call to load_file(). This is only required on some platforms which do not handle dependent libraries automatically. For example the Socket Perl extension library (F<auto/Socket/Socket.so>) contains references to many socket functions which need to be resolved when it's loaded. Most platforms will automatically know where to find the 'dependent' library (e.g., F</usr/lib/libsocket.so>). A few platforms need to be told the location of the dependent library explicitly. Use @dl_resolve_using for this. Example usage: @dl_resolve_using = dl_findfile('-lsocket'); =item @dl_require_symbols A list of one or more symbol names that are in the library/object file to be dynamically loaded. This is only required on some platforms. =item @dl_librefs An array of the handles returned by successful calls to dl_load_file(), made by bootstrap, in the order in which they were loaded. Can be used with dl_find_symbol() to look for a symbol in any of the loaded files. =item @dl_modules An array of module (package) names that have been bootstrap'ed. =item @dl_shared_objects An array of file names for the shared objects that were loaded. =item dl_error() Syntax: $message = dl_error(); Error message text from the last failed DynaLoader function. Note that, similar to errno in unix, a successful function call does not reset this message. Implementations should detect the error as soon as it occurs in any of the other functions and save the corresponding message for later retrieval. This will avoid problems on some platforms (such as SunOS) where the error message is very temporary (e.g., dlerror()). =item $dl_debug Internal debugging messages are enabled when $dl_debug is set true. Currently setting $dl_debug only affects the Perl side of the DynaLoader. These messages should help an application developer to resolve any DynaLoader usage problems. $dl_debug is set to C<$ENV{'PERL_DL_DEBUG'}> if defined. For the DynaLoader developer/porter there is a similar debugging variable added to the C code (see dlutils.c) and enabled if Perl was built with the B<-DDEBUGGING> flag. This can also be set via the PERL_DL_DEBUG environment variable. Set to 1 for minimal information or higher for more. =item dl_findfile() Syntax: @filepaths = dl_findfile(@names) Determine the full paths (including file suffix) of one or more loadable files given their generic names and optionally one or more directories. Searches directories in @dl_library_path by default and returns an empty list if no files were found. Names can be specified in a variety of platform independent forms. Any names in the form B<-lname> are converted into F<libname.*>, where F<.*> is an appropriate suffix for the platform. If a name does not already have a suitable prefix and/or suffix then the corresponding file will be searched for by trying combinations of prefix and suffix appropriate to the platform: "$name.o", "lib$name.*" and "$name". If any directories are included in @names they are searched before @dl_library_path. Directories may be specified as B<-Ldir>. Any other names are treated as filenames to be searched for. Using arguments of the form C<-Ldir> and C<-lname> is recommended. Example: @dl_resolve_using = dl_findfile(qw(-L/usr/5lib -lposix)); =item dl_expandspec() Syntax: $filepath = dl_expandspec($spec) Some unusual systems, such as VMS, require special filename handling in order to deal with symbolic names for files (i.e., VMS's Logical Names). To support these systems a dl_expandspec() function can be implemented either in the F<dl_*.xs> file or code can be added to the dl_expandspec() function in F<DynaLoader.pm>. See F<DynaLoader_pm.PL> for more information. =item dl_load_file() Syntax: $libref = dl_load_file($filename, $flags) Dynamically load $filename, which must be the path to a shared object or library. An opaque 'library reference' is returned as a handle for the loaded object. Returns undef on error. The $flags argument to alters dl_load_file behaviour. Assigned bits: 0x01 make symbols available for linking later dl_load_file's. (only known to work on Solaris 2 using dlopen(RTLD_GLOBAL)) (ignored under VMS; this is a normal part of image linking) (On systems that provide a handle for the loaded object such as SunOS and HPUX, $libref will be that handle. On other systems $libref will typically be $filename or a pointer to a buffer containing $filename. The application should not examine or alter $libref in any way.) This is the function that does the real work. It should use the current values of @dl_require_symbols and @dl_resolve_using if required. SunOS: dlopen($filename) HP-UX: shl_load($filename) Linux: dld_create_reference(@dl_require_symbols); dld_link($filename) NeXT: rld_load($filename, @dl_resolve_using) VMS: lib$find_image_symbol($filename,$dl_require_symbols[0]) (The dlopen() function is also used by Solaris and some versions of Linux, and is a common choice when providing a "wrapper" on other mechanisms as is done in the OS/2 port.) =item dl_unload_file() Syntax: $status = dl_unload_file($libref) Dynamically unload $libref, which must be an opaque 'library reference' as returned from dl_load_file. Returns one on success and zero on failure. This function is optional and may not necessarily be provided on all platforms. If it is defined, it is called automatically when the interpreter exits for every shared object or library loaded by DynaLoader::bootstrap. All such library references are stored in @dl_librefs by DynaLoader::Bootstrap as it loads the libraries. The files are unloaded in last-in, first-out order. This unloading is usually necessary when embedding a shared-object perl (e.g. one configured with -Duseshrplib) within a larger application, and the perl interpreter is created and destroyed several times within the lifetime of the application. In this case it is possible that the system dynamic linker will unload and then subsequently reload the shared libperl without relocating any references to it from any files DynaLoaded by the previous incarnation of the interpreter. As a result, any shared objects opened by DynaLoader may point to a now invalid 'ghost' of the libperl shared object, causing apparently random memory corruption and crashes. This behaviour is most commonly seen when using Apache and mod_perl built with the APXS mechanism. SunOS: dlclose($libref) HP-UX: ??? Linux: ??? NeXT: ??? VMS: ??? (The dlclose() function is also used by Solaris and some versions of Linux, and is a common choice when providing a "wrapper" on other mechanisms as is done in the OS/2 port.) =item dl_load_flags() Syntax: $flags = dl_load_flags $modulename; Designed to be a method call, and to be overridden by a derived class (i.e. a class which has DynaLoader in its @ISA). The definition in DynaLoader itself returns 0, which produces standard behavior from dl_load_file(). =item dl_find_symbol() Syntax: $symref = dl_find_symbol($libref, $symbol) Return the address of the symbol $symbol or C<undef> if not found. If the target system has separate functions to search for symbols of different types then dl_find_symbol() should search for function symbols first and then other types. The exact manner in which the address is returned in $symref is not currently defined. The only initial requirement is that $symref can be passed to, and understood by, dl_install_xsub(). SunOS: dlsym($libref, $symbol) HP-UX: shl_findsym($libref, $symbol) Linux: dld_get_func($symbol) and/or dld_get_symbol($symbol) NeXT: rld_lookup("_$symbol") VMS: lib$find_image_symbol($libref,$symbol) =item dl_find_symbol_anywhere() Syntax: $symref = dl_find_symbol_anywhere($symbol) Applies dl_find_symbol() to the members of @dl_librefs and returns the first match found. =item dl_undef_symbols() Example @symbols = dl_undef_symbols() Return a list of symbol names which remain undefined after load_file(). Returns C<()> if not known. Don't worry if your platform does not provide a mechanism for this. Most do not need it and hence do not provide it, they just return an empty list. =item dl_install_xsub() Syntax: dl_install_xsub($perl_name, $symref [, $filename]) Create a new Perl external subroutine named $perl_name using $symref as a pointer to the function which implements the routine. This is simply a direct call to newXSUB(). Returns a reference to the installed function. The $filename parameter is used by Perl to identify the source file for the function if required by die(), caller() or the debugger. If $filename is not defined then "DynaLoader" will be used. =item bootstrap() Syntax: bootstrap($module [...]) This is the normal entry point for automatic dynamic loading in Perl. It performs the following actions: =over 8 =item * locates an auto/$module directory by searching @INC =item * uses dl_findfile() to determine the filename to load =item * sets @dl_require_symbols to C<("boot_$module")> =item * executes an F<auto/$module/$module.bs> file if it exists (typically used to add to @dl_resolve_using any files which are required to load the module on the current platform) =item * calls dl_load_flags() to determine how to load the file. =item * calls dl_load_file() to load the file =item * calls dl_undef_symbols() and warns if any symbols are undefined =item * calls dl_find_symbol() for "boot_$module" =item * calls dl_install_xsub() to install it as "${module}::bootstrap" =item * calls &{"${module}::bootstrap"} to bootstrap the module (actually it uses the function reference returned by dl_install_xsub for speed) =back All arguments to bootstrap() are passed to the module's bootstrap function. The default code generated by F<xsubpp> expects $module [, $version] If the optional $version argument is not given, it defaults to C<$XS_VERSION // $VERSION> in the module's symbol table. The default code compares the Perl-space version with the version of the compiled XS code, and croaks with an error if they do not match. =back =head1 AUTHOR Tim Bunce, 11 August 1994. This interface is based on the work and comments of (in no particular order): Larry Wall, Robert Sanders, Dean Roehrich, Jeff Okamoto, Anno Siegel, Thomas Neumann, Paul Marquess, Charles Bailey, myself and others. Larry Wall designed the elegant inherited bootstrap mechanism and implemented the first Perl 5 dynamic loader using it. Solaris global loading added by Nick Ing-Simmons with design/coding assistance from Tim Bunce, January 1996. =cut mro.pm 0000644 00000023552 15231101164 0005700 0 ustar 00 # mro.pm # # Copyright (c) 2007 Brandon L Black # Copyright (c) 2008,2009 Larry Wall and others # # You may distribute under the terms of either the GNU General Public # License or the Artistic License, as specified in the README file. # package mro; use strict; use warnings; # mro.pm versions < 1.00 reserved for MRO::Compat # for partial back-compat to 5.[68].x our $VERSION = '1.09'; sub import { mro::set_mro(scalar(caller), $_[1]) if $_[1]; } package # hide me from PAUSE next; sub can { mro::_nextcan($_[0], 0) } sub method { my $method = mro::_nextcan($_[0], 1); goto &$method; } package # hide me from PAUSE maybe::next; sub method { my $method = mro::_nextcan($_[0], 0); goto &$method if defined $method; return; } require XSLoader; XSLoader::load('mro'); 1; __END__ =head1 NAME mro - Method Resolution Order =head1 SYNOPSIS use mro; # enables next::method and friends globally use mro 'dfs'; # enable DFS MRO for this class (Perl default) use mro 'c3'; # enable C3 MRO for this class =head1 DESCRIPTION The "mro" namespace provides several utilities for dealing with method resolution order and method caching in general. These interfaces are only available in Perl 5.9.5 and higher. See L<MRO::Compat> on CPAN for a mostly forwards compatible implementation for older Perls. =head1 OVERVIEW It's possible to change the MRO of a given class either by using C<use mro> as shown in the synopsis, or by using the L</mro::set_mro> function below. The special methods C<next::method>, C<next::can>, and C<maybe::next::method> are not available until this C<mro> module has been loaded via C<use> or C<require>. =head1 The C3 MRO In addition to the traditional Perl default MRO (depth first search, called C<DFS> here), Perl now offers the C3 MRO as well. Perl's support for C3 is based on the work done in Stevan Little's module L<Class::C3>, and most of the C3-related documentation here is ripped directly from there. =head2 What is C3? C3 is the name of an algorithm which aims to provide a sane method resolution order under multiple inheritance. It was first introduced in the language Dylan (see links in the L</"SEE ALSO"> section), and then later adopted as the preferred MRO (Method Resolution Order) for the new-style classes in Python 2.3. Most recently it has been adopted as the "canonical" MRO for Perl 6 classes, and the default MRO for Parrot objects as well. =head2 How does C3 work C3 works by always preserving local precedence ordering. This essentially means that no class will appear before any of its subclasses. Take, for instance, the classic diamond inheritance pattern: <A> / \ <B> <C> \ / <D> The standard Perl 5 MRO would be (D, B, A, C). The result being that B<A> appears before B<C>, even though B<C> is the subclass of B<A>. The C3 MRO algorithm however, produces the following order: (D, B, C, A), which does not have this issue. This example is fairly trivial; for more complex cases and a deeper explanation, see the links in the L</"SEE ALSO"> section. =head1 Functions =head2 mro::get_linear_isa($classname[, $type]) Returns an arrayref which is the linearized MRO of the given class. Uses whichever MRO is currently in effect for that class by default, or the given MRO (either C<c3> or C<dfs> if specified as C<$type>). The linearized MRO of a class is an ordered array of all of the classes one would search when resolving a method on that class, starting with the class itself. If the requested class doesn't yet exist, this function will still succeed, and return C<[ $classname ]> Note that C<UNIVERSAL> (and any members of C<UNIVERSAL>'s MRO) are not part of the MRO of a class, even though all classes implicitly inherit methods from C<UNIVERSAL> and its parents. =head2 mro::set_mro ($classname, $type) Sets the MRO of the given class to the C<$type> argument (either C<c3> or C<dfs>). =head2 mro::get_mro($classname) Returns the MRO of the given class (either C<c3> or C<dfs>). =head2 mro::get_isarev($classname) Gets the C<mro_isarev> for this class, returned as an arrayref of class names. These are every class that "isa" the given class name, even if the isa relationship is indirect. This is used internally by the MRO code to keep track of method/MRO cache invalidations. As with C<mro::get_linear_isa> above, C<UNIVERSAL> is special. C<UNIVERSAL> (and parents') isarev lists do not include every class in existence, even though all classes are effectively descendants for method inheritance purposes. =head2 mro::is_universal($classname) Returns a boolean status indicating whether or not the given classname is either C<UNIVERSAL> itself, or one of C<UNIVERSAL>'s parents by C<@ISA> inheritance. Any class for which this function returns true is "universal" in the sense that all classes potentially inherit methods from it. =head2 mro::invalidate_all_method_caches() Increments C<PL_sub_generation>, which invalidates method caching in all packages. =head2 mro::method_changed_in($classname) Invalidates the method cache of any classes dependent on the given class. This is not normally necessary. The only known case where pure perl code can confuse the method cache is when you manually install a new constant subroutine by using a readonly scalar value, like the internals of L<constant> do. If you find another case, please report it so we can either fix it or document the exception here. =head2 mro::get_pkg_gen($classname) Returns an integer which is incremented every time a real local method in the package C<$classname> changes, or the local C<@ISA> of C<$classname> is modified. This is intended for authors of modules which do lots of class introspection, as it allows them to very quickly check if anything important about the local properties of a given class have changed since the last time they looked. It does not increment on method/C<@ISA> changes in superclasses. It's still up to you to seek out the actual changes, and there might not actually be any. Perhaps all of the changes since you last checked cancelled each other out and left the package in the state it was in before. This integer normally starts off at a value of C<1> when a package stash is instantiated. Calling it on packages whose stashes do not exist at all will return C<0>. If a package stash is completely deleted (not a normal occurence, but it can happen if someone does something like C<undef %PkgName::>), the number will be reset to either C<0> or C<1>, depending on how completely package was wiped out. =head2 next::method This is somewhat like C<SUPER>, but it uses the C3 method resolution order to get better consistency in multiple inheritance situations. Note that while inheritance in general follows whichever MRO is in effect for the given class, C<next::method> only uses the C3 MRO. One generally uses it like so: sub some_method { my $self = shift; my $superclass_answer = $self->next::method(@_); return $superclass_answer + 1; } Note that you don't (re-)specify the method name. It forces you to always use the same method name as the method you started in. It can be called on an object or a class, of course. The way it resolves which actual method to call is: =over 4 =item 1 First, it determines the linearized C3 MRO of the object or class it is being called on. =item 2 Then, it determines the class and method name of the context it was invoked from. =item 3 Finally, it searches down the C3 MRO list until it reaches the contextually enclosing class, then searches further down the MRO list for the next method with the same name as the contextually enclosing method. =back Failure to find a next method will result in an exception being thrown (see below for alternatives). This is substantially different than the behavior of C<SUPER> under complex multiple inheritance. (This becomes obvious when one realizes that the common superclasses in the C3 linearizations of a given class and one of its parents will not always be ordered the same for both.) B<Caveat>: Calling C<next::method> from methods defined outside the class: There is an edge case when using C<next::method> from within a subroutine which was created in a different module than the one it is called from. It sounds complicated, but it really isn't. Here is an example which will not work correctly: *Foo::foo = sub { (shift)->next::method(@_) }; The problem exists because the anonymous subroutine being assigned to the C<*Foo::foo> glob will show up in the call stack as being called C<__ANON__> and not C<foo> as you might expect. Since C<next::method> uses C<caller> to find the name of the method it was called in, it will fail in this case. But fear not, there's a simple solution. The module C<Sub::Name> will reach into the perl internals and assign a name to an anonymous subroutine for you. Simply do this: use Sub::Name 'subname'; *Foo::foo = subname 'Foo::foo' => sub { (shift)->next::method(@_) }; and things will Just Work. =head2 next::can This is similar to C<next::method>, but just returns either a code reference or C<undef> to indicate that no further methods of this name exist. =head2 maybe::next::method In simple cases, it is equivalent to: $self->next::method(@_) if $self->next::can; But there are some cases where only this solution works (like C<goto &maybe::next::method>); =head1 SEE ALSO =head2 The original Dylan paper =over 4 =item L<http://www.webcom.com/haahr/dylan/linearization-oopsla96.html> =back =head2 Pugs The Pugs prototype Perl 6 Object Model uses C3 =head2 Parrot Parrot now uses C3 =over 4 =item L<http://use.perl.org/~autrijus/journal/25768> =back =head2 Python 2.3 MRO related links =over 4 =item L<http://www.python.org/2.3/mro.html> =item L<http://www.python.org/2.2.2/descrintro.html#mro> =back =head2 Class::C3 =over 4 =item L<Class::C3> =back =head1 AUTHOR Brandon L. Black, E<lt>blblack@gmail.comE<gt> Based on Stevan Little's L<Class::C3> =cut stdarg.ph 0000644 00000005437 15231101164 0006364 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_STDARG_H)) { unless(defined(&_ANSI_STDARG_H_)) { unless(defined(&__need___va_list)) { eval 'sub _STDARG_H () {1;}' unless defined(&_STDARG_H); eval 'sub _ANSI_STDARG_H_ () {1;}' unless defined(&_ANSI_STDARG_H_); } undef(&__need___va_list) if defined(&__need___va_list); unless(defined(&__GNUC_VA_LIST)) { eval 'sub __GNUC_VA_LIST () {1;}' unless defined(&__GNUC_VA_LIST); } if(defined(&_STDARG_H)) { eval 'sub va_start { my($v,$l) = @_; eval q( &__builtin_va_start($v,$l)); }' unless defined(&va_start); eval 'sub va_end { my($v) = @_; eval q( &__builtin_va_end($v)); }' unless defined(&va_end); eval 'sub va_arg { my($v,$l) = @_; eval q( &__builtin_va_arg($v,$l)); }' unless defined(&va_arg); if(!defined(&__STRICT_ANSI__) || (defined(&__STDC_VERSION__) ? &__STDC_VERSION__ : undef) + 0>= 199900 || defined(&__GXX_EXPERIMENTAL_CXX0X__)) { eval 'sub va_copy { my($d,$s) = @_; eval q( &__builtin_va_copy($d,$s)); }' unless defined(&va_copy); } eval 'sub __va_copy { my($d,$s) = @_; eval q( &__builtin_va_copy($d,$s)); }' unless defined(&__va_copy); if(defined(&_BSD_VA_LIST)) { undef(&_BSD_VA_LIST) if defined(&_BSD_VA_LIST); } if(defined(&__svr4__) || (defined(&_SCO_DS) && !defined(&__VA_LIST))) { unless(defined(&_VA_LIST_)) { eval 'sub _VA_LIST_ () {1;}' unless defined(&_VA_LIST_); if(defined(&__i860__)) { unless(defined(&_VA_LIST)) { eval 'sub _VA_LIST () { &va_list;}' unless defined(&_VA_LIST); } } if(defined(&_SCO_DS)) { eval 'sub __VA_LIST () {1;}' unless defined(&__VA_LIST); } } } else { if(!defined (&_VA_LIST_) || defined (&__BSD_NET2__) || defined (&____386BSD____) || defined (&__bsdi__) || defined (&__sequent__) || defined (&__FreeBSD__) || defined(&WINNT)) { unless(defined(&_VA_LIST_DEFINED)) { unless(defined(&_VA_LIST)) { unless(defined(&_VA_LIST_T_H)) { unless(defined(&__va_list__)) { } } } } if(!(defined (&__BSD_NET2__) || defined (&____386BSD____) || defined (&__bsdi__) || defined (&__sequent__) || defined (&__FreeBSD__))) { eval 'sub _VA_LIST_ () {1;}' unless defined(&_VA_LIST_); } unless(defined(&_VA_LIST)) { eval 'sub _VA_LIST () {1;}' unless defined(&_VA_LIST); } unless(defined(&_VA_LIST_DEFINED)) { eval 'sub _VA_LIST_DEFINED () {1;}' unless defined(&_VA_LIST_DEFINED); } unless(defined(&_VA_LIST_T_H)) { eval 'sub _VA_LIST_T_H () {1;}' unless defined(&_VA_LIST_T_H); } unless(defined(&__va_list__)) { eval 'sub __va_list__ () {1;}' unless defined(&__va_list__); } } } } } } 1; asm-generic/posix_types.ph 0000644 00000001645 15231101164 0011655 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__ASM_GENERIC_POSIX_TYPES_H)) { eval 'sub __ASM_GENERIC_POSIX_TYPES_H () {1;}' unless defined(&__ASM_GENERIC_POSIX_TYPES_H); require 'asm/bitsperlong.ph'; unless(defined(&__kernel_long_t)) { } unless(defined(&__kernel_ino_t)) { } unless(defined(&__kernel_mode_t)) { } unless(defined(&__kernel_pid_t)) { } unless(defined(&__kernel_ipc_pid_t)) { } unless(defined(&__kernel_uid_t)) { } unless(defined(&__kernel_suseconds_t)) { } unless(defined(&__kernel_daddr_t)) { } unless(defined(&__kernel_uid32_t)) { } unless(defined(&__kernel_old_uid_t)) { } unless(defined(&__kernel_old_dev_t)) { } unless(defined(&__kernel_size_t)) { if((defined(&__BITS_PER_LONG) ? &__BITS_PER_LONG : undef) != 64) { } else { } } unless(defined(&__kernel_fsid_t)) { } } 1; asm-generic/ioctls.ph 0000644 00000014013 15231101164 0010555 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__ASM_GENERIC_IOCTLS_H)) { eval 'sub __ASM_GENERIC_IOCTLS_H () {1;}' unless defined(&__ASM_GENERIC_IOCTLS_H); require 'linux/ioctl.ph'; eval 'sub TCGETS () {0x5401;}' unless defined(&TCGETS); eval 'sub TCSETS () {0x5402;}' unless defined(&TCSETS); eval 'sub TCSETSW () {0x5403;}' unless defined(&TCSETSW); eval 'sub TCSETSF () {0x5404;}' unless defined(&TCSETSF); eval 'sub TCGETA () {0x5405;}' unless defined(&TCGETA); eval 'sub TCSETA () {0x5406;}' unless defined(&TCSETA); eval 'sub TCSETAW () {0x5407;}' unless defined(&TCSETAW); eval 'sub TCSETAF () {0x5408;}' unless defined(&TCSETAF); eval 'sub TCSBRK () {0x5409;}' unless defined(&TCSBRK); eval 'sub TCXONC () {0x540a;}' unless defined(&TCXONC); eval 'sub TCFLSH () {0x540b;}' unless defined(&TCFLSH); eval 'sub TIOCEXCL () {0x540c;}' unless defined(&TIOCEXCL); eval 'sub TIOCNXCL () {0x540d;}' unless defined(&TIOCNXCL); eval 'sub TIOCSCTTY () {0x540e;}' unless defined(&TIOCSCTTY); eval 'sub TIOCGPGRP () {0x540f;}' unless defined(&TIOCGPGRP); eval 'sub TIOCSPGRP () {0x5410;}' unless defined(&TIOCSPGRP); eval 'sub TIOCOUTQ () {0x5411;}' unless defined(&TIOCOUTQ); eval 'sub TIOCSTI () {0x5412;}' unless defined(&TIOCSTI); eval 'sub TIOCGWINSZ () {0x5413;}' unless defined(&TIOCGWINSZ); eval 'sub TIOCSWINSZ () {0x5414;}' unless defined(&TIOCSWINSZ); eval 'sub TIOCMGET () {0x5415;}' unless defined(&TIOCMGET); eval 'sub TIOCMBIS () {0x5416;}' unless defined(&TIOCMBIS); eval 'sub TIOCMBIC () {0x5417;}' unless defined(&TIOCMBIC); eval 'sub TIOCMSET () {0x5418;}' unless defined(&TIOCMSET); eval 'sub TIOCGSOFTCAR () {0x5419;}' unless defined(&TIOCGSOFTCAR); eval 'sub TIOCSSOFTCAR () {0x541a;}' unless defined(&TIOCSSOFTCAR); eval 'sub FIONREAD () {0x541b;}' unless defined(&FIONREAD); eval 'sub TIOCINQ () { &FIONREAD;}' unless defined(&TIOCINQ); eval 'sub TIOCLINUX () {0x541c;}' unless defined(&TIOCLINUX); eval 'sub TIOCCONS () {0x541d;}' unless defined(&TIOCCONS); eval 'sub TIOCGSERIAL () {0x541e;}' unless defined(&TIOCGSERIAL); eval 'sub TIOCSSERIAL () {0x541f;}' unless defined(&TIOCSSERIAL); eval 'sub TIOCPKT () {0x5420;}' unless defined(&TIOCPKT); eval 'sub FIONBIO () {0x5421;}' unless defined(&FIONBIO); eval 'sub TIOCNOTTY () {0x5422;}' unless defined(&TIOCNOTTY); eval 'sub TIOCSETD () {0x5423;}' unless defined(&TIOCSETD); eval 'sub TIOCGETD () {0x5424;}' unless defined(&TIOCGETD); eval 'sub TCSBRKP () {0x5425;}' unless defined(&TCSBRKP); eval 'sub TIOCSBRK () {0x5427;}' unless defined(&TIOCSBRK); eval 'sub TIOCCBRK () {0x5428;}' unless defined(&TIOCCBRK); eval 'sub TIOCGSID () {0x5429;}' unless defined(&TIOCGSID); eval 'sub TCGETS2 () { &_IOR(ord(\'T\'), 0x2a, \'struct termios2\');}' unless defined(&TCGETS2); eval 'sub TCSETS2 () { &_IOW(ord(\'T\'), 0x2b, \'struct termios2\');}' unless defined(&TCSETS2); eval 'sub TCSETSW2 () { &_IOW(ord(\'T\'), 0x2c, \'struct termios2\');}' unless defined(&TCSETSW2); eval 'sub TCSETSF2 () { &_IOW(ord(\'T\'), 0x2d, \'struct termios2\');}' unless defined(&TCSETSF2); eval 'sub TIOCGRS485 () {0x542e;}' unless defined(&TIOCGRS485); unless(defined(&TIOCSRS485)) { eval 'sub TIOCSRS485 () {0x542f;}' unless defined(&TIOCSRS485); } eval 'sub TIOCGPTN () { &_IOR(ord(\'T\'), 0x30, \'unsigned int\');}' unless defined(&TIOCGPTN); eval 'sub TIOCSPTLCK () { &_IOW(ord(\'T\'), 0x31, \'int\');}' unless defined(&TIOCSPTLCK); eval 'sub TIOCGDEV () { &_IOR(ord(\'T\'), 0x32, \'unsigned int\');}' unless defined(&TIOCGDEV); eval 'sub TCGETX () {0x5432;}' unless defined(&TCGETX); eval 'sub TCSETX () {0x5433;}' unless defined(&TCSETX); eval 'sub TCSETXF () {0x5434;}' unless defined(&TCSETXF); eval 'sub TCSETXW () {0x5435;}' unless defined(&TCSETXW); eval 'sub TIOCSIG () { &_IOW(ord(\'T\'), 0x36, \'int\');}' unless defined(&TIOCSIG); eval 'sub TIOCVHANGUP () {0x5437;}' unless defined(&TIOCVHANGUP); eval 'sub TIOCGPKT () { &_IOR(ord(\'T\'), 0x38, \'int\');}' unless defined(&TIOCGPKT); eval 'sub TIOCGPTLCK () { &_IOR(ord(\'T\'), 0x39, \'int\');}' unless defined(&TIOCGPTLCK); eval 'sub TIOCGEXCL () { &_IOR(ord(\'T\'), 0x40, \'int\');}' unless defined(&TIOCGEXCL); eval 'sub FIONCLEX () {0x5450;}' unless defined(&FIONCLEX); eval 'sub FIOCLEX () {0x5451;}' unless defined(&FIOCLEX); eval 'sub FIOASYNC () {0x5452;}' unless defined(&FIOASYNC); eval 'sub TIOCSERCONFIG () {0x5453;}' unless defined(&TIOCSERCONFIG); eval 'sub TIOCSERGWILD () {0x5454;}' unless defined(&TIOCSERGWILD); eval 'sub TIOCSERSWILD () {0x5455;}' unless defined(&TIOCSERSWILD); eval 'sub TIOCGLCKTRMIOS () {0x5456;}' unless defined(&TIOCGLCKTRMIOS); eval 'sub TIOCSLCKTRMIOS () {0x5457;}' unless defined(&TIOCSLCKTRMIOS); eval 'sub TIOCSERGSTRUCT () {0x5458;}' unless defined(&TIOCSERGSTRUCT); eval 'sub TIOCSERGETLSR () {0x5459;}' unless defined(&TIOCSERGETLSR); eval 'sub TIOCSERGETMULTI () {0x545a;}' unless defined(&TIOCSERGETMULTI); eval 'sub TIOCSERSETMULTI () {0x545b;}' unless defined(&TIOCSERSETMULTI); eval 'sub TIOCMIWAIT () {0x545c;}' unless defined(&TIOCMIWAIT); eval 'sub TIOCGICOUNT () {0x545d;}' unless defined(&TIOCGICOUNT); unless(defined(&FIOQSIZE)) { eval 'sub FIOQSIZE () {0x5460;}' unless defined(&FIOQSIZE); } eval 'sub TIOCPKT_DATA () {0;}' unless defined(&TIOCPKT_DATA); eval 'sub TIOCPKT_FLUSHREAD () {1;}' unless defined(&TIOCPKT_FLUSHREAD); eval 'sub TIOCPKT_FLUSHWRITE () {2;}' unless defined(&TIOCPKT_FLUSHWRITE); eval 'sub TIOCPKT_STOP () {4;}' unless defined(&TIOCPKT_STOP); eval 'sub TIOCPKT_START () {8;}' unless defined(&TIOCPKT_START); eval 'sub TIOCPKT_NOSTOP () {16;}' unless defined(&TIOCPKT_NOSTOP); eval 'sub TIOCPKT_DOSTOP () {32;}' unless defined(&TIOCPKT_DOSTOP); eval 'sub TIOCPKT_IOCTL () {64;}' unless defined(&TIOCPKT_IOCTL); eval 'sub TIOCSER_TEMT () {0x1;}' unless defined(&TIOCSER_TEMT); } 1; asm-generic/sockios.ph 0000644 00000001233 15231101164 0010732 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__ASM_GENERIC_SOCKIOS_H)) { eval 'sub __ASM_GENERIC_SOCKIOS_H () {1;}' unless defined(&__ASM_GENERIC_SOCKIOS_H); eval 'sub FIOSETOWN () {0x8901;}' unless defined(&FIOSETOWN); eval 'sub SIOCSPGRP () {0x8902;}' unless defined(&SIOCSPGRP); eval 'sub FIOGETOWN () {0x8903;}' unless defined(&FIOGETOWN); eval 'sub SIOCGPGRP () {0x8904;}' unless defined(&SIOCGPGRP); eval 'sub SIOCATMARK () {0x8905;}' unless defined(&SIOCATMARK); eval 'sub SIOCGSTAMP () {0x8906;}' unless defined(&SIOCGSTAMP); eval 'sub SIOCGSTAMPNS () {0x8907;}' unless defined(&SIOCGSTAMPNS); } 1; asm-generic/termbits.ph 0000644 00000020471 15231101164 0011116 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__ASM_GENERIC_TERMBITS_H)) { eval 'sub __ASM_GENERIC_TERMBITS_H () {1;}' unless defined(&__ASM_GENERIC_TERMBITS_H); require 'linux/posix_types.ph'; eval 'sub NCCS () {19;}' unless defined(&NCCS); eval 'sub VINTR () {0;}' unless defined(&VINTR); eval 'sub VQUIT () {1;}' unless defined(&VQUIT); eval 'sub VERASE () {2;}' unless defined(&VERASE); eval 'sub VKILL () {3;}' unless defined(&VKILL); eval 'sub VEOF () {4;}' unless defined(&VEOF); eval 'sub VTIME () {5;}' unless defined(&VTIME); eval 'sub VMIN () {6;}' unless defined(&VMIN); eval 'sub VSWTC () {7;}' unless defined(&VSWTC); eval 'sub VSTART () {8;}' unless defined(&VSTART); eval 'sub VSTOP () {9;}' unless defined(&VSTOP); eval 'sub VSUSP () {10;}' unless defined(&VSUSP); eval 'sub VEOL () {11;}' unless defined(&VEOL); eval 'sub VREPRINT () {12;}' unless defined(&VREPRINT); eval 'sub VDISCARD () {13;}' unless defined(&VDISCARD); eval 'sub VWERASE () {14;}' unless defined(&VWERASE); eval 'sub VLNEXT () {15;}' unless defined(&VLNEXT); eval 'sub VEOL2 () {16;}' unless defined(&VEOL2); eval 'sub IGNBRK () {0000001;}' unless defined(&IGNBRK); eval 'sub BRKINT () {0000002;}' unless defined(&BRKINT); eval 'sub IGNPAR () {0000004;}' unless defined(&IGNPAR); eval 'sub PARMRK () {0000010;}' unless defined(&PARMRK); eval 'sub INPCK () {0000020;}' unless defined(&INPCK); eval 'sub ISTRIP () {0000040;}' unless defined(&ISTRIP); eval 'sub INLCR () {0000100;}' unless defined(&INLCR); eval 'sub IGNCR () {0000200;}' unless defined(&IGNCR); eval 'sub ICRNL () {0000400;}' unless defined(&ICRNL); eval 'sub IUCLC () {0001000;}' unless defined(&IUCLC); eval 'sub IXON () {0002000;}' unless defined(&IXON); eval 'sub IXANY () {0004000;}' unless defined(&IXANY); eval 'sub IXOFF () {0010000;}' unless defined(&IXOFF); eval 'sub IMAXBEL () {0020000;}' unless defined(&IMAXBEL); eval 'sub IUTF8 () {0040000;}' unless defined(&IUTF8); eval 'sub OPOST () {0000001;}' unless defined(&OPOST); eval 'sub OLCUC () {0000002;}' unless defined(&OLCUC); eval 'sub ONLCR () {0000004;}' unless defined(&ONLCR); eval 'sub OCRNL () {0000010;}' unless defined(&OCRNL); eval 'sub ONOCR () {0000020;}' unless defined(&ONOCR); eval 'sub ONLRET () {0000040;}' unless defined(&ONLRET); eval 'sub OFILL () {0000100;}' unless defined(&OFILL); eval 'sub OFDEL () {0000200;}' unless defined(&OFDEL); eval 'sub NLDLY () {0000400;}' unless defined(&NLDLY); eval 'sub NL0 () {0000000;}' unless defined(&NL0); eval 'sub NL1 () {0000400;}' unless defined(&NL1); eval 'sub CRDLY () {0003000;}' unless defined(&CRDLY); eval 'sub CR0 () {0000000;}' unless defined(&CR0); eval 'sub CR1 () {0001000;}' unless defined(&CR1); eval 'sub CR2 () {0002000;}' unless defined(&CR2); eval 'sub CR3 () {0003000;}' unless defined(&CR3); eval 'sub TABDLY () {0014000;}' unless defined(&TABDLY); eval 'sub TAB0 () {0000000;}' unless defined(&TAB0); eval 'sub TAB1 () {0004000;}' unless defined(&TAB1); eval 'sub TAB2 () {0010000;}' unless defined(&TAB2); eval 'sub TAB3 () {0014000;}' unless defined(&TAB3); eval 'sub XTABS () {0014000;}' unless defined(&XTABS); eval 'sub BSDLY () {0020000;}' unless defined(&BSDLY); eval 'sub BS0 () {0000000;}' unless defined(&BS0); eval 'sub BS1 () {0020000;}' unless defined(&BS1); eval 'sub VTDLY () {0040000;}' unless defined(&VTDLY); eval 'sub VT0 () {0000000;}' unless defined(&VT0); eval 'sub VT1 () {0040000;}' unless defined(&VT1); eval 'sub FFDLY () {0100000;}' unless defined(&FFDLY); eval 'sub FF0 () {0000000;}' unless defined(&FF0); eval 'sub FF1 () {0100000;}' unless defined(&FF1); eval 'sub CBAUD () {0010017;}' unless defined(&CBAUD); eval 'sub B0 () {0000000;}' unless defined(&B0); eval 'sub B50 () {0000001;}' unless defined(&B50); eval 'sub B75 () {0000002;}' unless defined(&B75); eval 'sub B110 () {0000003;}' unless defined(&B110); eval 'sub B134 () {0000004;}' unless defined(&B134); eval 'sub B150 () {0000005;}' unless defined(&B150); eval 'sub B200 () {0000006;}' unless defined(&B200); eval 'sub B300 () {0000007;}' unless defined(&B300); eval 'sub B600 () {0000010;}' unless defined(&B600); eval 'sub B1200 () {0000011;}' unless defined(&B1200); eval 'sub B1800 () {0000012;}' unless defined(&B1800); eval 'sub B2400 () {0000013;}' unless defined(&B2400); eval 'sub B4800 () {0000014;}' unless defined(&B4800); eval 'sub B9600 () {0000015;}' unless defined(&B9600); eval 'sub B19200 () {0000016;}' unless defined(&B19200); eval 'sub B38400 () {0000017;}' unless defined(&B38400); eval 'sub EXTA () { &B19200;}' unless defined(&EXTA); eval 'sub EXTB () { &B38400;}' unless defined(&EXTB); eval 'sub CSIZE () {0000060;}' unless defined(&CSIZE); eval 'sub CS5 () {0000000;}' unless defined(&CS5); eval 'sub CS6 () {0000020;}' unless defined(&CS6); eval 'sub CS7 () {0000040;}' unless defined(&CS7); eval 'sub CS8 () {0000060;}' unless defined(&CS8); eval 'sub CSTOPB () {0000100;}' unless defined(&CSTOPB); eval 'sub CREAD () {0000200;}' unless defined(&CREAD); eval 'sub PARENB () {0000400;}' unless defined(&PARENB); eval 'sub PARODD () {0001000;}' unless defined(&PARODD); eval 'sub HUPCL () {0002000;}' unless defined(&HUPCL); eval 'sub CLOCAL () {0004000;}' unless defined(&CLOCAL); eval 'sub CBAUDEX () {0010000;}' unless defined(&CBAUDEX); eval 'sub BOTHER () {0010000;}' unless defined(&BOTHER); eval 'sub B57600 () {0010001;}' unless defined(&B57600); eval 'sub B115200 () {0010002;}' unless defined(&B115200); eval 'sub B230400 () {0010003;}' unless defined(&B230400); eval 'sub B460800 () {0010004;}' unless defined(&B460800); eval 'sub B500000 () {0010005;}' unless defined(&B500000); eval 'sub B576000 () {0010006;}' unless defined(&B576000); eval 'sub B921600 () {0010007;}' unless defined(&B921600); eval 'sub B1000000 () {0010010;}' unless defined(&B1000000); eval 'sub B1152000 () {0010011;}' unless defined(&B1152000); eval 'sub B1500000 () {0010012;}' unless defined(&B1500000); eval 'sub B2000000 () {0010013;}' unless defined(&B2000000); eval 'sub B2500000 () {0010014;}' unless defined(&B2500000); eval 'sub B3000000 () {0010015;}' unless defined(&B3000000); eval 'sub B3500000 () {0010016;}' unless defined(&B3500000); eval 'sub B4000000 () {0010017;}' unless defined(&B4000000); eval 'sub CIBAUD () {002003600000;}' unless defined(&CIBAUD); eval 'sub CMSPAR () {010000000000;}' unless defined(&CMSPAR); eval 'sub CRTSCTS () {020000000000;}' unless defined(&CRTSCTS); eval 'sub IBSHIFT () {16;}' unless defined(&IBSHIFT); eval 'sub ISIG () {0000001;}' unless defined(&ISIG); eval 'sub ICANON () {0000002;}' unless defined(&ICANON); eval 'sub XCASE () {0000004;}' unless defined(&XCASE); eval 'sub ECHO () {0000010;}' unless defined(&ECHO); eval 'sub ECHOE () {0000020;}' unless defined(&ECHOE); eval 'sub ECHOK () {0000040;}' unless defined(&ECHOK); eval 'sub ECHONL () {0000100;}' unless defined(&ECHONL); eval 'sub NOFLSH () {0000200;}' unless defined(&NOFLSH); eval 'sub TOSTOP () {0000400;}' unless defined(&TOSTOP); eval 'sub ECHOCTL () {0001000;}' unless defined(&ECHOCTL); eval 'sub ECHOPRT () {0002000;}' unless defined(&ECHOPRT); eval 'sub ECHOKE () {0004000;}' unless defined(&ECHOKE); eval 'sub FLUSHO () {0010000;}' unless defined(&FLUSHO); eval 'sub PENDIN () {0040000;}' unless defined(&PENDIN); eval 'sub IEXTEN () {0100000;}' unless defined(&IEXTEN); eval 'sub EXTPROC () {0200000;}' unless defined(&EXTPROC); eval 'sub TCOOFF () {0;}' unless defined(&TCOOFF); eval 'sub TCOON () {1;}' unless defined(&TCOON); eval 'sub TCIOFF () {2;}' unless defined(&TCIOFF); eval 'sub TCION () {3;}' unless defined(&TCION); eval 'sub TCIFLUSH () {0;}' unless defined(&TCIFLUSH); eval 'sub TCOFLUSH () {1;}' unless defined(&TCOFLUSH); eval 'sub TCIOFLUSH () {2;}' unless defined(&TCIOFLUSH); eval 'sub TCSANOW () {0;}' unless defined(&TCSANOW); eval 'sub TCSADRAIN () {1;}' unless defined(&TCSADRAIN); eval 'sub TCSAFLUSH () {2;}' unless defined(&TCSAFLUSH); } 1; asm-generic/bitsperlong.ph 0000644 00000000504 15231101164 0011610 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__ASM_GENERIC_BITS_PER_LONG)) { eval 'sub __ASM_GENERIC_BITS_PER_LONG () {1;}' unless defined(&__ASM_GENERIC_BITS_PER_LONG); unless(defined(&__BITS_PER_LONG)) { eval 'sub __BITS_PER_LONG () {32;}' unless defined(&__BITS_PER_LONG); } } 1; asm-generic/termios.ph 0000644 00000002272 15231101164 0010746 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_ASM_GENERIC_TERMIOS_H)) { eval 'sub _ASM_GENERIC_TERMIOS_H () {1;}' unless defined(&_ASM_GENERIC_TERMIOS_H); require 'asm/termbits.ph'; require 'asm/ioctls.ph'; eval 'sub NCC () {8;}' unless defined(&NCC); eval 'sub TIOCM_LE () {0x1;}' unless defined(&TIOCM_LE); eval 'sub TIOCM_DTR () {0x2;}' unless defined(&TIOCM_DTR); eval 'sub TIOCM_RTS () {0x4;}' unless defined(&TIOCM_RTS); eval 'sub TIOCM_ST () {0x8;}' unless defined(&TIOCM_ST); eval 'sub TIOCM_SR () {0x10;}' unless defined(&TIOCM_SR); eval 'sub TIOCM_CTS () {0x20;}' unless defined(&TIOCM_CTS); eval 'sub TIOCM_CAR () {0x40;}' unless defined(&TIOCM_CAR); eval 'sub TIOCM_RNG () {0x80;}' unless defined(&TIOCM_RNG); eval 'sub TIOCM_DSR () {0x100;}' unless defined(&TIOCM_DSR); eval 'sub TIOCM_CD () { &TIOCM_CAR;}' unless defined(&TIOCM_CD); eval 'sub TIOCM_RI () { &TIOCM_RNG;}' unless defined(&TIOCM_RI); eval 'sub TIOCM_OUT1 () {0x2000;}' unless defined(&TIOCM_OUT1); eval 'sub TIOCM_OUT2 () {0x4000;}' unless defined(&TIOCM_OUT2); eval 'sub TIOCM_LOOP () {0x8000;}' unless defined(&TIOCM_LOOP); } 1; asm-generic/socket.ph 0000644 00000010125 15231101164 0010550 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__ASM_GENERIC_SOCKET_H)) { eval 'sub __ASM_GENERIC_SOCKET_H () {1;}' unless defined(&__ASM_GENERIC_SOCKET_H); require 'asm/sockios.ph'; eval 'sub SOL_SOCKET () {1;}' unless defined(&SOL_SOCKET); eval 'sub SO_DEBUG () {1;}' unless defined(&SO_DEBUG); eval 'sub SO_REUSEADDR () {2;}' unless defined(&SO_REUSEADDR); eval 'sub SO_TYPE () {3;}' unless defined(&SO_TYPE); eval 'sub SO_ERROR () {4;}' unless defined(&SO_ERROR); eval 'sub SO_DONTROUTE () {5;}' unless defined(&SO_DONTROUTE); eval 'sub SO_BROADCAST () {6;}' unless defined(&SO_BROADCAST); eval 'sub SO_SNDBUF () {7;}' unless defined(&SO_SNDBUF); eval 'sub SO_RCVBUF () {8;}' unless defined(&SO_RCVBUF); eval 'sub SO_SNDBUFFORCE () {32;}' unless defined(&SO_SNDBUFFORCE); eval 'sub SO_RCVBUFFORCE () {33;}' unless defined(&SO_RCVBUFFORCE); eval 'sub SO_KEEPALIVE () {9;}' unless defined(&SO_KEEPALIVE); eval 'sub SO_OOBINLINE () {10;}' unless defined(&SO_OOBINLINE); eval 'sub SO_NO_CHECK () {11;}' unless defined(&SO_NO_CHECK); eval 'sub SO_PRIORITY () {12;}' unless defined(&SO_PRIORITY); eval 'sub SO_LINGER () {13;}' unless defined(&SO_LINGER); eval 'sub SO_BSDCOMPAT () {14;}' unless defined(&SO_BSDCOMPAT); eval 'sub SO_REUSEPORT () {15;}' unless defined(&SO_REUSEPORT); unless(defined(&SO_PASSCRED)) { eval 'sub SO_PASSCRED () {16;}' unless defined(&SO_PASSCRED); eval 'sub SO_PEERCRED () {17;}' unless defined(&SO_PEERCRED); eval 'sub SO_RCVLOWAT () {18;}' unless defined(&SO_RCVLOWAT); eval 'sub SO_SNDLOWAT () {19;}' unless defined(&SO_SNDLOWAT); eval 'sub SO_RCVTIMEO () {20;}' unless defined(&SO_RCVTIMEO); eval 'sub SO_SNDTIMEO () {21;}' unless defined(&SO_SNDTIMEO); } eval 'sub SO_SECURITY_AUTHENTICATION () {22;}' unless defined(&SO_SECURITY_AUTHENTICATION); eval 'sub SO_SECURITY_ENCRYPTION_TRANSPORT () {23;}' unless defined(&SO_SECURITY_ENCRYPTION_TRANSPORT); eval 'sub SO_SECURITY_ENCRYPTION_NETWORK () {24;}' unless defined(&SO_SECURITY_ENCRYPTION_NETWORK); eval 'sub SO_BINDTODEVICE () {25;}' unless defined(&SO_BINDTODEVICE); eval 'sub SO_ATTACH_FILTER () {26;}' unless defined(&SO_ATTACH_FILTER); eval 'sub SO_DETACH_FILTER () {27;}' unless defined(&SO_DETACH_FILTER); eval 'sub SO_GET_FILTER () { &SO_ATTACH_FILTER;}' unless defined(&SO_GET_FILTER); eval 'sub SO_PEERNAME () {28;}' unless defined(&SO_PEERNAME); eval 'sub SO_TIMESTAMP () {29;}' unless defined(&SO_TIMESTAMP); eval 'sub SCM_TIMESTAMP () { &SO_TIMESTAMP;}' unless defined(&SCM_TIMESTAMP); eval 'sub SO_ACCEPTCONN () {30;}' unless defined(&SO_ACCEPTCONN); eval 'sub SO_PEERSEC () {31;}' unless defined(&SO_PEERSEC); eval 'sub SO_PASSSEC () {34;}' unless defined(&SO_PASSSEC); eval 'sub SO_TIMESTAMPNS () {35;}' unless defined(&SO_TIMESTAMPNS); eval 'sub SCM_TIMESTAMPNS () { &SO_TIMESTAMPNS;}' unless defined(&SCM_TIMESTAMPNS); eval 'sub SO_MARK () {36;}' unless defined(&SO_MARK); eval 'sub SO_TIMESTAMPING () {37;}' unless defined(&SO_TIMESTAMPING); eval 'sub SCM_TIMESTAMPING () { &SO_TIMESTAMPING;}' unless defined(&SCM_TIMESTAMPING); eval 'sub SO_PROTOCOL () {38;}' unless defined(&SO_PROTOCOL); eval 'sub SO_DOMAIN () {39;}' unless defined(&SO_DOMAIN); eval 'sub SO_RXQ_OVFL () {40;}' unless defined(&SO_RXQ_OVFL); eval 'sub SO_WIFI_STATUS () {41;}' unless defined(&SO_WIFI_STATUS); eval 'sub SCM_WIFI_STATUS () { &SO_WIFI_STATUS;}' unless defined(&SCM_WIFI_STATUS); eval 'sub SO_PEEK_OFF () {42;}' unless defined(&SO_PEEK_OFF); eval 'sub SO_NOFCS () {43;}' unless defined(&SO_NOFCS); eval 'sub SO_LOCK_FILTER () {44;}' unless defined(&SO_LOCK_FILTER); eval 'sub SO_SELECT_ERR_QUEUE () {45;}' unless defined(&SO_SELECT_ERR_QUEUE); eval 'sub SO_BUSY_POLL () {46;}' unless defined(&SO_BUSY_POLL); eval 'sub SO_MAX_PACING_RATE () {47;}' unless defined(&SO_MAX_PACING_RATE); eval 'sub SO_BPF_EXTENSIONS () {48;}' unless defined(&SO_BPF_EXTENSIONS); eval 'sub SCM_TIMESTAMPING_PKTINFO () {58;}' unless defined(&SCM_TIMESTAMPING_PKTINFO); } 1; asm-generic/ioctl.ph 0000644 00000007734 15231101164 0010406 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_ASM_GENERIC_IOCTL_H)) { eval 'sub _ASM_GENERIC_IOCTL_H () {1;}' unless defined(&_ASM_GENERIC_IOCTL_H); eval 'sub _IOC_NRBITS () {8;}' unless defined(&_IOC_NRBITS); eval 'sub _IOC_TYPEBITS () {8;}' unless defined(&_IOC_TYPEBITS); unless(defined(&_IOC_SIZEBITS)) { eval 'sub _IOC_SIZEBITS () {14;}' unless defined(&_IOC_SIZEBITS); } unless(defined(&_IOC_DIRBITS)) { eval 'sub _IOC_DIRBITS () {2;}' unless defined(&_IOC_DIRBITS); } eval 'sub _IOC_NRMASK () {((1<< &_IOC_NRBITS)-1);}' unless defined(&_IOC_NRMASK); eval 'sub _IOC_TYPEMASK () {((1<< &_IOC_TYPEBITS)-1);}' unless defined(&_IOC_TYPEMASK); eval 'sub _IOC_SIZEMASK () {((1<< &_IOC_SIZEBITS)-1);}' unless defined(&_IOC_SIZEMASK); eval 'sub _IOC_DIRMASK () {((1<< &_IOC_DIRBITS)-1);}' unless defined(&_IOC_DIRMASK); eval 'sub _IOC_NRSHIFT () {0;}' unless defined(&_IOC_NRSHIFT); eval 'sub _IOC_TYPESHIFT () {( &_IOC_NRSHIFT+ &_IOC_NRBITS);}' unless defined(&_IOC_TYPESHIFT); eval 'sub _IOC_SIZESHIFT () {( &_IOC_TYPESHIFT+ &_IOC_TYPEBITS);}' unless defined(&_IOC_SIZESHIFT); eval 'sub _IOC_DIRSHIFT () {( &_IOC_SIZESHIFT+ &_IOC_SIZEBITS);}' unless defined(&_IOC_DIRSHIFT); unless(defined(&_IOC_NONE)) { eval 'sub _IOC_NONE () {0;}' unless defined(&_IOC_NONE); } unless(defined(&_IOC_WRITE)) { eval 'sub _IOC_WRITE () {1;}' unless defined(&_IOC_WRITE); } unless(defined(&_IOC_READ)) { eval 'sub _IOC_READ () {2;}' unless defined(&_IOC_READ); } eval 'sub _IOC { my($dir,$type,$nr,$size) = @_; eval q(((($dir) << &_IOC_DIRSHIFT) | (($type) << &_IOC_TYPESHIFT) | (($nr) << &_IOC_NRSHIFT) | (($size) << &_IOC_SIZESHIFT))); }' unless defined(&_IOC); eval 'sub _IOC_TYPECHECK { my($t) = @_; eval q(($sizeof{$t})); }' unless defined(&_IOC_TYPECHECK); eval 'sub _IO { my($type,$nr) = @_; eval q( &_IOC( &_IOC_NONE,($type),($nr),0)); }' unless defined(&_IO); eval 'sub _IOR { my($type,$nr,$size) = @_; eval q( &_IOC( &_IOC_READ,($type),($nr),( &_IOC_TYPECHECK($size)))); }' unless defined(&_IOR); eval 'sub _IOW { my($type,$nr,$size) = @_; eval q( &_IOC( &_IOC_WRITE,($type),($nr),( &_IOC_TYPECHECK($size)))); }' unless defined(&_IOW); eval 'sub _IOWR { my($type,$nr,$size) = @_; eval q( &_IOC( &_IOC_READ| &_IOC_WRITE,($type),($nr),( &_IOC_TYPECHECK($size)))); }' unless defined(&_IOWR); eval 'sub _IOR_BAD { my($type,$nr,$size) = @_; eval q( &_IOC( &_IOC_READ,($type),($nr),$sizeof{$size})); }' unless defined(&_IOR_BAD); eval 'sub _IOW_BAD { my($type,$nr,$size) = @_; eval q( &_IOC( &_IOC_WRITE,($type),($nr),$sizeof{$size})); }' unless defined(&_IOW_BAD); eval 'sub _IOWR_BAD { my($type,$nr,$size) = @_; eval q( &_IOC( &_IOC_READ| &_IOC_WRITE,($type),($nr),$sizeof{$size})); }' unless defined(&_IOWR_BAD); eval 'sub _IOC_DIR { my($nr) = @_; eval q(((($nr) >> &_IOC_DIRSHIFT) & &_IOC_DIRMASK)); }' unless defined(&_IOC_DIR); eval 'sub _IOC_TYPE { my($nr) = @_; eval q(((($nr) >> &_IOC_TYPESHIFT) & &_IOC_TYPEMASK)); }' unless defined(&_IOC_TYPE); eval 'sub _IOC_NR { my($nr) = @_; eval q(((($nr) >> &_IOC_NRSHIFT) & &_IOC_NRMASK)); }' unless defined(&_IOC_NR); eval 'sub _IOC_SIZE { my($nr) = @_; eval q(((($nr) >> &_IOC_SIZESHIFT) & &_IOC_SIZEMASK)); }' unless defined(&_IOC_SIZE); eval 'sub IOC_IN () {( &_IOC_WRITE << &_IOC_DIRSHIFT);}' unless defined(&IOC_IN); eval 'sub IOC_OUT () {( &_IOC_READ << &_IOC_DIRSHIFT);}' unless defined(&IOC_OUT); eval 'sub IOC_INOUT () {(( &_IOC_WRITE| &_IOC_READ) << &_IOC_DIRSHIFT);}' unless defined(&IOC_INOUT); eval 'sub IOCSIZE_MASK () {( &_IOC_SIZEMASK << &_IOC_SIZESHIFT);}' unless defined(&IOCSIZE_MASK); eval 'sub IOCSIZE_SHIFT () {( &_IOC_SIZESHIFT);}' unless defined(&IOCSIZE_SHIFT); } 1; ops.pm 0000644 00000001745 15231101164 0005704 0 ustar 00 package ops; our $VERSION = '1.02'; use Opcode qw(opmask_add opset invert_opset); sub import { shift; # Not that unimport is the preferred form since import's don't # accumulate well owing to the 'only ever add opmask' rule. # E.g., perl -Mops=:set1 -Mops=:setb is unlikely to do as expected. opmask_add(invert_opset opset(@_)) if @_; } sub unimport { shift; opmask_add(opset(@_)) if @_; } 1; __END__ =head1 NAME ops - Perl pragma to restrict unsafe operations when compiling =head1 SYNOPSIS perl -Mops=:default ... # only allow reasonably safe operations perl -M-ops=system ... # disable the 'system' opcode =head1 DESCRIPTION Since the C<ops> pragma currently has an irreversible global effect, it is only of significant practical use with the C<-M> option on the command line. See the L<Opcode> module for information about opcodes, optags, opmasks and important information about safety. =head1 SEE ALSO L<Opcode>, L<Safe>, L<perlrun> =cut features.ph 0000644 00000027362 15231101164 0006717 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_FEATURES_H)) { eval 'sub _FEATURES_H () {1;}' unless defined(&_FEATURES_H); undef(&__USE_ISOC11) if defined(&__USE_ISOC11); undef(&__USE_ISOC99) if defined(&__USE_ISOC99); undef(&__USE_ISOC95) if defined(&__USE_ISOC95); undef(&__USE_ISOCXX11) if defined(&__USE_ISOCXX11); undef(&__USE_POSIX) if defined(&__USE_POSIX); undef(&__USE_POSIX2) if defined(&__USE_POSIX2); undef(&__USE_POSIX199309) if defined(&__USE_POSIX199309); undef(&__USE_POSIX199506) if defined(&__USE_POSIX199506); undef(&__USE_XOPEN) if defined(&__USE_XOPEN); undef(&__USE_XOPEN_EXTENDED) if defined(&__USE_XOPEN_EXTENDED); undef(&__USE_UNIX98) if defined(&__USE_UNIX98); undef(&__USE_XOPEN2K) if defined(&__USE_XOPEN2K); undef(&__USE_XOPEN2KXSI) if defined(&__USE_XOPEN2KXSI); undef(&__USE_XOPEN2K8) if defined(&__USE_XOPEN2K8); undef(&__USE_XOPEN2K8XSI) if defined(&__USE_XOPEN2K8XSI); undef(&__USE_LARGEFILE) if defined(&__USE_LARGEFILE); undef(&__USE_LARGEFILE64) if defined(&__USE_LARGEFILE64); undef(&__USE_FILE_OFFSET64) if defined(&__USE_FILE_OFFSET64); undef(&__USE_BSD) if defined(&__USE_BSD); undef(&__USE_SVID) if defined(&__USE_SVID); undef(&__USE_MISC) if defined(&__USE_MISC); undef(&__USE_ATFILE) if defined(&__USE_ATFILE); undef(&__USE_GNU) if defined(&__USE_GNU); undef(&__USE_REENTRANT) if defined(&__USE_REENTRANT); undef(&__USE_FORTIFY_LEVEL) if defined(&__USE_FORTIFY_LEVEL); undef(&__FAVOR_BSD) if defined(&__FAVOR_BSD); undef(&__KERNEL_STRICT_NAMES) if defined(&__KERNEL_STRICT_NAMES); unless(defined(&_LOOSE_KERNEL_NAMES)) { eval 'sub __KERNEL_STRICT_NAMES () {1;}' unless defined(&__KERNEL_STRICT_NAMES); } eval 'sub __USE_ANSI () {1;}' unless defined(&__USE_ANSI); if(defined (&__GNUC__) && defined (&__GNUC_MINOR__)) { eval 'sub __GNUC_PREREQ { my($maj, $min) = @_; eval q((( &__GNUC__ << 16) + &__GNUC_MINOR__ >= (($maj) << 16) + ($min))); }' unless defined(&__GNUC_PREREQ); } else { eval 'sub __GNUC_PREREQ { my($maj, $min) = @_; eval q(0); }' unless defined(&__GNUC_PREREQ); } if(defined (&_BSD_SOURCE) && !(defined (&_POSIX_SOURCE) || defined (&_POSIX_C_SOURCE) || defined (&_XOPEN_SOURCE) || defined (&_GNU_SOURCE) || defined (&_SVID_SOURCE))) { eval 'sub __FAVOR_BSD () {1;}' unless defined(&__FAVOR_BSD); } if(defined(&_GNU_SOURCE)) { undef(&_ISOC95_SOURCE) if defined(&_ISOC95_SOURCE); eval 'sub _ISOC95_SOURCE () {1;}' unless defined(&_ISOC95_SOURCE); undef(&_ISOC99_SOURCE) if defined(&_ISOC99_SOURCE); eval 'sub _ISOC99_SOURCE () {1;}' unless defined(&_ISOC99_SOURCE); undef(&_ISOC11_SOURCE) if defined(&_ISOC11_SOURCE); eval 'sub _ISOC11_SOURCE () {1;}' unless defined(&_ISOC11_SOURCE); undef(&_POSIX_SOURCE) if defined(&_POSIX_SOURCE); eval 'sub _POSIX_SOURCE () {1;}' unless defined(&_POSIX_SOURCE); undef(&_POSIX_C_SOURCE) if defined(&_POSIX_C_SOURCE); eval 'sub _POSIX_C_SOURCE () {200809;}' unless defined(&_POSIX_C_SOURCE); undef(&_XOPEN_SOURCE) if defined(&_XOPEN_SOURCE); eval 'sub _XOPEN_SOURCE () {700;}' unless defined(&_XOPEN_SOURCE); undef(&_XOPEN_SOURCE_EXTENDED) if defined(&_XOPEN_SOURCE_EXTENDED); eval 'sub _XOPEN_SOURCE_EXTENDED () {1;}' unless defined(&_XOPEN_SOURCE_EXTENDED); undef(&_LARGEFILE64_SOURCE) if defined(&_LARGEFILE64_SOURCE); eval 'sub _LARGEFILE64_SOURCE () {1;}' unless defined(&_LARGEFILE64_SOURCE); undef(&_BSD_SOURCE) if defined(&_BSD_SOURCE); eval 'sub _BSD_SOURCE () {1;}' unless defined(&_BSD_SOURCE); undef(&_SVID_SOURCE) if defined(&_SVID_SOURCE); eval 'sub _SVID_SOURCE () {1;}' unless defined(&_SVID_SOURCE); undef(&_ATFILE_SOURCE) if defined(&_ATFILE_SOURCE); eval 'sub _ATFILE_SOURCE () {1;}' unless defined(&_ATFILE_SOURCE); } if((!defined (&__STRICT_ANSI__) && !defined (&_ISOC99_SOURCE) && !defined (&_POSIX_SOURCE) && !defined (&_POSIX_C_SOURCE) && !defined (&_XOPEN_SOURCE) && !defined (&_BSD_SOURCE) && !defined (&_SVID_SOURCE))) { eval 'sub _BSD_SOURCE () {1;}' unless defined(&_BSD_SOURCE); eval 'sub _SVID_SOURCE () {1;}' unless defined(&_SVID_SOURCE); } if((defined (&_ISOC11_SOURCE) || (defined (&__STDC_VERSION__) && (defined(&__STDC_VERSION__) ? &__STDC_VERSION__ : undef) >= 201112))) { eval 'sub __USE_ISOC11 () {1;}' unless defined(&__USE_ISOC11); } if((defined (&_ISOC99_SOURCE) || defined (&_ISOC11_SOURCE) || (defined (&__STDC_VERSION__) && (defined(&__STDC_VERSION__) ? &__STDC_VERSION__ : undef) >= 199901))) { eval 'sub __USE_ISOC99 () {1;}' unless defined(&__USE_ISOC99); } if((defined (&_ISOC99_SOURCE) || defined (&_ISOC11_SOURCE) || (defined (&__STDC_VERSION__) && (defined(&__STDC_VERSION__) ? &__STDC_VERSION__ : undef) >= 199409))) { eval 'sub __USE_ISOC95 () {1;}' unless defined(&__USE_ISOC95); } if(((defined (&__cplusplus) && (defined(&__cplusplus) ? &__cplusplus : undef) >= 201103) || defined (&__GXX_EXPERIMENTAL_CXX0X__))) { eval 'sub __USE_ISOCXX11 () {1;}' unless defined(&__USE_ISOCXX11); } if(((!defined (&__STRICT_ANSI__) || ((defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : undef) - 0) >= 500) && !defined (&_POSIX_SOURCE) && !defined (&_POSIX_C_SOURCE))) { eval 'sub _POSIX_SOURCE () {1;}' unless defined(&_POSIX_SOURCE); if(defined (&_XOPEN_SOURCE) && ((defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : undef) - 0) < 500) { eval 'sub _POSIX_C_SOURCE () {2;}' unless defined(&_POSIX_C_SOURCE); } elsif(defined (&_XOPEN_SOURCE) && ((defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : undef) - 0) < 600) { eval 'sub _POSIX_C_SOURCE () {199506;}' unless defined(&_POSIX_C_SOURCE); } elsif(defined (&_XOPEN_SOURCE) && ((defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : undef) - 0) < 700) { eval 'sub _POSIX_C_SOURCE () {200112;}' unless defined(&_POSIX_C_SOURCE); } else { eval 'sub _POSIX_C_SOURCE () {200809;}' unless defined(&_POSIX_C_SOURCE); } eval 'sub __USE_POSIX_IMPLICITLY () {1;}' unless defined(&__USE_POSIX_IMPLICITLY); } if(defined (&_POSIX_SOURCE) || (defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : undef) >= 1|| defined (&_XOPEN_SOURCE)) { eval 'sub __USE_POSIX () {1;}' unless defined(&__USE_POSIX); } if(defined (&_POSIX_C_SOURCE) && (defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : undef) >= 2|| defined (&_XOPEN_SOURCE)) { eval 'sub __USE_POSIX2 () {1;}' unless defined(&__USE_POSIX2); } if(((defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : undef) - 0) >= 199309) { eval 'sub __USE_POSIX199309 () {1;}' unless defined(&__USE_POSIX199309); } if(((defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : undef) - 0) >= 199506) { eval 'sub __USE_POSIX199506 () {1;}' unless defined(&__USE_POSIX199506); } if(((defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : undef) - 0) >= 200112) { eval 'sub __USE_XOPEN2K () {1;}' unless defined(&__USE_XOPEN2K); undef(&__USE_ISOC95) if defined(&__USE_ISOC95); eval 'sub __USE_ISOC95 () {1;}' unless defined(&__USE_ISOC95); undef(&__USE_ISOC99) if defined(&__USE_ISOC99); eval 'sub __USE_ISOC99 () {1;}' unless defined(&__USE_ISOC99); } if(((defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : undef) - 0) >= 200809) { eval 'sub __USE_XOPEN2K8 () {1;}' unless defined(&__USE_XOPEN2K8); undef(&_ATFILE_SOURCE) if defined(&_ATFILE_SOURCE); eval 'sub _ATFILE_SOURCE () {1;}' unless defined(&_ATFILE_SOURCE); } if(defined(&_XOPEN_SOURCE)) { eval 'sub __USE_XOPEN () {1;}' unless defined(&__USE_XOPEN); if(((defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : undef) - 0) >= 500) { eval 'sub __USE_XOPEN_EXTENDED () {1;}' unless defined(&__USE_XOPEN_EXTENDED); eval 'sub __USE_UNIX98 () {1;}' unless defined(&__USE_UNIX98); undef(&_LARGEFILE_SOURCE) if defined(&_LARGEFILE_SOURCE); eval 'sub _LARGEFILE_SOURCE () {1;}' unless defined(&_LARGEFILE_SOURCE); if(((defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : undef) - 0) >= 600) { if(((defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : undef) - 0) >= 700) { eval 'sub __USE_XOPEN2K8 () {1;}' unless defined(&__USE_XOPEN2K8); eval 'sub __USE_XOPEN2K8XSI () {1;}' unless defined(&__USE_XOPEN2K8XSI); } eval 'sub __USE_XOPEN2K () {1;}' unless defined(&__USE_XOPEN2K); eval 'sub __USE_XOPEN2KXSI () {1;}' unless defined(&__USE_XOPEN2KXSI); undef(&__USE_ISOC95) if defined(&__USE_ISOC95); eval 'sub __USE_ISOC95 () {1;}' unless defined(&__USE_ISOC95); undef(&__USE_ISOC99) if defined(&__USE_ISOC99); eval 'sub __USE_ISOC99 () {1;}' unless defined(&__USE_ISOC99); } } else { if(defined(&_XOPEN_SOURCE_EXTENDED)) { eval 'sub __USE_XOPEN_EXTENDED () {1;}' unless defined(&__USE_XOPEN_EXTENDED); } } } if(defined(&_LARGEFILE_SOURCE)) { eval 'sub __USE_LARGEFILE () {1;}' unless defined(&__USE_LARGEFILE); } if(defined(&_LARGEFILE64_SOURCE)) { eval 'sub __USE_LARGEFILE64 () {1;}' unless defined(&__USE_LARGEFILE64); } if(defined (&_FILE_OFFSET_BITS) && (defined(&_FILE_OFFSET_BITS) ? &_FILE_OFFSET_BITS : undef) == 64) { eval 'sub __USE_FILE_OFFSET64 () {1;}' unless defined(&__USE_FILE_OFFSET64); } if(defined (&_BSD_SOURCE) || defined (&_SVID_SOURCE)) { eval 'sub __USE_MISC () {1;}' unless defined(&__USE_MISC); } if(defined(&_BSD_SOURCE)) { eval 'sub __USE_BSD () {1;}' unless defined(&__USE_BSD); } if(defined(&_SVID_SOURCE)) { eval 'sub __USE_SVID () {1;}' unless defined(&__USE_SVID); } if(defined(&_ATFILE_SOURCE)) { eval 'sub __USE_ATFILE () {1;}' unless defined(&__USE_ATFILE); } if(defined(&_GNU_SOURCE)) { eval 'sub __USE_GNU () {1;}' unless defined(&__USE_GNU); } if(defined (&_REENTRANT) || defined (&_THREAD_SAFE)) { eval 'sub __USE_REENTRANT () {1;}' unless defined(&__USE_REENTRANT); } if(defined (&_FORTIFY_SOURCE) && (defined(&_FORTIFY_SOURCE) ? &_FORTIFY_SOURCE : undef) > 0) { if(!defined (&__OPTIMIZE__) || (defined(&__OPTIMIZE__) ? &__OPTIMIZE__ : undef) <= 0) { warn("_FORTIFY_SOURCE\ requires\ compiling\ with\ optimization\ \(\-O\)"); } elsif(! &__GNUC_PREREQ (4, 1)) { warn("_FORTIFY_SOURCE\ requires\ GCC\ 4\.1\ or\ later"); } elsif((defined(&_FORTIFY_SOURCE) ? &_FORTIFY_SOURCE : undef) > 1) { eval 'sub __USE_FORTIFY_LEVEL () {2;}' unless defined(&__USE_FORTIFY_LEVEL); } else { eval 'sub __USE_FORTIFY_LEVEL () {1;}' unless defined(&__USE_FORTIFY_LEVEL); } } unless(defined(&__USE_FORTIFY_LEVEL)) { eval 'sub __USE_FORTIFY_LEVEL () {0;}' unless defined(&__USE_FORTIFY_LEVEL); } require 'stdc-predef.ph'; undef(&__GNU_LIBRARY__) if defined(&__GNU_LIBRARY__); eval 'sub __GNU_LIBRARY__ () {6;}' unless defined(&__GNU_LIBRARY__); eval 'sub __GLIBC__ () {2;}' unless defined(&__GLIBC__); eval 'sub __GLIBC_MINOR__ () {17;}' unless defined(&__GLIBC_MINOR__); eval 'sub __GLIBC_PREREQ { my($maj, $min) = @_; eval q((( &__GLIBC__ << 16) + &__GLIBC_MINOR__ >= (($maj) << 16) + ($min))); }' unless defined(&__GLIBC_PREREQ); if(defined (&__GNUC__) || (defined (&__PGI) && defined (&__i386__) ) || (defined (&__INTEL_COMPILER) && (defined (&__i386__) || defined (&__ia64__))) || (defined (&__STDC_VERSION__) && (defined(&__STDC_VERSION__) ? &__STDC_VERSION__ : undef) >= 199901)) { eval 'sub __GLIBC_HAVE_LONG_LONG () {1;}' unless defined(&__GLIBC_HAVE_LONG_LONG); } unless(defined(&__ASSEMBLER__)) { unless(defined(&_SYS_CDEFS_H)) { require 'sys/cdefs.ph'; } if(defined (&__USE_FILE_OFFSET64) && !defined (&__REDIRECT)) { eval 'sub __USE_LARGEFILE () {1;}' unless defined(&__USE_LARGEFILE); eval 'sub __USE_LARGEFILE64 () {1;}' unless defined(&__USE_LARGEFILE64); } } if( &__GNUC_PREREQ (2, 7) && defined (&__OPTIMIZE__) && !defined (&__OPTIMIZE_SIZE__) && !defined (&__NO_INLINE__) && defined (&__extern_inline)) { eval 'sub __USE_EXTERN_INLINES () {1;}' unless defined(&__USE_EXTERN_INLINES); } require 'gnu/stubs.ph'; } 1; IO.pm 0000644 00000002570 15231101164 0005407 0 ustar 00 # package IO; use XSLoader (); use Carp; use strict; use warnings; our $VERSION = "1.25_06"; XSLoader::load 'IO', $VERSION; sub import { shift; warnings::warnif('deprecated', qq{Parameterless "use IO" deprecated}) if @_ == 0 ; my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir); eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l) or croak $@; } 1; __END__ =head1 NAME IO - load various IO modules =head1 SYNOPSIS use IO qw(Handle File); # loads IO modules, here IO::Handle, IO::File use IO; # DEPRECATED =head1 DESCRIPTION C<IO> provides a simple mechanism to load several of the IO modules in one go. The IO modules belonging to the core are: IO::Handle IO::Seekable IO::File IO::Pipe IO::Socket IO::Dir IO::Select IO::Poll Some other IO modules don't belong to the perl core but can be loaded as well if they have been installed from CPAN. You can discover which ones exist by searching for "^IO::" on http://search.cpan.org. For more information on any of these modules, please see its respective documentation. =head1 DEPRECATED use IO; # loads all the modules listed below The loaded modules are IO::Handle, IO::Seekable, IO::File, IO::Pipe, IO::Socket, IO::Dir. You should instead explicitly import the IO modules you want. =cut asm/posix_types.ph 0000644 00000000360 15231101164 0010234 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); if(defined(&__i386__)) { require 'asm/posix_types_32.ph'; } elsif(defined(&__ILP32__)) { require 'asm/posix_types_x32.ph'; } else { require 'asm/posix_types_64.ph'; } 1; asm/unistd_x32.ph 0000644 00000074010 15231101164 0007653 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_ASM_X86_UNISTD_X32_H)) { eval 'sub _ASM_X86_UNISTD_X32_H () {1;}' unless defined(&_ASM_X86_UNISTD_X32_H); eval 'sub __NR_read () {( &__X32_SYSCALL_BIT + 0);}' unless defined(&__NR_read); eval 'sub __NR_write () {( &__X32_SYSCALL_BIT + 1);}' unless defined(&__NR_write); eval 'sub __NR_open () {( &__X32_SYSCALL_BIT + 2);}' unless defined(&__NR_open); eval 'sub __NR_close () {( &__X32_SYSCALL_BIT + 3);}' unless defined(&__NR_close); eval 'sub __NR_stat () {( &__X32_SYSCALL_BIT + 4);}' unless defined(&__NR_stat); eval 'sub __NR_fstat () {( &__X32_SYSCALL_BIT + 5);}' unless defined(&__NR_fstat); eval 'sub __NR_lstat () {( &__X32_SYSCALL_BIT + 6);}' unless defined(&__NR_lstat); eval 'sub __NR_poll () {( &__X32_SYSCALL_BIT + 7);}' unless defined(&__NR_poll); eval 'sub __NR_lseek () {( &__X32_SYSCALL_BIT + 8);}' unless defined(&__NR_lseek); eval 'sub __NR_mmap () {( &__X32_SYSCALL_BIT + 9);}' unless defined(&__NR_mmap); eval 'sub __NR_mprotect () {( &__X32_SYSCALL_BIT + 10);}' unless defined(&__NR_mprotect); eval 'sub __NR_munmap () {( &__X32_SYSCALL_BIT + 11);}' unless defined(&__NR_munmap); eval 'sub __NR_brk () {( &__X32_SYSCALL_BIT + 12);}' unless defined(&__NR_brk); eval 'sub __NR_rt_sigprocmask () {( &__X32_SYSCALL_BIT + 14);}' unless defined(&__NR_rt_sigprocmask); eval 'sub __NR_pread64 () {( &__X32_SYSCALL_BIT + 17);}' unless defined(&__NR_pread64); eval 'sub __NR_pwrite64 () {( &__X32_SYSCALL_BIT + 18);}' unless defined(&__NR_pwrite64); eval 'sub __NR_access () {( &__X32_SYSCALL_BIT + 21);}' unless defined(&__NR_access); eval 'sub __NR_pipe () {( &__X32_SYSCALL_BIT + 22);}' unless defined(&__NR_pipe); eval 'sub __NR_select () {( &__X32_SYSCALL_BIT + 23);}' unless defined(&__NR_select); eval 'sub __NR_sched_yield () {( &__X32_SYSCALL_BIT + 24);}' unless defined(&__NR_sched_yield); eval 'sub __NR_mremap () {( &__X32_SYSCALL_BIT + 25);}' unless defined(&__NR_mremap); eval 'sub __NR_msync () {( &__X32_SYSCALL_BIT + 26);}' unless defined(&__NR_msync); eval 'sub __NR_mincore () {( &__X32_SYSCALL_BIT + 27);}' unless defined(&__NR_mincore); eval 'sub __NR_madvise () {( &__X32_SYSCALL_BIT + 28);}' unless defined(&__NR_madvise); eval 'sub __NR_shmget () {( &__X32_SYSCALL_BIT + 29);}' unless defined(&__NR_shmget); eval 'sub __NR_shmat () {( &__X32_SYSCALL_BIT + 30);}' unless defined(&__NR_shmat); eval 'sub __NR_shmctl () {( &__X32_SYSCALL_BIT + 31);}' unless defined(&__NR_shmctl); eval 'sub __NR_dup () {( &__X32_SYSCALL_BIT + 32);}' unless defined(&__NR_dup); eval 'sub __NR_dup2 () {( &__X32_SYSCALL_BIT + 33);}' unless defined(&__NR_dup2); eval 'sub __NR_pause () {( &__X32_SYSCALL_BIT + 34);}' unless defined(&__NR_pause); eval 'sub __NR_nanosleep () {( &__X32_SYSCALL_BIT + 35);}' unless defined(&__NR_nanosleep); eval 'sub __NR_getitimer () {( &__X32_SYSCALL_BIT + 36);}' unless defined(&__NR_getitimer); eval 'sub __NR_alarm () {( &__X32_SYSCALL_BIT + 37);}' unless defined(&__NR_alarm); eval 'sub __NR_setitimer () {( &__X32_SYSCALL_BIT + 38);}' unless defined(&__NR_setitimer); eval 'sub __NR_getpid () {( &__X32_SYSCALL_BIT + 39);}' unless defined(&__NR_getpid); eval 'sub __NR_sendfile () {( &__X32_SYSCALL_BIT + 40);}' unless defined(&__NR_sendfile); eval 'sub __NR_socket () {( &__X32_SYSCALL_BIT + 41);}' unless defined(&__NR_socket); eval 'sub __NR_connect () {( &__X32_SYSCALL_BIT + 42);}' unless defined(&__NR_connect); eval 'sub __NR_accept () {( &__X32_SYSCALL_BIT + 43);}' unless defined(&__NR_accept); eval 'sub __NR_sendto () {( &__X32_SYSCALL_BIT + 44);}' unless defined(&__NR_sendto); eval 'sub __NR_shutdown () {( &__X32_SYSCALL_BIT + 48);}' unless defined(&__NR_shutdown); eval 'sub __NR_bind () {( &__X32_SYSCALL_BIT + 49);}' unless defined(&__NR_bind); eval 'sub __NR_listen () {( &__X32_SYSCALL_BIT + 50);}' unless defined(&__NR_listen); eval 'sub __NR_getsockname () {( &__X32_SYSCALL_BIT + 51);}' unless defined(&__NR_getsockname); eval 'sub __NR_getpeername () {( &__X32_SYSCALL_BIT + 52);}' unless defined(&__NR_getpeername); eval 'sub __NR_socketpair () {( &__X32_SYSCALL_BIT + 53);}' unless defined(&__NR_socketpair); eval 'sub __NR_clone () {( &__X32_SYSCALL_BIT + 56);}' unless defined(&__NR_clone); eval 'sub __NR_fork () {( &__X32_SYSCALL_BIT + 57);}' unless defined(&__NR_fork); eval 'sub __NR_vfork () {( &__X32_SYSCALL_BIT + 58);}' unless defined(&__NR_vfork); eval 'sub __NR_exit () {( &__X32_SYSCALL_BIT + 60);}' unless defined(&__NR_exit); eval 'sub __NR_wait4 () {( &__X32_SYSCALL_BIT + 61);}' unless defined(&__NR_wait4); eval 'sub __NR_kill () {( &__X32_SYSCALL_BIT + 62);}' unless defined(&__NR_kill); eval 'sub __NR_uname () {( &__X32_SYSCALL_BIT + 63);}' unless defined(&__NR_uname); eval 'sub __NR_semget () {( &__X32_SYSCALL_BIT + 64);}' unless defined(&__NR_semget); eval 'sub __NR_semop () {( &__X32_SYSCALL_BIT + 65);}' unless defined(&__NR_semop); eval 'sub __NR_semctl () {( &__X32_SYSCALL_BIT + 66);}' unless defined(&__NR_semctl); eval 'sub __NR_shmdt () {( &__X32_SYSCALL_BIT + 67);}' unless defined(&__NR_shmdt); eval 'sub __NR_msgget () {( &__X32_SYSCALL_BIT + 68);}' unless defined(&__NR_msgget); eval 'sub __NR_msgsnd () {( &__X32_SYSCALL_BIT + 69);}' unless defined(&__NR_msgsnd); eval 'sub __NR_msgrcv () {( &__X32_SYSCALL_BIT + 70);}' unless defined(&__NR_msgrcv); eval 'sub __NR_msgctl () {( &__X32_SYSCALL_BIT + 71);}' unless defined(&__NR_msgctl); eval 'sub __NR_fcntl () {( &__X32_SYSCALL_BIT + 72);}' unless defined(&__NR_fcntl); eval 'sub __NR_flock () {( &__X32_SYSCALL_BIT + 73);}' unless defined(&__NR_flock); eval 'sub __NR_fsync () {( &__X32_SYSCALL_BIT + 74);}' unless defined(&__NR_fsync); eval 'sub __NR_fdatasync () {( &__X32_SYSCALL_BIT + 75);}' unless defined(&__NR_fdatasync); eval 'sub __NR_truncate () {( &__X32_SYSCALL_BIT + 76);}' unless defined(&__NR_truncate); eval 'sub __NR_ftruncate () {( &__X32_SYSCALL_BIT + 77);}' unless defined(&__NR_ftruncate); eval 'sub __NR_getdents () {( &__X32_SYSCALL_BIT + 78);}' unless defined(&__NR_getdents); eval 'sub __NR_getcwd () {( &__X32_SYSCALL_BIT + 79);}' unless defined(&__NR_getcwd); eval 'sub __NR_chdir () {( &__X32_SYSCALL_BIT + 80);}' unless defined(&__NR_chdir); eval 'sub __NR_fchdir () {( &__X32_SYSCALL_BIT + 81);}' unless defined(&__NR_fchdir); eval 'sub __NR_rename () {( &__X32_SYSCALL_BIT + 82);}' unless defined(&__NR_rename); eval 'sub __NR_mkdir () {( &__X32_SYSCALL_BIT + 83);}' unless defined(&__NR_mkdir); eval 'sub __NR_rmdir () {( &__X32_SYSCALL_BIT + 84);}' unless defined(&__NR_rmdir); eval 'sub __NR_creat () {( &__X32_SYSCALL_BIT + 85);}' unless defined(&__NR_creat); eval 'sub __NR_link () {( &__X32_SYSCALL_BIT + 86);}' unless defined(&__NR_link); eval 'sub __NR_unlink () {( &__X32_SYSCALL_BIT + 87);}' unless defined(&__NR_unlink); eval 'sub __NR_symlink () {( &__X32_SYSCALL_BIT + 88);}' unless defined(&__NR_symlink); eval 'sub __NR_readlink () {( &__X32_SYSCALL_BIT + 89);}' unless defined(&__NR_readlink); eval 'sub __NR_chmod () {( &__X32_SYSCALL_BIT + 90);}' unless defined(&__NR_chmod); eval 'sub __NR_fchmod () {( &__X32_SYSCALL_BIT + 91);}' unless defined(&__NR_fchmod); eval 'sub __NR_chown () {( &__X32_SYSCALL_BIT + 92);}' unless defined(&__NR_chown); eval 'sub __NR_fchown () {( &__X32_SYSCALL_BIT + 93);}' unless defined(&__NR_fchown); eval 'sub __NR_lchown () {( &__X32_SYSCALL_BIT + 94);}' unless defined(&__NR_lchown); eval 'sub __NR_umask () {( &__X32_SYSCALL_BIT + 95);}' unless defined(&__NR_umask); eval 'sub __NR_gettimeofday () {( &__X32_SYSCALL_BIT + 96);}' unless defined(&__NR_gettimeofday); eval 'sub __NR_getrlimit () {( &__X32_SYSCALL_BIT + 97);}' unless defined(&__NR_getrlimit); eval 'sub __NR_getrusage () {( &__X32_SYSCALL_BIT + 98);}' unless defined(&__NR_getrusage); eval 'sub __NR_sysinfo () {( &__X32_SYSCALL_BIT + 99);}' unless defined(&__NR_sysinfo); eval 'sub __NR_times () {( &__X32_SYSCALL_BIT + 100);}' unless defined(&__NR_times); eval 'sub __NR_getuid () {( &__X32_SYSCALL_BIT + 102);}' unless defined(&__NR_getuid); eval 'sub __NR_syslog () {( &__X32_SYSCALL_BIT + 103);}' unless defined(&__NR_syslog); eval 'sub __NR_getgid () {( &__X32_SYSCALL_BIT + 104);}' unless defined(&__NR_getgid); eval 'sub __NR_setuid () {( &__X32_SYSCALL_BIT + 105);}' unless defined(&__NR_setuid); eval 'sub __NR_setgid () {( &__X32_SYSCALL_BIT + 106);}' unless defined(&__NR_setgid); eval 'sub __NR_geteuid () {( &__X32_SYSCALL_BIT + 107);}' unless defined(&__NR_geteuid); eval 'sub __NR_getegid () {( &__X32_SYSCALL_BIT + 108);}' unless defined(&__NR_getegid); eval 'sub __NR_setpgid () {( &__X32_SYSCALL_BIT + 109);}' unless defined(&__NR_setpgid); eval 'sub __NR_getppid () {( &__X32_SYSCALL_BIT + 110);}' unless defined(&__NR_getppid); eval 'sub __NR_getpgrp () {( &__X32_SYSCALL_BIT + 111);}' unless defined(&__NR_getpgrp); eval 'sub __NR_setsid () {( &__X32_SYSCALL_BIT + 112);}' unless defined(&__NR_setsid); eval 'sub __NR_setreuid () {( &__X32_SYSCALL_BIT + 113);}' unless defined(&__NR_setreuid); eval 'sub __NR_setregid () {( &__X32_SYSCALL_BIT + 114);}' unless defined(&__NR_setregid); eval 'sub __NR_getgroups () {( &__X32_SYSCALL_BIT + 115);}' unless defined(&__NR_getgroups); eval 'sub __NR_setgroups () {( &__X32_SYSCALL_BIT + 116);}' unless defined(&__NR_setgroups); eval 'sub __NR_setresuid () {( &__X32_SYSCALL_BIT + 117);}' unless defined(&__NR_setresuid); eval 'sub __NR_getresuid () {( &__X32_SYSCALL_BIT + 118);}' unless defined(&__NR_getresuid); eval 'sub __NR_setresgid () {( &__X32_SYSCALL_BIT + 119);}' unless defined(&__NR_setresgid); eval 'sub __NR_getresgid () {( &__X32_SYSCALL_BIT + 120);}' unless defined(&__NR_getresgid); eval 'sub __NR_getpgid () {( &__X32_SYSCALL_BIT + 121);}' unless defined(&__NR_getpgid); eval 'sub __NR_setfsuid () {( &__X32_SYSCALL_BIT + 122);}' unless defined(&__NR_setfsuid); eval 'sub __NR_setfsgid () {( &__X32_SYSCALL_BIT + 123);}' unless defined(&__NR_setfsgid); eval 'sub __NR_getsid () {( &__X32_SYSCALL_BIT + 124);}' unless defined(&__NR_getsid); eval 'sub __NR_capget () {( &__X32_SYSCALL_BIT + 125);}' unless defined(&__NR_capget); eval 'sub __NR_capset () {( &__X32_SYSCALL_BIT + 126);}' unless defined(&__NR_capset); eval 'sub __NR_rt_sigsuspend () {( &__X32_SYSCALL_BIT + 130);}' unless defined(&__NR_rt_sigsuspend); eval 'sub __NR_utime () {( &__X32_SYSCALL_BIT + 132);}' unless defined(&__NR_utime); eval 'sub __NR_mknod () {( &__X32_SYSCALL_BIT + 133);}' unless defined(&__NR_mknod); eval 'sub __NR_personality () {( &__X32_SYSCALL_BIT + 135);}' unless defined(&__NR_personality); eval 'sub __NR_ustat () {( &__X32_SYSCALL_BIT + 136);}' unless defined(&__NR_ustat); eval 'sub __NR_statfs () {( &__X32_SYSCALL_BIT + 137);}' unless defined(&__NR_statfs); eval 'sub __NR_fstatfs () {( &__X32_SYSCALL_BIT + 138);}' unless defined(&__NR_fstatfs); eval 'sub __NR_sysfs () {( &__X32_SYSCALL_BIT + 139);}' unless defined(&__NR_sysfs); eval 'sub __NR_getpriority () {( &__X32_SYSCALL_BIT + 140);}' unless defined(&__NR_getpriority); eval 'sub __NR_setpriority () {( &__X32_SYSCALL_BIT + 141);}' unless defined(&__NR_setpriority); eval 'sub __NR_sched_setparam () {( &__X32_SYSCALL_BIT + 142);}' unless defined(&__NR_sched_setparam); eval 'sub __NR_sched_getparam () {( &__X32_SYSCALL_BIT + 143);}' unless defined(&__NR_sched_getparam); eval 'sub __NR_sched_setscheduler () {( &__X32_SYSCALL_BIT + 144);}' unless defined(&__NR_sched_setscheduler); eval 'sub __NR_sched_getscheduler () {( &__X32_SYSCALL_BIT + 145);}' unless defined(&__NR_sched_getscheduler); eval 'sub __NR_sched_get_priority_max () {( &__X32_SYSCALL_BIT + 146);}' unless defined(&__NR_sched_get_priority_max); eval 'sub __NR_sched_get_priority_min () {( &__X32_SYSCALL_BIT + 147);}' unless defined(&__NR_sched_get_priority_min); eval 'sub __NR_sched_rr_get_interval () {( &__X32_SYSCALL_BIT + 148);}' unless defined(&__NR_sched_rr_get_interval); eval 'sub __NR_mlock () {( &__X32_SYSCALL_BIT + 149);}' unless defined(&__NR_mlock); eval 'sub __NR_munlock () {( &__X32_SYSCALL_BIT + 150);}' unless defined(&__NR_munlock); eval 'sub __NR_mlockall () {( &__X32_SYSCALL_BIT + 151);}' unless defined(&__NR_mlockall); eval 'sub __NR_munlockall () {( &__X32_SYSCALL_BIT + 152);}' unless defined(&__NR_munlockall); eval 'sub __NR_vhangup () {( &__X32_SYSCALL_BIT + 153);}' unless defined(&__NR_vhangup); eval 'sub __NR_modify_ldt () {( &__X32_SYSCALL_BIT + 154);}' unless defined(&__NR_modify_ldt); eval 'sub __NR_pivot_root () {( &__X32_SYSCALL_BIT + 155);}' unless defined(&__NR_pivot_root); eval 'sub __NR_prctl () {( &__X32_SYSCALL_BIT + 157);}' unless defined(&__NR_prctl); eval 'sub __NR_arch_prctl () {( &__X32_SYSCALL_BIT + 158);}' unless defined(&__NR_arch_prctl); eval 'sub __NR_adjtimex () {( &__X32_SYSCALL_BIT + 159);}' unless defined(&__NR_adjtimex); eval 'sub __NR_setrlimit () {( &__X32_SYSCALL_BIT + 160);}' unless defined(&__NR_setrlimit); eval 'sub __NR_chroot () {( &__X32_SYSCALL_BIT + 161);}' unless defined(&__NR_chroot); eval 'sub __NR_sync () {( &__X32_SYSCALL_BIT + 162);}' unless defined(&__NR_sync); eval 'sub __NR_acct () {( &__X32_SYSCALL_BIT + 163);}' unless defined(&__NR_acct); eval 'sub __NR_settimeofday () {( &__X32_SYSCALL_BIT + 164);}' unless defined(&__NR_settimeofday); eval 'sub __NR_mount () {( &__X32_SYSCALL_BIT + 165);}' unless defined(&__NR_mount); eval 'sub __NR_umount2 () {( &__X32_SYSCALL_BIT + 166);}' unless defined(&__NR_umount2); eval 'sub __NR_swapon () {( &__X32_SYSCALL_BIT + 167);}' unless defined(&__NR_swapon); eval 'sub __NR_swapoff () {( &__X32_SYSCALL_BIT + 168);}' unless defined(&__NR_swapoff); eval 'sub __NR_reboot () {( &__X32_SYSCALL_BIT + 169);}' unless defined(&__NR_reboot); eval 'sub __NR_sethostname () {( &__X32_SYSCALL_BIT + 170);}' unless defined(&__NR_sethostname); eval 'sub __NR_setdomainname () {( &__X32_SYSCALL_BIT + 171);}' unless defined(&__NR_setdomainname); eval 'sub __NR_iopl () {( &__X32_SYSCALL_BIT + 172);}' unless defined(&__NR_iopl); eval 'sub __NR_ioperm () {( &__X32_SYSCALL_BIT + 173);}' unless defined(&__NR_ioperm); eval 'sub __NR_init_module () {( &__X32_SYSCALL_BIT + 175);}' unless defined(&__NR_init_module); eval 'sub __NR_delete_module () {( &__X32_SYSCALL_BIT + 176);}' unless defined(&__NR_delete_module); eval 'sub __NR_quotactl () {( &__X32_SYSCALL_BIT + 179);}' unless defined(&__NR_quotactl); eval 'sub __NR_getpmsg () {( &__X32_SYSCALL_BIT + 181);}' unless defined(&__NR_getpmsg); eval 'sub __NR_putpmsg () {( &__X32_SYSCALL_BIT + 182);}' unless defined(&__NR_putpmsg); eval 'sub __NR_afs_syscall () {( &__X32_SYSCALL_BIT + 183);}' unless defined(&__NR_afs_syscall); eval 'sub __NR_tuxcall () {( &__X32_SYSCALL_BIT + 184);}' unless defined(&__NR_tuxcall); eval 'sub __NR_security () {( &__X32_SYSCALL_BIT + 185);}' unless defined(&__NR_security); eval 'sub __NR_gettid () {( &__X32_SYSCALL_BIT + 186);}' unless defined(&__NR_gettid); eval 'sub __NR_readahead () {( &__X32_SYSCALL_BIT + 187);}' unless defined(&__NR_readahead); eval 'sub __NR_setxattr () {( &__X32_SYSCALL_BIT + 188);}' unless defined(&__NR_setxattr); eval 'sub __NR_lsetxattr () {( &__X32_SYSCALL_BIT + 189);}' unless defined(&__NR_lsetxattr); eval 'sub __NR_fsetxattr () {( &__X32_SYSCALL_BIT + 190);}' unless defined(&__NR_fsetxattr); eval 'sub __NR_getxattr () {( &__X32_SYSCALL_BIT + 191);}' unless defined(&__NR_getxattr); eval 'sub __NR_lgetxattr () {( &__X32_SYSCALL_BIT + 192);}' unless defined(&__NR_lgetxattr); eval 'sub __NR_fgetxattr () {( &__X32_SYSCALL_BIT + 193);}' unless defined(&__NR_fgetxattr); eval 'sub __NR_listxattr () {( &__X32_SYSCALL_BIT + 194);}' unless defined(&__NR_listxattr); eval 'sub __NR_llistxattr () {( &__X32_SYSCALL_BIT + 195);}' unless defined(&__NR_llistxattr); eval 'sub __NR_flistxattr () {( &__X32_SYSCALL_BIT + 196);}' unless defined(&__NR_flistxattr); eval 'sub __NR_removexattr () {( &__X32_SYSCALL_BIT + 197);}' unless defined(&__NR_removexattr); eval 'sub __NR_lremovexattr () {( &__X32_SYSCALL_BIT + 198);}' unless defined(&__NR_lremovexattr); eval 'sub __NR_fremovexattr () {( &__X32_SYSCALL_BIT + 199);}' unless defined(&__NR_fremovexattr); eval 'sub __NR_tkill () {( &__X32_SYSCALL_BIT + 200);}' unless defined(&__NR_tkill); eval 'sub __NR_time () {( &__X32_SYSCALL_BIT + 201);}' unless defined(&__NR_time); eval 'sub __NR_futex () {( &__X32_SYSCALL_BIT + 202);}' unless defined(&__NR_futex); eval 'sub __NR_sched_setaffinity () {( &__X32_SYSCALL_BIT + 203);}' unless defined(&__NR_sched_setaffinity); eval 'sub __NR_sched_getaffinity () {( &__X32_SYSCALL_BIT + 204);}' unless defined(&__NR_sched_getaffinity); eval 'sub __NR_io_setup () {( &__X32_SYSCALL_BIT + 206);}' unless defined(&__NR_io_setup); eval 'sub __NR_io_destroy () {( &__X32_SYSCALL_BIT + 207);}' unless defined(&__NR_io_destroy); eval 'sub __NR_io_getevents () {( &__X32_SYSCALL_BIT + 208);}' unless defined(&__NR_io_getevents); eval 'sub __NR_io_submit () {( &__X32_SYSCALL_BIT + 209);}' unless defined(&__NR_io_submit); eval 'sub __NR_io_cancel () {( &__X32_SYSCALL_BIT + 210);}' unless defined(&__NR_io_cancel); eval 'sub __NR_lookup_dcookie () {( &__X32_SYSCALL_BIT + 212);}' unless defined(&__NR_lookup_dcookie); eval 'sub __NR_epoll_create () {( &__X32_SYSCALL_BIT + 213);}' unless defined(&__NR_epoll_create); eval 'sub __NR_remap_file_pages () {( &__X32_SYSCALL_BIT + 216);}' unless defined(&__NR_remap_file_pages); eval 'sub __NR_getdents64 () {( &__X32_SYSCALL_BIT + 217);}' unless defined(&__NR_getdents64); eval 'sub __NR_set_tid_address () {( &__X32_SYSCALL_BIT + 218);}' unless defined(&__NR_set_tid_address); eval 'sub __NR_restart_syscall () {( &__X32_SYSCALL_BIT + 219);}' unless defined(&__NR_restart_syscall); eval 'sub __NR_semtimedop () {( &__X32_SYSCALL_BIT + 220);}' unless defined(&__NR_semtimedop); eval 'sub __NR_fadvise64 () {( &__X32_SYSCALL_BIT + 221);}' unless defined(&__NR_fadvise64); eval 'sub __NR_timer_settime () {( &__X32_SYSCALL_BIT + 223);}' unless defined(&__NR_timer_settime); eval 'sub __NR_timer_gettime () {( &__X32_SYSCALL_BIT + 224);}' unless defined(&__NR_timer_gettime); eval 'sub __NR_timer_getoverrun () {( &__X32_SYSCALL_BIT + 225);}' unless defined(&__NR_timer_getoverrun); eval 'sub __NR_timer_delete () {( &__X32_SYSCALL_BIT + 226);}' unless defined(&__NR_timer_delete); eval 'sub __NR_clock_settime () {( &__X32_SYSCALL_BIT + 227);}' unless defined(&__NR_clock_settime); eval 'sub __NR_clock_gettime () {( &__X32_SYSCALL_BIT + 228);}' unless defined(&__NR_clock_gettime); eval 'sub __NR_clock_getres () {( &__X32_SYSCALL_BIT + 229);}' unless defined(&__NR_clock_getres); eval 'sub __NR_clock_nanosleep () {( &__X32_SYSCALL_BIT + 230);}' unless defined(&__NR_clock_nanosleep); eval 'sub __NR_exit_group () {( &__X32_SYSCALL_BIT + 231);}' unless defined(&__NR_exit_group); eval 'sub __NR_epoll_wait () {( &__X32_SYSCALL_BIT + 232);}' unless defined(&__NR_epoll_wait); eval 'sub __NR_epoll_ctl () {( &__X32_SYSCALL_BIT + 233);}' unless defined(&__NR_epoll_ctl); eval 'sub __NR_tgkill () {( &__X32_SYSCALL_BIT + 234);}' unless defined(&__NR_tgkill); eval 'sub __NR_utimes () {( &__X32_SYSCALL_BIT + 235);}' unless defined(&__NR_utimes); eval 'sub __NR_mbind () {( &__X32_SYSCALL_BIT + 237);}' unless defined(&__NR_mbind); eval 'sub __NR_set_mempolicy () {( &__X32_SYSCALL_BIT + 238);}' unless defined(&__NR_set_mempolicy); eval 'sub __NR_get_mempolicy () {( &__X32_SYSCALL_BIT + 239);}' unless defined(&__NR_get_mempolicy); eval 'sub __NR_mq_open () {( &__X32_SYSCALL_BIT + 240);}' unless defined(&__NR_mq_open); eval 'sub __NR_mq_unlink () {( &__X32_SYSCALL_BIT + 241);}' unless defined(&__NR_mq_unlink); eval 'sub __NR_mq_timedsend () {( &__X32_SYSCALL_BIT + 242);}' unless defined(&__NR_mq_timedsend); eval 'sub __NR_mq_timedreceive () {( &__X32_SYSCALL_BIT + 243);}' unless defined(&__NR_mq_timedreceive); eval 'sub __NR_mq_getsetattr () {( &__X32_SYSCALL_BIT + 245);}' unless defined(&__NR_mq_getsetattr); eval 'sub __NR_add_key () {( &__X32_SYSCALL_BIT + 248);}' unless defined(&__NR_add_key); eval 'sub __NR_request_key () {( &__X32_SYSCALL_BIT + 249);}' unless defined(&__NR_request_key); eval 'sub __NR_keyctl () {( &__X32_SYSCALL_BIT + 250);}' unless defined(&__NR_keyctl); eval 'sub __NR_ioprio_set () {( &__X32_SYSCALL_BIT + 251);}' unless defined(&__NR_ioprio_set); eval 'sub __NR_ioprio_get () {( &__X32_SYSCALL_BIT + 252);}' unless defined(&__NR_ioprio_get); eval 'sub __NR_inotify_init () {( &__X32_SYSCALL_BIT + 253);}' unless defined(&__NR_inotify_init); eval 'sub __NR_inotify_add_watch () {( &__X32_SYSCALL_BIT + 254);}' unless defined(&__NR_inotify_add_watch); eval 'sub __NR_inotify_rm_watch () {( &__X32_SYSCALL_BIT + 255);}' unless defined(&__NR_inotify_rm_watch); eval 'sub __NR_migrate_pages () {( &__X32_SYSCALL_BIT + 256);}' unless defined(&__NR_migrate_pages); eval 'sub __NR_openat () {( &__X32_SYSCALL_BIT + 257);}' unless defined(&__NR_openat); eval 'sub __NR_mkdirat () {( &__X32_SYSCALL_BIT + 258);}' unless defined(&__NR_mkdirat); eval 'sub __NR_mknodat () {( &__X32_SYSCALL_BIT + 259);}' unless defined(&__NR_mknodat); eval 'sub __NR_fchownat () {( &__X32_SYSCALL_BIT + 260);}' unless defined(&__NR_fchownat); eval 'sub __NR_futimesat () {( &__X32_SYSCALL_BIT + 261);}' unless defined(&__NR_futimesat); eval 'sub __NR_newfstatat () {( &__X32_SYSCALL_BIT + 262);}' unless defined(&__NR_newfstatat); eval 'sub __NR_unlinkat () {( &__X32_SYSCALL_BIT + 263);}' unless defined(&__NR_unlinkat); eval 'sub __NR_renameat () {( &__X32_SYSCALL_BIT + 264);}' unless defined(&__NR_renameat); eval 'sub __NR_linkat () {( &__X32_SYSCALL_BIT + 265);}' unless defined(&__NR_linkat); eval 'sub __NR_symlinkat () {( &__X32_SYSCALL_BIT + 266);}' unless defined(&__NR_symlinkat); eval 'sub __NR_readlinkat () {( &__X32_SYSCALL_BIT + 267);}' unless defined(&__NR_readlinkat); eval 'sub __NR_fchmodat () {( &__X32_SYSCALL_BIT + 268);}' unless defined(&__NR_fchmodat); eval 'sub __NR_faccessat () {( &__X32_SYSCALL_BIT + 269);}' unless defined(&__NR_faccessat); eval 'sub __NR_pselect6 () {( &__X32_SYSCALL_BIT + 270);}' unless defined(&__NR_pselect6); eval 'sub __NR_ppoll () {( &__X32_SYSCALL_BIT + 271);}' unless defined(&__NR_ppoll); eval 'sub __NR_unshare () {( &__X32_SYSCALL_BIT + 272);}' unless defined(&__NR_unshare); eval 'sub __NR_splice () {( &__X32_SYSCALL_BIT + 275);}' unless defined(&__NR_splice); eval 'sub __NR_tee () {( &__X32_SYSCALL_BIT + 276);}' unless defined(&__NR_tee); eval 'sub __NR_sync_file_range () {( &__X32_SYSCALL_BIT + 277);}' unless defined(&__NR_sync_file_range); eval 'sub __NR_utimensat () {( &__X32_SYSCALL_BIT + 280);}' unless defined(&__NR_utimensat); eval 'sub __NR_epoll_pwait () {( &__X32_SYSCALL_BIT + 281);}' unless defined(&__NR_epoll_pwait); eval 'sub __NR_signalfd () {( &__X32_SYSCALL_BIT + 282);}' unless defined(&__NR_signalfd); eval 'sub __NR_timerfd_create () {( &__X32_SYSCALL_BIT + 283);}' unless defined(&__NR_timerfd_create); eval 'sub __NR_eventfd () {( &__X32_SYSCALL_BIT + 284);}' unless defined(&__NR_eventfd); eval 'sub __NR_fallocate () {( &__X32_SYSCALL_BIT + 285);}' unless defined(&__NR_fallocate); eval 'sub __NR_timerfd_settime () {( &__X32_SYSCALL_BIT + 286);}' unless defined(&__NR_timerfd_settime); eval 'sub __NR_timerfd_gettime () {( &__X32_SYSCALL_BIT + 287);}' unless defined(&__NR_timerfd_gettime); eval 'sub __NR_accept4 () {( &__X32_SYSCALL_BIT + 288);}' unless defined(&__NR_accept4); eval 'sub __NR_signalfd4 () {( &__X32_SYSCALL_BIT + 289);}' unless defined(&__NR_signalfd4); eval 'sub __NR_eventfd2 () {( &__X32_SYSCALL_BIT + 290);}' unless defined(&__NR_eventfd2); eval 'sub __NR_epoll_create1 () {( &__X32_SYSCALL_BIT + 291);}' unless defined(&__NR_epoll_create1); eval 'sub __NR_dup3 () {( &__X32_SYSCALL_BIT + 292);}' unless defined(&__NR_dup3); eval 'sub __NR_pipe2 () {( &__X32_SYSCALL_BIT + 293);}' unless defined(&__NR_pipe2); eval 'sub __NR_inotify_init1 () {( &__X32_SYSCALL_BIT + 294);}' unless defined(&__NR_inotify_init1); eval 'sub __NR_perf_event_open () {( &__X32_SYSCALL_BIT + 298);}' unless defined(&__NR_perf_event_open); eval 'sub __NR_fanotify_init () {( &__X32_SYSCALL_BIT + 300);}' unless defined(&__NR_fanotify_init); eval 'sub __NR_fanotify_mark () {( &__X32_SYSCALL_BIT + 301);}' unless defined(&__NR_fanotify_mark); eval 'sub __NR_prlimit64 () {( &__X32_SYSCALL_BIT + 302);}' unless defined(&__NR_prlimit64); eval 'sub __NR_name_to_handle_at () {( &__X32_SYSCALL_BIT + 303);}' unless defined(&__NR_name_to_handle_at); eval 'sub __NR_open_by_handle_at () {( &__X32_SYSCALL_BIT + 304);}' unless defined(&__NR_open_by_handle_at); eval 'sub __NR_clock_adjtime () {( &__X32_SYSCALL_BIT + 305);}' unless defined(&__NR_clock_adjtime); eval 'sub __NR_syncfs () {( &__X32_SYSCALL_BIT + 306);}' unless defined(&__NR_syncfs); eval 'sub __NR_setns () {( &__X32_SYSCALL_BIT + 308);}' unless defined(&__NR_setns); eval 'sub __NR_getcpu () {( &__X32_SYSCALL_BIT + 309);}' unless defined(&__NR_getcpu); eval 'sub __NR_kcmp () {( &__X32_SYSCALL_BIT + 312);}' unless defined(&__NR_kcmp); eval 'sub __NR_finit_module () {( &__X32_SYSCALL_BIT + 313);}' unless defined(&__NR_finit_module); eval 'sub __NR_sched_setattr () {( &__X32_SYSCALL_BIT + 314);}' unless defined(&__NR_sched_setattr); eval 'sub __NR_sched_getattr () {( &__X32_SYSCALL_BIT + 315);}' unless defined(&__NR_sched_getattr); eval 'sub __NR_renameat2 () {( &__X32_SYSCALL_BIT + 316);}' unless defined(&__NR_renameat2); eval 'sub __NR_seccomp () {( &__X32_SYSCALL_BIT + 317);}' unless defined(&__NR_seccomp); eval 'sub __NR_getrandom () {( &__X32_SYSCALL_BIT + 318);}' unless defined(&__NR_getrandom); eval 'sub __NR_memfd_create () {( &__X32_SYSCALL_BIT + 319);}' unless defined(&__NR_memfd_create); eval 'sub __NR_kexec_file_load () {( &__X32_SYSCALL_BIT + 320);}' unless defined(&__NR_kexec_file_load); eval 'sub __NR_bpf () {( &__X32_SYSCALL_BIT + 321);}' unless defined(&__NR_bpf); eval 'sub __NR_userfaultfd () {( &__X32_SYSCALL_BIT + 323);}' unless defined(&__NR_userfaultfd); eval 'sub __NR_membarrier () {( &__X32_SYSCALL_BIT + 324);}' unless defined(&__NR_membarrier); eval 'sub __NR_mlock2 () {( &__X32_SYSCALL_BIT + 325);}' unless defined(&__NR_mlock2); eval 'sub __NR_copy_file_range () {( &__X32_SYSCALL_BIT + 326);}' unless defined(&__NR_copy_file_range); eval 'sub __NR_pkey_mprotect () {( &__X32_SYSCALL_BIT + 329);}' unless defined(&__NR_pkey_mprotect); eval 'sub __NR_pkey_alloc () {( &__X32_SYSCALL_BIT + 330);}' unless defined(&__NR_pkey_alloc); eval 'sub __NR_pkey_free () {( &__X32_SYSCALL_BIT + 331);}' unless defined(&__NR_pkey_free); eval 'sub __NR_rt_sigaction () {( &__X32_SYSCALL_BIT + 512);}' unless defined(&__NR_rt_sigaction); eval 'sub __NR_rt_sigreturn () {( &__X32_SYSCALL_BIT + 513);}' unless defined(&__NR_rt_sigreturn); eval 'sub __NR_ioctl () {( &__X32_SYSCALL_BIT + 514);}' unless defined(&__NR_ioctl); eval 'sub __NR_readv () {( &__X32_SYSCALL_BIT + 515);}' unless defined(&__NR_readv); eval 'sub __NR_writev () {( &__X32_SYSCALL_BIT + 516);}' unless defined(&__NR_writev); eval 'sub __NR_recvfrom () {( &__X32_SYSCALL_BIT + 517);}' unless defined(&__NR_recvfrom); eval 'sub __NR_sendmsg () {( &__X32_SYSCALL_BIT + 518);}' unless defined(&__NR_sendmsg); eval 'sub __NR_recvmsg () {( &__X32_SYSCALL_BIT + 519);}' unless defined(&__NR_recvmsg); eval 'sub __NR_execve () {( &__X32_SYSCALL_BIT + 520);}' unless defined(&__NR_execve); eval 'sub __NR_ptrace () {( &__X32_SYSCALL_BIT + 521);}' unless defined(&__NR_ptrace); eval 'sub __NR_rt_sigpending () {( &__X32_SYSCALL_BIT + 522);}' unless defined(&__NR_rt_sigpending); eval 'sub __NR_rt_sigtimedwait () {( &__X32_SYSCALL_BIT + 523);}' unless defined(&__NR_rt_sigtimedwait); eval 'sub __NR_rt_sigqueueinfo () {( &__X32_SYSCALL_BIT + 524);}' unless defined(&__NR_rt_sigqueueinfo); eval 'sub __NR_sigaltstack () {( &__X32_SYSCALL_BIT + 525);}' unless defined(&__NR_sigaltstack); eval 'sub __NR_timer_create () {( &__X32_SYSCALL_BIT + 526);}' unless defined(&__NR_timer_create); eval 'sub __NR_mq_notify () {( &__X32_SYSCALL_BIT + 527);}' unless defined(&__NR_mq_notify); eval 'sub __NR_kexec_load () {( &__X32_SYSCALL_BIT + 528);}' unless defined(&__NR_kexec_load); eval 'sub __NR_waitid () {( &__X32_SYSCALL_BIT + 529);}' unless defined(&__NR_waitid); eval 'sub __NR_set_robust_list () {( &__X32_SYSCALL_BIT + 530);}' unless defined(&__NR_set_robust_list); eval 'sub __NR_get_robust_list () {( &__X32_SYSCALL_BIT + 531);}' unless defined(&__NR_get_robust_list); eval 'sub __NR_vmsplice () {( &__X32_SYSCALL_BIT + 532);}' unless defined(&__NR_vmsplice); eval 'sub __NR_move_pages () {( &__X32_SYSCALL_BIT + 533);}' unless defined(&__NR_move_pages); eval 'sub __NR_preadv () {( &__X32_SYSCALL_BIT + 534);}' unless defined(&__NR_preadv); eval 'sub __NR_pwritev () {( &__X32_SYSCALL_BIT + 535);}' unless defined(&__NR_pwritev); eval 'sub __NR_rt_tgsigqueueinfo () {( &__X32_SYSCALL_BIT + 536);}' unless defined(&__NR_rt_tgsigqueueinfo); eval 'sub __NR_recvmmsg () {( &__X32_SYSCALL_BIT + 537);}' unless defined(&__NR_recvmmsg); eval 'sub __NR_sendmmsg () {( &__X32_SYSCALL_BIT + 538);}' unless defined(&__NR_sendmmsg); eval 'sub __NR_process_vm_readv () {( &__X32_SYSCALL_BIT + 539);}' unless defined(&__NR_process_vm_readv); eval 'sub __NR_process_vm_writev () {( &__X32_SYSCALL_BIT + 540);}' unless defined(&__NR_process_vm_writev); eval 'sub __NR_setsockopt () {( &__X32_SYSCALL_BIT + 541);}' unless defined(&__NR_setsockopt); eval 'sub __NR_getsockopt () {( &__X32_SYSCALL_BIT + 542);}' unless defined(&__NR_getsockopt); } 1; asm/posix_types_x32.ph 0000644 00000000514 15231101164 0010731 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_ASM_X86_POSIX_TYPES_X32_H)) { eval 'sub _ASM_X86_POSIX_TYPES_X32_H () {1;}' unless defined(&_ASM_X86_POSIX_TYPES_X32_H); eval 'sub __kernel_long_t () {\'__kernel_long_t\';}' unless defined(&__kernel_long_t); require 'asm/posix_types_64.ph'; } 1; asm/ioctls.ph 0000644 00000000135 15231101164 0007143 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); require 'asm-generic/ioctls.ph'; 1; asm/sockios.ph 0000644 00000000136 15231101164 0007321 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); require 'asm-generic/sockios.ph'; 1; asm/termbits.ph 0000644 00000000137 15231101164 0007501 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); require 'asm-generic/termbits.ph'; 1; asm/unistd.ph 0000644 00000000663 15231101164 0007162 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_ASM_X86_UNISTD_H)) { eval 'sub _ASM_X86_UNISTD_H () {1;}' unless defined(&_ASM_X86_UNISTD_H); eval 'sub __X32_SYSCALL_BIT () {0x40000000;}' unless defined(&__X32_SYSCALL_BIT); if(defined(&__i386__)) { require 'asm/unistd_32.ph'; } elsif(defined(&__ILP32__)) { require 'asm/unistd_x32.ph'; } else { require 'asm/unistd_64.ph'; } } 1; asm/unistd_32.ph 0000644 00000063022 15231101164 0007464 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_ASM_X86_UNISTD_32_H)) { eval 'sub _ASM_X86_UNISTD_32_H () {1;}' unless defined(&_ASM_X86_UNISTD_32_H); eval 'sub __NR_restart_syscall () {0;}' unless defined(&__NR_restart_syscall); eval 'sub __NR_exit () {1;}' unless defined(&__NR_exit); eval 'sub __NR_fork () {2;}' unless defined(&__NR_fork); eval 'sub __NR_read () {3;}' unless defined(&__NR_read); eval 'sub __NR_write () {4;}' unless defined(&__NR_write); eval 'sub __NR_open () {5;}' unless defined(&__NR_open); eval 'sub __NR_close () {6;}' unless defined(&__NR_close); eval 'sub __NR_waitpid () {7;}' unless defined(&__NR_waitpid); eval 'sub __NR_creat () {8;}' unless defined(&__NR_creat); eval 'sub __NR_link () {9;}' unless defined(&__NR_link); eval 'sub __NR_unlink () {10;}' unless defined(&__NR_unlink); eval 'sub __NR_execve () {11;}' unless defined(&__NR_execve); eval 'sub __NR_chdir () {12;}' unless defined(&__NR_chdir); eval 'sub __NR_time () {13;}' unless defined(&__NR_time); eval 'sub __NR_mknod () {14;}' unless defined(&__NR_mknod); eval 'sub __NR_chmod () {15;}' unless defined(&__NR_chmod); eval 'sub __NR_lchown () {16;}' unless defined(&__NR_lchown); eval 'sub __NR_break () {17;}' unless defined(&__NR_break); eval 'sub __NR_oldstat () {18;}' unless defined(&__NR_oldstat); eval 'sub __NR_lseek () {19;}' unless defined(&__NR_lseek); eval 'sub __NR_getpid () {20;}' unless defined(&__NR_getpid); eval 'sub __NR_mount () {21;}' unless defined(&__NR_mount); eval 'sub __NR_umount () {22;}' unless defined(&__NR_umount); eval 'sub __NR_setuid () {23;}' unless defined(&__NR_setuid); eval 'sub __NR_getuid () {24;}' unless defined(&__NR_getuid); eval 'sub __NR_stime () {25;}' unless defined(&__NR_stime); eval 'sub __NR_ptrace () {26;}' unless defined(&__NR_ptrace); eval 'sub __NR_alarm () {27;}' unless defined(&__NR_alarm); eval 'sub __NR_oldfstat () {28;}' unless defined(&__NR_oldfstat); eval 'sub __NR_pause () {29;}' unless defined(&__NR_pause); eval 'sub __NR_utime () {30;}' unless defined(&__NR_utime); eval 'sub __NR_stty () {31;}' unless defined(&__NR_stty); eval 'sub __NR_gtty () {32;}' unless defined(&__NR_gtty); eval 'sub __NR_access () {33;}' unless defined(&__NR_access); eval 'sub __NR_nice () {34;}' unless defined(&__NR_nice); eval 'sub __NR_ftime () {35;}' unless defined(&__NR_ftime); eval 'sub __NR_sync () {36;}' unless defined(&__NR_sync); eval 'sub __NR_kill () {37;}' unless defined(&__NR_kill); eval 'sub __NR_rename () {38;}' unless defined(&__NR_rename); eval 'sub __NR_mkdir () {39;}' unless defined(&__NR_mkdir); eval 'sub __NR_rmdir () {40;}' unless defined(&__NR_rmdir); eval 'sub __NR_dup () {41;}' unless defined(&__NR_dup); eval 'sub __NR_pipe () {42;}' unless defined(&__NR_pipe); eval 'sub __NR_times () {43;}' unless defined(&__NR_times); eval 'sub __NR_prof () {44;}' unless defined(&__NR_prof); eval 'sub __NR_brk () {45;}' unless defined(&__NR_brk); eval 'sub __NR_setgid () {46;}' unless defined(&__NR_setgid); eval 'sub __NR_getgid () {47;}' unless defined(&__NR_getgid); eval 'sub __NR_signal () {48;}' unless defined(&__NR_signal); eval 'sub __NR_geteuid () {49;}' unless defined(&__NR_geteuid); eval 'sub __NR_getegid () {50;}' unless defined(&__NR_getegid); eval 'sub __NR_acct () {51;}' unless defined(&__NR_acct); eval 'sub __NR_umount2 () {52;}' unless defined(&__NR_umount2); eval 'sub __NR_lock () {53;}' unless defined(&__NR_lock); eval 'sub __NR_ioctl () {54;}' unless defined(&__NR_ioctl); eval 'sub __NR_fcntl () {55;}' unless defined(&__NR_fcntl); eval 'sub __NR_mpx () {56;}' unless defined(&__NR_mpx); eval 'sub __NR_setpgid () {57;}' unless defined(&__NR_setpgid); eval 'sub __NR_ulimit () {58;}' unless defined(&__NR_ulimit); eval 'sub __NR_oldolduname () {59;}' unless defined(&__NR_oldolduname); eval 'sub __NR_umask () {60;}' unless defined(&__NR_umask); eval 'sub __NR_chroot () {61;}' unless defined(&__NR_chroot); eval 'sub __NR_ustat () {62;}' unless defined(&__NR_ustat); eval 'sub __NR_dup2 () {63;}' unless defined(&__NR_dup2); eval 'sub __NR_getppid () {64;}' unless defined(&__NR_getppid); eval 'sub __NR_getpgrp () {65;}' unless defined(&__NR_getpgrp); eval 'sub __NR_setsid () {66;}' unless defined(&__NR_setsid); eval 'sub __NR_sigaction () {67;}' unless defined(&__NR_sigaction); eval 'sub __NR_sgetmask () {68;}' unless defined(&__NR_sgetmask); eval 'sub __NR_ssetmask () {69;}' unless defined(&__NR_ssetmask); eval 'sub __NR_setreuid () {70;}' unless defined(&__NR_setreuid); eval 'sub __NR_setregid () {71;}' unless defined(&__NR_setregid); eval 'sub __NR_sigsuspend () {72;}' unless defined(&__NR_sigsuspend); eval 'sub __NR_sigpending () {73;}' unless defined(&__NR_sigpending); eval 'sub __NR_sethostname () {74;}' unless defined(&__NR_sethostname); eval 'sub __NR_setrlimit () {75;}' unless defined(&__NR_setrlimit); eval 'sub __NR_getrlimit () {76;}' unless defined(&__NR_getrlimit); eval 'sub __NR_getrusage () {77;}' unless defined(&__NR_getrusage); eval 'sub __NR_gettimeofday () {78;}' unless defined(&__NR_gettimeofday); eval 'sub __NR_settimeofday () {79;}' unless defined(&__NR_settimeofday); eval 'sub __NR_getgroups () {80;}' unless defined(&__NR_getgroups); eval 'sub __NR_setgroups () {81;}' unless defined(&__NR_setgroups); eval 'sub __NR_select () {82;}' unless defined(&__NR_select); eval 'sub __NR_symlink () {83;}' unless defined(&__NR_symlink); eval 'sub __NR_oldlstat () {84;}' unless defined(&__NR_oldlstat); eval 'sub __NR_readlink () {85;}' unless defined(&__NR_readlink); eval 'sub __NR_uselib () {86;}' unless defined(&__NR_uselib); eval 'sub __NR_swapon () {87;}' unless defined(&__NR_swapon); eval 'sub __NR_reboot () {88;}' unless defined(&__NR_reboot); eval 'sub __NR_readdir () {89;}' unless defined(&__NR_readdir); eval 'sub __NR_mmap () {90;}' unless defined(&__NR_mmap); eval 'sub __NR_munmap () {91;}' unless defined(&__NR_munmap); eval 'sub __NR_truncate () {92;}' unless defined(&__NR_truncate); eval 'sub __NR_ftruncate () {93;}' unless defined(&__NR_ftruncate); eval 'sub __NR_fchmod () {94;}' unless defined(&__NR_fchmod); eval 'sub __NR_fchown () {95;}' unless defined(&__NR_fchown); eval 'sub __NR_getpriority () {96;}' unless defined(&__NR_getpriority); eval 'sub __NR_setpriority () {97;}' unless defined(&__NR_setpriority); eval 'sub __NR_profil () {98;}' unless defined(&__NR_profil); eval 'sub __NR_statfs () {99;}' unless defined(&__NR_statfs); eval 'sub __NR_fstatfs () {100;}' unless defined(&__NR_fstatfs); eval 'sub __NR_ioperm () {101;}' unless defined(&__NR_ioperm); eval 'sub __NR_socketcall () {102;}' unless defined(&__NR_socketcall); eval 'sub __NR_syslog () {103;}' unless defined(&__NR_syslog); eval 'sub __NR_setitimer () {104;}' unless defined(&__NR_setitimer); eval 'sub __NR_getitimer () {105;}' unless defined(&__NR_getitimer); eval 'sub __NR_stat () {106;}' unless defined(&__NR_stat); eval 'sub __NR_lstat () {107;}' unless defined(&__NR_lstat); eval 'sub __NR_fstat () {108;}' unless defined(&__NR_fstat); eval 'sub __NR_olduname () {109;}' unless defined(&__NR_olduname); eval 'sub __NR_iopl () {110;}' unless defined(&__NR_iopl); eval 'sub __NR_vhangup () {111;}' unless defined(&__NR_vhangup); eval 'sub __NR_idle () {112;}' unless defined(&__NR_idle); eval 'sub __NR_vm86old () {113;}' unless defined(&__NR_vm86old); eval 'sub __NR_wait4 () {114;}' unless defined(&__NR_wait4); eval 'sub __NR_swapoff () {115;}' unless defined(&__NR_swapoff); eval 'sub __NR_sysinfo () {116;}' unless defined(&__NR_sysinfo); eval 'sub __NR_ipc () {117;}' unless defined(&__NR_ipc); eval 'sub __NR_fsync () {118;}' unless defined(&__NR_fsync); eval 'sub __NR_sigreturn () {119;}' unless defined(&__NR_sigreturn); eval 'sub __NR_clone () {120;}' unless defined(&__NR_clone); eval 'sub __NR_setdomainname () {121;}' unless defined(&__NR_setdomainname); eval 'sub __NR_uname () {122;}' unless defined(&__NR_uname); eval 'sub __NR_modify_ldt () {123;}' unless defined(&__NR_modify_ldt); eval 'sub __NR_adjtimex () {124;}' unless defined(&__NR_adjtimex); eval 'sub __NR_mprotect () {125;}' unless defined(&__NR_mprotect); eval 'sub __NR_sigprocmask () {126;}' unless defined(&__NR_sigprocmask); eval 'sub __NR_create_module () {127;}' unless defined(&__NR_create_module); eval 'sub __NR_init_module () {128;}' unless defined(&__NR_init_module); eval 'sub __NR_delete_module () {129;}' unless defined(&__NR_delete_module); eval 'sub __NR_get_kernel_syms () {130;}' unless defined(&__NR_get_kernel_syms); eval 'sub __NR_quotactl () {131;}' unless defined(&__NR_quotactl); eval 'sub __NR_getpgid () {132;}' unless defined(&__NR_getpgid); eval 'sub __NR_fchdir () {133;}' unless defined(&__NR_fchdir); eval 'sub __NR_bdflush () {134;}' unless defined(&__NR_bdflush); eval 'sub __NR_sysfs () {135;}' unless defined(&__NR_sysfs); eval 'sub __NR_personality () {136;}' unless defined(&__NR_personality); eval 'sub __NR_afs_syscall () {137;}' unless defined(&__NR_afs_syscall); eval 'sub __NR_setfsuid () {138;}' unless defined(&__NR_setfsuid); eval 'sub __NR_setfsgid () {139;}' unless defined(&__NR_setfsgid); eval 'sub __NR__llseek () {140;}' unless defined(&__NR__llseek); eval 'sub __NR_getdents () {141;}' unless defined(&__NR_getdents); eval 'sub __NR__newselect () {142;}' unless defined(&__NR__newselect); eval 'sub __NR_flock () {143;}' unless defined(&__NR_flock); eval 'sub __NR_msync () {144;}' unless defined(&__NR_msync); eval 'sub __NR_readv () {145;}' unless defined(&__NR_readv); eval 'sub __NR_writev () {146;}' unless defined(&__NR_writev); eval 'sub __NR_getsid () {147;}' unless defined(&__NR_getsid); eval 'sub __NR_fdatasync () {148;}' unless defined(&__NR_fdatasync); eval 'sub __NR__sysctl () {149;}' unless defined(&__NR__sysctl); eval 'sub __NR_mlock () {150;}' unless defined(&__NR_mlock); eval 'sub __NR_munlock () {151;}' unless defined(&__NR_munlock); eval 'sub __NR_mlockall () {152;}' unless defined(&__NR_mlockall); eval 'sub __NR_munlockall () {153;}' unless defined(&__NR_munlockall); eval 'sub __NR_sched_setparam () {154;}' unless defined(&__NR_sched_setparam); eval 'sub __NR_sched_getparam () {155;}' unless defined(&__NR_sched_getparam); eval 'sub __NR_sched_setscheduler () {156;}' unless defined(&__NR_sched_setscheduler); eval 'sub __NR_sched_getscheduler () {157;}' unless defined(&__NR_sched_getscheduler); eval 'sub __NR_sched_yield () {158;}' unless defined(&__NR_sched_yield); eval 'sub __NR_sched_get_priority_max () {159;}' unless defined(&__NR_sched_get_priority_max); eval 'sub __NR_sched_get_priority_min () {160;}' unless defined(&__NR_sched_get_priority_min); eval 'sub __NR_sched_rr_get_interval () {161;}' unless defined(&__NR_sched_rr_get_interval); eval 'sub __NR_nanosleep () {162;}' unless defined(&__NR_nanosleep); eval 'sub __NR_mremap () {163;}' unless defined(&__NR_mremap); eval 'sub __NR_setresuid () {164;}' unless defined(&__NR_setresuid); eval 'sub __NR_getresuid () {165;}' unless defined(&__NR_getresuid); eval 'sub __NR_vm86 () {166;}' unless defined(&__NR_vm86); eval 'sub __NR_query_module () {167;}' unless defined(&__NR_query_module); eval 'sub __NR_poll () {168;}' unless defined(&__NR_poll); eval 'sub __NR_nfsservctl () {169;}' unless defined(&__NR_nfsservctl); eval 'sub __NR_setresgid () {170;}' unless defined(&__NR_setresgid); eval 'sub __NR_getresgid () {171;}' unless defined(&__NR_getresgid); eval 'sub __NR_prctl () {172;}' unless defined(&__NR_prctl); eval 'sub __NR_rt_sigreturn () {173;}' unless defined(&__NR_rt_sigreturn); eval 'sub __NR_rt_sigaction () {174;}' unless defined(&__NR_rt_sigaction); eval 'sub __NR_rt_sigprocmask () {175;}' unless defined(&__NR_rt_sigprocmask); eval 'sub __NR_rt_sigpending () {176;}' unless defined(&__NR_rt_sigpending); eval 'sub __NR_rt_sigtimedwait () {177;}' unless defined(&__NR_rt_sigtimedwait); eval 'sub __NR_rt_sigqueueinfo () {178;}' unless defined(&__NR_rt_sigqueueinfo); eval 'sub __NR_rt_sigsuspend () {179;}' unless defined(&__NR_rt_sigsuspend); eval 'sub __NR_pread64 () {180;}' unless defined(&__NR_pread64); eval 'sub __NR_pwrite64 () {181;}' unless defined(&__NR_pwrite64); eval 'sub __NR_chown () {182;}' unless defined(&__NR_chown); eval 'sub __NR_getcwd () {183;}' unless defined(&__NR_getcwd); eval 'sub __NR_capget () {184;}' unless defined(&__NR_capget); eval 'sub __NR_capset () {185;}' unless defined(&__NR_capset); eval 'sub __NR_sigaltstack () {186;}' unless defined(&__NR_sigaltstack); eval 'sub __NR_sendfile () {187;}' unless defined(&__NR_sendfile); eval 'sub __NR_getpmsg () {188;}' unless defined(&__NR_getpmsg); eval 'sub __NR_putpmsg () {189;}' unless defined(&__NR_putpmsg); eval 'sub __NR_vfork () {190;}' unless defined(&__NR_vfork); eval 'sub __NR_ugetrlimit () {191;}' unless defined(&__NR_ugetrlimit); eval 'sub __NR_mmap2 () {192;}' unless defined(&__NR_mmap2); eval 'sub __NR_truncate64 () {193;}' unless defined(&__NR_truncate64); eval 'sub __NR_ftruncate64 () {194;}' unless defined(&__NR_ftruncate64); eval 'sub __NR_stat64 () {195;}' unless defined(&__NR_stat64); eval 'sub __NR_lstat64 () {196;}' unless defined(&__NR_lstat64); eval 'sub __NR_fstat64 () {197;}' unless defined(&__NR_fstat64); eval 'sub __NR_lchown32 () {198;}' unless defined(&__NR_lchown32); eval 'sub __NR_getuid32 () {199;}' unless defined(&__NR_getuid32); eval 'sub __NR_getgid32 () {200;}' unless defined(&__NR_getgid32); eval 'sub __NR_geteuid32 () {201;}' unless defined(&__NR_geteuid32); eval 'sub __NR_getegid32 () {202;}' unless defined(&__NR_getegid32); eval 'sub __NR_setreuid32 () {203;}' unless defined(&__NR_setreuid32); eval 'sub __NR_setregid32 () {204;}' unless defined(&__NR_setregid32); eval 'sub __NR_getgroups32 () {205;}' unless defined(&__NR_getgroups32); eval 'sub __NR_setgroups32 () {206;}' unless defined(&__NR_setgroups32); eval 'sub __NR_fchown32 () {207;}' unless defined(&__NR_fchown32); eval 'sub __NR_setresuid32 () {208;}' unless defined(&__NR_setresuid32); eval 'sub __NR_getresuid32 () {209;}' unless defined(&__NR_getresuid32); eval 'sub __NR_setresgid32 () {210;}' unless defined(&__NR_setresgid32); eval 'sub __NR_getresgid32 () {211;}' unless defined(&__NR_getresgid32); eval 'sub __NR_chown32 () {212;}' unless defined(&__NR_chown32); eval 'sub __NR_setuid32 () {213;}' unless defined(&__NR_setuid32); eval 'sub __NR_setgid32 () {214;}' unless defined(&__NR_setgid32); eval 'sub __NR_setfsuid32 () {215;}' unless defined(&__NR_setfsuid32); eval 'sub __NR_setfsgid32 () {216;}' unless defined(&__NR_setfsgid32); eval 'sub __NR_pivot_root () {217;}' unless defined(&__NR_pivot_root); eval 'sub __NR_mincore () {218;}' unless defined(&__NR_mincore); eval 'sub __NR_madvise () {219;}' unless defined(&__NR_madvise); eval 'sub __NR_getdents64 () {220;}' unless defined(&__NR_getdents64); eval 'sub __NR_fcntl64 () {221;}' unless defined(&__NR_fcntl64); eval 'sub __NR_gettid () {224;}' unless defined(&__NR_gettid); eval 'sub __NR_readahead () {225;}' unless defined(&__NR_readahead); eval 'sub __NR_setxattr () {226;}' unless defined(&__NR_setxattr); eval 'sub __NR_lsetxattr () {227;}' unless defined(&__NR_lsetxattr); eval 'sub __NR_fsetxattr () {228;}' unless defined(&__NR_fsetxattr); eval 'sub __NR_getxattr () {229;}' unless defined(&__NR_getxattr); eval 'sub __NR_lgetxattr () {230;}' unless defined(&__NR_lgetxattr); eval 'sub __NR_fgetxattr () {231;}' unless defined(&__NR_fgetxattr); eval 'sub __NR_listxattr () {232;}' unless defined(&__NR_listxattr); eval 'sub __NR_llistxattr () {233;}' unless defined(&__NR_llistxattr); eval 'sub __NR_flistxattr () {234;}' unless defined(&__NR_flistxattr); eval 'sub __NR_removexattr () {235;}' unless defined(&__NR_removexattr); eval 'sub __NR_lremovexattr () {236;}' unless defined(&__NR_lremovexattr); eval 'sub __NR_fremovexattr () {237;}' unless defined(&__NR_fremovexattr); eval 'sub __NR_tkill () {238;}' unless defined(&__NR_tkill); eval 'sub __NR_sendfile64 () {239;}' unless defined(&__NR_sendfile64); eval 'sub __NR_futex () {240;}' unless defined(&__NR_futex); eval 'sub __NR_sched_setaffinity () {241;}' unless defined(&__NR_sched_setaffinity); eval 'sub __NR_sched_getaffinity () {242;}' unless defined(&__NR_sched_getaffinity); eval 'sub __NR_set_thread_area () {243;}' unless defined(&__NR_set_thread_area); eval 'sub __NR_get_thread_area () {244;}' unless defined(&__NR_get_thread_area); eval 'sub __NR_io_setup () {245;}' unless defined(&__NR_io_setup); eval 'sub __NR_io_destroy () {246;}' unless defined(&__NR_io_destroy); eval 'sub __NR_io_getevents () {247;}' unless defined(&__NR_io_getevents); eval 'sub __NR_io_submit () {248;}' unless defined(&__NR_io_submit); eval 'sub __NR_io_cancel () {249;}' unless defined(&__NR_io_cancel); eval 'sub __NR_fadvise64 () {250;}' unless defined(&__NR_fadvise64); eval 'sub __NR_exit_group () {252;}' unless defined(&__NR_exit_group); eval 'sub __NR_lookup_dcookie () {253;}' unless defined(&__NR_lookup_dcookie); eval 'sub __NR_epoll_create () {254;}' unless defined(&__NR_epoll_create); eval 'sub __NR_epoll_ctl () {255;}' unless defined(&__NR_epoll_ctl); eval 'sub __NR_epoll_wait () {256;}' unless defined(&__NR_epoll_wait); eval 'sub __NR_remap_file_pages () {257;}' unless defined(&__NR_remap_file_pages); eval 'sub __NR_set_tid_address () {258;}' unless defined(&__NR_set_tid_address); eval 'sub __NR_timer_create () {259;}' unless defined(&__NR_timer_create); eval 'sub __NR_timer_settime () {260;}' unless defined(&__NR_timer_settime); eval 'sub __NR_timer_gettime () {261;}' unless defined(&__NR_timer_gettime); eval 'sub __NR_timer_getoverrun () {262;}' unless defined(&__NR_timer_getoverrun); eval 'sub __NR_timer_delete () {263;}' unless defined(&__NR_timer_delete); eval 'sub __NR_clock_settime () {264;}' unless defined(&__NR_clock_settime); eval 'sub __NR_clock_gettime () {265;}' unless defined(&__NR_clock_gettime); eval 'sub __NR_clock_getres () {266;}' unless defined(&__NR_clock_getres); eval 'sub __NR_clock_nanosleep () {267;}' unless defined(&__NR_clock_nanosleep); eval 'sub __NR_statfs64 () {268;}' unless defined(&__NR_statfs64); eval 'sub __NR_fstatfs64 () {269;}' unless defined(&__NR_fstatfs64); eval 'sub __NR_tgkill () {270;}' unless defined(&__NR_tgkill); eval 'sub __NR_utimes () {271;}' unless defined(&__NR_utimes); eval 'sub __NR_fadvise64_64 () {272;}' unless defined(&__NR_fadvise64_64); eval 'sub __NR_vserver () {273;}' unless defined(&__NR_vserver); eval 'sub __NR_mbind () {274;}' unless defined(&__NR_mbind); eval 'sub __NR_get_mempolicy () {275;}' unless defined(&__NR_get_mempolicy); eval 'sub __NR_set_mempolicy () {276;}' unless defined(&__NR_set_mempolicy); eval 'sub __NR_mq_open () {277;}' unless defined(&__NR_mq_open); eval 'sub __NR_mq_unlink () {278;}' unless defined(&__NR_mq_unlink); eval 'sub __NR_mq_timedsend () {279;}' unless defined(&__NR_mq_timedsend); eval 'sub __NR_mq_timedreceive () {280;}' unless defined(&__NR_mq_timedreceive); eval 'sub __NR_mq_notify () {281;}' unless defined(&__NR_mq_notify); eval 'sub __NR_mq_getsetattr () {282;}' unless defined(&__NR_mq_getsetattr); eval 'sub __NR_kexec_load () {283;}' unless defined(&__NR_kexec_load); eval 'sub __NR_waitid () {284;}' unless defined(&__NR_waitid); eval 'sub __NR_add_key () {286;}' unless defined(&__NR_add_key); eval 'sub __NR_request_key () {287;}' unless defined(&__NR_request_key); eval 'sub __NR_keyctl () {288;}' unless defined(&__NR_keyctl); eval 'sub __NR_ioprio_set () {289;}' unless defined(&__NR_ioprio_set); eval 'sub __NR_ioprio_get () {290;}' unless defined(&__NR_ioprio_get); eval 'sub __NR_inotify_init () {291;}' unless defined(&__NR_inotify_init); eval 'sub __NR_inotify_add_watch () {292;}' unless defined(&__NR_inotify_add_watch); eval 'sub __NR_inotify_rm_watch () {293;}' unless defined(&__NR_inotify_rm_watch); eval 'sub __NR_migrate_pages () {294;}' unless defined(&__NR_migrate_pages); eval 'sub __NR_openat () {295;}' unless defined(&__NR_openat); eval 'sub __NR_mkdirat () {296;}' unless defined(&__NR_mkdirat); eval 'sub __NR_mknodat () {297;}' unless defined(&__NR_mknodat); eval 'sub __NR_fchownat () {298;}' unless defined(&__NR_fchownat); eval 'sub __NR_futimesat () {299;}' unless defined(&__NR_futimesat); eval 'sub __NR_fstatat64 () {300;}' unless defined(&__NR_fstatat64); eval 'sub __NR_unlinkat () {301;}' unless defined(&__NR_unlinkat); eval 'sub __NR_renameat () {302;}' unless defined(&__NR_renameat); eval 'sub __NR_linkat () {303;}' unless defined(&__NR_linkat); eval 'sub __NR_symlinkat () {304;}' unless defined(&__NR_symlinkat); eval 'sub __NR_readlinkat () {305;}' unless defined(&__NR_readlinkat); eval 'sub __NR_fchmodat () {306;}' unless defined(&__NR_fchmodat); eval 'sub __NR_faccessat () {307;}' unless defined(&__NR_faccessat); eval 'sub __NR_pselect6 () {308;}' unless defined(&__NR_pselect6); eval 'sub __NR_ppoll () {309;}' unless defined(&__NR_ppoll); eval 'sub __NR_unshare () {310;}' unless defined(&__NR_unshare); eval 'sub __NR_set_robust_list () {311;}' unless defined(&__NR_set_robust_list); eval 'sub __NR_get_robust_list () {312;}' unless defined(&__NR_get_robust_list); eval 'sub __NR_splice () {313;}' unless defined(&__NR_splice); eval 'sub __NR_sync_file_range () {314;}' unless defined(&__NR_sync_file_range); eval 'sub __NR_tee () {315;}' unless defined(&__NR_tee); eval 'sub __NR_vmsplice () {316;}' unless defined(&__NR_vmsplice); eval 'sub __NR_move_pages () {317;}' unless defined(&__NR_move_pages); eval 'sub __NR_getcpu () {318;}' unless defined(&__NR_getcpu); eval 'sub __NR_epoll_pwait () {319;}' unless defined(&__NR_epoll_pwait); eval 'sub __NR_utimensat () {320;}' unless defined(&__NR_utimensat); eval 'sub __NR_signalfd () {321;}' unless defined(&__NR_signalfd); eval 'sub __NR_timerfd_create () {322;}' unless defined(&__NR_timerfd_create); eval 'sub __NR_eventfd () {323;}' unless defined(&__NR_eventfd); eval 'sub __NR_fallocate () {324;}' unless defined(&__NR_fallocate); eval 'sub __NR_timerfd_settime () {325;}' unless defined(&__NR_timerfd_settime); eval 'sub __NR_timerfd_gettime () {326;}' unless defined(&__NR_timerfd_gettime); eval 'sub __NR_signalfd4 () {327;}' unless defined(&__NR_signalfd4); eval 'sub __NR_eventfd2 () {328;}' unless defined(&__NR_eventfd2); eval 'sub __NR_epoll_create1 () {329;}' unless defined(&__NR_epoll_create1); eval 'sub __NR_dup3 () {330;}' unless defined(&__NR_dup3); eval 'sub __NR_pipe2 () {331;}' unless defined(&__NR_pipe2); eval 'sub __NR_inotify_init1 () {332;}' unless defined(&__NR_inotify_init1); eval 'sub __NR_preadv () {333;}' unless defined(&__NR_preadv); eval 'sub __NR_pwritev () {334;}' unless defined(&__NR_pwritev); eval 'sub __NR_rt_tgsigqueueinfo () {335;}' unless defined(&__NR_rt_tgsigqueueinfo); eval 'sub __NR_perf_event_open () {336;}' unless defined(&__NR_perf_event_open); eval 'sub __NR_recvmmsg () {337;}' unless defined(&__NR_recvmmsg); eval 'sub __NR_fanotify_init () {338;}' unless defined(&__NR_fanotify_init); eval 'sub __NR_fanotify_mark () {339;}' unless defined(&__NR_fanotify_mark); eval 'sub __NR_prlimit64 () {340;}' unless defined(&__NR_prlimit64); eval 'sub __NR_name_to_handle_at () {341;}' unless defined(&__NR_name_to_handle_at); eval 'sub __NR_open_by_handle_at () {342;}' unless defined(&__NR_open_by_handle_at); eval 'sub __NR_clock_adjtime () {343;}' unless defined(&__NR_clock_adjtime); eval 'sub __NR_syncfs () {344;}' unless defined(&__NR_syncfs); eval 'sub __NR_sendmmsg () {345;}' unless defined(&__NR_sendmmsg); eval 'sub __NR_setns () {346;}' unless defined(&__NR_setns); eval 'sub __NR_process_vm_readv () {347;}' unless defined(&__NR_process_vm_readv); eval 'sub __NR_process_vm_writev () {348;}' unless defined(&__NR_process_vm_writev); eval 'sub __NR_kcmp () {349;}' unless defined(&__NR_kcmp); eval 'sub __NR_finit_module () {350;}' unless defined(&__NR_finit_module); eval 'sub __NR_sched_setattr () {351;}' unless defined(&__NR_sched_setattr); eval 'sub __NR_sched_getattr () {352;}' unless defined(&__NR_sched_getattr); eval 'sub __NR_seccomp () {354;}' unless defined(&__NR_seccomp); eval 'sub __NR_getrandom () {355;}' unless defined(&__NR_getrandom); eval 'sub __NR_memfd_create () {356;}' unless defined(&__NR_memfd_create); eval 'sub __NR_bpf () {357;}' unless defined(&__NR_bpf); eval 'sub __NR_userfaultfd () {374;}' unless defined(&__NR_userfaultfd); eval 'sub __NR_membarrier () {375;}' unless defined(&__NR_membarrier); eval 'sub __NR_mlock2 () {376;}' unless defined(&__NR_mlock2); eval 'sub __NR_copy_file_range () {377;}' unless defined(&__NR_copy_file_range); eval 'sub __NR_pkey_mprotect () {380;}' unless defined(&__NR_pkey_mprotect); eval 'sub __NR_pkey_alloc () {381;}' unless defined(&__NR_pkey_alloc); eval 'sub __NR_pkey_free () {382;}' unless defined(&__NR_pkey_free); } 1; asm/bitsperlong.ph 0000644 00000000655 15231101164 0010205 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__ASM_X86_BITSPERLONG_H)) { eval 'sub __ASM_X86_BITSPERLONG_H () {1;}' unless defined(&__ASM_X86_BITSPERLONG_H); if(defined(&__x86_64__)) { eval 'sub __BITS_PER_LONG () {64;}' unless defined(&__BITS_PER_LONG); } else { eval 'sub __BITS_PER_LONG () {32;}' unless defined(&__BITS_PER_LONG); } require 'asm-generic/bitsperlong.ph'; } 1; asm/posix_types_32.ph 0000644 00000000363 15231101164 0010543 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_ASM_X86_POSIX_TYPES_32_H)) { eval 'sub _ASM_X86_POSIX_TYPES_32_H () {1;}' unless defined(&_ASM_X86_POSIX_TYPES_32_H); require 'asm-generic/posix_types.ph'; } 1; asm/posix_types_64.ph 0000644 00000000363 15231101164 0010550 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_ASM_X86_POSIX_TYPES_64_H)) { eval 'sub _ASM_X86_POSIX_TYPES_64_H () {1;}' unless defined(&_ASM_X86_POSIX_TYPES_64_H); require 'asm-generic/posix_types.ph'; } 1; asm/termios.ph 0000644 00000000136 15231101164 0007331 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); require 'asm-generic/termios.ph'; 1; asm/socket.ph 0000644 00000000135 15231101164 0007136 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); require 'asm-generic/socket.ph'; 1; asm/unistd_64.ph 0000644 00000056605 15231101164 0007502 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_ASM_X86_UNISTD_64_H)) { eval 'sub _ASM_X86_UNISTD_64_H () {1;}' unless defined(&_ASM_X86_UNISTD_64_H); eval 'sub __NR_read () {0;}' unless defined(&__NR_read); eval 'sub __NR_write () {1;}' unless defined(&__NR_write); eval 'sub __NR_open () {2;}' unless defined(&__NR_open); eval 'sub __NR_close () {3;}' unless defined(&__NR_close); eval 'sub __NR_stat () {4;}' unless defined(&__NR_stat); eval 'sub __NR_fstat () {5;}' unless defined(&__NR_fstat); eval 'sub __NR_lstat () {6;}' unless defined(&__NR_lstat); eval 'sub __NR_poll () {7;}' unless defined(&__NR_poll); eval 'sub __NR_lseek () {8;}' unless defined(&__NR_lseek); eval 'sub __NR_mmap () {9;}' unless defined(&__NR_mmap); eval 'sub __NR_mprotect () {10;}' unless defined(&__NR_mprotect); eval 'sub __NR_munmap () {11;}' unless defined(&__NR_munmap); eval 'sub __NR_brk () {12;}' unless defined(&__NR_brk); eval 'sub __NR_rt_sigaction () {13;}' unless defined(&__NR_rt_sigaction); eval 'sub __NR_rt_sigprocmask () {14;}' unless defined(&__NR_rt_sigprocmask); eval 'sub __NR_rt_sigreturn () {15;}' unless defined(&__NR_rt_sigreturn); eval 'sub __NR_ioctl () {16;}' unless defined(&__NR_ioctl); eval 'sub __NR_pread64 () {17;}' unless defined(&__NR_pread64); eval 'sub __NR_pwrite64 () {18;}' unless defined(&__NR_pwrite64); eval 'sub __NR_readv () {19;}' unless defined(&__NR_readv); eval 'sub __NR_writev () {20;}' unless defined(&__NR_writev); eval 'sub __NR_access () {21;}' unless defined(&__NR_access); eval 'sub __NR_pipe () {22;}' unless defined(&__NR_pipe); eval 'sub __NR_select () {23;}' unless defined(&__NR_select); eval 'sub __NR_sched_yield () {24;}' unless defined(&__NR_sched_yield); eval 'sub __NR_mremap () {25;}' unless defined(&__NR_mremap); eval 'sub __NR_msync () {26;}' unless defined(&__NR_msync); eval 'sub __NR_mincore () {27;}' unless defined(&__NR_mincore); eval 'sub __NR_madvise () {28;}' unless defined(&__NR_madvise); eval 'sub __NR_shmget () {29;}' unless defined(&__NR_shmget); eval 'sub __NR_shmat () {30;}' unless defined(&__NR_shmat); eval 'sub __NR_shmctl () {31;}' unless defined(&__NR_shmctl); eval 'sub __NR_dup () {32;}' unless defined(&__NR_dup); eval 'sub __NR_dup2 () {33;}' unless defined(&__NR_dup2); eval 'sub __NR_pause () {34;}' unless defined(&__NR_pause); eval 'sub __NR_nanosleep () {35;}' unless defined(&__NR_nanosleep); eval 'sub __NR_getitimer () {36;}' unless defined(&__NR_getitimer); eval 'sub __NR_alarm () {37;}' unless defined(&__NR_alarm); eval 'sub __NR_setitimer () {38;}' unless defined(&__NR_setitimer); eval 'sub __NR_getpid () {39;}' unless defined(&__NR_getpid); eval 'sub __NR_sendfile () {40;}' unless defined(&__NR_sendfile); eval 'sub __NR_socket () {41;}' unless defined(&__NR_socket); eval 'sub __NR_connect () {42;}' unless defined(&__NR_connect); eval 'sub __NR_accept () {43;}' unless defined(&__NR_accept); eval 'sub __NR_sendto () {44;}' unless defined(&__NR_sendto); eval 'sub __NR_recvfrom () {45;}' unless defined(&__NR_recvfrom); eval 'sub __NR_sendmsg () {46;}' unless defined(&__NR_sendmsg); eval 'sub __NR_recvmsg () {47;}' unless defined(&__NR_recvmsg); eval 'sub __NR_shutdown () {48;}' unless defined(&__NR_shutdown); eval 'sub __NR_bind () {49;}' unless defined(&__NR_bind); eval 'sub __NR_listen () {50;}' unless defined(&__NR_listen); eval 'sub __NR_getsockname () {51;}' unless defined(&__NR_getsockname); eval 'sub __NR_getpeername () {52;}' unless defined(&__NR_getpeername); eval 'sub __NR_socketpair () {53;}' unless defined(&__NR_socketpair); eval 'sub __NR_setsockopt () {54;}' unless defined(&__NR_setsockopt); eval 'sub __NR_getsockopt () {55;}' unless defined(&__NR_getsockopt); eval 'sub __NR_clone () {56;}' unless defined(&__NR_clone); eval 'sub __NR_fork () {57;}' unless defined(&__NR_fork); eval 'sub __NR_vfork () {58;}' unless defined(&__NR_vfork); eval 'sub __NR_execve () {59;}' unless defined(&__NR_execve); eval 'sub __NR_exit () {60;}' unless defined(&__NR_exit); eval 'sub __NR_wait4 () {61;}' unless defined(&__NR_wait4); eval 'sub __NR_kill () {62;}' unless defined(&__NR_kill); eval 'sub __NR_uname () {63;}' unless defined(&__NR_uname); eval 'sub __NR_semget () {64;}' unless defined(&__NR_semget); eval 'sub __NR_semop () {65;}' unless defined(&__NR_semop); eval 'sub __NR_semctl () {66;}' unless defined(&__NR_semctl); eval 'sub __NR_shmdt () {67;}' unless defined(&__NR_shmdt); eval 'sub __NR_msgget () {68;}' unless defined(&__NR_msgget); eval 'sub __NR_msgsnd () {69;}' unless defined(&__NR_msgsnd); eval 'sub __NR_msgrcv () {70;}' unless defined(&__NR_msgrcv); eval 'sub __NR_msgctl () {71;}' unless defined(&__NR_msgctl); eval 'sub __NR_fcntl () {72;}' unless defined(&__NR_fcntl); eval 'sub __NR_flock () {73;}' unless defined(&__NR_flock); eval 'sub __NR_fsync () {74;}' unless defined(&__NR_fsync); eval 'sub __NR_fdatasync () {75;}' unless defined(&__NR_fdatasync); eval 'sub __NR_truncate () {76;}' unless defined(&__NR_truncate); eval 'sub __NR_ftruncate () {77;}' unless defined(&__NR_ftruncate); eval 'sub __NR_getdents () {78;}' unless defined(&__NR_getdents); eval 'sub __NR_getcwd () {79;}' unless defined(&__NR_getcwd); eval 'sub __NR_chdir () {80;}' unless defined(&__NR_chdir); eval 'sub __NR_fchdir () {81;}' unless defined(&__NR_fchdir); eval 'sub __NR_rename () {82;}' unless defined(&__NR_rename); eval 'sub __NR_mkdir () {83;}' unless defined(&__NR_mkdir); eval 'sub __NR_rmdir () {84;}' unless defined(&__NR_rmdir); eval 'sub __NR_creat () {85;}' unless defined(&__NR_creat); eval 'sub __NR_link () {86;}' unless defined(&__NR_link); eval 'sub __NR_unlink () {87;}' unless defined(&__NR_unlink); eval 'sub __NR_symlink () {88;}' unless defined(&__NR_symlink); eval 'sub __NR_readlink () {89;}' unless defined(&__NR_readlink); eval 'sub __NR_chmod () {90;}' unless defined(&__NR_chmod); eval 'sub __NR_fchmod () {91;}' unless defined(&__NR_fchmod); eval 'sub __NR_chown () {92;}' unless defined(&__NR_chown); eval 'sub __NR_fchown () {93;}' unless defined(&__NR_fchown); eval 'sub __NR_lchown () {94;}' unless defined(&__NR_lchown); eval 'sub __NR_umask () {95;}' unless defined(&__NR_umask); eval 'sub __NR_gettimeofday () {96;}' unless defined(&__NR_gettimeofday); eval 'sub __NR_getrlimit () {97;}' unless defined(&__NR_getrlimit); eval 'sub __NR_getrusage () {98;}' unless defined(&__NR_getrusage); eval 'sub __NR_sysinfo () {99;}' unless defined(&__NR_sysinfo); eval 'sub __NR_times () {100;}' unless defined(&__NR_times); eval 'sub __NR_ptrace () {101;}' unless defined(&__NR_ptrace); eval 'sub __NR_getuid () {102;}' unless defined(&__NR_getuid); eval 'sub __NR_syslog () {103;}' unless defined(&__NR_syslog); eval 'sub __NR_getgid () {104;}' unless defined(&__NR_getgid); eval 'sub __NR_setuid () {105;}' unless defined(&__NR_setuid); eval 'sub __NR_setgid () {106;}' unless defined(&__NR_setgid); eval 'sub __NR_geteuid () {107;}' unless defined(&__NR_geteuid); eval 'sub __NR_getegid () {108;}' unless defined(&__NR_getegid); eval 'sub __NR_setpgid () {109;}' unless defined(&__NR_setpgid); eval 'sub __NR_getppid () {110;}' unless defined(&__NR_getppid); eval 'sub __NR_getpgrp () {111;}' unless defined(&__NR_getpgrp); eval 'sub __NR_setsid () {112;}' unless defined(&__NR_setsid); eval 'sub __NR_setreuid () {113;}' unless defined(&__NR_setreuid); eval 'sub __NR_setregid () {114;}' unless defined(&__NR_setregid); eval 'sub __NR_getgroups () {115;}' unless defined(&__NR_getgroups); eval 'sub __NR_setgroups () {116;}' unless defined(&__NR_setgroups); eval 'sub __NR_setresuid () {117;}' unless defined(&__NR_setresuid); eval 'sub __NR_getresuid () {118;}' unless defined(&__NR_getresuid); eval 'sub __NR_setresgid () {119;}' unless defined(&__NR_setresgid); eval 'sub __NR_getresgid () {120;}' unless defined(&__NR_getresgid); eval 'sub __NR_getpgid () {121;}' unless defined(&__NR_getpgid); eval 'sub __NR_setfsuid () {122;}' unless defined(&__NR_setfsuid); eval 'sub __NR_setfsgid () {123;}' unless defined(&__NR_setfsgid); eval 'sub __NR_getsid () {124;}' unless defined(&__NR_getsid); eval 'sub __NR_capget () {125;}' unless defined(&__NR_capget); eval 'sub __NR_capset () {126;}' unless defined(&__NR_capset); eval 'sub __NR_rt_sigpending () {127;}' unless defined(&__NR_rt_sigpending); eval 'sub __NR_rt_sigtimedwait () {128;}' unless defined(&__NR_rt_sigtimedwait); eval 'sub __NR_rt_sigqueueinfo () {129;}' unless defined(&__NR_rt_sigqueueinfo); eval 'sub __NR_rt_sigsuspend () {130;}' unless defined(&__NR_rt_sigsuspend); eval 'sub __NR_sigaltstack () {131;}' unless defined(&__NR_sigaltstack); eval 'sub __NR_utime () {132;}' unless defined(&__NR_utime); eval 'sub __NR_mknod () {133;}' unless defined(&__NR_mknod); eval 'sub __NR_uselib () {134;}' unless defined(&__NR_uselib); eval 'sub __NR_personality () {135;}' unless defined(&__NR_personality); eval 'sub __NR_ustat () {136;}' unless defined(&__NR_ustat); eval 'sub __NR_statfs () {137;}' unless defined(&__NR_statfs); eval 'sub __NR_fstatfs () {138;}' unless defined(&__NR_fstatfs); eval 'sub __NR_sysfs () {139;}' unless defined(&__NR_sysfs); eval 'sub __NR_getpriority () {140;}' unless defined(&__NR_getpriority); eval 'sub __NR_setpriority () {141;}' unless defined(&__NR_setpriority); eval 'sub __NR_sched_setparam () {142;}' unless defined(&__NR_sched_setparam); eval 'sub __NR_sched_getparam () {143;}' unless defined(&__NR_sched_getparam); eval 'sub __NR_sched_setscheduler () {144;}' unless defined(&__NR_sched_setscheduler); eval 'sub __NR_sched_getscheduler () {145;}' unless defined(&__NR_sched_getscheduler); eval 'sub __NR_sched_get_priority_max () {146;}' unless defined(&__NR_sched_get_priority_max); eval 'sub __NR_sched_get_priority_min () {147;}' unless defined(&__NR_sched_get_priority_min); eval 'sub __NR_sched_rr_get_interval () {148;}' unless defined(&__NR_sched_rr_get_interval); eval 'sub __NR_mlock () {149;}' unless defined(&__NR_mlock); eval 'sub __NR_munlock () {150;}' unless defined(&__NR_munlock); eval 'sub __NR_mlockall () {151;}' unless defined(&__NR_mlockall); eval 'sub __NR_munlockall () {152;}' unless defined(&__NR_munlockall); eval 'sub __NR_vhangup () {153;}' unless defined(&__NR_vhangup); eval 'sub __NR_modify_ldt () {154;}' unless defined(&__NR_modify_ldt); eval 'sub __NR_pivot_root () {155;}' unless defined(&__NR_pivot_root); eval 'sub __NR__sysctl () {156;}' unless defined(&__NR__sysctl); eval 'sub __NR_prctl () {157;}' unless defined(&__NR_prctl); eval 'sub __NR_arch_prctl () {158;}' unless defined(&__NR_arch_prctl); eval 'sub __NR_adjtimex () {159;}' unless defined(&__NR_adjtimex); eval 'sub __NR_setrlimit () {160;}' unless defined(&__NR_setrlimit); eval 'sub __NR_chroot () {161;}' unless defined(&__NR_chroot); eval 'sub __NR_sync () {162;}' unless defined(&__NR_sync); eval 'sub __NR_acct () {163;}' unless defined(&__NR_acct); eval 'sub __NR_settimeofday () {164;}' unless defined(&__NR_settimeofday); eval 'sub __NR_mount () {165;}' unless defined(&__NR_mount); eval 'sub __NR_umount2 () {166;}' unless defined(&__NR_umount2); eval 'sub __NR_swapon () {167;}' unless defined(&__NR_swapon); eval 'sub __NR_swapoff () {168;}' unless defined(&__NR_swapoff); eval 'sub __NR_reboot () {169;}' unless defined(&__NR_reboot); eval 'sub __NR_sethostname () {170;}' unless defined(&__NR_sethostname); eval 'sub __NR_setdomainname () {171;}' unless defined(&__NR_setdomainname); eval 'sub __NR_iopl () {172;}' unless defined(&__NR_iopl); eval 'sub __NR_ioperm () {173;}' unless defined(&__NR_ioperm); eval 'sub __NR_create_module () {174;}' unless defined(&__NR_create_module); eval 'sub __NR_init_module () {175;}' unless defined(&__NR_init_module); eval 'sub __NR_delete_module () {176;}' unless defined(&__NR_delete_module); eval 'sub __NR_get_kernel_syms () {177;}' unless defined(&__NR_get_kernel_syms); eval 'sub __NR_query_module () {178;}' unless defined(&__NR_query_module); eval 'sub __NR_quotactl () {179;}' unless defined(&__NR_quotactl); eval 'sub __NR_nfsservctl () {180;}' unless defined(&__NR_nfsservctl); eval 'sub __NR_getpmsg () {181;}' unless defined(&__NR_getpmsg); eval 'sub __NR_putpmsg () {182;}' unless defined(&__NR_putpmsg); eval 'sub __NR_afs_syscall () {183;}' unless defined(&__NR_afs_syscall); eval 'sub __NR_tuxcall () {184;}' unless defined(&__NR_tuxcall); eval 'sub __NR_security () {185;}' unless defined(&__NR_security); eval 'sub __NR_gettid () {186;}' unless defined(&__NR_gettid); eval 'sub __NR_readahead () {187;}' unless defined(&__NR_readahead); eval 'sub __NR_setxattr () {188;}' unless defined(&__NR_setxattr); eval 'sub __NR_lsetxattr () {189;}' unless defined(&__NR_lsetxattr); eval 'sub __NR_fsetxattr () {190;}' unless defined(&__NR_fsetxattr); eval 'sub __NR_getxattr () {191;}' unless defined(&__NR_getxattr); eval 'sub __NR_lgetxattr () {192;}' unless defined(&__NR_lgetxattr); eval 'sub __NR_fgetxattr () {193;}' unless defined(&__NR_fgetxattr); eval 'sub __NR_listxattr () {194;}' unless defined(&__NR_listxattr); eval 'sub __NR_llistxattr () {195;}' unless defined(&__NR_llistxattr); eval 'sub __NR_flistxattr () {196;}' unless defined(&__NR_flistxattr); eval 'sub __NR_removexattr () {197;}' unless defined(&__NR_removexattr); eval 'sub __NR_lremovexattr () {198;}' unless defined(&__NR_lremovexattr); eval 'sub __NR_fremovexattr () {199;}' unless defined(&__NR_fremovexattr); eval 'sub __NR_tkill () {200;}' unless defined(&__NR_tkill); eval 'sub __NR_time () {201;}' unless defined(&__NR_time); eval 'sub __NR_futex () {202;}' unless defined(&__NR_futex); eval 'sub __NR_sched_setaffinity () {203;}' unless defined(&__NR_sched_setaffinity); eval 'sub __NR_sched_getaffinity () {204;}' unless defined(&__NR_sched_getaffinity); eval 'sub __NR_set_thread_area () {205;}' unless defined(&__NR_set_thread_area); eval 'sub __NR_io_setup () {206;}' unless defined(&__NR_io_setup); eval 'sub __NR_io_destroy () {207;}' unless defined(&__NR_io_destroy); eval 'sub __NR_io_getevents () {208;}' unless defined(&__NR_io_getevents); eval 'sub __NR_io_submit () {209;}' unless defined(&__NR_io_submit); eval 'sub __NR_io_cancel () {210;}' unless defined(&__NR_io_cancel); eval 'sub __NR_get_thread_area () {211;}' unless defined(&__NR_get_thread_area); eval 'sub __NR_lookup_dcookie () {212;}' unless defined(&__NR_lookup_dcookie); eval 'sub __NR_epoll_create () {213;}' unless defined(&__NR_epoll_create); eval 'sub __NR_epoll_ctl_old () {214;}' unless defined(&__NR_epoll_ctl_old); eval 'sub __NR_epoll_wait_old () {215;}' unless defined(&__NR_epoll_wait_old); eval 'sub __NR_remap_file_pages () {216;}' unless defined(&__NR_remap_file_pages); eval 'sub __NR_getdents64 () {217;}' unless defined(&__NR_getdents64); eval 'sub __NR_set_tid_address () {218;}' unless defined(&__NR_set_tid_address); eval 'sub __NR_restart_syscall () {219;}' unless defined(&__NR_restart_syscall); eval 'sub __NR_semtimedop () {220;}' unless defined(&__NR_semtimedop); eval 'sub __NR_fadvise64 () {221;}' unless defined(&__NR_fadvise64); eval 'sub __NR_timer_create () {222;}' unless defined(&__NR_timer_create); eval 'sub __NR_timer_settime () {223;}' unless defined(&__NR_timer_settime); eval 'sub __NR_timer_gettime () {224;}' unless defined(&__NR_timer_gettime); eval 'sub __NR_timer_getoverrun () {225;}' unless defined(&__NR_timer_getoverrun); eval 'sub __NR_timer_delete () {226;}' unless defined(&__NR_timer_delete); eval 'sub __NR_clock_settime () {227;}' unless defined(&__NR_clock_settime); eval 'sub __NR_clock_gettime () {228;}' unless defined(&__NR_clock_gettime); eval 'sub __NR_clock_getres () {229;}' unless defined(&__NR_clock_getres); eval 'sub __NR_clock_nanosleep () {230;}' unless defined(&__NR_clock_nanosleep); eval 'sub __NR_exit_group () {231;}' unless defined(&__NR_exit_group); eval 'sub __NR_epoll_wait () {232;}' unless defined(&__NR_epoll_wait); eval 'sub __NR_epoll_ctl () {233;}' unless defined(&__NR_epoll_ctl); eval 'sub __NR_tgkill () {234;}' unless defined(&__NR_tgkill); eval 'sub __NR_utimes () {235;}' unless defined(&__NR_utimes); eval 'sub __NR_vserver () {236;}' unless defined(&__NR_vserver); eval 'sub __NR_mbind () {237;}' unless defined(&__NR_mbind); eval 'sub __NR_set_mempolicy () {238;}' unless defined(&__NR_set_mempolicy); eval 'sub __NR_get_mempolicy () {239;}' unless defined(&__NR_get_mempolicy); eval 'sub __NR_mq_open () {240;}' unless defined(&__NR_mq_open); eval 'sub __NR_mq_unlink () {241;}' unless defined(&__NR_mq_unlink); eval 'sub __NR_mq_timedsend () {242;}' unless defined(&__NR_mq_timedsend); eval 'sub __NR_mq_timedreceive () {243;}' unless defined(&__NR_mq_timedreceive); eval 'sub __NR_mq_notify () {244;}' unless defined(&__NR_mq_notify); eval 'sub __NR_mq_getsetattr () {245;}' unless defined(&__NR_mq_getsetattr); eval 'sub __NR_kexec_load () {246;}' unless defined(&__NR_kexec_load); eval 'sub __NR_waitid () {247;}' unless defined(&__NR_waitid); eval 'sub __NR_add_key () {248;}' unless defined(&__NR_add_key); eval 'sub __NR_request_key () {249;}' unless defined(&__NR_request_key); eval 'sub __NR_keyctl () {250;}' unless defined(&__NR_keyctl); eval 'sub __NR_ioprio_set () {251;}' unless defined(&__NR_ioprio_set); eval 'sub __NR_ioprio_get () {252;}' unless defined(&__NR_ioprio_get); eval 'sub __NR_inotify_init () {253;}' unless defined(&__NR_inotify_init); eval 'sub __NR_inotify_add_watch () {254;}' unless defined(&__NR_inotify_add_watch); eval 'sub __NR_inotify_rm_watch () {255;}' unless defined(&__NR_inotify_rm_watch); eval 'sub __NR_migrate_pages () {256;}' unless defined(&__NR_migrate_pages); eval 'sub __NR_openat () {257;}' unless defined(&__NR_openat); eval 'sub __NR_mkdirat () {258;}' unless defined(&__NR_mkdirat); eval 'sub __NR_mknodat () {259;}' unless defined(&__NR_mknodat); eval 'sub __NR_fchownat () {260;}' unless defined(&__NR_fchownat); eval 'sub __NR_futimesat () {261;}' unless defined(&__NR_futimesat); eval 'sub __NR_newfstatat () {262;}' unless defined(&__NR_newfstatat); eval 'sub __NR_unlinkat () {263;}' unless defined(&__NR_unlinkat); eval 'sub __NR_renameat () {264;}' unless defined(&__NR_renameat); eval 'sub __NR_linkat () {265;}' unless defined(&__NR_linkat); eval 'sub __NR_symlinkat () {266;}' unless defined(&__NR_symlinkat); eval 'sub __NR_readlinkat () {267;}' unless defined(&__NR_readlinkat); eval 'sub __NR_fchmodat () {268;}' unless defined(&__NR_fchmodat); eval 'sub __NR_faccessat () {269;}' unless defined(&__NR_faccessat); eval 'sub __NR_pselect6 () {270;}' unless defined(&__NR_pselect6); eval 'sub __NR_ppoll () {271;}' unless defined(&__NR_ppoll); eval 'sub __NR_unshare () {272;}' unless defined(&__NR_unshare); eval 'sub __NR_set_robust_list () {273;}' unless defined(&__NR_set_robust_list); eval 'sub __NR_get_robust_list () {274;}' unless defined(&__NR_get_robust_list); eval 'sub __NR_splice () {275;}' unless defined(&__NR_splice); eval 'sub __NR_tee () {276;}' unless defined(&__NR_tee); eval 'sub __NR_sync_file_range () {277;}' unless defined(&__NR_sync_file_range); eval 'sub __NR_vmsplice () {278;}' unless defined(&__NR_vmsplice); eval 'sub __NR_move_pages () {279;}' unless defined(&__NR_move_pages); eval 'sub __NR_utimensat () {280;}' unless defined(&__NR_utimensat); eval 'sub __NR_epoll_pwait () {281;}' unless defined(&__NR_epoll_pwait); eval 'sub __NR_signalfd () {282;}' unless defined(&__NR_signalfd); eval 'sub __NR_timerfd_create () {283;}' unless defined(&__NR_timerfd_create); eval 'sub __NR_eventfd () {284;}' unless defined(&__NR_eventfd); eval 'sub __NR_fallocate () {285;}' unless defined(&__NR_fallocate); eval 'sub __NR_timerfd_settime () {286;}' unless defined(&__NR_timerfd_settime); eval 'sub __NR_timerfd_gettime () {287;}' unless defined(&__NR_timerfd_gettime); eval 'sub __NR_accept4 () {288;}' unless defined(&__NR_accept4); eval 'sub __NR_signalfd4 () {289;}' unless defined(&__NR_signalfd4); eval 'sub __NR_eventfd2 () {290;}' unless defined(&__NR_eventfd2); eval 'sub __NR_epoll_create1 () {291;}' unless defined(&__NR_epoll_create1); eval 'sub __NR_dup3 () {292;}' unless defined(&__NR_dup3); eval 'sub __NR_pipe2 () {293;}' unless defined(&__NR_pipe2); eval 'sub __NR_inotify_init1 () {294;}' unless defined(&__NR_inotify_init1); eval 'sub __NR_preadv () {295;}' unless defined(&__NR_preadv); eval 'sub __NR_pwritev () {296;}' unless defined(&__NR_pwritev); eval 'sub __NR_rt_tgsigqueueinfo () {297;}' unless defined(&__NR_rt_tgsigqueueinfo); eval 'sub __NR_perf_event_open () {298;}' unless defined(&__NR_perf_event_open); eval 'sub __NR_recvmmsg () {299;}' unless defined(&__NR_recvmmsg); eval 'sub __NR_fanotify_init () {300;}' unless defined(&__NR_fanotify_init); eval 'sub __NR_fanotify_mark () {301;}' unless defined(&__NR_fanotify_mark); eval 'sub __NR_prlimit64 () {302;}' unless defined(&__NR_prlimit64); eval 'sub __NR_name_to_handle_at () {303;}' unless defined(&__NR_name_to_handle_at); eval 'sub __NR_open_by_handle_at () {304;}' unless defined(&__NR_open_by_handle_at); eval 'sub __NR_clock_adjtime () {305;}' unless defined(&__NR_clock_adjtime); eval 'sub __NR_syncfs () {306;}' unless defined(&__NR_syncfs); eval 'sub __NR_sendmmsg () {307;}' unless defined(&__NR_sendmmsg); eval 'sub __NR_setns () {308;}' unless defined(&__NR_setns); eval 'sub __NR_getcpu () {309;}' unless defined(&__NR_getcpu); eval 'sub __NR_process_vm_readv () {310;}' unless defined(&__NR_process_vm_readv); eval 'sub __NR_process_vm_writev () {311;}' unless defined(&__NR_process_vm_writev); eval 'sub __NR_kcmp () {312;}' unless defined(&__NR_kcmp); eval 'sub __NR_finit_module () {313;}' unless defined(&__NR_finit_module); eval 'sub __NR_sched_setattr () {314;}' unless defined(&__NR_sched_setattr); eval 'sub __NR_sched_getattr () {315;}' unless defined(&__NR_sched_getattr); eval 'sub __NR_renameat2 () {316;}' unless defined(&__NR_renameat2); eval 'sub __NR_seccomp () {317;}' unless defined(&__NR_seccomp); eval 'sub __NR_getrandom () {318;}' unless defined(&__NR_getrandom); eval 'sub __NR_memfd_create () {319;}' unless defined(&__NR_memfd_create); eval 'sub __NR_kexec_file_load () {320;}' unless defined(&__NR_kexec_file_load); eval 'sub __NR_bpf () {321;}' unless defined(&__NR_bpf); eval 'sub __NR_userfaultfd () {323;}' unless defined(&__NR_userfaultfd); eval 'sub __NR_membarrier () {324;}' unless defined(&__NR_membarrier); eval 'sub __NR_mlock2 () {325;}' unless defined(&__NR_mlock2); eval 'sub __NR_copy_file_range () {326;}' unless defined(&__NR_copy_file_range); eval 'sub __NR_pkey_mprotect () {329;}' unless defined(&__NR_pkey_mprotect); eval 'sub __NR_pkey_alloc () {330;}' unless defined(&__NR_pkey_alloc); eval 'sub __NR_pkey_free () {331;}' unless defined(&__NR_pkey_free); } 1; asm/ioctl.ph 0000644 00000000134 15231101164 0006757 0 ustar 00 require '_h2ph_pre.ph'; no warnings qw(redefine misc); require 'asm-generic/ioctl.ph'; 1; auto/File/Glob/Glob.so 0000755 00000067250 15231101164 0010513 0 ustar 00 ELF >