whoami7 - Manager

: /home/fresvfqn/.cagefs/tmp/ Upload File: files >> /home/fresvfqn/.cagefs/tmp/phpur6d0j package arybase; our $VERSION = "0.12"; 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 package SDBM_File; use strict; use warnings; require Tie::Hash; require XSLoader; our @ISA = qw(Tie::Hash); our $VERSION = "1.14"; our @EXPORT_OK = qw(PAGFEXT DIRFEXT PAIRMAX); use Exporter "import"; XSLoader::load(); 1; __END__ =head1 NAME SDBM_File - Tied access to sdbm files =head1 SYNOPSIS use Fcntl; # For O_RDWR, O_CREAT, etc. use SDBM_File; tie(%h, 'SDBM_File', 'filename', O_RDWR|O_CREAT, 0666) or die "Couldn't tie SDBM file 'filename': $!; aborting"; # Now read and change the hash $h{newkey} = newvalue; print $h{oldkey}; ... untie %h; =head1 DESCRIPTION C<SDBM_File> establishes a connection between a Perl hash variable and a file in SDBM_File format. You can manipulate the data in the file just as if it were in a Perl hash, but when your program exits, the data will remain in the file, to be used the next time your program runs. =head2 Tie Use C<SDBM_File> with the Perl built-in C<tie> function to establish the connection between the variable and the file. tie %hash, 'SDBM_File', $basename, $modeflags, $perms; tie %hash, 'SDBM_File', $dirfile, $modeflags, $perms, $pagfilename; C<$basename> is the base filename for the database. The database is two files with ".dir" and ".pag" extensions appended to C<$basename>, $basename.dir (or .sdbm_dir on VMS, per DIRFEXT constant) $basename.pag The two filenames can also be given separately in full as C<$dirfile> and C<$pagfilename>. This suits for two files without ".dir" and ".pag" extensions, perhaps for example two files from L<File::Temp>. C<$modeflags> can be the following constants from the C<Fcntl> module (in the style of the L<open(2)> system call), O_RDONLY read-only access O_WRONLY write-only access O_RDWR read and write access If you want to create the file if it does not already exist then bitwise-OR (C<|>) C<O_CREAT> too. If you omit C<O_CREAT> and the database does not already exist then the C<tie> call will fail. O_CREAT create database if doesn't already exist C<$perms> is the file permissions bits to use if new database files are created. This parameter is mandatory even when not creating a new database. The permissions will be reduced by the user's umask so the usual value here would be 0666, or if some very private data then 0600. (See L<perlfunc/umask>.) =head1 EXPORTS SDBM_File optionally exports the following constants: =over =item * C<PAGFEXT> - the extension used for the page file, usually C<.pag>. =item * C<DIRFEXT> - the extension used for the directory file, C<.dir> everywhere but VMS, where it is C<.sdbm_dir>. =item * C<PAIRMAX> - the maximum size of a stored hash entry, including the length of both the key and value. =back These constants can also be used with fully qualified names, eg. C<SDBM_File::PAGFEXT>. =head1 DIAGNOSTICS On failure, the C<tie> call returns an undefined value and probably sets C<$!> to contain the reason the file could not be tied. =head2 C<sdbm store returned -1, errno 22, key "..." at ...> This warning is emitted when you try to store a key or a value that is too long. It means that the change was not recorded in the database. See BUGS AND WARNINGS below. =head1 BUGS AND WARNINGS There are a number of limits on the size of the data that you can store in the SDBM file. The most important is that the length of a key, plus the length of its associated value, may not exceed 1008 bytes. See L<perlfunc/tie>, L<perldbmfilter>, L<Fcntl> =cut ###################################################################### # 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 package O; our $VERSION = '1.01'; use B qw(minus_c save_BEGINs); use Carp; sub import { my ($class, @options) = @_; my ($quiet, $veryquiet) = (0, 0); if ($options[0] eq '-q' || $options[0] eq '-qq') { $quiet = 1; open (SAVEOUT, ">&STDOUT"); close STDOUT; open (STDOUT, ">", \$O::BEGIN_output); if ($options[0] eq '-qq') { $veryquiet = 1; } shift @options; } my $backend = shift (@options); eval q[ BEGIN { minus_c; save_BEGINs; } CHECK { if ($quiet) { close STDOUT; open (STDOUT, ">&SAVEOUT"); close SAVEOUT; } # Note: if you change the code after this 'use', please # change the fudge factors in B::Concise (grep for # "fragile kludge") so that its output still looks # nice. Thanks. --smcc use B::].$backend.q[ (); if ($@) { croak "use of backend $backend failed: $@"; } my $compilesub = &{"B::${backend}::compile"}(@options); if (ref($compilesub) ne "CODE") { die $compilesub; } local $savebackslash = $\; local ($\,$",$,) = (undef,' ',''); &$compilesub(); close STDERR if $veryquiet; } ]; die $@ if $@; } 1; __END__ =head1 NAME O - Generic interface to Perl Compiler backends =head1 SYNOPSIS perl -MO=[-q,]Backend[,OPTIONS] foo.pl =head1 DESCRIPTION This is the module that is used as a frontend to the Perl Compiler. If you pass the C<-q> option to the module, then the STDOUT filehandle will be redirected into the variable C<$O::BEGIN_output> during compilation. This has the effect that any output printed to STDOUT by BEGIN blocks or use'd modules will be stored in this variable rather than printed. It's useful with those backends which produce output themselves (C<Deparse>, C<Concise> etc), so that their output is not confused with that generated by the code being compiled. The C<-qq> option behaves like C<-q>, except that it also closes STDERR after deparsing has finished. This suppresses the "Syntax OK" message normally produced by perl. =head1 CONVENTIONS Most compiler backends use the following conventions: OPTIONS consists of a comma-separated list of words (no white-space). The C<-v> option usually puts the backend into verbose mode. The C<-ofile> option generates output to B<file> instead of stdout. The C<-D> option followed by various letters turns on various internal debugging flags. See the documentation for the desired backend (named C<B::Backend> for the example above) to find out about that backend. =head1 IMPLEMENTATION This section is only necessary for those who want to write a compiler backend module that can be used via this module. The command-line mentioned in the SYNOPSIS section corresponds to the Perl code use O ("Backend", OPTIONS); The C<O::import> function loads the appropriate C<B::Backend> module and calls its C<compile> function, passing it OPTIONS. That function is expected to return a sub reference which we'll call CALLBACK. Next, the "compile-only" flag is switched on (equivalent to the command-line option C<-c>) and a CHECK block is registered which calls CALLBACK. Thus the main Perl program mentioned on the command-line is read in, parsed and compiled into internal syntax tree form. Since the C<-c> flag is set, the program does not start running (excepting BEGIN blocks of course) but the CALLBACK function registered by the compiler backend is called. In summary, a compiler backend module should be called "B::Foo" for some foo and live in the appropriate directory for that name. It should define a function called C<compile>. When the user types perl -MO=Foo,OPTIONS foo.pl that function is called and is passed those OPTIONS (split on commas). It should return a sub ref to the main compilation function. After the user's program is loaded and parsed, that returned sub ref is invoked which can then go ahead and do the compilation, usually by making use of the C<B> module's functionality. =head1 BUGS The C<-q> and C<-qq> options don't work correctly if perl isn't compiled with PerlIO support : STDOUT will be closed instead of being redirected to C<$O::BEGIN_output>. =head1 AUTHOR Malcolm Beattie, C<mbeattie@sable.ox.ac.uk> =cut 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; 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; 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_execveat () {322;}' unless defined(&__NR_execveat); 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_preadv2 () {327;}' unless defined(&__NR_preadv2); eval 'sub __NR_pwritev2 () {328;}' unless defined(&__NR_pwritev2); 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); eval 'sub __NR_statx () {332;}' unless defined(&__NR_statx); eval 'sub __NR_io_pgetevents () {333;}' unless defined(&__NR_io_pgetevents); eval 'sub __NR_rseq () {334;}' unless defined(&__NR_rseq); eval 'sub __NR_pidfd_send_signal () {424;}' unless defined(&__NR_pidfd_send_signal); eval 'sub __NR_io_uring_setup () {425;}' unless defined(&__NR_io_uring_setup); eval 'sub __NR_io_uring_enter () {426;}' unless defined(&__NR_io_uring_enter); eval 'sub __NR_io_uring_register () {427;}' unless defined(&__NR_io_uring_register); eval 'sub __NR_open_tree () {428;}' unless defined(&__NR_open_tree); eval 'sub __NR_move_mount () {429;}' unless defined(&__NR_move_mount); eval 'sub __NR_fsopen () {430;}' unless defined(&__NR_fsopen); eval 'sub __NR_fsconfig () {431;}' unless defined(&__NR_fsconfig); eval 'sub __NR_fsmount () {432;}' unless defined(&__NR_fsmount); eval 'sub __NR_fspick () {433;}' unless defined(&__NR_fspick); eval 'sub __NR_close_range () {436;}' unless defined(&__NR_close_range); eval 'sub __NR_openat2 () {437;}' unless defined(&__NR_openat2); eval 'sub __NR_faccessat2 () {439;}' unless defined(&__NR_faccessat2); } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); require 'asm-generic/ioctls.ph'; 1; 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_renameat2 () {353;}' unless defined(&__NR_renameat2); 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_execveat () {358;}' unless defined(&__NR_execveat); eval 'sub __NR_socket () {359;}' unless defined(&__NR_socket); eval 'sub __NR_socketpair () {360;}' unless defined(&__NR_socketpair); eval 'sub __NR_bind () {361;}' unless defined(&__NR_bind); eval 'sub __NR_connect () {362;}' unless defined(&__NR_connect); eval 'sub __NR_listen () {363;}' unless defined(&__NR_listen); eval 'sub __NR_accept4 () {364;}' unless defined(&__NR_accept4); eval 'sub __NR_getsockopt () {365;}' unless defined(&__NR_getsockopt); eval 'sub __NR_setsockopt () {366;}' unless defined(&__NR_setsockopt); eval 'sub __NR_getsockname () {367;}' unless defined(&__NR_getsockname); eval 'sub __NR_getpeername () {368;}' unless defined(&__NR_getpeername); eval 'sub __NR_sendto () {369;}' unless defined(&__NR_sendto); eval 'sub __NR_sendmsg () {370;}' unless defined(&__NR_sendmsg); eval 'sub __NR_recvfrom () {371;}' unless defined(&__NR_recvfrom); eval 'sub __NR_recvmsg () {372;}' unless defined(&__NR_recvmsg); eval 'sub __NR_shutdown () {373;}' unless defined(&__NR_shutdown); 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_preadv2 () {378;}' unless defined(&__NR_preadv2); eval 'sub __NR_pwritev2 () {379;}' unless defined(&__NR_pwritev2); 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); eval 'sub __NR_statx () {383;}' unless defined(&__NR_statx); eval 'sub __NR_arch_prctl () {384;}' unless defined(&__NR_arch_prctl); eval 'sub __NR_io_pgetevents () {385;}' unless defined(&__NR_io_pgetevents); eval 'sub __NR_rseq () {386;}' unless defined(&__NR_rseq); eval 'sub __NR_clock_gettime64 () {403;}' unless defined(&__NR_clock_gettime64); eval 'sub __NR_clock_settime64 () {404;}' unless defined(&__NR_clock_settime64); eval 'sub __NR_clock_adjtime64 () {405;}' unless defined(&__NR_clock_adjtime64); eval 'sub __NR_clock_getres_time64 () {406;}' unless defined(&__NR_clock_getres_time64); eval 'sub __NR_clock_nanosleep_time64 () {407;}' unless defined(&__NR_clock_nanosleep_time64); eval 'sub __NR_timer_gettime64 () {408;}' unless defined(&__NR_timer_gettime64); eval 'sub __NR_timer_settime64 () {409;}' unless defined(&__NR_timer_settime64); eval 'sub __NR_timerfd_gettime64 () {410;}' unless defined(&__NR_timerfd_gettime64); eval 'sub __NR_timerfd_settime64 () {411;}' unless defined(&__NR_timerfd_settime64); eval 'sub __NR_utimensat_time64 () {412;}' unless defined(&__NR_utimensat_time64); eval 'sub __NR_io_pgetevents_time64 () {416;}' unless defined(&__NR_io_pgetevents_time64); eval 'sub __NR_mq_timedsend_time64 () {418;}' unless defined(&__NR_mq_timedsend_time64); eval 'sub __NR_mq_timedreceive_time64 () {419;}' unless defined(&__NR_mq_timedreceive_time64); eval 'sub __NR_semtimedop_time64 () {420;}' unless defined(&__NR_semtimedop_time64); eval 'sub __NR_futex_time64 () {422;}' unless defined(&__NR_futex_time64); eval 'sub __NR_sched_rr_get_interval_time64 () {423;}' unless defined(&__NR_sched_rr_get_interval_time64); eval 'sub __NR_pidfd_send_signal () {424;}' unless defined(&__NR_pidfd_send_signal); eval 'sub __NR_io_uring_setup () {425;}' unless defined(&__NR_io_uring_setup); eval 'sub __NR_io_uring_enter () {426;}' unless defined(&__NR_io_uring_enter); eval 'sub __NR_io_uring_register () {427;}' unless defined(&__NR_io_uring_register); eval 'sub __NR_open_tree () {428;}' unless defined(&__NR_open_tree); eval 'sub __NR_move_mount () {429;}' unless defined(&__NR_move_mount); eval 'sub __NR_fsopen () {430;}' unless defined(&__NR_fsopen); eval 'sub __NR_fsconfig () {431;}' unless defined(&__NR_fsconfig); eval 'sub __NR_fsmount () {432;}' unless defined(&__NR_fsmount); eval 'sub __NR_fspick () {433;}' unless defined(&__NR_fspick); eval 'sub __NR_close_range () {436;}' unless defined(&__NR_close_range); eval 'sub __NR_openat2 () {437;}' unless defined(&__NR_openat2); eval 'sub __NR_faccessat2 () {439;}' unless defined(&__NR_faccessat2); } 1; 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__) && !defined(&__ILP32__)) { 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; require '_h2ph_pre.ph'; no warnings qw(redefine misc); require 'asm-generic/socket.ph'; 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); require 'asm-generic/ioctl.ph'; 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); require 'asm-generic/termios.ph'; 1; 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; 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; require '_h2ph_pre.ph'; no warnings qw(redefine misc); require 'asm-generic/termbits.ph'; 1; 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; 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_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_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_statx () {( &__X32_SYSCALL_BIT + 332);}' unless defined(&__NR_statx); eval 'sub __NR_io_pgetevents () {( &__X32_SYSCALL_BIT + 333);}' unless defined(&__NR_io_pgetevents); eval 'sub __NR_rseq () {( &__X32_SYSCALL_BIT + 334);}' unless defined(&__NR_rseq); eval 'sub __NR_pidfd_send_signal () {( &__X32_SYSCALL_BIT + 424);}' unless defined(&__NR_pidfd_send_signal); eval 'sub __NR_io_uring_setup () {( &__X32_SYSCALL_BIT + 425);}' unless defined(&__NR_io_uring_setup); eval 'sub __NR_io_uring_enter () {( &__X32_SYSCALL_BIT + 426);}' unless defined(&__NR_io_uring_enter); eval 'sub __NR_io_uring_register () {( &__X32_SYSCALL_BIT + 427);}' unless defined(&__NR_io_uring_register); eval 'sub __NR_open_tree () {( &__X32_SYSCALL_BIT + 428);}' unless defined(&__NR_open_tree); eval 'sub __NR_move_mount () {( &__X32_SYSCALL_BIT + 429);}' unless defined(&__NR_move_mount); eval 'sub __NR_fsopen () {( &__X32_SYSCALL_BIT + 430);}' unless defined(&__NR_fsopen); eval 'sub __NR_fsconfig () {( &__X32_SYSCALL_BIT + 431);}' unless defined(&__NR_fsconfig); eval 'sub __NR_fsmount () {( &__X32_SYSCALL_BIT + 432);}' unless defined(&__NR_fsmount); eval 'sub __NR_fspick () {( &__X32_SYSCALL_BIT + 433);}' unless defined(&__NR_fspick); eval 'sub __NR_close_range () {( &__X32_SYSCALL_BIT + 436);}' unless defined(&__NR_close_range); eval 'sub __NR_openat2 () {( &__X32_SYSCALL_BIT + 437);}' unless defined(&__NR_openat2); eval 'sub __NR_faccessat2 () {( &__X32_SYSCALL_BIT + 439);}' unless defined(&__NR_faccessat2); 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); eval 'sub __NR_io_setup () {( &__X32_SYSCALL_BIT + 543);}' unless defined(&__NR_io_setup); eval 'sub __NR_io_submit () {( &__X32_SYSCALL_BIT + 544);}' unless defined(&__NR_io_submit); eval 'sub __NR_execveat () {( &__X32_SYSCALL_BIT + 545);}' unless defined(&__NR_execveat); eval 'sub __NR_preadv2 () {( &__X32_SYSCALL_BIT + 546);}' unless defined(&__NR_preadv2); eval 'sub __NR_pwritev2 () {( &__X32_SYSCALL_BIT + 547);}' unless defined(&__NR_pwritev2); } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); require 'asm-generic/sockios.ph'; 1; package B::Concise; # Copyright (C) 2000-2003 Stephen McCamant. All rights reserved. # This program is free software; you can redistribute and/or modify it # under the same terms as Perl itself. # Note: we need to keep track of how many use declarations/BEGIN # blocks this module uses, so we can avoid printing them when user # asks for the BEGIN blocks in her program. Update the comments and # the count in concise_specials if you add or delete one. The # -MO=Concise counts as use #1. use strict; # use #2 use warnings; # uses #3 and #4, since warnings uses Carp use Exporter (); # use #5 our $VERSION = "0.999"; our @ISA = qw(Exporter); our @EXPORT_OK = qw( set_style set_style_standard add_callback concise_subref concise_cv concise_main add_style walk_output compile reset_sequence ); our %EXPORT_TAGS = ( io => [qw( walk_output compile reset_sequence )], style => [qw( add_style set_style_standard )], cb => [qw( add_callback )], mech => [qw( concise_subref concise_cv concise_main )], ); # use #6 use B qw(class ppname main_start main_root main_cv cstring svref_2object SVf_IOK SVf_NOK SVf_POK SVf_IVisUV SVf_FAKE OPf_KIDS OPf_SPECIAL OPf_STACKED OPpSPLIT_ASSIGN OPpSPLIT_LEX CVf_ANON PAD_FAKELEX_ANON PAD_FAKELEX_MULTI SVf_ROK); my %style = ("terse" => ["(?(#label =>\n)?)(*( )*)#class (#addr) #name (?([#targ])?) " . "#svclass~(?((#svaddr))?)~#svval~(?(label \"#coplabel\")?)\n", "(*( )*)goto #class (#addr)\n", "#class pp_#name"], "concise" => ["#hyphseq2 (*( (x( ;)x))*)<#classsym> #exname#arg(?([#targarglife])?)" . "~#flags(?(/#private)?)(?(:#hints)?)(x(;~->#next)x)\n" , " (*( )*) goto #seq\n", "(?(<#seq>)?)#exname#arg(?([#targarglife])?)"], "linenoise" => ["(x(;(*( )*))x)#noise#arg(?([#targarg])?)(x( ;\n)x)", "gt_#seq ", "(?(#seq)?)#noise#arg(?([#targarg])?)"], "debug" => ["#class (#addr)\n\top_next\t\t#nextaddr\n\t(?(op_other\t#otheraddr\n\t)?)" . "op_sibling\t#sibaddr\n\t" . "op_ppaddr\tPL_ppaddr[OP_#NAME]\n\top_type\t\t#typenum\n" . "\top_flags\t#flagval\n\top_private\t#privval\t#hintsval\n" . "(?(\top_first\t#firstaddr\n)?)(?(\top_last\t\t#lastaddr\n)?)" . "(?(\top_sv\t\t#svaddr\n)?)", " GOTO #addr\n", "#addr"], "env" => [$ENV{B_CONCISE_FORMAT}, $ENV{B_CONCISE_GOTO_FORMAT}, $ENV{B_CONCISE_TREE_FORMAT}], ); # Renderings, ie how Concise prints, is controlled by these vars # primary: our $stylename; # selects current style from %style my $order = "basic"; # how optree is walked & printed: basic, exec, tree # rendering mechanics: # these 'formats' are the line-rendering templates # they're updated from %style when $stylename changes my ($format, $gotofmt, $treefmt); # lesser players: my $base = 36; # how <sequence#> is displayed my $big_endian = 1; # more <sequence#> display my $tree_style = 0; # tree-order details my $banner = 1; # print banner before optree is traversed my $do_main = 0; # force printing of main routine my $show_src; # show source code # another factor: can affect all styles! our @callbacks; # allow external management set_style_standard("concise"); my $curcv; my $cop_seq_base; sub set_style { ($format, $gotofmt, $treefmt) = @_; #warn "set_style: deprecated, use set_style_standard instead\n"; # someday die "expecting 3 style-format args\n" unless @_ == 3; } sub add_style { my ($newstyle,@args) = @_; die "style '$newstyle' already exists, choose a new name\n" if exists $style{$newstyle}; die "expecting 3 style-format args\n" unless @args == 3; $style{$newstyle} = [@args]; $stylename = $newstyle; # update rendering state } sub set_style_standard { ($stylename) = @_; # update rendering state die "err: style '$stylename' unknown\n" unless exists $style{$stylename}; set_style(@{$style{$stylename}}); } sub add_callback { push @callbacks, @_; } # output handle, used with all Concise-output printing our $walkHandle; # public for your convenience BEGIN { $walkHandle = \*STDOUT } sub walk_output { # updates $walkHandle my $handle = shift; return $walkHandle unless $handle; # allow use as accessor if (ref $handle eq 'SCALAR') { require Config; die "no perlio in this build, can't call walk_output (\\\$scalar)\n" unless $Config::Config{useperlio}; # in 5.8+, open(FILEHANDLE,MODE,REFERENCE) writes to string open my $tmp, '>', $handle; # but cant re-set existing STDOUT $walkHandle = $tmp; # so use my $tmp as intermediate var return $walkHandle; } my $iotype = ref $handle; die "expecting argument/object that can print\n" unless $iotype eq 'GLOB' or $iotype and $handle->can('print'); $walkHandle = $handle; } sub concise_subref { my($order, $coderef, $name) = @_; my $codeobj = svref_2object($coderef); return concise_stashref(@_) unless ref($codeobj) =~ '^B::(?:CV|FM)\z'; concise_cv_obj($order, $codeobj, $name); } sub concise_stashref { my($order, $h) = @_; local *s; foreach my $k (sort keys %$h) { next unless defined $h->{$k}; *s = $h->{$k}; my $coderef = *s{CODE} or next; reset_sequence(); print "FUNC: ", *s, "\n"; my $codeobj = svref_2object($coderef); next unless ref $codeobj eq 'B::CV'; eval { concise_cv_obj($order, $codeobj, $k) }; warn "err $@ on $codeobj" if $@; } } # This should have been called concise_subref, but it was exported # under this name in versions before 0.56 *concise_cv = \&concise_subref; sub concise_cv_obj { my ($order, $cv, $name) = @_; # name is either a string, or a CODE ref (copy of $cv arg??) $curcv = $cv; if (ref($cv->XSUBANY) =~ /B::(\w+)/) { print $walkHandle "$name is a constant sub, optimized to a $1\n"; return; } if ($cv->XSUB) { print $walkHandle "$name is XS code\n"; return; } if (class($cv->START) eq "NULL") { no strict 'refs'; if (ref $name eq 'CODE') { print $walkHandle "coderef $name has no START\n"; } elsif (exists &$name) { print $walkHandle "$name exists in stash, but has no START\n"; } else { print $walkHandle "$name not in symbol table\n"; } return; } sequence($cv->START); if ($order eq "exec") { walk_exec($cv->START); } elsif ($order eq "basic") { # walk_topdown($cv->ROOT, sub { $_[0]->concise($_[1]) }, 0); my $root = $cv->ROOT; unless (ref $root eq 'B::NULL') { walk_topdown($root, sub { $_[0]->concise($_[1]) }, 0); } else { print $walkHandle "B::NULL encountered doing ROOT on $cv. avoiding disaster\n"; } } else { print $walkHandle tree($cv->ROOT, 0); } } sub concise_main { my($order) = @_; sequence(main_start); $curcv = main_cv; if ($order eq "exec") { return if class(main_start) eq "NULL"; walk_exec(main_start); } elsif ($order eq "tree") { return if class(main_root) eq "NULL"; print $walkHandle tree(main_root, 0); } elsif ($order eq "basic") { return if class(main_root) eq "NULL"; walk_topdown(main_root, sub { $_[0]->concise($_[1]) }, 0); } } sub concise_specials { my($name, $order, @cv_s) = @_; my $i = 1; if ($name eq "BEGIN") { splice(@cv_s, 0, 8); # skip 7 BEGIN blocks in this file. NOW 8 ?? } elsif ($name eq "CHECK") { pop @cv_s; # skip the CHECK block that calls us } for my $cv (@cv_s) { print $walkHandle "$name $i:\n"; $i++; concise_cv_obj($order, $cv, $name); } } my $start_sym = "\e(0"; # "\cN" sometimes also works my $end_sym = "\e(B"; # "\cO" respectively my @tree_decorations = ([" ", "--", "+-", "|-", "| ", "`-", "-", 1], [" ", "-", "+", "+", "|", "`", "", 0], [" ", map("$start_sym$_$end_sym", "qq", "wq", "tq", "x ", "mq", "q"), 1], [" ", map("$start_sym$_$end_sym", "q", "w", "t", "x", "m"), "", 0], ); my @render_packs; # collect -stash=<packages> sub compileOpts { # set rendering state from options and args my (@options,@args); if (@_) { @options = grep(/^-/, @_); @args = grep(!/^-/, @_); } for my $o (@options) { # mode/order if ($o eq "-basic") { $order = "basic"; } elsif ($o eq "-exec") { $order = "exec"; } elsif ($o eq "-tree") { $order = "tree"; } # tree-specific elsif ($o eq "-compact") { $tree_style |= 1; } elsif ($o eq "-loose") { $tree_style &= ~1; } elsif ($o eq "-vt") { $tree_style |= 2; } elsif ($o eq "-ascii") { $tree_style &= ~2; } # sequence numbering elsif ($o =~ /^-base(\d+)$/) { $base = $1; } elsif ($o eq "-bigendian") { $big_endian = 1; } elsif ($o eq "-littleendian") { $big_endian = 0; } # miscellaneous, presentation elsif ($o eq "-nobanner") { $banner = 0; } elsif ($o eq "-banner") { $banner = 1; } elsif ($o eq "-main") { $do_main = 1; } elsif ($o eq "-nomain") { $do_main = 0; } elsif ($o eq "-src") { $show_src = 1; } elsif ($o =~ /^-stash=(.*)/) { my $pkg = $1; no strict 'refs'; if (! %{$pkg.'::'}) { eval "require $pkg"; } else { require Config; if (!$Config::Config{usedl} && keys %{$pkg.'::'} == 1 && $pkg->can('bootstrap')) { # It is something that we're statically linked to, but hasn't # yet been used. eval "require $pkg"; } } push @render_packs, $pkg; } # line-style options elsif (exists $style{substr($o, 1)}) { $stylename = substr($o, 1); set_style_standard($stylename); } else { warn "Option $o unrecognized"; } } return (@args); } sub compile { my (@args) = compileOpts(@_); return sub { my @newargs = compileOpts(@_); # accept new rendering options warn "disregarding non-options: @newargs\n" if @newargs; for my $objname (@args) { next unless $objname; # skip null args to avoid noisy responses if ($objname eq "BEGIN") { concise_specials("BEGIN", $order, B::begin_av->isa("B::AV") ? B::begin_av->ARRAY : ()); } elsif ($objname eq "INIT") { concise_specials("INIT", $order, B::init_av->isa("B::AV") ? B::init_av->ARRAY : ()); } elsif ($objname eq "CHECK") { concise_specials("CHECK", $order, B::check_av->isa("B::AV") ? B::check_av->ARRAY : ()); } elsif ($objname eq "UNITCHECK") { concise_specials("UNITCHECK", $order, B::unitcheck_av->isa("B::AV") ? B::unitcheck_av->ARRAY : ()); } elsif ($objname eq "END") { concise_specials("END", $order, B::end_av->isa("B::AV") ? B::end_av->ARRAY : ()); } else { # convert function names to subrefs if (ref $objname) { print $walkHandle "B::Concise::compile($objname)\n" if $banner; concise_subref($order, ($objname)x2); next; } else { $objname = "main::" . $objname unless $objname =~ /::/; no strict 'refs'; my $glob = \*$objname; unless (*$glob{CODE} || *$glob{FORMAT}) { print $walkHandle "$objname:\n" if $banner; print $walkHandle "err: unknown function ($objname)\n"; return; } if (my $objref = *$glob{CODE}) { print $walkHandle "$objname:\n" if $banner; concise_subref($order, $objref, $objname); } if (my $objref = *$glob{FORMAT}) { print $walkHandle "$objname (FORMAT):\n" if $banner; concise_subref($order, $objref, $objname); } } } } for my $pkg (@render_packs) { no strict 'refs'; concise_stashref($order, \%{$pkg.'::'}); } if (!@args or $do_main or @render_packs) { print $walkHandle "main program:\n" if $do_main; concise_main($order); } return @args; # something } } my %labels; my $lastnext; # remembers op-chain, used to insert gotos my %opclass = ('OP' => "0", 'UNOP' => "1", 'BINOP' => "2", 'LOGOP' => "|", 'LISTOP' => "@", 'PMOP' => "/", 'SVOP' => "\$", 'GVOP' => "*", 'PVOP' => '"', 'LOOP' => "{", 'COP' => ";", 'PADOP' => "#", 'METHOP' => '.', UNOP_AUX => '+'); no warnings 'qw'; # "Possible attempt to put comments..."; use #7 my @linenoise = qw'# () sc ( @? 1 $* gv *{ m$ m@ m% m? p/ *$ $ $# & a& pt \\ s\\ rf bl ` *? <> ?? ?/ r/ c/ // qr s/ /c y/ = @= C sC Cp sp df un BM po +1 +I -1 -I 1+ I+ 1- I- ** * i* / i/ %$ i% x + i+ - i- . " << >> < i< > i> <= i, >= i. == i= != i! <? i? s< s> s, s. s= s! s? b& b^ b| -0 -i ! ~ a2 si cs rd sr e^ lg sq in %x %o ab le ss ve ix ri sf FL od ch cy uf lf uc lc qm @ [f [ @[ eh vl ky dl ex % ${ @{ uk pk st jn ) )[ a@ a% sl +] -] [- [+ so rv GS GW MS MW .. f. .f && || ^^ ?: &= |= -> s{ s} v} ca wa di rs ;; ; ;d }{ { } {} f{ it {l l} rt }l }n }r dm }g }e ^o ^c ^| ^# um bm t~ u~ ~d DB db ^s se ^g ^r {w }w pf pr ^O ^K ^R ^W ^d ^v ^e ^t ^k t. fc ic fl .s .p .b .c .l .a .h g1 s1 g2 s2 ?. l? -R -W -X -r -w -x -e -o -O -z -s -M -A -C -S -c -b -f -d -p -l -u -g -k -t -T -B cd co cr u. cm ut r. l@ s@ r@ mD uD oD rD tD sD wD cD f$ w$ p$ sh e$ k$ g3 g4 s4 g5 s5 T@ C@ L@ G@ A@ S@ Hg Hc Hr Hw Mg Mc Ms Mr Sg Sc So rq do {e e} {t t} g6 G6 6e g7 G7 7e g8 G8 8e g9 G9 9e 6s 7s 8s 9s 6E 7E 8E 9E Pn Pu GP SP EP Gn Gg GG SG EG g0 c$ lk t$ ;s n> // /= CO'; my $chars = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"; sub op_flags { # common flags (see BASOP.op_flags in op.h) my($x) = @_; my(@v); push @v, "v" if ($x & 3) == 1; push @v, "s" if ($x & 3) == 2; push @v, "l" if ($x & 3) == 3; push @v, "K" if $x & 4; push @v, "P" if $x & 8; push @v, "R" if $x & 16; push @v, "M" if $x & 32; push @v, "S" if $x & 64; push @v, "*" if $x & 128; return join("", @v); } sub base_n { my $x = shift; return "-" . base_n(-$x) if $x < 0; my $str = ""; do { $str .= substr($chars, $x % $base, 1) } while $x = int($x / $base); $str = reverse $str if $big_endian; return $str; } my %sequence_num; my $seq_max = 1; sub reset_sequence { # reset the sequence %sequence_num = (); $seq_max = 1; $lastnext = 0; } sub seq { my($op) = @_; return "-" if not exists $sequence_num{$$op}; return base_n($sequence_num{$$op}); } sub walk_topdown { my($op, $sub, $level) = @_; $sub->($op, $level); if ($op->flags & OPf_KIDS) { for (my $kid = $op->first; $$kid; $kid = $kid->sibling) { walk_topdown($kid, $sub, $level + 1); } } if (class($op) eq "PMOP") { my $maybe_root = $op->code_list; if ( ref($maybe_root) and $maybe_root->isa("B::OP") and not $op->flags & OPf_KIDS) { walk_topdown($maybe_root, $sub, $level + 1); } $maybe_root = $op->pmreplroot; if (ref($maybe_root) and $maybe_root->isa("B::OP")) { # It really is the root of the replacement, not something # else stored here for lack of space elsewhere walk_topdown($maybe_root, $sub, $level + 1); } } } sub walklines { my($ar, $level) = @_; for my $l (@$ar) { if (ref($l) eq "ARRAY") { walklines($l, $level + 1); } else { $l->concise($level); } } } sub walk_exec { my($top, $level) = @_; my %opsseen; my @lines; my @todo = ([$top, \@lines]); while (@todo and my($op, $targ) = @{shift @todo}) { for (; $$op; $op = $op->next) { last if $opsseen{$$op}++; push @$targ, $op; my $name = $op->name; if (class($op) eq "LOGOP") { my $ar = []; push @$targ, $ar; push @todo, [$op->other, $ar]; } elsif ($name eq "subst" and $ {$op->pmreplstart}) { my $ar = []; push @$targ, $ar; push @todo, [$op->pmreplstart, $ar]; } elsif ($name =~ /^enter(loop|iter)$/) { $labels{${$op->nextop}} = "NEXT"; $labels{${$op->lastop}} = "LAST"; $labels{${$op->redoop}} = "REDO"; } } } walklines(\@lines, 0); } # The structure of this routine is purposely modeled after op.c's peep() sub sequence { my($op) = @_; my $oldop = 0; return if class($op) eq "NULL" or exists $sequence_num{$$op}; for (; $$op; $op = $op->next) { last if exists $sequence_num{$$op}; my $name = $op->name; $sequence_num{$$op} = $seq_max++; if (class($op) eq "LOGOP") { sequence($op->other); } elsif (class($op) eq "LOOP") { sequence($op->redoop); sequence( $op->nextop); sequence($op->lastop); } elsif ($name eq "subst" and $ {$op->pmreplstart}) { sequence($op->pmreplstart); } $oldop = $op; } } sub fmt_line { # generate text-line for op. my($hr, $op, $text, $level) = @_; $_->($hr, $op, \$text, \$level, $stylename) for @callbacks; return '' if $hr->{SKIP}; # suppress line if a callback said so return '' if $hr->{goto} and $hr->{goto} eq '-'; # no goto nowhere # spec: (?(text1#varText2)?) $text =~ s/\(\?\(([^\#]*?)\#(\w+)([^\#]*?)\)\?\)/ $hr->{$2} ? $1.$hr->{$2}.$3 : ""/eg; # spec: (x(exec_text;basic_text)x) $text =~ s/\(x\((.*?);(.*?)\)x\)/$order eq "exec" ? $1 : $2/egs; # spec: (*(text)*) $text =~ s/\(\*\(([^;]*?)\)\*\)/$1 x $level/egs; # spec: (*(text1;text2)*) $text =~ s/\(\*\((.*?);(.*?)\)\*\)/$1 x ($level - 1) . $2 x ($level>0)/egs; # convert #Var to tag=>val form: Var\t#var $text =~ s/\#([A-Z][a-z]+)(\d+)?/\t\u$1\t\L#$1$2/gs; # spec: #varN $text =~ s/\#([a-zA-Z]+)(\d+)/sprintf("%-$2s", $hr->{$1})/eg; $text =~ s/\#([a-zA-Z]+)/$hr->{$1}/eg; # populate #var's $text =~ s/[ \t]*~+[ \t]*/ /g; # squeeze tildes $text = "# $hr->{src}\n$text" if $show_src and $hr->{src}; chomp $text; return "$text\n" if $text ne "" and $order ne "tree"; return $text; # suppress empty lines } # use require rather than use here to avoid disturbing tests that dump # BEGIN blocks require B::Op_private; our %hints; # used to display each COP's op_hints values # strict refs, subs, vars @hints{0x2,0x200,0x400,0x20,0x40,0x80} = ('$', '&', '*', 'x$', 'x&', 'x*'); # integers, locale, bytes @hints{0x1,0x4,0x8,0x10} = ('i', 'l', 'b'); # block scope, localise %^H, $^OPEN (in), $^OPEN (out) @hints{0x100,0x20000,0x40000,0x80000} = ('{','%','<','>'); # overload new integer, float, binary, string, re @hints{0x1000,0x2000,0x4000,0x8000,0x10000} = ('I', 'F', 'B', 'S', 'R'); # taint and eval @hints{0x100000,0x200000} = ('T', 'E'); # filetest access, use utf8, unicode_strings feature @hints{0x400000,0x800000,0x800} = ('X', 'U', 'us'); # pick up the feature hints constants. # Note that we're relying on non-API parts of feature.pm, # but its less naughty than just blindly copying those constants into # this src file. # require feature; sub hints_flags { my($x) = @_; my @s; for my $flag (sort {$b <=> $a} keys %hints) { if ($hints{$flag} and $x & $flag and $x >= $flag) { $x -= $flag; push @s, $hints{$flag}; } } if ($x & $feature::hint_mask) { push @s, "fea=" . (($x & $feature::hint_mask) >> $feature::hint_shift); $x &= ~$feature::hint_mask; } push @s, sprintf "0x%x", $x if $x; return join(",", @s); } # return a string like 'LVINTRO,1' for the op $name with op_private # value $x sub private_flags { my($name, $x) = @_; my $entry = $B::Op_private::bits{$name}; return $x ? "$x" : '' unless $entry; my @flags; my $bit; for ($bit = 7; $bit >= 0; $bit--) { next unless exists $entry->{$bit}; my $e = $entry->{$bit}; if (ref($e) eq 'HASH') { # bit field my ($bitmin, $bitmax, $bitmask, $enum, $label) = @{$e}{qw(bitmin bitmax bitmask enum label)}; $bit = $bitmin; next if defined $label && $label eq '-'; # display as raw number my $val = $x & $bitmask; $x &= ~$bitmask; $val >>= $bitmin; if (defined $enum) { # try to convert numeric $val into symbolic my @enum = @$enum; while (@enum) { my $ix = shift @enum; my $name = shift @enum; my $label = shift @enum; if ($val == $ix) { $val = $label; last; } } } next if $val eq '0'; # don't display anonymous zero values push @flags, defined $label ? "$label=$val" : $val; } else { # flag bit my $label = $B::Op_private::labels{$e}; next if defined $label && $label eq '-'; # display as raw number if ($x & (1<<$bit)) { $x -= (1<<$bit); push @flags, $label; } } } push @flags, $x if $x; # display unknown bits numerically return join ",", @flags; } sub concise_sv { my($sv, $hr, $preferpv) = @_; $hr->{svclass} = class($sv); $hr->{svclass} = "UV" if $hr->{svclass} eq "IV" and $sv->FLAGS & SVf_IVisUV; Carp::cluck("bad concise_sv: $sv") unless $sv and $$sv; $hr->{svaddr} = sprintf("%#x", $$sv); if ($hr->{svclass} eq "GV" && $sv->isGV_with_GP()) { my $gv = $sv; my $stash = $gv->STASH; if (class($stash) eq "SPECIAL") { $stash = "<none>"; } else { $stash = $stash->NAME; } if ($stash eq "main") { $stash = ""; } else { $stash = $stash . "::"; } $hr->{svval} = "*$stash" . $gv->SAFENAME; return "*$stash" . $gv->SAFENAME; } else { if ($] >= 5.011) { while (class($sv) eq "IV" && $sv->FLAGS & SVf_ROK) { $hr->{svval} .= "\\"; $sv = $sv->RV; } } else { while (class($sv) eq "RV") { $hr->{svval} .= "\\"; $sv = $sv->RV; } } if (class($sv) eq "SPECIAL") { $hr->{svval} .= ["Null", "sv_undef", "sv_yes", "sv_no"]->[$$sv]; } elsif ($preferpv && ($sv->FLAGS & SVf_POK || class($sv) eq "REGEXP")) { $hr->{svval} .= cstring($sv->PV); } elsif ($sv->FLAGS & SVf_NOK) { $hr->{svval} .= $sv->NV; } elsif ($sv->FLAGS & SVf_IOK) { $hr->{svval} .= $sv->int_value; } elsif ($sv->FLAGS & SVf_POK || class($sv) eq "REGEXP") { $hr->{svval} .= cstring($sv->PV); } elsif (class($sv) eq "HV") { $hr->{svval} .= 'HASH'; } $hr->{svval} = 'undef' unless defined $hr->{svval}; my $out = $hr->{svclass}; return $out .= " $hr->{svval}" ; } } my %srclines; sub fill_srclines { my $fullnm = shift; if ($fullnm eq '-e') { $srclines{$fullnm} = [ $fullnm, "-src not supported for -e" ]; return; } open (my $fh, '<', $fullnm) or warn "# $fullnm: $!, (chdirs not supported by this feature yet)\n" and return; my @l = <$fh>; chomp @l; unshift @l, $fullnm; # like @{_<$fullnm} in debug, array starts at 1 $srclines{$fullnm} = \@l; } # Given a pad target, return the pad var's name and cop range / # fakeness, or failing that, its target number. # e.g. # ('$i', '$i:5,7') # or # ('$i', '$i:fake:a') # or # ('t5', 't5') sub padname { my ($targ) = @_; my ($targarg, $targarglife); my $padname = (($curcv->PADLIST->ARRAY)[0]->ARRAY)[$targ]; if (defined $padname and class($padname) ne "SPECIAL" and $padname->LEN) { $targarg = $padname->PVX; if ($padname->FLAGS & SVf_FAKE) { # These changes relate to the jumbo closure fix. # See changes 19939 and 20005 my $fake = ''; $fake .= 'a' if $padname->PARENT_FAKELEX_FLAGS & PAD_FAKELEX_ANON; $fake .= 'm' if $padname->PARENT_FAKELEX_FLAGS & PAD_FAKELEX_MULTI; $fake .= ':' . $padname->PARENT_PAD_INDEX if $curcv->CvFLAGS & CVf_ANON; $targarglife = "$targarg:FAKE:$fake"; } else { my $intro = $padname->COP_SEQ_RANGE_LOW - $cop_seq_base; my $finish = int($padname->COP_SEQ_RANGE_HIGH) - $cop_seq_base; $finish = "end" if $finish == 999999999 - $cop_seq_base; $targarglife = "$targarg:$intro,$finish"; } } else { $targarglife = $targarg = "t" . $targ; } return $targarg, $targarglife; } sub concise_op { my ($op, $level, $format) = @_; my %h; $h{exname} = $h{name} = $op->name; $h{NAME} = uc $h{name}; $h{class} = class($op); $h{extarg} = $h{targ} = $op->targ; $h{extarg} = "" unless $h{extarg}; $h{privval} = $op->private; # for null ops, targ holds the old type my $origname = $h{name} eq "null" && $h{targ} ? substr(ppname($h{targ}), 3) : $h{name}; $h{private} = private_flags($origname, $op->private); if ($op->folded) { $h{private} &&= "$h{private},"; $h{private} .= "FOLD"; } if ($h{name} ne $origname) { # a null op $h{exname} = "ex-$origname"; $h{extarg} = ""; } elsif ($h{private} =~ /\bREFC\b/) { # targ holds a reference count my $refs = "ref" . ($h{targ} != 1 ? "s" : ""); $h{targarglife} = $h{targarg} = "$h{targ} $refs"; } elsif ($h{targ}) { my $count = $h{name} eq 'padrange' ? ($op->private & $B::Op_private::defines{'OPpPADRANGE_COUNTMASK'}) : 1; my (@targarg, @targarglife); for my $i (0..$count-1) { my ($targarg, $targarglife) = padname($h{targ} + $i); push @targarg, $targarg; push @targarglife, $targarglife; } $h{targarg} = join '; ', @targarg; $h{targarglife} = join '; ', @targarglife; } $h{arg} = ""; $h{svclass} = $h{svaddr} = $h{svval} = ""; if ($h{class} eq "PMOP") { my $extra = ''; my $precomp = $op->precomp; if (defined $precomp) { $precomp = cstring($precomp); # Escape literal control sequences $precomp = "/$precomp/"; } else { $precomp = ""; } if ($op->name eq 'subst') { if (class($op->pmreplstart) ne "NULL") { undef $lastnext; $extra = " replstart->" . seq($op->pmreplstart); } } elsif ($op->name eq 'split') { if ( ($op->private & OPpSPLIT_ASSIGN) # @array = split && (not $op->flags & OPf_STACKED)) # @{expr} = split { # with C<@array = split(/pat/, str);>, # array is stored in /pat/'s pmreplroot; either # as an integer index into the pad (for a lexical array) # or as GV for a package array (which will be a pad index # on threaded builds) if ($op->private & $B::Op_private::defines{'OPpSPLIT_LEX'}) { my $off = $op->pmreplroot; # union with op_pmtargetoff my ($name, $full) = padname($off); $extra = " => $full"; } else { # union with op_pmtargetoff, op_pmtargetgv my $gv = $op->pmreplroot; if (!ref($gv)) { # the value is actually a pad offset $gv = (($curcv->PADLIST->ARRAY)[1]->ARRAY)[$gv]->NAME; } else { # unthreaded: its a GV $gv = $gv->NAME; } $extra = " => \@$gv"; } } } $h{arg} = "($precomp$extra)"; } elsif ($h{class} eq "PVOP" and $h{name} !~ '^transr?\z') { $h{arg} = '("' . $op->pv . '")'; $h{svval} = '"' . $op->pv . '"'; } elsif ($h{class} eq "COP") { my $label = $op->label; $h{coplabel} = $label; $label = $label ? "$label: " : ""; my $loc = $op->file; my $pathnm = $loc; $loc =~ s[.*/][]; my $ln = $op->line; $loc .= ":$ln"; my($stash, $cseq) = ($op->stash->NAME, $op->cop_seq - $cop_seq_base); $h{arg} = "($label$stash $cseq $loc)"; if ($show_src) { fill_srclines($pathnm) unless exists $srclines{$pathnm}; # Would love to retain Jim's use of // but this code needs to be # portable to 5.8.x my $line = $srclines{$pathnm}[$ln]; $line = "-src unavailable under -e" unless defined $line; $h{src} = "$ln: $line"; } } elsif ($h{class} eq "LOOP") { $h{arg} = "(next->" . seq($op->nextop) . " last->" . seq($op->lastop) . " redo->" . seq($op->redoop) . ")"; } elsif ($h{class} eq "LOGOP") { undef $lastnext; $h{arg} = "(other->" . seq($op->other) . ")"; $h{otheraddr} = sprintf("%#x", $ {$op->other}); if ($h{name} eq "argdefelem") { # targ used for element index $h{targarglife} = $h{targarg} = ""; $h{arg} .= "[" . $op->targ . "]"; } } elsif ($h{class} eq "SVOP" or $h{class} eq "PADOP") { unless ($h{name} eq 'aelemfast' and $op->flags & OPf_SPECIAL) { my $idx = ($h{class} eq "SVOP") ? $op->targ : $op->padix; if ($h{class} eq "PADOP" or !${$op->sv}) { my $sv = (($curcv->PADLIST->ARRAY)[1]->ARRAY)[$idx]; $h{arg} = "[" . concise_sv($sv, \%h, 0) . "]"; $h{targarglife} = $h{targarg} = ""; } else { $h{arg} = "(" . concise_sv($op->sv, \%h, 0) . ")"; } } } elsif ($h{class} eq "METHOP") { my $prefix = ''; if ($h{name} eq 'method_redir' or $h{name} eq 'method_redir_super') { my $rclass_sv = $op->rclass; $rclass_sv = (($curcv->PADLIST->ARRAY)[1]->ARRAY)[$rclass_sv] unless ref $rclass_sv; $prefix .= 'PACKAGE "'.$rclass_sv->PV.'", '; } if ($h{name} ne "method") { if (${$op->meth_sv}) { $h{arg} = "($prefix" . concise_sv($op->meth_sv, \%h, 1) . ")"; } else { my $sv = (($curcv->PADLIST->ARRAY)[1]->ARRAY)[$op->targ]; $h{arg} = "[$prefix" . concise_sv($sv, \%h, 1) . "]"; $h{targarglife} = $h{targarg} = ""; } } } elsif ($h{class} eq "UNOP_AUX") { $h{arg} = "(" . $op->string($curcv) . ")"; } $h{seq} = $h{hyphseq} = seq($op); $h{seq} = "" if $h{seq} eq "-"; $h{opt} = $op->opt; $h{label} = $labels{$$op}; $h{next} = $op->next; $h{next} = (class($h{next}) eq "NULL") ? "(end)" : seq($h{next}); $h{nextaddr} = sprintf("%#x", $ {$op->next}); $h{sibaddr} = sprintf("%#x", $ {$op->sibling}); $h{firstaddr} = sprintf("%#x", $ {$op->first}) if $op->can("first"); $h{lastaddr} = sprintf("%#x", $ {$op->last}) if $op->can("last"); $h{classsym} = $opclass{$h{class}}; $h{flagval} = $op->flags; $h{flags} = op_flags($op->flags); if ($op->can("hints")) { $h{hintsval} = $op->hints; $h{hints} = hints_flags($h{hintsval}); } else { $h{hintsval} = $h{hints} = ''; } $h{addr} = sprintf("%#x", $$op); $h{typenum} = $op->type; $h{noise} = $linenoise[$op->type]; return fmt_line(\%h, $op, $format, $level); } sub B::OP::concise { my($op, $level) = @_; if ($order eq "exec" and $lastnext and $$lastnext != $$op) { # insert a 'goto' line my $synth = {"seq" => seq($lastnext), "class" => class($lastnext), "addr" => sprintf("%#x", $$lastnext), "goto" => seq($lastnext), # simplify goto '-' removal }; print $walkHandle fmt_line($synth, $op, $gotofmt, $level+1); } $lastnext = $op->next; print $walkHandle concise_op($op, $level, $format); } # B::OP::terse (see Terse.pm) now just calls this sub b_terse { my($op, $level) = @_; # This isn't necessarily right, but there's no easy way to get # from an OP to the right CV. This is a limitation of the # ->terse() interface style, and there isn't much to do about # it. In particular, we can die in concise_op if the main pad # isn't long enough, or has the wrong kind of entries, compared to # the pad a sub was compiled with. The fix for that would be to # make a backwards compatible "terse" format that never even # looked at the pad, just like the old B::Terse. I don't think # that's worth the effort, though. $curcv = main_cv unless $curcv; if ($order eq "exec" and $lastnext and $$lastnext != $$op) { # insert a 'goto' my $h = {"seq" => seq($lastnext), "class" => class($lastnext), "addr" => sprintf("%#x", $$lastnext)}; print # $walkHandle fmt_line($h, $op, $style{"terse"}[1], $level+1); } $lastnext = $op->next; print # $walkHandle concise_op($op, $level, $style{"terse"}[0]); } sub tree { my $op = shift; my $level = shift; my $style = $tree_decorations[$tree_style]; my($space, $single, $kids, $kid, $nokid, $last, $lead, $size) = @$style; my $name = concise_op($op, $level, $treefmt); if (not $op->flags & OPf_KIDS) { return $name . "\n"; } my @lines; for (my $kid = $op->first; $$kid; $kid = $kid->sibling) { push @lines, tree($kid, $level+1); } my $i; for ($i = $#lines; substr($lines[$i], 0, 1) eq " "; $i--) { $lines[$i] = $space . $lines[$i]; } if ($i > 0) { $lines[$i] = $last . $lines[$i]; while ($i-- > 1) { if (substr($lines[$i], 0, 1) eq " ") { $lines[$i] = $nokid . $lines[$i]; } else { $lines[$i] = $kid . $lines[$i]; } } $lines[$i] = $kids . $lines[$i]; } else { $lines[0] = $single . $lines[0]; } return("$name$lead" . shift @lines, map(" " x (length($name)+$size) . $_, @lines)); } # *** Warning: fragile kludge ahead *** # Because the B::* modules run in the same interpreter as the code # they're compiling, their presence tends to distort the view we have of # the code we're looking at. In particular, perl gives sequence numbers # to COPs. If the program we're looking at were run on its own, this # would start at 1. Because all of B::Concise and all the modules it # uses are compiled first, though, by the time we get to the user's # program the sequence number is already pretty high, which could be # distracting if you're trying to tell OPs apart. Therefore we'd like to # subtract an offset from all the sequence numbers we display, to # restore the simpler view of the world. The trick is to know what that # offset will be, when we're still compiling B::Concise! If we # hardcoded a value, it would have to change every time B::Concise or # other modules we use do. To help a little, what we do here is compile # a little code at the end of the module, and compute the base sequence # number for the user's program as being a small offset later, so all we # have to worry about are changes in the offset. # [For 5.8.x and earlier perl is generating sequence numbers for all ops, # and using them to reference labels] # When you say "perl -MO=Concise -e '$a'", the output should look like: # 4 <@> leave[t1] vKP/REFC ->(end) # 1 <0> enter ->2 #^ smallest OP sequence number should be 1 # 2 <;> nextstate(main 1 -e:1) v ->3 # ^ smallest COP sequence number should be 1 # - <1> ex-rv2sv vK/1 ->4 # 3 <$> gvsv(*a) s ->4 # If the second of the marked numbers there isn't 1, it means you need # to update the corresponding magic number in the next line. # Remember, this needs to stay the last things in the module. my $cop_seq_mnum = 16; $cop_seq_base = svref_2object(eval 'sub{0;}')->START->cop_seq + $cop_seq_mnum; 1; __END__ =head1 NAME B::Concise - Walk Perl syntax tree, printing concise info about ops =head1 SYNOPSIS perl -MO=Concise[,OPTIONS] foo.pl use B::Concise qw(set_style add_callback); =head1 DESCRIPTION This compiler backend prints the internal OPs of a Perl program's syntax tree in one of several space-efficient text formats suitable for debugging the inner workings of perl or other compiler backends. It can print OPs in the order they appear in the OP tree, in the order they will execute, or in a text approximation to their tree structure, and the format of the information displayed is customizable. Its function is similar to that of perl's B<-Dx> debugging flag or the B<B::Terse> module, but it is more sophisticated and flexible. =head1 EXAMPLE Here's two outputs (or 'renderings'), using the -exec and -basic (i.e. default) formatting conventions on the same code snippet. % perl -MO=Concise,-exec -e '$a = $b + 42' 1 <0> enter 2 <;> nextstate(main 1 -e:1) v 3 <#> gvsv[*b] s 4 <$> const[IV 42] s * 5 <2> add[t3] sK/2 6 <#> gvsv[*a] s 7 <2> sassign vKS/2 8 <@> leave[1 ref] vKP/REFC In this -exec rendering, each opcode is executed in the order shown. The add opcode, marked with '*', is discussed in more detail. The 1st column is the op's sequence number, starting at 1, and is displayed in base 36 by default. Here they're purely linear; the sequences are very helpful when looking at code with loops and branches. The symbol between angle brackets indicates the op's type, for example; <2> is a BINOP, <@> a LISTOP, and <#> is a PADOP, which is used in threaded perls. (see L</"OP class abbreviations">). The opname, as in B<'add[t1]'>, may be followed by op-specific information in parentheses or brackets (ex B<'[t1]'>). The op-flags (ex B<'sK/2'>) are described in (L</"OP flags abbreviations">). % perl -MO=Concise -e '$a = $b + 42' 8 <@> leave[1 ref] vKP/REFC ->(end) 1 <0> enter ->2 2 <;> nextstate(main 1 -e:1) v ->3 7 <2> sassign vKS/2 ->8 * 5 <2> add[t1] sK/2 ->6 - <1> ex-rv2sv sK/1 ->4 3 <$> gvsv(*b) s ->4 4 <$> const(IV 42) s ->5 - <1> ex-rv2sv sKRM*/1 ->7 6 <$> gvsv(*a) s ->7 The default rendering is top-down, so they're not in execution order. This form reflects the way the stack is used to parse and evaluate expressions; the add operates on the two terms below it in the tree. Nullops appear as C<ex-opname>, where I<opname> is an op that has been optimized away by perl. They're displayed with a sequence-number of '-', because they are not executed (they don't appear in previous example), they're printed here because they reflect the parse. The arrow points to the sequence number of the next op; they're not displayed in -exec mode, for obvious reasons. Note that because this rendering was done on a non-threaded perl, the PADOPs in the previous examples are now SVOPs, and some (but not all) of the square brackets have been replaced by round ones. This is a subtle feature to provide some visual distinction between renderings on threaded and un-threaded perls. =head1 OPTIONS Arguments that don't start with a hyphen are taken to be the names of subroutines or formats to render; if no such functions are specified, the main body of the program (outside any subroutines, and not including use'd or require'd files) is rendered. Passing C<BEGIN>, C<UNITCHECK>, C<CHECK>, C<INIT>, or C<END> will cause all of the corresponding special blocks to be printed. Arguments must follow options. Options affect how things are rendered (ie printed). They're presented here by their visual effect, 1st being strongest. They're grouped according to how they interrelate; within each group the options are mutually exclusive (unless otherwise stated). =head2 Options for Opcode Ordering These options control the 'vertical display' of opcodes. The display 'order' is also called 'mode' elsewhere in this document. =over 4 =item B<-basic> Print OPs in the order they appear in the OP tree (a preorder traversal, starting at the root). The indentation of each OP shows its level in the tree, and the '->' at the end of the line indicates the next opcode in execution order. This mode is the default, so the flag is included simply for completeness. =item B<-exec> Print OPs in the order they would normally execute (for the majority of constructs this is a postorder traversal of the tree, ending at the root). In most cases the OP that usually follows a given OP will appear directly below it; alternate paths are shown by indentation. In cases like loops when control jumps out of a linear path, a 'goto' line is generated. =item B<-tree> Print OPs in a text approximation of a tree, with the root of the tree at the left and 'left-to-right' order of children transformed into 'top-to-bottom'. Because this mode grows both to the right and down, it isn't suitable for large programs (unless you have a very wide terminal). =back =head2 Options for Line-Style These options select the line-style (or just style) used to render each opcode, and dictates what info is actually printed into each line. =over 4 =item B<-concise> Use the author's favorite set of formatting conventions. This is the default, of course. =item B<-terse> Use formatting conventions that emulate the output of B<B::Terse>. The basic mode is almost indistinguishable from the real B<B::Terse>, and the exec mode looks very similar, but is in a more logical order and lacks curly brackets. B<B::Terse> doesn't have a tree mode, so the tree mode is only vaguely reminiscent of B<B::Terse>. =item B<-linenoise> Use formatting conventions in which the name of each OP, rather than being written out in full, is represented by a one- or two-character abbreviation. This is mainly a joke. =item B<-debug> Use formatting conventions reminiscent of B<B::Debug>; these aren't very concise at all. =item B<-env> Use formatting conventions read from the environment variables C<B_CONCISE_FORMAT>, C<B_CONCISE_GOTO_FORMAT>, and C<B_CONCISE_TREE_FORMAT>. =back =head2 Options for tree-specific formatting =over 4 =item B<-compact> Use a tree format in which the minimum amount of space is used for the lines connecting nodes (one character in most cases). This squeezes out a few precious columns of screen real estate. =item B<-loose> Use a tree format that uses longer edges to separate OP nodes. This format tends to look better than the compact one, especially in ASCII, and is the default. =item B<-vt> Use tree connecting characters drawn from the VT100 line-drawing set. This looks better if your terminal supports it. =item B<-ascii> Draw the tree with standard ASCII characters like C<+> and C<|>. These don't look as clean as the VT100 characters, but they'll work with almost any terminal (or the horizontal scrolling mode of less(1)) and are suitable for text documentation or email. This is the default. =back These are pairwise exclusive, i.e. compact or loose, vt or ascii. =head2 Options controlling sequence numbering =over 4 =item B<-base>I<n> Print OP sequence numbers in base I<n>. If I<n> is greater than 10, the digit for 11 will be 'a', and so on. If I<n> is greater than 36, the digit for 37 will be 'A', and so on until 62. Values greater than 62 are not currently supported. The default is 36. =item B<-bigendian> Print sequence numbers with the most significant digit first. This is the usual convention for Arabic numerals, and the default. =item B<-littleendian> Print sequence numbers with the least significant digit first. This is obviously mutually exclusive with bigendian. =back =head2 Other options =over 4 =item B<-src> With this option, the rendering of each statement (starting with the nextstate OP) will be preceded by the 1st line of source code that generates it. For example: 1 <0> enter # 1: my $i; 2 <;> nextstate(main 1 junk.pl:1) v:{ 3 <0> padsv[$i:1,10] vM/LVINTRO # 3: for $i (0..9) { 4 <;> nextstate(main 3 junk.pl:3) v:{ 5 <0> pushmark s 6 <$> const[IV 0] s 7 <$> const[IV 9] s 8 <{> enteriter(next->j last->m redo->9)[$i:1,10] lKS k <0> iter s l <|> and(other->9) vK/1 # 4: print "line "; 9 <;> nextstate(main 2 junk.pl:4) v a <0> pushmark s b <$> const[PV "line "] s c <@> print vK # 5: print "$i\n"; ... =item B<-stash="somepackage"> With this, "somepackage" will be required, then the stash is inspected, and each function is rendered. =back The following options are pairwise exclusive. =over 4 =item B<-main> Include the main program in the output, even if subroutines were also specified. This rendering is normally suppressed when a subroutine name or reference is given. =item B<-nomain> This restores the default behavior after you've changed it with '-main' (it's not normally needed). If no subroutine name/ref is given, main is rendered, regardless of this flag. =item B<-nobanner> Renderings usually include a banner line identifying the function name or stringified subref. This suppresses the printing of the banner. TBC: Remove the stringified coderef; while it provides a 'cookie' for each function rendered, the cookies used should be 1,2,3.. not a random hex-address. It also complicates string comparison of two different trees. =item B<-banner> restores default banner behavior. =item B<-banneris> => subref TBC: a hookpoint (and an option to set it) for a user-supplied function to produce a banner appropriate for users needs. It's not ideal, because the rendering-state variables, which are a natural candidate for use in concise.t, are unavailable to the user. =back =head2 Option Stickiness If you invoke Concise more than once in a program, you should know that the options are 'sticky'. This means that the options you provide in the first call will be remembered for the 2nd call, unless you re-specify or change them. =head1 ABBREVIATIONS The concise style uses symbols to convey maximum info with minimal clutter (like hex addresses). With just a little practice, you can start to see the flowers, not just the branches, in the trees. =head2 OP class abbreviations These symbols appear before the op-name, and indicate the B:: namespace that represents the ops in your Perl code. 0 OP (aka BASEOP) An OP with no children 1 UNOP An OP with one child + UNOP_AUX A UNOP with auxillary fields 2 BINOP An OP with two children | LOGOP A control branch OP @ LISTOP An OP that could have lots of children / PMOP An OP with a regular expression $ SVOP An OP with an SV " PVOP An OP with a string { LOOP An OP that holds pointers for a loop ; COP An OP that marks the start of a statement # PADOP An OP with a GV on the pad . METHOP An OP with method call info =head2 OP flags abbreviations OP flags are either public or private. The public flags alter the behavior of each opcode in consistent ways, and are represented by 0 or more single characters. v OPf_WANT_VOID Want nothing (void context) s OPf_WANT_SCALAR Want single value (scalar context) l OPf_WANT_LIST Want list of any length (list context) Want is unknown K OPf_KIDS There is a firstborn child. P OPf_PARENS This operator was parenthesized. (Or block needs explicit scope entry.) R OPf_REF Certified reference. (Return container, not containee). M OPf_MOD Will modify (lvalue). S OPf_STACKED Some arg is arriving on the stack. * OPf_SPECIAL Do something weird for this op (see op.h) Private flags, if any are set for an opcode, are displayed after a '/' 8 <@> leave[1 ref] vKP/REFC ->(end) 7 <2> sassign vKS/2 ->8 They're opcode specific, and occur less often than the public ones, so they're represented by short mnemonics instead of single-chars; see B::Op_private and F<regen/op_private> for more details. =head1 FORMATTING SPECIFICATIONS For each line-style ('concise', 'terse', 'linenoise', etc.) there are 3 format-specs which control how OPs are rendered. The first is the 'default' format, which is used in both basic and exec modes to print all opcodes. The 2nd, goto-format, is used in exec mode when branches are encountered. They're not real opcodes, and are inserted to look like a closing curly brace. The tree-format is tree specific. When a line is rendered, the correct format-spec is copied and scanned for the following items; data is substituted in, and other manipulations like basic indenting are done, for each opcode rendered. There are 3 kinds of items that may be populated; special patterns, #vars, and literal text, which is copied verbatim. (Yes, it's a set of s///g steps.) =head2 Special Patterns These items are the primitives used to perform indenting, and to select text from amongst alternatives. =over 4 =item B<(x(>I<exec_text>B<;>I<basic_text>B<)x)> Generates I<exec_text> in exec mode, or I<basic_text> in basic mode. =item B<(*(>I<text>B<)*)> Generates one copy of I<text> for each indentation level. =item B<(*(>I<text1>B<;>I<text2>B<)*)> Generates one fewer copies of I<text1> than the indentation level, followed by one copy of I<text2> if the indentation level is more than 0. =item B<(?(>I<text1>B<#>I<var>I<Text2>B<)?)> If the value of I<var> is true (not empty or zero), generates the value of I<var> surrounded by I<text1> and I<Text2>, otherwise nothing. =item B<~> Any number of tildes and surrounding whitespace will be collapsed to a single space. =back =head2 # Variables These #vars represent opcode properties that you may want as part of your rendering. The '#' is intended as a private sigil; a #var's value is interpolated into the style-line, much like "read $this". These vars take 3 forms: =over 4 =item B<#>I<var> A property named 'var' is assumed to exist for the opcodes, and is interpolated into the rendering. =item B<#>I<var>I<N> Generates the value of I<var>, left justified to fill I<N> spaces. Note that this means while you can have properties 'foo' and 'foo2', you cannot render 'foo2', but you could with 'foo2a'. You would be wise not to rely on this behavior going forward ;-) =item B<#>I<Var> This ucfirst form of #var generates a tag-value form of itself for display; it converts '#Var' into a 'Var => #var' style, which is then handled as described above. (Imp-note: #Vars cannot be used for conditional-fills, because the => #var transform is done after the check for #Var's value). =back The following variables are 'defined' by B::Concise; when they are used in a style, their respective values are plugged into the rendering of each opcode. Only some of these are used by the standard styles, the others are provided for you to delve into optree mechanics, should you wish to add a new style (see L</add_style> below) that uses them. You can also add new ones using L</add_callback>. =over 4 =item B<#addr> The address of the OP, in hexadecimal. =item B<#arg> The OP-specific information of the OP (such as the SV for an SVOP, the non-local exit pointers for a LOOP, etc.) enclosed in parentheses. =item B<#class> The B-determined class of the OP, in all caps. =item B<#classsym> A single symbol abbreviating the class of the OP. =item B<#coplabel> The label of the statement or block the OP is the start of, if any. =item B<#exname> The name of the OP, or 'ex-foo' if the OP is a null that used to be a foo. =item B<#extarg> The target of the OP, or nothing for a nulled OP. =item B<#firstaddr> The address of the OP's first child, in hexadecimal. =item B<#flags> The OP's flags, abbreviated as a series of symbols. =item B<#flagval> The numeric value of the OP's flags. =item B<#hints> The COP's hint flags, rendered with abbreviated names if possible. An empty string if this is not a COP. Here are the symbols used: $ strict refs & strict subs * strict vars x$ explicit use/no strict refs x& explicit use/no strict subs x* explicit use/no strict vars i integers l locale b bytes { block scope % localise %^H < open in > open out I overload int F overload float B overload binary S overload string R overload re T taint E eval X filetest access U utf-8 us use feature 'unicode_strings' fea=NNN feature bundle number =item B<#hintsval> The numeric value of the COP's hint flags, or an empty string if this is not a COP. =item B<#hyphseq> The sequence number of the OP, or a hyphen if it doesn't have one. =item B<#label> 'NEXT', 'LAST', or 'REDO' if the OP is a target of one of those in exec mode, or empty otherwise. =item B<#lastaddr> The address of the OP's last child, in hexadecimal. =item B<#name> The OP's name. =item B<#NAME> The OP's name, in all caps. =item B<#next> The sequence number of the OP's next OP. =item B<#nextaddr> The address of the OP's next OP, in hexadecimal. =item B<#noise> A one- or two-character abbreviation for the OP's name. =item B<#private> The OP's private flags, rendered with abbreviated names if possible. =item B<#privval> The numeric value of the OP's private flags. =item B<#seq> The sequence number of the OP. Note that this is a sequence number generated by B::Concise. =item B<#seqnum> 5.8.x and earlier only. 5.9 and later do not provide this. The real sequence number of the OP, as a regular number and not adjusted to be relative to the start of the real program. (This will generally be a fairly large number because all of B<B::Concise> is compiled before your program is). =item B<#opt> Whether or not the op has been optimized by the peephole optimizer. Only available in 5.9 and later. =item B<#sibaddr> The address of the OP's next youngest sibling, in hexadecimal. =item B<#svaddr> The address of the OP's SV, if it has an SV, in hexadecimal. =item B<#svclass> The class of the OP's SV, if it has one, in all caps (e.g., 'IV'). =item B<#svval> The value of the OP's SV, if it has one, in a short human-readable format. =item B<#targ> The numeric value of the OP's targ. =item B<#targarg> The name of the variable the OP's targ refers to, if any, otherwise the letter t followed by the OP's targ in decimal. =item B<#targarglife> Same as B<#targarg>, but followed by the COP sequence numbers that delimit the variable's lifetime (or 'end' for a variable in an open scope) for a variable. =item B<#typenum> The numeric value of the OP's type, in decimal. =back =head1 One-Liner Command tips =over 4 =item perl -MO=Concise,bar foo.pl Renders only bar() from foo.pl. To see main, drop the ',bar'. To see both, add ',-main' =item perl -MDigest::MD5=md5 -MO=Concise,md5 -e1 Identifies md5 as an XS function. The export is needed so that BC can find it in main. =item perl -MPOSIX -MO=Concise,_POSIX_ARG_MAX -e1 Identifies _POSIX_ARG_MAX as a constant sub, optimized to an IV. Although POSIX isn't entirely consistent across platforms, this is likely to be present in virtually all of them. =item perl -MPOSIX -MO=Concise,a -e 'print _POSIX_SAVED_IDS' This renders a print statement, which includes a call to the function. It's identical to rendering a file with a use call and that single statement, except for the filename which appears in the nextstate ops. =item perl -MPOSIX -MO=Concise,a -e 'sub a{_POSIX_SAVED_IDS}' This is B<very> similar to previous, only the first two ops differ. This subroutine rendering is more representative, insofar as a single main program will have many subs. =item perl -MB::Concise -e 'B::Concise::compile("-exec","-src", \%B::Concise::)->()' This renders all functions in the B::Concise package with the source lines. It eschews the O framework so that the stashref can be passed directly to B::Concise::compile(). See -stash option for a more convenient way to render a package. =back =head1 Using B::Concise outside of the O framework The common (and original) usage of B::Concise was for command-line renderings of simple code, as given in EXAMPLE. But you can also use B<B::Concise> from your code, and call compile() directly, and repeatedly. By doing so, you can avoid the compile-time only operation of O.pm, and even use the debugger to step through B::Concise::compile() itself. Once you're doing this, you may alter Concise output by adding new rendering styles, and by optionally adding callback routines which populate new variables, if such were referenced from those (just added) styles. =head2 Example: Altering Concise Renderings use B::Concise qw(set_style add_callback); add_style($yourStyleName => $defaultfmt, $gotofmt, $treefmt); add_callback ( sub { my ($h, $op, $format, $level, $stylename) = @_; $h->{variable} = some_func($op); }); $walker = B::Concise::compile(@options,@subnames,@subrefs); $walker->(); =head2 set_style() B<set_style> accepts 3 arguments, and updates the three format-specs comprising a line-style (basic-exec, goto, tree). It has one minor drawback though; it doesn't register the style under a new name. This can become an issue if you render more than once and switch styles. Thus you may prefer to use add_style() and/or set_style_standard() instead. =head2 set_style_standard($name) This restores one of the standard line-styles: C<terse>, C<concise>, C<linenoise>, C<debug>, C<env>, into effect. It also accepts style names previously defined with add_style(). =head2 add_style () This subroutine accepts a new style name and three style arguments as above, and creates, registers, and selects the newly named style. It is an error to re-add a style; call set_style_standard() to switch between several styles. =head2 add_callback () If your newly minted styles refer to any new #variables, you'll need to define a callback subroutine that will populate (or modify) those variables. They are then available for use in the style you've chosen. The callbacks are called for each opcode visited by Concise, in the same order as they are added. Each subroutine is passed five parameters. 1. A hashref, containing the variable names and values which are populated into the report-line for the op 2. the op, as a B<B::OP> object 3. a reference to the format string 4. the formatting (indent) level 5. the selected stylename To define your own variables, simply add them to the hash, or change existing values if you need to. The level and format are passed in as references to scalars, but it is unlikely that they will need to be changed or even used. =head2 Running B::Concise::compile() B<compile> accepts options as described above in L</OPTIONS>, and arguments, which are either coderefs, or subroutine names. It constructs and returns a $treewalker coderef, which when invoked, traverses, or walks, and renders the optrees of the given arguments to STDOUT. You can reuse this, and can change the rendering style used each time; thereafter the coderef renders in the new style. B<walk_output> lets you change the print destination from STDOUT to another open filehandle, or into a string passed as a ref (unless you've built perl with -Uuseperlio). my $walker = B::Concise::compile('-terse','aFuncName', \&aSubRef); # 1 walk_output(\my $buf); $walker->(); # 1 renders -terse set_style_standard('concise'); # 2 $walker->(); # 2 renders -concise $walker->(@new); # 3 renders whatever print "3 different renderings: terse, concise, and @new: $buf\n"; When $walker is called, it traverses the subroutines supplied when it was created, and renders them using the current style. You can change the style afterwards in several different ways: 1. call C<compile>, altering style or mode/order 2. call C<set_style_standard> 3. call $walker, passing @new options Passing new options to the $walker is the easiest way to change amongst any pre-defined styles (the ones you add are automatically recognized as options), and is the only way to alter rendering order without calling compile again. Note however that rendering state is still shared amongst multiple $walker objects, so they must still be used in a coordinated manner. =head2 B::Concise::reset_sequence() This function (not exported) lets you reset the sequence numbers (note that they're numbered arbitrarily, their goal being to be human readable). Its purpose is mostly to support testing, i.e. to compare the concise output from two identical anonymous subroutines (but different instances). Without the reset, B::Concise, seeing that they're separate optrees, generates different sequence numbers in the output. =head2 Errors Errors in rendering (non-existent function-name, non-existent coderef) are written to the STDOUT, or wherever you've set it via walk_output(). Errors using the various *style* calls, and bad args to walk_output(), result in die(). Use an eval if you wish to catch these errors and continue processing. =head1 AUTHOR Stephen McCamant, E<lt>smcc@CSUA.Berkeley.EDUE<gt>. =cut package B::Showlex; our $VERSION = '1.05'; use strict; use B qw(svref_2object comppadlist class); use B::Terse (); use B::Concise (); # # Invoke as # perl -MO=Showlex,foo bar.pl # to see the names of lexical variables used by &foo # or as # perl -MO=Showlex bar.pl # to see the names of file scope lexicals used by bar.pl # # borrowed from B::Concise our $walkHandle = \*STDOUT; sub walk_output { # updates $walkHandle $walkHandle = B::Concise::walk_output(@_); #print "got $walkHandle"; #print $walkHandle "using it"; $walkHandle; } sub shownamearray { my ($name, $av) = @_; my @els = $av->ARRAY; my $count = @els; my $i; print $walkHandle "$name has $count entries\n"; for ($i = 0; $i < $count; $i++) { my $sv = $els[$i]; if (class($sv) ne "SPECIAL") { printf $walkHandle "$i: (0x%lx) %s\n", $$sv, $sv->PVX // "undef" || "const"; } else { printf $walkHandle "$i: %s\n", $sv->terse; #printf $walkHandle "$i: %s\n", B::Concise::concise_sv($sv); } } } sub showvaluearray { my ($name, $av) = @_; my @els = $av->ARRAY; my $count = @els; my $i; print $walkHandle "$name has $count entries\n"; for ($i = 0; $i < $count; $i++) { printf $walkHandle "$i: %s\n", $els[$i]->terse; #print $walkHandle "$i: %s\n", B::Concise::concise_sv($els[$i]); } } sub showlex { my ($objname, $namesav, $valsav) = @_; shownamearray("Pad of lexical names for $objname", $namesav); showvaluearray("Pad of lexical values for $objname", $valsav); } my ($newlex, $nosp1); # rendering state vars sub padname_terse { my $name = shift; return $name->terse if class($name) eq 'SPECIAL'; my $str = $name->PVX; return sprintf "(0x%lx) %s", $$name, length $str ? qq'"$str"' : defined $str ? "const" : 'undef'; } sub newlex { # drop-in for showlex my ($objname, $names, $vals) = @_; my @names = $names->ARRAY; my @vals = $vals->ARRAY; my $count = @names; print $walkHandle "$objname Pad has $count entries\n"; printf $walkHandle "0: %s\n", padname_terse($names[0]) unless $nosp1; for (my $i = 1; $i < $count; $i++) { printf $walkHandle "$i: %s = %s\n", padname_terse($names[$i]), $vals[$i]->terse, unless $nosp1 and class($names[$i]) eq 'SPECIAL' || !$names[$i]->LEN; } } sub showlex_obj { my ($objname, $obj) = @_; $objname =~ s/^&main::/&/; showlex($objname, svref_2object($obj)->PADLIST->ARRAY) if !$newlex; newlex ($objname, svref_2object($obj)->PADLIST->ARRAY) if $newlex; } sub showlex_main { showlex("comppadlist", comppadlist->ARRAY) if !$newlex; newlex ("main", comppadlist->ARRAY) if $newlex; } sub compile { my @options = grep(/^-/, @_); my @args = grep(!/^-/, @_); for my $o (@options) { $newlex = 1 if $o eq "-newlex"; $nosp1 = 1 if $o eq "-nosp"; } return \&showlex_main unless @args; return sub { my $objref; foreach my $objname (@args) { next unless $objname; # skip nulls w/o carping if (ref $objname) { print $walkHandle "B::Showlex::compile($objname)\n"; $objref = $objname; } else { $objname = "main::$objname" unless $objname =~ /::/; print $walkHandle "$objname:\n"; no strict 'refs'; die "err: unknown function ($objname)\n" unless *{$objname}{CODE}; $objref = \&$objname; } showlex_obj($objname, $objref); } } } 1; __END__ =head1 NAME B::Showlex - Show lexical variables used in functions or files =head1 SYNOPSIS perl -MO=Showlex[,-OPTIONS][,SUBROUTINE] foo.pl =head1 DESCRIPTION When a comma-separated list of subroutine names is given as options, Showlex prints the lexical variables used in those subroutines. Otherwise, it prints the file-scope lexicals in the file. =head1 EXAMPLES Traditional form: $ perl -MO=Showlex -e 'my ($i,$j,$k)=(1,"foo")' Pad of lexical names for comppadlist has 4 entries 0: (0x8caea4) undef 1: (0x9db0fb0) $i 2: (0x9db0f38) $j 3: (0x9db0f50) $k Pad of lexical values for comppadlist has 5 entries 0: SPECIAL #1 &PL_sv_undef 1: NULL (0x9da4234) 2: NULL (0x9db0f2c) 3: NULL (0x9db0f44) 4: NULL (0x9da4264) -e syntax OK New-style form: $ perl -MO=Showlex,-newlex -e 'my ($i,$j,$k)=(1,"foo")' main Pad has 4 entries 0: (0x8caea4) undef 1: (0xa0c4fb8) "$i" = NULL (0xa0b8234) 2: (0xa0c4f40) "$j" = NULL (0xa0c4f34) 3: (0xa0c4f58) "$k" = NULL (0xa0c4f4c) -e syntax OK New form, no specials, outside O framework: $ perl -MB::Showlex -e \ 'my ($i,$j,$k)=(1,"foo"); B::Showlex::compile(-newlex,-nosp)->()' main Pad has 4 entries 1: (0x998ffb0) "$i" = IV (0x9983234) 1 2: (0x998ff68) "$j" = PV (0x998ff5c) "foo" 3: (0x998ff80) "$k" = NULL (0x998ff74) Note that this example shows the values of the lexicals, whereas the other examples did not (as they're compile-time only). =head2 OPTIONS The C<-newlex> option produces a more readable C<< name => value >> format, and is shown in the second example above. The C<-nosp> option eliminates reporting of SPECIALs, such as C<0: SPECIAL #1 &PL_sv_undef> above. Reporting of SPECIALs can sometimes overwhelm your declared lexicals. =head1 SEE ALSO L<B::Showlex> can also be used outside of the O framework, as in the third example. See L<B::Concise> for a fuller explanation of reasons. =head1 TODO Some of the reported info, such as hex addresses, is not particularly valuable. Other information would be more useful for the typical programmer, such as line-numbers, pad-slot reuses, etc.. Given this, -newlex is not a particularly good flag-name. =head1 AUTHOR Malcolm Beattie, C<mbeattie@sable.ox.ac.uk> =cut package B::Xref; our $VERSION = '1.06'; =head1 NAME B::Xref - Generates cross reference reports for Perl programs =head1 SYNOPSIS perl -MO=Xref[,OPTIONS] foo.pl =head1 DESCRIPTION The B::Xref module is used to generate a cross reference listing of all definitions and uses of variables, subroutines and formats in a Perl program. It is implemented as a backend for the Perl compiler. The report generated is in the following format: File filename1 Subroutine subname1 Package package1 object1 line numbers object2 line numbers ... Package package2 ... Each B<File> section reports on a single file. Each B<Subroutine> section reports on a single subroutine apart from the special cases "(definitions)" and "(main)". These report, respectively, on subroutine definitions found by the initial symbol table walk and on the main part of the program or module external to all subroutines. The report is then grouped by the B<Package> of each variable, subroutine or format with the special case "(lexicals)" meaning lexical variables. Each B<object> name (implicitly qualified by its containing B<Package>) includes its type character(s) at the beginning where possible. Lexical variables are easier to track and even included dereferencing information where possible. The C<line numbers> are a comma separated list of line numbers (some preceded by code letters) where that object is used in some way. Simple uses aren't preceded by a code letter. Introductions (such as where a lexical is first defined with C<my>) are indicated with the letter "i". Subroutine and method calls are indicated by the character "&". Subroutine definitions are indicated by "s" and format definitions by "f". For instance, here's part of the report from the I<pod2man> program that comes with Perl: Subroutine clear_noremap Package (lexical) $ready_to_print i1069, 1079 Package main $& 1086 $. 1086 $0 1086 $1 1087 $2 1085, 1085 $3 1085, 1085 $ARGV 1086 %HTML_Escapes 1085, 1085 This shows the variables used in the subroutine C<clear_noremap>. The variable C<$ready_to_print> is a my() (lexical) variable, B<i>ntroduced (first declared with my()) on line 1069, and used on line 1079. The variable C<$&> from the main package is used on 1086, and so on. A line number may be prefixed by a single letter: =over 4 =item i Lexical variable introduced (declared with my()) for the first time. =item & Subroutine or method call. =item s Subroutine defined. =item r Format defined. =back The most useful option the cross referencer has is to save the report to a separate file. For instance, to save the report on I<myperlprogram> to the file I<report>: $ perl -MO=Xref,-oreport myperlprogram =head1 OPTIONS Option words are separated by commas (not whitespace) and follow the usual conventions of compiler backend options. =over 8 =item C<-oFILENAME> Directs output to C<FILENAME> instead of standard output. =item C<-r> Raw output. Instead of producing a human-readable report, outputs a line in machine-readable form for each definition/use of a variable/sub/format. =item C<-d> Don't output the "(definitions)" sections. =item C<-D[tO]> (Internal) debug options, probably only useful if C<-r> included. The C<t> option prints the object on the top of the stack as it's being tracked. The C<O> option prints each operator as it's being processed in the execution order of the program. =back =head1 BUGS Non-lexical variables are quite difficult to track through a program. Sometimes the type of a non-lexical variable's use is impossible to determine. Introductions of non-lexical non-scalars don't seem to be reported properly. =head1 AUTHOR Malcolm Beattie, mbeattie@sable.ox.ac.uk. =cut use strict; use Config; use B qw(peekop class comppadlist main_start svref_2object walksymtable OPpLVAL_INTRO SVf_POK OPpOUR_INTRO cstring ); sub UNKNOWN { ["?", "?", "?"] } my @pad; # lexicals in current pad # as ["(lexical)", type, name] my %done; # keyed by $$op: set when each $op is done my $top = UNKNOWN; # shadows top element of stack as # [pack, type, name] (pack can be "(lexical)") my $file; # shadows current filename my $line; # shadows current line number my $subname; # shadows current sub name my %table; # Multi-level hash to record all uses etc. my @todo = (); # List of CVs that need processing my %code = (intro => "i", used => "", subdef => "s", subused => "&", formdef => "f", meth => "->"); # Options my ($debug_op, $debug_top, $nodefs, $raw); sub process { my ($var, $event) = @_; my ($pack, $type, $name) = @$var; if ($type eq "*") { if ($event eq "used") { return; } elsif ($event eq "subused") { $type = "&"; } } $type =~ s/(.)\*$/$1/g; if ($raw) { printf "%-16s %-12s %5d %-12s %4s %-16s %s\n", $file, $subname, $line, $pack, $type, $name, $event; } else { # Wheee push(@{$table{$file}->{$subname}->{$pack}->{$type.$name}->{$event}}, $line); } } sub load_pad { my $padlist = shift; my ($namelistav, $vallistav, @namelist, $ix); @pad = (); return if class($padlist) =~ '^(?:SPECIAL|NULL)\z'; ($namelistav,$vallistav) = $padlist->ARRAY; @namelist = $namelistav->ARRAY; for ($ix = 1; $ix < @namelist; $ix++) { my $namesv = $namelist[$ix]; next if class($namesv) eq "SPECIAL"; my ($type, $name) = $namesv->PV =~ /^(.)([^\0]*)(\0.*)?$/; $pad[$ix] = ["(lexical)", $type || '?', $name || '?']; } if ($Config{useithreads}) { my (@vallist); @vallist = $vallistav->ARRAY; for ($ix = 1; $ix < @vallist; $ix++) { my $valsv = $vallist[$ix]; next unless class($valsv) eq "GV"; next if class($valsv->STASH) eq 'SPECIAL'; # these pad GVs don't have corresponding names, so same @pad # array can be used without collisions $pad[$ix] = [$valsv->STASH->NAME, "*", $valsv->NAME]; } } } sub xref { my $start = shift; my $op; for ($op = $start; $$op; $op = $op->next) { last if $done{$$op}++; warn sprintf("top = [%s, %s, %s]\n", @$top) if $debug_top; warn peekop($op), "\n" if $debug_op; my $opname = $op->name; if ($opname =~ /^(or|and|mapwhile|grepwhile|range|cond_expr)$/) { xref($op->other); } elsif ($opname eq "match" || $opname eq "subst") { xref($op->pmreplstart); } elsif ($opname eq "substcont") { xref($op->other->pmreplstart); $op = $op->other; redo; } elsif ($opname eq "enterloop") { xref($op->redoop); xref($op->nextop); xref($op->lastop); } elsif ($opname eq "subst") { xref($op->pmreplstart); } else { no strict 'refs'; my $ppname = "pp_$opname"; &$ppname($op) if defined(&$ppname); } } } sub xref_cv { my $cv = shift; my $pack = $cv->GV->STASH->NAME; $subname = ($pack eq "main" ? "" : "$pack\::") . $cv->GV->NAME; load_pad($cv->PADLIST); xref($cv->START); $subname = "(main)"; } sub xref_object { my $cvref = shift; xref_cv(svref_2object($cvref)); } sub xref_main { $subname = "(main)"; load_pad(comppadlist); xref(main_start); while (@todo) { xref_cv(shift @todo); } } sub pp_nextstate { my $op = shift; $file = $op->file; $line = $op->line; $top = UNKNOWN; } sub pp_padrange { my $op = shift; my $count = $op->private & 127; for my $i (0..$count-1) { $top = $pad[$op->targ + $i]; process($top, $op->private & OPpLVAL_INTRO ? "intro" : "used"); } } sub pp_padsv { my $op = shift; $top = $pad[$op->targ]; process($top, $op->private & OPpLVAL_INTRO ? "intro" : "used"); } sub pp_padav { pp_padsv(@_) } sub pp_padhv { pp_padsv(@_) } sub deref { my ($op, $var, $as) = @_; $var->[1] = $as . $var->[1]; process($var, $op->private & OPpOUR_INTRO ? "intro" : "used"); } sub pp_rv2cv { deref(shift, $top, "&"); } sub pp_rv2hv { deref(shift, $top, "%"); } sub pp_rv2sv { deref(shift, $top, "\$"); } sub pp_rv2av { deref(shift, $top, "\@"); } sub pp_rv2gv { deref(shift, $top, "*"); } sub pp_gvsv { my $op = shift; my $gv; if ($Config{useithreads}) { $top = $pad[$op->padix]; $top = UNKNOWN unless $top; $top->[1] = '$'; } else { $gv = $op->gv; $top = [$gv->STASH->NAME, '$', $gv->SAFENAME]; } process($top, $op->private & OPpLVAL_INTRO || $op->private & OPpOUR_INTRO ? "intro" : "used"); } sub pp_gv { my $op = shift; my $gv; if ($Config{useithreads}) { $top = $pad[$op->padix]; $top = UNKNOWN unless $top; $top->[1] = '*'; } else { $gv = $op->gv; $top = [$gv->STASH->NAME, "*", $gv->SAFENAME]; } process($top, $op->private & OPpLVAL_INTRO ? "intro" : "used"); } sub pp_const { my $op = shift; my $sv = $op->sv; # constant could be in the pad (under useithreads) if ($$sv) { $top = ["?", "", (class($sv) ne "SPECIAL" && $sv->FLAGS & SVf_POK) ? cstring($sv->PV) : "?"]; } else { $top = $pad[$op->targ]; $top = UNKNOWN unless $top; } } sub pp_method { my $op = shift; $top = ["(method)", "->".$top->[1], $top->[2]]; } sub pp_entersub { my $op = shift; if ($top->[1] eq "m") { process($top, "meth"); } else { process($top, "subused"); } $top = UNKNOWN; } # # Stuff for cross referencing definitions of variables and subs # sub B::GV::xref { my $gv = shift; my $cv = $gv->CV; if ($$cv) { #return if $done{$$cv}++; $file = $gv->FILE; $line = $gv->LINE; process([$gv->STASH->NAME, "&", $gv->NAME], "subdef"); push(@todo, $cv); } my $form = $gv->FORM; if ($$form) { return if $done{$$form}++; $file = $gv->FILE; $line = $gv->LINE; process([$gv->STASH->NAME, "", $gv->NAME], "formdef"); } } sub xref_definitions { my ($pack, %exclude); return if $nodefs; $subname = "(definitions)"; foreach $pack (qw(B O AutoLoader DynaLoader XSLoader Config DB VMS strict vars FileHandle Exporter Carp PerlIO::Layer attributes utf8 warnings)) { $exclude{$pack."::"} = 1; } no strict qw(vars refs); walksymtable(\%{"main::"}, "xref", sub { !defined($exclude{$_[0]}) }); } sub output { return if $raw; my ($file, $subname, $pack, $name, $ev, $perfile, $persubname, $perpack, $pername, $perev); foreach $file (sort(keys(%table))) { $perfile = $table{$file}; print "File $file\n"; foreach $subname (sort(keys(%$perfile))) { $persubname = $perfile->{$subname}; print " Subroutine $subname\n"; foreach $pack (sort(keys(%$persubname))) { $perpack = $persubname->{$pack}; print " Package $pack\n"; foreach $name (sort(keys(%$perpack))) { $pername = $perpack->{$name}; my @lines; foreach $ev (qw(intro formdef subdef meth subused used)) { $perev = $pername->{$ev}; if (defined($perev) && @$perev) { my $code = $code{$ev}; push(@lines, map("$code$_", @$perev)); } } printf " %-16s %s\n", $name, join(", ", @lines); } } } } } sub compile { my @options = @_; my ($option, $opt, $arg); OPTION: while ($option = shift @options) { if ($option =~ /^-(.)(.*)/) { $opt = $1; $arg = $2; } else { unshift @options, $option; last OPTION; } if ($opt eq "-" && $arg eq "-") { shift @options; last OPTION; } elsif ($opt eq "o") { $arg ||= shift @options; open(STDOUT, '>', $arg) or return "$arg: $!\n"; } elsif ($opt eq "d") { $nodefs = 1; } elsif ($opt eq "r") { $raw = 1; } elsif ($opt eq "D") { $arg ||= shift @options; foreach $arg (split(//, $arg)) { if ($arg eq "o") { B->debug(1); } elsif ($arg eq "O") { $debug_op = 1; } elsif ($arg eq "t") { $debug_top = 1; } } } } if (@options) { return sub { my $objname; xref_definitions(); foreach $objname (@options) { $objname = "main::$objname" unless $objname =~ /::/; eval "xref_object(\\&$objname)"; die "xref_object(\\&$objname) failed: $@" if $@; } output(); } } else { return sub { xref_definitions(); xref_main(); output(); } } } 1; package B::Terse; our $VERSION = '1.07'; use strict; use B qw(class @specialsv_name); use B::Concise qw(concise_subref set_style_standard); use Carp; sub terse { my ($order, $subref) = @_; set_style_standard("terse"); if ($order eq "exec") { concise_subref('exec', $subref); } else { concise_subref('basic', $subref); } } sub compile { my @args = @_; my $order = @args ? shift(@args) : ""; $order = "-exec" if $order eq "exec"; unshift @args, $order if $order ne ""; B::Concise::compile("-terse", @args); } sub indent { my ($level) = @_ ? shift : 0; return " " x $level; } # Don't use this, at least on OPs in subroutines: it has no way of # getting to the pad, and will give wrong answers or crash. sub B::OP::terse { carp "B::OP::terse is deprecated and will go away in Perl 5.28; use B::Concise instead"; B::Concise::b_terse(@_); } sub B::SV::terse { my($sv, $level) = (@_, 0); my %info; B::Concise::concise_sv($sv, \%info); my $s = indent($level) . B::Concise::fmt_line(\%info, $sv, "#svclass~(?((#svaddr))?)~#svval", 0); chomp $s; print "$s\n" unless defined wantarray; $s; } sub B::NULL::terse { my ($sv, $level) = (@_, 0); my $s = indent($level) . sprintf "%s (0x%lx)", class($sv), $$sv; print "$s\n" unless defined wantarray; $s; } sub B::SPECIAL::terse { my ($sv, $level) = (@_, 0); my $s = indent($level) . sprintf( "%s #%d %s", class($sv), $$sv, $specialsv_name[$$sv]); print "$s\n" unless defined wantarray; $s; } 1; __END__ =head1 NAME B::Terse - Walk Perl syntax tree, printing terse info about ops =head1 SYNOPSIS perl -MO=Terse[,OPTIONS] foo.pl =head1 DESCRIPTION This module prints the contents of the parse tree, but without as much information as L<B::Debug>. For comparison, C<print "Hello, world."> produced 96 lines of output from B::Debug, but only 6 from B::Terse. This module is useful for people who are writing their own back end, or who are learning about the Perl internals. It's not useful to the average programmer. This version of B::Terse is really just a wrapper that calls L<B::Concise> with the B<-terse> option. It is provided for compatibility with old scripts (and habits) but using B::Concise directly is now recommended instead. For compatibility with the old B::Terse, this module also adds a method named C<terse> to B::OP and B::SV objects. The B::SV method is largely compatible with the old one, though authors of new software might be advised to choose a more user-friendly output format. The B::OP C<terse> method, however, doesn't work well. Since B::Terse was first written, much more information in OPs has migrated to the scratchpad datastructure, but the C<terse> interface doesn't have any way of getting to the correct pad. As a kludge, the new version will always use the pad for the main program, but for OPs in subroutines this will give the wrong answer or crash. =head1 AUTHOR The original version of B::Terse was written by Malcolm Beattie, E<lt>mbeattie@sable.ox.ac.ukE<gt>. This wrapper was written by Stephen McCamant, E<lt>smcc@MIT.EDUE<gt>. =cut # This file was created by configpm when Perl was built. Any changes # made to this file will be lost the next time perl is built. # for a description of the variables, please have a look at the # Glossary file, as written in the Porting folder, or use the url: # http://perl5.git.perl.org/perl.git/blob/HEAD:/Porting/Glossary package Config; use strict; use warnings; use vars '%Config', '$VERSION'; $VERSION = "5.026003"; # Skip @Config::EXPORT because it only contains %Config, which we special # case below as it's not a function. @Config::EXPORT won't change in the # lifetime of Perl 5. my %Export_Cache = (myconfig => 1, config_sh => 1, config_vars => 1, config_re => 1, compile_date => 1, local_patches => 1, bincompat_options => 1, non_bincompat_options => 1, header_files => 1); @Config::EXPORT = qw(%Config); @Config::EXPORT_OK = keys %Export_Cache; # Need to stub all the functions to make code such as print Config::config_sh # keep working sub bincompat_options; sub compile_date; sub config_re; sub config_sh; sub config_vars; sub header_files; sub local_patches; sub myconfig; sub non_bincompat_options; # Define our own import method to avoid pulling in the full Exporter: sub import { shift; @_ = @Config::EXPORT unless @_; my @funcs = grep $_ ne '%Config', @_; my $export_Config = @funcs < @_ ? 1 : 0; no strict 'refs'; my $callpkg = caller(0); foreach my $func (@funcs) { die qq{"$func" is not exported by the Config module\n} unless $Export_Cache{$func}; *{$callpkg.'::'.$func} = \&{$func}; } *{"$callpkg\::Config"} = \%Config if $export_Config; return; } die "$0: Perl lib version (5.26.3) doesn't match executable '$^X' version ($])" unless $^V; $^V eq 5.26.3 or die sprintf "%s: Perl lib version (5.26.3) doesn't match executable '$^X' version (%vd)", $0, $^V; sub FETCH { my($self, $key) = @_; # check for cached value (which may be undef so we use exists not defined) return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key); } sub TIEHASH { bless $_[1], $_[0]; } sub DESTROY { } sub AUTOLOAD { require 'Config_heavy.pl'; goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/; die "&Config::AUTOLOAD failed on $Config::AUTOLOAD"; } # tie returns the object, so the value returned to require will be true. tie %Config, 'Config', { archlibexp => '/usr/lib64/perl5', archname => 'x86_64-linux-thread-multi', cc => 'gcc', d_readlink => 'define', d_symlink => 'define', dlext => 'so', dlsrc => 'dl_dlopen.xs', dont_use_nlink => undef, exe_ext => '', inc_version_list => ' ', intsize => '4', ldlibpthname => 'LD_LIBRARY_PATH', libpth => '/usr/local/lib64 /lib64 /usr/lib64 /usr/local/lib /usr/lib /lib/../lib64 /usr/lib/../lib64 /lib', osname => 'linux', osvers => '5.14.0-570.12.1.el9_6.x86_64', path_sep => ':', privlibexp => '/usr/share/perl5', scriptdir => '/usr/bin', sitearchexp => '/usr/local/lib64/perl5', sitelibexp => '/usr/local/share/perl5', so => 'so', useithreads => 'define', usevendorprefix => 'define', version => '5.26.3', }; 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; 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; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_LINUX_STDDEF_H)) { eval 'sub _LINUX_STDDEF_H () {1;}' unless defined(&_LINUX_STDDEF_H); unless(defined(&__always_inline)) { eval 'sub __always_inline () { &__inline__;}' unless defined(&__always_inline); } eval 'sub __struct_group () {( &TAG, &NAME, &ATTRS, &MEMBERS...) \'union union\' { \'struct struct\' { &MEMBERS } &ATTRS; \'struct TAG\' { &MEMBERS } &ATTRS &NAME; };}' unless defined(&__struct_group); } unless(defined(&__DECLARE_FLEX_ARRAY)) { sub __DECLARE_FLEX_ARRAY { my($TYPE, $NAME) = @_; eval q('struct struct' { 'struct struct' { } &__empty_ $NAME; $TYPE $NAME->[]; }); } } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_BITS_SIGTHREAD_H)) { eval 'sub _BITS_SIGTHREAD_H () {1;}' unless defined(&_BITS_SIGTHREAD_H); if(!defined (&_SIGNAL_H) && !defined (&_PTHREAD_H)) { die("Never include this file directly. Use <signal.h> instead"); } require 'bits/types/__sigset_t.ph'; if(defined(&__USE_GNU)) { } } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_SYS_SYSLOG_H)) { die("Never include <bits/syslog-ldbl.h> directly; use <sys/syslog.h> instead."); } if(defined(&__USE_MISC)) { } if((defined(&__USE_FORTIFY_LEVEL) ? &__USE_FORTIFY_LEVEL : undef) > 0 && defined (&__fortify_function)) { if(defined(&__USE_MISC)) { } } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_BITS_SIGCONTEXT_H)) { eval 'sub _BITS_SIGCONTEXT_H () {1;}' unless defined(&_BITS_SIGCONTEXT_H); if(!defined (&_SIGNAL_H) && !defined (&_SYS_UCONTEXT_H)) { die("Never use <bits/sigcontext.h> directly; include <signal.h> instead."); } require 'bits/types.ph'; eval 'sub FP_XSTATE_MAGIC1 () {0x46505853;}' unless defined(&FP_XSTATE_MAGIC1); eval 'sub FP_XSTATE_MAGIC2 () {0x46505845;}' unless defined(&FP_XSTATE_MAGIC2); eval 'sub FP_XSTATE_MAGIC2_SIZE () {$sizeof{ &FP_XSTATE_MAGIC2};}' unless defined(&FP_XSTATE_MAGIC2_SIZE); unless(defined(&__x86_64__)) { unless(defined(&sigcontext_struct)) { eval 'sub sigcontext_struct () { &sigcontext;}' unless defined(&sigcontext_struct); } eval 'sub X86_FXSR_MAGIC () {0x;}' unless defined(&X86_FXSR_MAGIC); } else { } } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_SYS_IOCTL_H)) { die("Never use <bits/ioctl-types.h> directly; include <sys/ioctl.h> instead."); } 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 N_TTY () {0;}' unless defined(&N_TTY); eval 'sub N_SLIP () {1;}' unless defined(&N_SLIP); eval 'sub N_MOUSE () {2;}' unless defined(&N_MOUSE); eval 'sub N_PPP () {3;}' unless defined(&N_PPP); eval 'sub N_STRIP () {4;}' unless defined(&N_STRIP); eval 'sub N_AX25 () {5;}' unless defined(&N_AX25); eval 'sub N_X25 () {6;}' unless defined(&N_X25); eval 'sub N_6PACK () {7;}' unless defined(&N_6PACK); eval 'sub N_MASC () {8;}' unless defined(&N_MASC); eval 'sub N_R3964 () {9;}' unless defined(&N_R3964); eval 'sub N_PROFIBUS_FDL () {10;}' unless defined(&N_PROFIBUS_FDL); eval 'sub N_IRDA () {11;}' unless defined(&N_IRDA); eval 'sub N_SMSBLOCK () {12;}' unless defined(&N_SMSBLOCK); eval 'sub N_HDLC () {13;}' unless defined(&N_HDLC); eval 'sub N_SYNC_PPP () {14;}' unless defined(&N_SYNC_PPP); eval 'sub N_HCI () {15;}' unless defined(&N_HCI); 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_THREAD_SHARED_TYPES_H)) { eval 'sub _THREAD_SHARED_TYPES_H () {1;}' unless defined(&_THREAD_SHARED_TYPES_H); require 'bits/pthreadtypes-arch.ph'; if(!(defined(&__PTHREAD_MUTEX_USE_UNION) ? &__PTHREAD_MUTEX_USE_UNION : undef)) { } else { } if((defined(&__PTHREAD_MUTEX_LOCK_ELISION) ? &__PTHREAD_MUTEX_LOCK_ELISION : undef)) { if(!(defined(&__PTHREAD_MUTEX_USE_UNION) ? &__PTHREAD_MUTEX_USE_UNION : undef)) { eval 'sub __PTHREAD_SPINS_DATA () {\'short __spins\'; \'short __elision\';}' unless defined(&__PTHREAD_SPINS_DATA); eval 'sub __PTHREAD_SPINS () {0, 0;}' unless defined(&__PTHREAD_SPINS); } else { eval 'sub __PTHREAD_SPINS_DATA () {\'struct struct\' { \'short __espins\'; \'short __eelision\'; } &__elision_data;}' unless defined(&__PTHREAD_SPINS_DATA); eval 'sub __PTHREAD_SPINS () {{ 0, 0};}' unless defined(&__PTHREAD_SPINS); eval 'sub __spins () { ($__elision_data->{__espins});}' unless defined(&__spins); eval 'sub __elision () { ($__elision_data->{__eelision});}' unless defined(&__elision); } } else { eval 'sub __PTHREAD_SPINS_DATA () {\'int\' &__spins;}' unless defined(&__PTHREAD_SPINS_DATA); eval 'sub __PTHREAD_SPINS () {0;}' unless defined(&__PTHREAD_SPINS); } if(!(defined(&__PTHREAD_MUTEX_NUSERS_AFTER_KIND) ? &__PTHREAD_MUTEX_NUSERS_AFTER_KIND : undef)) { } if((defined(&__PTHREAD_MUTEX_NUSERS_AFTER_KIND) ? &__PTHREAD_MUTEX_NUSERS_AFTER_KIND : undef)) { } if(!(defined(&__PTHREAD_MUTEX_USE_UNION) ? &__PTHREAD_MUTEX_USE_UNION : undef)) { eval 'sub __PTHREAD_MUTEX_HAVE_PREV () {1;}' unless defined(&__PTHREAD_MUTEX_HAVE_PREV); } else { eval 'sub __PTHREAD_MUTEX_HAVE_PREV () {0;}' unless defined(&__PTHREAD_MUTEX_HAVE_PREV); } } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_BITS_PTHREADTYPES_COMMON_H)) { eval 'sub _BITS_PTHREADTYPES_COMMON_H () {1;}' unless defined(&_BITS_PTHREADTYPES_COMMON_H); require 'bits/thread-shared-types.ph'; unless(defined(&__have_pthread_attr_t)) { eval 'sub __have_pthread_attr_t () {1;}' unless defined(&__have_pthread_attr_t); } if(defined (&__USE_UNIX98) || defined (&__USE_XOPEN2K)) { } if(defined(&__USE_XOPEN2K)) { } } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_BITS_SS_FLAGS_H)) { eval 'sub _BITS_SS_FLAGS_H () {1;}' unless defined(&_BITS_SS_FLAGS_H); if(!defined (&_SIGNAL_H) && !defined (&_SYS_UCONTEXT_H)) { die("Never include this file directly. Use <signal.h> instead"); } eval("sub SS_ONSTACK () { 1; }") unless defined(&SS_ONSTACK); eval("sub SS_DISABLE () { 2; }") unless defined(&SS_DISABLE); } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_SYS_IOCTL_H)) { die("Never use <bits/ioctls.h> directly; include <sys/ioctl.h> instead."); } require 'asm/ioctls.ph'; eval 'sub SIOCADDRT () {0x890b;}' unless defined(&SIOCADDRT); eval 'sub SIOCDELRT () {0x890c;}' unless defined(&SIOCDELRT); eval 'sub SIOCRTMSG () {0x890d;}' unless defined(&SIOCRTMSG); eval 'sub SIOCGIFNAME () {0x8910;}' unless defined(&SIOCGIFNAME); eval 'sub SIOCSIFLINK () {0x8911;}' unless defined(&SIOCSIFLINK); eval 'sub SIOCGIFCONF () {0x8912;}' unless defined(&SIOCGIFCONF); eval 'sub SIOCGIFFLAGS () {0x8913;}' unless defined(&SIOCGIFFLAGS); eval 'sub SIOCSIFFLAGS () {0x8914;}' unless defined(&SIOCSIFFLAGS); eval 'sub SIOCGIFADDR () {0x8915;}' unless defined(&SIOCGIFADDR); eval 'sub SIOCSIFADDR () {0x8916;}' unless defined(&SIOCSIFADDR); eval 'sub SIOCGIFDSTADDR () {0x8917;}' unless defined(&SIOCGIFDSTADDR); eval 'sub SIOCSIFDSTADDR () {0x8918;}' unless defined(&SIOCSIFDSTADDR); eval 'sub SIOCGIFBRDADDR () {0x8919;}' unless defined(&SIOCGIFBRDADDR); eval 'sub SIOCSIFBRDADDR () {0x891a;}' unless defined(&SIOCSIFBRDADDR); eval 'sub SIOCGIFNETMASK () {0x891b;}' unless defined(&SIOCGIFNETMASK); eval 'sub SIOCSIFNETMASK () {0x891c;}' unless defined(&SIOCSIFNETMASK); eval 'sub SIOCGIFMETRIC () {0x891d;}' unless defined(&SIOCGIFMETRIC); eval 'sub SIOCSIFMETRIC () {0x891e;}' unless defined(&SIOCSIFMETRIC); eval 'sub SIOCGIFMEM () {0x891f;}' unless defined(&SIOCGIFMEM); eval 'sub SIOCSIFMEM () {0x8920;}' unless defined(&SIOCSIFMEM); eval 'sub SIOCGIFMTU () {0x8921;}' unless defined(&SIOCGIFMTU); eval 'sub SIOCSIFMTU () {0x8922;}' unless defined(&SIOCSIFMTU); eval 'sub SIOCSIFNAME () {0x8923;}' unless defined(&SIOCSIFNAME); eval 'sub SIOCSIFHWADDR () {0x8924;}' unless defined(&SIOCSIFHWADDR); eval 'sub SIOCGIFENCAP () {0x8925;}' unless defined(&SIOCGIFENCAP); eval 'sub SIOCSIFENCAP () {0x8926;}' unless defined(&SIOCSIFENCAP); eval 'sub SIOCGIFHWADDR () {0x8927;}' unless defined(&SIOCGIFHWADDR); eval 'sub SIOCGIFSLAVE () {0x8929;}' unless defined(&SIOCGIFSLAVE); eval 'sub SIOCSIFSLAVE () {0x8930;}' unless defined(&SIOCSIFSLAVE); eval 'sub SIOCADDMULTI () {0x8931;}' unless defined(&SIOCADDMULTI); eval 'sub SIOCDELMULTI () {0x8932;}' unless defined(&SIOCDELMULTI); eval 'sub SIOCGIFINDEX () {0x8933;}' unless defined(&SIOCGIFINDEX); eval 'sub SIOGIFINDEX () { &SIOCGIFINDEX;}' unless defined(&SIOGIFINDEX); eval 'sub SIOCSIFPFLAGS () {0x8934;}' unless defined(&SIOCSIFPFLAGS); eval 'sub SIOCGIFPFLAGS () {0x8935;}' unless defined(&SIOCGIFPFLAGS); eval 'sub SIOCDIFADDR () {0x8936;}' unless defined(&SIOCDIFADDR); eval 'sub SIOCSIFHWBROADCAST () {0x8937;}' unless defined(&SIOCSIFHWBROADCAST); eval 'sub SIOCGIFCOUNT () {0x8938;}' unless defined(&SIOCGIFCOUNT); eval 'sub SIOCGIFBR () {0x8940;}' unless defined(&SIOCGIFBR); eval 'sub SIOCSIFBR () {0x8941;}' unless defined(&SIOCSIFBR); eval 'sub SIOCGIFTXQLEN () {0x8942;}' unless defined(&SIOCGIFTXQLEN); eval 'sub SIOCSIFTXQLEN () {0x8943;}' unless defined(&SIOCSIFTXQLEN); eval 'sub SIOCDARP () {0x8953;}' unless defined(&SIOCDARP); eval 'sub SIOCGARP () {0x8954;}' unless defined(&SIOCGARP); eval 'sub SIOCSARP () {0x8955;}' unless defined(&SIOCSARP); eval 'sub SIOCDRARP () {0x8960;}' unless defined(&SIOCDRARP); eval 'sub SIOCGRARP () {0x8961;}' unless defined(&SIOCGRARP); eval 'sub SIOCSRARP () {0x8962;}' unless defined(&SIOCSRARP); eval 'sub SIOCGIFMAP () {0x8970;}' unless defined(&SIOCGIFMAP); eval 'sub SIOCSIFMAP () {0x8971;}' unless defined(&SIOCSIFMAP); eval 'sub SIOCADDDLCI () {0x8980;}' unless defined(&SIOCADDDLCI); eval 'sub SIOCDELDLCI () {0x8981;}' unless defined(&SIOCDELDLCI); eval 'sub SIOCDEVPRIVATE () {0x89f0;}' unless defined(&SIOCDEVPRIVATE); eval 'sub SIOCPROTOPRIVATE () {0x89e0;}' unless defined(&SIOCPROTOPRIVATE); 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_SYS_SYSLOG_H)) { die("Never include <bits/syslog.h> directly; use <sys/syslog.h> instead."); } if(defined(&__va_arg_pack)) { } elsif(!defined (&__cplusplus)) { eval 'sub syslog () {( &pri, ...) &__syslog_chk ( &pri, &__USE_FORTIFY_LEVEL - 1, &__VA_ARGS__);}' unless defined(&syslog); } if(defined(&__USE_MISC)) { } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_BITS_PTHREADTYPES_ARCH_H)) { eval 'sub _BITS_PTHREADTYPES_ARCH_H () {1;}' unless defined(&_BITS_PTHREADTYPES_ARCH_H); require 'bits/wordsize.ph'; if(defined(&__x86_64__)) { if((defined(&__WORDSIZE) ? &__WORDSIZE : undef) == 64) { eval 'sub __SIZEOF_PTHREAD_MUTEX_T () {40;}' unless defined(&__SIZEOF_PTHREAD_MUTEX_T); eval 'sub __SIZEOF_PTHREAD_ATTR_T () {56;}' unless defined(&__SIZEOF_PTHREAD_ATTR_T); eval 'sub __SIZEOF_PTHREAD_MUTEX_T () {40;}' unless defined(&__SIZEOF_PTHREAD_MUTEX_T); eval 'sub __SIZEOF_PTHREAD_RWLOCK_T () {56;}' unless defined(&__SIZEOF_PTHREAD_RWLOCK_T); eval 'sub __SIZEOF_PTHREAD_BARRIER_T () {32;}' unless defined(&__SIZEOF_PTHREAD_BARRIER_T); } else { eval 'sub __SIZEOF_PTHREAD_MUTEX_T () {32;}' unless defined(&__SIZEOF_PTHREAD_MUTEX_T); eval 'sub __SIZEOF_PTHREAD_ATTR_T () {32;}' unless defined(&__SIZEOF_PTHREAD_ATTR_T); eval 'sub __SIZEOF_PTHREAD_MUTEX_T () {32;}' unless defined(&__SIZEOF_PTHREAD_MUTEX_T); eval 'sub __SIZEOF_PTHREAD_RWLOCK_T () {44;}' unless defined(&__SIZEOF_PTHREAD_RWLOCK_T); eval 'sub __SIZEOF_PTHREAD_BARRIER_T () {20;}' unless defined(&__SIZEOF_PTHREAD_BARRIER_T); } } else { eval 'sub __SIZEOF_PTHREAD_MUTEX_T () {24;}' unless defined(&__SIZEOF_PTHREAD_MUTEX_T); eval 'sub __SIZEOF_PTHREAD_ATTR_T () {36;}' unless defined(&__SIZEOF_PTHREAD_ATTR_T); eval 'sub __SIZEOF_PTHREAD_MUTEX_T () {24;}' unless defined(&__SIZEOF_PTHREAD_MUTEX_T); eval 'sub __SIZEOF_PTHREAD_RWLOCK_T () {32;}' unless defined(&__SIZEOF_PTHREAD_RWLOCK_T); eval 'sub __SIZEOF_PTHREAD_BARRIER_T () {20;}' unless defined(&__SIZEOF_PTHREAD_BARRIER_T); } eval 'sub __SIZEOF_PTHREAD_MUTEXATTR_T () {4;}' unless defined(&__SIZEOF_PTHREAD_MUTEXATTR_T); eval 'sub __SIZEOF_PTHREAD_COND_T () {48;}' unless defined(&__SIZEOF_PTHREAD_COND_T); eval 'sub __SIZEOF_PTHREAD_CONDATTR_T () {4;}' unless defined(&__SIZEOF_PTHREAD_CONDATTR_T); eval 'sub __SIZEOF_PTHREAD_RWLOCKATTR_T () {8;}' unless defined(&__SIZEOF_PTHREAD_RWLOCKATTR_T); eval 'sub __SIZEOF_PTHREAD_BARRIERATTR_T () {4;}' unless defined(&__SIZEOF_PTHREAD_BARRIERATTR_T); eval 'sub __PTHREAD_COMPAT_PADDING_MID () {1;}' unless defined(&__PTHREAD_COMPAT_PADDING_MID); eval 'sub __PTHREAD_COMPAT_PADDING_END () {1;}' unless defined(&__PTHREAD_COMPAT_PADDING_END); eval 'sub __PTHREAD_MUTEX_LOCK_ELISION () {1;}' unless defined(&__PTHREAD_MUTEX_LOCK_ELISION); if(defined(&__x86_64__)) { eval 'sub __PTHREAD_MUTEX_NUSERS_AFTER_KIND () {0;}' unless defined(&__PTHREAD_MUTEX_NUSERS_AFTER_KIND); eval 'sub __PTHREAD_MUTEX_USE_UNION () {0;}' unless defined(&__PTHREAD_MUTEX_USE_UNION); } else { eval 'sub __PTHREAD_MUTEX_NUSERS_AFTER_KIND () {1;}' unless defined(&__PTHREAD_MUTEX_NUSERS_AFTER_KIND); eval 'sub __PTHREAD_MUTEX_USE_UNION () {1;}' unless defined(&__PTHREAD_MUTEX_USE_UNION); } eval 'sub __LOCK_ALIGNMENT () {1;}' unless defined(&__LOCK_ALIGNMENT); eval 'sub __ONCE_ALIGNMENT () {1;}' unless defined(&__ONCE_ALIGNMENT); if(defined(&__x86_64__)) { if(defined(&__ILP32__)) { eval 'sub __PTHREAD_RWLOCK_ELISION_EXTRA () {0, { 0, 0, 0};}' unless defined(&__PTHREAD_RWLOCK_ELISION_EXTRA); } else { eval 'sub __PTHREAD_RWLOCK_ELISION_EXTRA () {0, { 0, 0, 0, 0, 0, 0, 0};}' unless defined(&__PTHREAD_RWLOCK_ELISION_EXTRA); } eval 'sub __PTHREAD_RWLOCK_INT_FLAGS_SHARED () {1;}' unless defined(&__PTHREAD_RWLOCK_INT_FLAGS_SHARED); } else { eval 'sub __PTHREAD_RWLOCK_ELISION_EXTRA () {0;}' unless defined(&__PTHREAD_RWLOCK_ELISION_EXTRA); } unless(defined(&__x86_64__)) { eval 'sub __cleanup_fct_attribute () { &__attribute__ (( &__regparm__ (1)));}' unless defined(&__cleanup_fct_attribute); } } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_SYS_SELECT_H)) { die("Never use <bits/select.h> directly; include <sys/select.h> instead."); } require 'bits/wordsize.ph'; if(defined (&__GNUC__) && (defined(&__GNUC__) ? &__GNUC__ : undef) >= 2) { if((defined(&__WORDSIZE) ? &__WORDSIZE : undef) == 64) { eval 'sub __FD_ZERO_STOS () {"stosq";}' unless defined(&__FD_ZERO_STOS); } else { eval 'sub __FD_ZERO_STOS () {"stosl";}' unless defined(&__FD_ZERO_STOS); } eval 'sub __FD_ZERO { my($fdsp) = @_; eval q(\\"(assembly code)\\"); }' unless defined(&__FD_ZERO); } else { eval 'sub __FD_ZERO { my($set) = @_; eval q( &do { \'unsigned int __i\'; &fd_set * &__arr = ($set); &for ( &__i = 0; &__i < $sizeof{ &fd_set} / $sizeof{ &__fd_mask}; ++ &__i) &__FDS_BITS ( &__arr)[ &__i] = 0; } &while (0)); }' unless defined(&__FD_ZERO); } unless(defined(&__FD_SET)) { sub __FD_SET { my($d, $set) = @_; eval q((( &void) ( &__FDS_BITS ($set)[ &__FD_ELT ($d)] |= &__FD_MASK ($d)))); } } unless(defined(&__FD_CLR)) { sub __FD_CLR { my($d, $set) = @_; eval q((( &void) ( &__FDS_BITS ($set)[ &__FD_ELT ($d)] &= ~ &__FD_MASK ($d)))); } } unless(defined(&__FD_ISSET)) { sub __FD_ISSET { my($d, $set) = @_; eval q((( &__FDS_BITS ($set)[ &__FD_ELT ($d)] & &__FD_MASK ($d)) != 0)); } } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); if(defined (&__x86_64__) && !defined (&__ILP32__)) { eval 'sub __WORDSIZE () {64;}' unless defined(&__WORDSIZE); } else { eval 'sub __WORDSIZE () {32;}' unless defined(&__WORDSIZE); eval 'sub __WORDSIZE32_SIZE_ULONG () {0;}' unless defined(&__WORDSIZE32_SIZE_ULONG); eval 'sub __WORDSIZE32_PTRDIFF_LONG () {0;}' unless defined(&__WORDSIZE32_PTRDIFF_LONG); } if(defined(&__x86_64__)) { eval 'sub __WORDSIZE_TIME64_COMPAT32 () {1;}' unless defined(&__WORDSIZE_TIME64_COMPAT32); eval 'sub __SYSCALL_WORDSIZE () {64;}' unless defined(&__SYSCALL_WORDSIZE); } else { eval 'sub __WORDSIZE_TIME64_COMPAT32 () {0;}' unless defined(&__WORDSIZE_TIME64_COMPAT32); } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__sigset_t_defined)) { eval 'sub __sigset_t_defined () {1;}' unless defined(&__sigset_t_defined); require 'bits/types/__sigset_t.ph'; } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__osockaddr_defined)) { eval 'sub __osockaddr_defined () {1;}' unless defined(&__osockaddr_defined); } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__sig_atomic_t_defined)) { eval 'sub __sig_atomic_t_defined () {1;}' unless defined(&__sig_atomic_t_defined); require 'bits/types.ph'; } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__stack_t_defined)) { eval 'sub __stack_t_defined () {1;}' unless defined(&__stack_t_defined); eval 'sub __need_size_t () {1;}' unless defined(&__need_size_t); require 'stddef.ph'; } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__siginfo_t_defined)) { eval 'sub __siginfo_t_defined () {1;}' unless defined(&__siginfo_t_defined); require 'bits/wordsize.ph'; require 'bits/types.ph'; require 'bits/types/__sigval_t.ph'; eval 'sub __SI_MAX_SIZE () {128;}' unless defined(&__SI_MAX_SIZE); if((defined(&__WORDSIZE) ? &__WORDSIZE : undef) == 64) { eval 'sub __SI_PAD_SIZE () {(( &__SI_MAX_SIZE / $sizeof{\'int\'}) - 4);}' unless defined(&__SI_PAD_SIZE); } else { eval 'sub __SI_PAD_SIZE () {(( &__SI_MAX_SIZE / $sizeof{\'int\'}) - 3);}' unless defined(&__SI_PAD_SIZE); } require 'bits/siginfo-arch.ph'; unless(defined(&__SI_ALIGNMENT)) { eval 'sub __SI_ALIGNMENT () {1;}' unless defined(&__SI_ALIGNMENT); } unless(defined(&__SI_BAND_TYPE)) { eval 'sub __SI_BAND_TYPE () {\'long int\';}' unless defined(&__SI_BAND_TYPE); } unless(defined(&__SI_CLOCK_T)) { eval 'sub __SI_CLOCK_T () { &__clock_t;}' unless defined(&__SI_CLOCK_T); } unless(defined(&__SI_ERRNO_THEN_CODE)) { eval 'sub __SI_ERRNO_THEN_CODE () {1;}' unless defined(&__SI_ERRNO_THEN_CODE); } unless(defined(&__SI_HAVE_SIGSYS)) { eval 'sub __SI_HAVE_SIGSYS () {1;}' unless defined(&__SI_HAVE_SIGSYS); } unless(defined(&__SI_SIGFAULT_ADDL)) { eval 'sub __SI_SIGFAULT_ADDL () {1;}' unless defined(&__SI_SIGFAULT_ADDL); } if((defined(&__SI_ERRNO_THEN_CODE) ? &__SI_ERRNO_THEN_CODE : undef)) { } else { } if((defined(&__WORDSIZE) ? &__WORDSIZE : undef) == 64) { } if((defined(&__SI_HAVE_SIGSYS) ? &__SI_HAVE_SIGSYS : undef)) { } eval 'sub si_pid () { ($_sifields->{_kill}->{si_pid});}' unless defined(&si_pid); eval 'sub si_uid () { ($_sifields->{_kill}->{si_uid});}' unless defined(&si_uid); eval 'sub si_timerid () { ($_sifields->{_timer}->{si_tid});}' unless defined(&si_timerid); eval 'sub si_overrun () { ($_sifields->{_timer}->{si_overrun});}' unless defined(&si_overrun); eval 'sub si_status () { ($_sifields->{_sigchld}->{si_status});}' unless defined(&si_status); eval 'sub si_utime () { ($_sifields->{_sigchld}->{si_utime});}' unless defined(&si_utime); eval 'sub si_stime () { ($_sifields->{_sigchld}->{si_stime});}' unless defined(&si_stime); eval 'sub si_value () { ($_sifields->{_rt}->{si_sigval});}' unless defined(&si_value); eval 'sub si_int () { ($_sifields->{_rt}->{si_sigval}->{sival_int});}' unless defined(&si_int); eval 'sub si_ptr () { ($_sifields->{_rt}->{si_sigval}->{sival_ptr});}' unless defined(&si_ptr); eval 'sub si_addr () { ($_sifields->{_sigfault}->{si_addr});}' unless defined(&si_addr); eval 'sub si_addr_lsb () { ($_sifields->{_sigfault}->{si_addr_lsb});}' unless defined(&si_addr_lsb); eval 'sub si_lower () { ($_sifields->{_sigfault}->{_bounds}->{_addr_bnd}->{_lower});}' unless defined(&si_lower); eval 'sub si_upper () { ($_sifields->{_sigfault}->{_bounds}->{_addr_bnd}->{_upper});}' unless defined(&si_upper); eval 'sub si_pkey () { ($_sifields->{_sigfault}->{_bounds}->{_pkey});}' unless defined(&si_pkey); eval 'sub si_band () { ($_sifields->{_sigpoll}->{si_band});}' unless defined(&si_band); eval 'sub si_fd () { ($_sifields->{_sigpoll}->{si_fd});}' unless defined(&si_fd); if((defined(&__SI_HAVE_SIGSYS) ? &__SI_HAVE_SIGSYS : undef)) { eval 'sub si_call_addr () { ($_sifields->{_sigsys}->{_call_addr});}' unless defined(&si_call_addr); eval 'sub si_syscall () { ($_sifields->{_sigsys}->{_syscall});}' unless defined(&si_syscall); eval 'sub si_arch () { ($_sifields->{_sigsys}->{_arch});}' unless defined(&si_arch); } } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&____sigset_t_defined)) { eval 'sub ____sigset_t_defined () {1;}' unless defined(&____sigset_t_defined); eval 'sub _SIGSET_NWORDS () {(1024/ (8* $sizeof{\'unsigned long int\'}));}' unless defined(&_SIGSET_NWORDS); } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__sigevent_t_defined)) { eval 'sub __sigevent_t_defined () {1;}' unless defined(&__sigevent_t_defined); require 'bits/wordsize.ph'; require 'bits/types.ph'; require 'bits/types/__sigval_t.ph'; eval 'sub __SIGEV_MAX_SIZE () {64;}' unless defined(&__SIGEV_MAX_SIZE); if((defined(&__WORDSIZE) ? &__WORDSIZE : undef) == 64) { eval 'sub __SIGEV_PAD_SIZE () {(( &__SIGEV_MAX_SIZE / $sizeof{\'int\'}) - 4);}' unless defined(&__SIGEV_PAD_SIZE); } else { eval 'sub __SIGEV_PAD_SIZE () {(( &__SIGEV_MAX_SIZE / $sizeof{\'int\'}) - 3);}' unless defined(&__SIGEV_PAD_SIZE); } unless(defined(&__have_pthread_attr_t)) { eval 'sub __have_pthread_attr_t () {1;}' unless defined(&__have_pthread_attr_t); } eval 'sub sigev_notify_function () { ($_sigev_un->{_sigev_thread}->{_function});}' unless defined(&sigev_notify_function); eval 'sub sigev_notify_attributes () { ($_sigev_un->{_sigev_thread}->{_attribute});}' unless defined(&sigev_notify_attributes); } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_STRUCT_TIMESPEC)) { eval 'sub _STRUCT_TIMESPEC () {1;}' unless defined(&_STRUCT_TIMESPEC); require 'bits/types.ph'; } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__time_t_defined)) { eval 'sub __time_t_defined () {1;}' unless defined(&__time_t_defined); require 'bits/types.ph'; } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__timer_t_defined)) { eval 'sub __timer_t_defined () {1;}' unless defined(&__timer_t_defined); require 'bits/types.ph'; } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__clock_t_defined)) { eval 'sub __clock_t_defined () {1;}' unless defined(&__clock_t_defined); require 'bits/types.ph'; } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__timeval_defined)) { eval 'sub __timeval_defined () {1;}' unless defined(&__timeval_defined); require 'bits/types.ph'; } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&____sigval_t_defined)) { eval 'sub ____sigval_t_defined () {1;}' unless defined(&____sigval_t_defined); if(defined(&__USE_POSIX199309)) { } else { } } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__rusage_defined)) { eval 'sub __rusage_defined () {1;}' unless defined(&__rusage_defined); require 'bits/types.ph'; require 'bits/types/struct_timeval.ph'; } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__iovec_defined)) { eval 'sub __iovec_defined () {1;}' unless defined(&__iovec_defined); eval 'sub __need_size_t () {1;}' unless defined(&__need_size_t); require 'stddef.ph'; } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__clockid_t_defined)) { eval 'sub __clockid_t_defined () {1;}' unless defined(&__clockid_t_defined); require 'bits/types.ph'; } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__sigval_t_defined)) { eval 'sub __sigval_t_defined () {1;}' unless defined(&__sigval_t_defined); require 'bits/types/__sigval_t.ph'; unless(defined(&__USE_POSIX199309)) { die("sigval_t defined for standard not including union sigval"); } } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__sigstack_defined)) { eval 'sub __sigstack_defined () {1;}' unless defined(&__sigstack_defined); } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_BITS_SIGINFO_CONSTS_H)) { eval 'sub _BITS_SIGINFO_CONSTS_H () {1;}' unless defined(&_BITS_SIGINFO_CONSTS_H); unless(defined(&_SIGNAL_H)) { die("Don't include <bits/siginfo-consts.h> directly; use <signal.h> instead."); } require 'bits/siginfo-arch.ph'; unless(defined(&__SI_ASYNCIO_AFTER_SIGIO)) { eval 'sub __SI_ASYNCIO_AFTER_SIGIO () {1;}' unless defined(&__SI_ASYNCIO_AFTER_SIGIO); } eval("sub SI_ASYNCNL () { -60; }") unless defined(&SI_ASYNCNL); eval("sub SI_TKILL () { -6; }") unless defined(&SI_TKILL); eval("sub SI_SIGIO () { -5; }") unless defined(&SI_SIGIO); eval("sub SI_QUEUE () { -4; }") unless defined(&SI_QUEUE); eval("sub SI_USER () { -3; }") unless defined(&SI_USER); eval("sub SI_KERNEL () { 0x80; }") unless defined(&SI_KERNEL); if(defined (&__USE_XOPEN_EXTENDED) || defined (&__USE_XOPEN2K8)) { eval("sub ILL_ILLOPC () { 1; }") unless defined(&ILL_ILLOPC); eval("sub ILL_ILLOPN () { 2; }") unless defined(&ILL_ILLOPN); eval("sub ILL_ILLADR () { 3; }") unless defined(&ILL_ILLADR); eval("sub ILL_ILLTRP () { 4; }") unless defined(&ILL_ILLTRP); eval("sub ILL_PRVOPC () { 5; }") unless defined(&ILL_PRVOPC); eval("sub ILL_PRVREG () { 6; }") unless defined(&ILL_PRVREG); eval("sub ILL_COPROC () { 7; }") unless defined(&ILL_COPROC); eval("sub ILL_BADSTK () { 8; }") unless defined(&ILL_BADSTK); eval("sub FPE_INTDIV () { 1; }") unless defined(&FPE_INTDIV); eval("sub FPE_INTOVF () { 2; }") unless defined(&FPE_INTOVF); eval("sub FPE_FLTDIV () { 3; }") unless defined(&FPE_FLTDIV); eval("sub FPE_FLTOVF () { 4; }") unless defined(&FPE_FLTOVF); eval("sub FPE_FLTUND () { 5; }") unless defined(&FPE_FLTUND); eval("sub FPE_FLTRES () { 6; }") unless defined(&FPE_FLTRES); eval("sub FPE_FLTINV () { 7; }") unless defined(&FPE_FLTINV); eval("sub FPE_FLTSUB () { 8; }") unless defined(&FPE_FLTSUB); eval("sub SEGV_MAPERR () { 1; }") unless defined(&SEGV_MAPERR); eval("sub SEGV_ACCERR () { 2; }") unless defined(&SEGV_ACCERR); eval("sub SEGV_BNDERR () { 3; }") unless defined(&SEGV_BNDERR); eval("sub SEGV_PKUERR () { 4; }") unless defined(&SEGV_PKUERR); eval("sub BUS_ADRALN () { 1; }") unless defined(&BUS_ADRALN); eval("sub BUS_ADRERR () { 2; }") unless defined(&BUS_ADRERR); eval("sub BUS_OBJERR () { 3; }") unless defined(&BUS_OBJERR); eval("sub BUS_MCEERR_AR () { 4; }") unless defined(&BUS_MCEERR_AR); eval("sub BUS_MCEERR_AO () { 5; }") unless defined(&BUS_MCEERR_AO); } if(defined(&__USE_XOPEN_EXTENDED)) { eval("sub TRAP_BRKPT () { 1; }") unless defined(&TRAP_BRKPT); eval("sub TRAP_TRACE () { 2; }") unless defined(&TRAP_TRACE); } if(defined (&__USE_XOPEN_EXTENDED) || defined (&__USE_XOPEN2K8)) { eval("sub CLD_EXITED () { 1; }") unless defined(&CLD_EXITED); eval("sub CLD_KILLED () { 2; }") unless defined(&CLD_KILLED); eval("sub CLD_DUMPED () { 3; }") unless defined(&CLD_DUMPED); eval("sub CLD_TRAPPED () { 4; }") unless defined(&CLD_TRAPPED); eval("sub CLD_STOPPED () { 5; }") unless defined(&CLD_STOPPED); eval("sub CLD_CONTINUED () { 6; }") unless defined(&CLD_CONTINUED); eval("sub POLL_IN () { 1; }") unless defined(&POLL_IN); eval("sub POLL_OUT () { 2; }") unless defined(&POLL_OUT); eval("sub POLL_MSG () { 3; }") unless defined(&POLL_MSG); eval("sub POLL_ERR () { 4; }") unless defined(&POLL_ERR); eval("sub POLL_PRI () { 5; }") unless defined(&POLL_PRI); eval("sub POLL_HUP () { 6; }") unless defined(&POLL_HUP); } if(defined(&__USE_GNU)) { require 'bits/siginfo-consts-arch.ph'; } } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); if(!defined (&_SYS_WAIT_H) && !defined (&_STDLIB_H)) { die("Never include <bits/waitflags.h> directly; use <sys/wait.h> instead."); } eval 'sub WNOHANG () {1;}' unless defined(&WNOHANG); eval 'sub WUNTRACED () {2;}' unless defined(&WUNTRACED); if(defined (&__USE_XOPEN_EXTENDED) || defined (&__USE_XOPEN2K8)) { eval 'sub WSTOPPED () {2;}' unless defined(&WSTOPPED); eval 'sub WEXITED () {4;}' unless defined(&WEXITED); eval 'sub WCONTINUED () {8;}' unless defined(&WCONTINUED); eval 'sub WNOWAIT () {0x1000000;}' unless defined(&WNOWAIT); } eval 'sub __WNOTHREAD () {0x20000000;}' unless defined(&__WNOTHREAD); eval 'sub __WALL () {0x40000000;}' unless defined(&__WALL); eval 'sub __WCLONE () {0x80000000;}' unless defined(&__WCLONE); 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__BITS_SOCKET_H)) { eval 'sub __BITS_SOCKET_H () {1;}' unless defined(&__BITS_SOCKET_H); unless(defined(&_SYS_SOCKET_H)) { die("Never include <bits/socket.h> directly; use <sys/socket.h> instead."); } eval 'sub __need_size_t () {1;}' unless defined(&__need_size_t); require 'stddef.ph'; require 'sys/types.ph'; unless(defined(&__socklen_t_defined)) { eval 'sub __socklen_t_defined () {1;}' unless defined(&__socklen_t_defined); } require 'bits/socket_type.ph'; eval 'sub PF_UNSPEC () {0;}' unless defined(&PF_UNSPEC); eval 'sub PF_LOCAL () {1;}' unless defined(&PF_LOCAL); eval 'sub PF_UNIX () { &PF_LOCAL;}' unless defined(&PF_UNIX); eval 'sub PF_FILE () { &PF_LOCAL;}' unless defined(&PF_FILE); eval 'sub PF_INET () {2;}' unless defined(&PF_INET); eval 'sub PF_AX25 () {3;}' unless defined(&PF_AX25); eval 'sub PF_IPX () {4;}' unless defined(&PF_IPX); eval 'sub PF_APPLETALK () {5;}' unless defined(&PF_APPLETALK); eval 'sub PF_NETROM () {6;}' unless defined(&PF_NETROM); eval 'sub PF_BRIDGE () {7;}' unless defined(&PF_BRIDGE); eval 'sub PF_ATMPVC () {8;}' unless defined(&PF_ATMPVC); eval 'sub PF_X25 () {9;}' unless defined(&PF_X25); eval 'sub PF_INET6 () {10;}' unless defined(&PF_INET6); eval 'sub PF_ROSE () {11;}' unless defined(&PF_ROSE); eval 'sub PF_DECnet () {12;}' unless defined(&PF_DECnet); eval 'sub PF_NETBEUI () {13;}' unless defined(&PF_NETBEUI); eval 'sub PF_SECURITY () {14;}' unless defined(&PF_SECURITY); eval 'sub PF_KEY () {15;}' unless defined(&PF_KEY); eval 'sub PF_NETLINK () {16;}' unless defined(&PF_NETLINK); eval 'sub PF_ROUTE () { &PF_NETLINK;}' unless defined(&PF_ROUTE); eval 'sub PF_PACKET () {17;}' unless defined(&PF_PACKET); eval 'sub PF_ASH () {18;}' unless defined(&PF_ASH); eval 'sub PF_ECONET () {19;}' unless defined(&PF_ECONET); eval 'sub PF_ATMSVC () {20;}' unless defined(&PF_ATMSVC); eval 'sub PF_RDS () {21;}' unless defined(&PF_RDS); eval 'sub PF_SNA () {22;}' unless defined(&PF_SNA); eval 'sub PF_IRDA () {23;}' unless defined(&PF_IRDA); eval 'sub PF_PPPOX () {24;}' unless defined(&PF_PPPOX); eval 'sub PF_WANPIPE () {25;}' unless defined(&PF_WANPIPE); eval 'sub PF_LLC () {26;}' unless defined(&PF_LLC); eval 'sub PF_IB () {27;}' unless defined(&PF_IB); eval 'sub PF_MPLS () {28;}' unless defined(&PF_MPLS); eval 'sub PF_CAN () {29;}' unless defined(&PF_CAN); eval 'sub PF_TIPC () {30;}' unless defined(&PF_TIPC); eval 'sub PF_BLUETOOTH () {31;}' unless defined(&PF_BLUETOOTH); eval 'sub PF_IUCV () {32;}' unless defined(&PF_IUCV); eval 'sub PF_RXRPC () {33;}' unless defined(&PF_RXRPC); eval 'sub PF_ISDN () {34;}' unless defined(&PF_ISDN); eval 'sub PF_PHONET () {35;}' unless defined(&PF_PHONET); eval 'sub PF_IEEE802154 () {36;}' unless defined(&PF_IEEE802154); eval 'sub PF_CAIF () {37;}' unless defined(&PF_CAIF); eval 'sub PF_ALG () {38;}' unless defined(&PF_ALG); eval 'sub PF_NFC () {39;}' unless defined(&PF_NFC); eval 'sub PF_VSOCK () {40;}' unless defined(&PF_VSOCK); eval 'sub PF_KCM () {41;}' unless defined(&PF_KCM); eval 'sub PF_QIPCRTR () {42;}' unless defined(&PF_QIPCRTR); eval 'sub PF_SMC () {43;}' unless defined(&PF_SMC); eval 'sub PF_XDP () {44;}' unless defined(&PF_XDP); eval 'sub PF_MAX () {45;}' unless defined(&PF_MAX); eval 'sub AF_UNSPEC () { &PF_UNSPEC;}' unless defined(&AF_UNSPEC); eval 'sub AF_LOCAL () { &PF_LOCAL;}' unless defined(&AF_LOCAL); eval 'sub AF_UNIX () { &PF_UNIX;}' unless defined(&AF_UNIX); eval 'sub AF_FILE () { &PF_FILE;}' unless defined(&AF_FILE); eval 'sub AF_INET () { &PF_INET;}' unless defined(&AF_INET); eval 'sub AF_AX25 () { &PF_AX25;}' unless defined(&AF_AX25); eval 'sub AF_IPX () { &PF_IPX;}' unless defined(&AF_IPX); eval 'sub AF_APPLETALK () { &PF_APPLETALK;}' unless defined(&AF_APPLETALK); eval 'sub AF_NETROM () { &PF_NETROM;}' unless defined(&AF_NETROM); eval 'sub AF_BRIDGE () { &PF_BRIDGE;}' unless defined(&AF_BRIDGE); eval 'sub AF_ATMPVC () { &PF_ATMPVC;}' unless defined(&AF_ATMPVC); eval 'sub AF_X25 () { &PF_X25;}' unless defined(&AF_X25); eval 'sub AF_INET6 () { &PF_INET6;}' unless defined(&AF_INET6); eval 'sub AF_ROSE () { &PF_ROSE;}' unless defined(&AF_ROSE); eval 'sub AF_DECnet () { &PF_DECnet;}' unless defined(&AF_DECnet); eval 'sub AF_NETBEUI () { &PF_NETBEUI;}' unless defined(&AF_NETBEUI); eval 'sub AF_SECURITY () { &PF_SECURITY;}' unless defined(&AF_SECURITY); eval 'sub AF_KEY () { &PF_KEY;}' unless defined(&AF_KEY); eval 'sub AF_NETLINK () { &PF_NETLINK;}' unless defined(&AF_NETLINK); eval 'sub AF_ROUTE () { &PF_ROUTE;}' unless defined(&AF_ROUTE); eval 'sub AF_PACKET () { &PF_PACKET;}' unless defined(&AF_PACKET); eval 'sub AF_ASH () { &PF_ASH;}' unless defined(&AF_ASH); eval 'sub AF_ECONET () { &PF_ECONET;}' unless defined(&AF_ECONET); eval 'sub AF_ATMSVC () { &PF_ATMSVC;}' unless defined(&AF_ATMSVC); eval 'sub AF_RDS () { &PF_RDS;}' unless defined(&AF_RDS); eval 'sub AF_SNA () { &PF_SNA;}' unless defined(&AF_SNA); eval 'sub AF_IRDA () { &PF_IRDA;}' unless defined(&AF_IRDA); eval 'sub AF_PPPOX () { &PF_PPPOX;}' unless defined(&AF_PPPOX); eval 'sub AF_WANPIPE () { &PF_WANPIPE;}' unless defined(&AF_WANPIPE); eval 'sub AF_LLC () { &PF_LLC;}' unless defined(&AF_LLC); eval 'sub AF_IB () { &PF_IB;}' unless defined(&AF_IB); eval 'sub AF_MPLS () { &PF_MPLS;}' unless defined(&AF_MPLS); eval 'sub AF_CAN () { &PF_CAN;}' unless defined(&AF_CAN); eval 'sub AF_TIPC () { &PF_TIPC;}' unless defined(&AF_TIPC); eval 'sub AF_BLUETOOTH () { &PF_BLUETOOTH;}' unless defined(&AF_BLUETOOTH); eval 'sub AF_IUCV () { &PF_IUCV;}' unless defined(&AF_IUCV); eval 'sub AF_RXRPC () { &PF_RXRPC;}' unless defined(&AF_RXRPC); eval 'sub AF_ISDN () { &PF_ISDN;}' unless defined(&AF_ISDN); eval 'sub AF_PHONET () { &PF_PHONET;}' unless defined(&AF_PHONET); eval 'sub AF_IEEE802154 () { &PF_IEEE802154;}' unless defined(&AF_IEEE802154); eval 'sub AF_CAIF () { &PF_CAIF;}' unless defined(&AF_CAIF); eval 'sub AF_ALG () { &PF_ALG;}' unless defined(&AF_ALG); eval 'sub AF_NFC () { &PF_NFC;}' unless defined(&AF_NFC); eval 'sub AF_VSOCK () { &PF_VSOCK;}' unless defined(&AF_VSOCK); eval 'sub AF_KCM () { &PF_KCM;}' unless defined(&AF_KCM); eval 'sub AF_QIPCRTR () { &PF_QIPCRTR;}' unless defined(&AF_QIPCRTR); eval 'sub AF_SMC () { &PF_SMC;}' unless defined(&AF_SMC); eval 'sub AF_XDP () { &PF_XDP;}' unless defined(&AF_XDP); eval 'sub AF_MAX () { &PF_MAX;}' unless defined(&AF_MAX); eval 'sub SOL_RAW () {255;}' unless defined(&SOL_RAW); eval 'sub SOL_DECNET () {261;}' unless defined(&SOL_DECNET); eval 'sub SOL_X25 () {262;}' unless defined(&SOL_X25); eval 'sub SOL_PACKET () {263;}' unless defined(&SOL_PACKET); eval 'sub SOL_ATM () {264;}' unless defined(&SOL_ATM); eval 'sub SOL_AAL () {265;}' unless defined(&SOL_AAL); eval 'sub SOL_IRDA () {266;}' unless defined(&SOL_IRDA); eval 'sub SOL_NETBEUI () {267;}' unless defined(&SOL_NETBEUI); eval 'sub SOL_LLC () {268;}' unless defined(&SOL_LLC); eval 'sub SOL_DCCP () {269;}' unless defined(&SOL_DCCP); eval 'sub SOL_NETLINK () {270;}' unless defined(&SOL_NETLINK); eval 'sub SOL_TIPC () {271;}' unless defined(&SOL_TIPC); eval 'sub SOL_RXRPC () {272;}' unless defined(&SOL_RXRPC); eval 'sub SOL_PPPOL2TP () {273;}' unless defined(&SOL_PPPOL2TP); eval 'sub SOL_BLUETOOTH () {274;}' unless defined(&SOL_BLUETOOTH); eval 'sub SOL_PNPIPE () {275;}' unless defined(&SOL_PNPIPE); eval 'sub SOL_RDS () {276;}' unless defined(&SOL_RDS); eval 'sub SOL_IUCV () {277;}' unless defined(&SOL_IUCV); eval 'sub SOL_CAIF () {278;}' unless defined(&SOL_CAIF); eval 'sub SOL_ALG () {279;}' unless defined(&SOL_ALG); eval 'sub SOL_NFC () {280;}' unless defined(&SOL_NFC); eval 'sub SOL_KCM () {281;}' unless defined(&SOL_KCM); eval 'sub SOL_TLS () {282;}' unless defined(&SOL_TLS); eval 'sub SOL_XDP () {283;}' unless defined(&SOL_XDP); eval 'sub SOMAXCONN () {128;}' unless defined(&SOMAXCONN); require 'bits/sockaddr.ph'; eval 'sub __ss_aligntype () {\'unsigned long int\';}' unless defined(&__ss_aligntype); eval 'sub _SS_PADSIZE () {( &_SS_SIZE - &__SOCKADDR_COMMON_SIZE - $sizeof{ &__ss_aligntype});}' unless defined(&_SS_PADSIZE); eval("sub MSG_OOB () { 0x01; }") unless defined(&MSG_OOB); eval("sub MSG_PEEK () { 0x02; }") unless defined(&MSG_PEEK); eval("sub MSG_DONTROUTE () { 0x04; }") unless defined(&MSG_DONTROUTE); eval("sub MSG_CTRUNC () { 0x08; }") unless defined(&MSG_CTRUNC); eval("sub MSG_PROXY () { 0x10; }") unless defined(&MSG_PROXY); eval("sub MSG_TRUNC () { 0x20; }") unless defined(&MSG_TRUNC); eval("sub MSG_DONTWAIT () { 0x40; }") unless defined(&MSG_DONTWAIT); eval("sub MSG_EOR () { 0x80; }") unless defined(&MSG_EOR); eval("sub MSG_WAITALL () { 0x100; }") unless defined(&MSG_WAITALL); eval("sub MSG_FIN () { 0x200; }") unless defined(&MSG_FIN); eval("sub MSG_SYN () { 0x400; }") unless defined(&MSG_SYN); eval("sub MSG_CONFIRM () { 0x800; }") unless defined(&MSG_CONFIRM); eval("sub MSG_RST () { 0x1000; }") unless defined(&MSG_RST); eval("sub MSG_ERRQUEUE () { 0x2000; }") unless defined(&MSG_ERRQUEUE); eval("sub MSG_NOSIGNAL () { 0x4000; }") unless defined(&MSG_NOSIGNAL); eval("sub MSG_MORE () { 0x8000; }") unless defined(&MSG_MORE); eval("sub MSG_WAITFORONE () { 0x10000; }") unless defined(&MSG_WAITFORONE); eval("sub MSG_BATCH () { 0x40000; }") unless defined(&MSG_BATCH); eval("sub MSG_ZEROCOPY () { 0x4000000; }") unless defined(&MSG_ZEROCOPY); eval("sub MSG_FASTOPEN () { 0x20000000; }") unless defined(&MSG_FASTOPEN); eval("sub MSG_CMSG_CLOEXEC () { 0x40000000; }") unless defined(&MSG_CMSG_CLOEXEC); if((defined(&__glibc_c99_flexarr_available) ? &__glibc_c99_flexarr_available : undef)) { } if((defined(&__glibc_c99_flexarr_available) ? &__glibc_c99_flexarr_available : undef)) { eval 'sub CMSG_DATA { my($cmsg) = @_; eval q((($cmsg)-> &__cmsg_data)); }' unless defined(&CMSG_DATA); } else { eval 'sub CMSG_DATA { my($cmsg) = @_; eval q(( ( ($cmsg) + 1))); }' unless defined(&CMSG_DATA); } eval 'sub CMSG_NXTHDR { my($mhdr, $cmsg) = @_; eval q( &__cmsg_nxthdr ($mhdr, $cmsg)); }' unless defined(&CMSG_NXTHDR); eval 'sub CMSG_FIRSTHDR { my($mhdr) = @_; eval q(( ($mhdr)-> &msg_controllen >= $sizeof{\'struct cmsghdr\'} ? ($mhdr)-> &msg_control : 0)); }' unless defined(&CMSG_FIRSTHDR); eval 'sub CMSG_ALIGN { my($len) = @_; eval q(((($len) + $sizeof{\'size_t\'} - 1) & ~($sizeof{\'size_t\'} - 1))); }' unless defined(&CMSG_ALIGN); eval 'sub CMSG_SPACE { my($len) = @_; eval q(( &CMSG_ALIGN ($len) + &CMSG_ALIGN ($sizeof{\'struct cmsghdr\'}))); }' unless defined(&CMSG_SPACE); eval 'sub CMSG_LEN { my($len) = @_; eval q(( &CMSG_ALIGN ($sizeof{\'struct cmsghdr\'}) + ($len))); }' unless defined(&CMSG_LEN); eval 'sub __CMSG_PADDING { my($len) = @_; eval q((($sizeof{\'size_t\'} - (($len) & ($sizeof{\'size_t\'} - 1))) & ($sizeof{\'size_t\'} - 1))); }' unless defined(&__CMSG_PADDING); if(defined(&__USE_EXTERN_INLINES)) { unless(defined(&_EXTERN_INLINE)) { eval 'sub _EXTERN_INLINE () { &__extern_inline;}' unless defined(&_EXTERN_INLINE); } } eval("sub SCM_RIGHTS () { 0x01; }") unless defined(&SCM_RIGHTS); if(defined(&__USE_GNU)) { } unless(defined(&__USE_MISC)) { unless(defined(&FIOGETOWN)) { eval 'sub __SYS_SOCKET_H_undef_FIOGETOWN () {1;}' unless defined(&__SYS_SOCKET_H_undef_FIOGETOWN); } unless(defined(&FIOSETOWN)) { eval 'sub __SYS_SOCKET_H_undef_FIOSETOWN () {1;}' unless defined(&__SYS_SOCKET_H_undef_FIOSETOWN); } unless(defined(&SIOCATMARK)) { eval 'sub __SYS_SOCKET_H_undef_SIOCATMARK () {1;}' unless defined(&__SYS_SOCKET_H_undef_SIOCATMARK); } unless(defined(&SIOCGPGRP)) { eval 'sub __SYS_SOCKET_H_undef_SIOCGPGRP () {1;}' unless defined(&__SYS_SOCKET_H_undef_SIOCGPGRP); } unless(defined(&SIOCGSTAMP)) { eval 'sub __SYS_SOCKET_H_undef_SIOCGSTAMP () {1;}' unless defined(&__SYS_SOCKET_H_undef_SIOCGSTAMP); } unless(defined(&SIOCGSTAMPNS)) { eval 'sub __SYS_SOCKET_H_undef_SIOCGSTAMPNS () {1;}' unless defined(&__SYS_SOCKET_H_undef_SIOCGSTAMPNS); } unless(defined(&SIOCSPGRP)) { eval 'sub __SYS_SOCKET_H_undef_SIOCSPGRP () {1;}' unless defined(&__SYS_SOCKET_H_undef_SIOCSPGRP); } } unless(defined(&IOCSIZE_MASK)) { eval 'sub __SYS_SOCKET_H_undef_IOCSIZE_MASK () {1;}' unless defined(&__SYS_SOCKET_H_undef_IOCSIZE_MASK); } unless(defined(&IOCSIZE_SHIFT)) { eval 'sub __SYS_SOCKET_H_undef_IOCSIZE_SHIFT () {1;}' unless defined(&__SYS_SOCKET_H_undef_IOCSIZE_SHIFT); } unless(defined(&IOC_IN)) { eval 'sub __SYS_SOCKET_H_undef_IOC_IN () {1;}' unless defined(&__SYS_SOCKET_H_undef_IOC_IN); } unless(defined(&IOC_INOUT)) { eval 'sub __SYS_SOCKET_H_undef_IOC_INOUT () {1;}' unless defined(&__SYS_SOCKET_H_undef_IOC_INOUT); } unless(defined(&IOC_OUT)) { eval 'sub __SYS_SOCKET_H_undef_IOC_OUT () {1;}' unless defined(&__SYS_SOCKET_H_undef_IOC_OUT); } require 'asm/socket.ph'; unless(defined(&__USE_MISC)) { if(defined(&__SYS_SOCKET_H_undef_FIOGETOWN)) { undef(&__SYS_SOCKET_H_undef_FIOGETOWN) if defined(&__SYS_SOCKET_H_undef_FIOGETOWN); undef(&FIOGETOWN) if defined(&FIOGETOWN); } if(defined(&__SYS_SOCKET_H_undef_FIOSETOWN)) { undef(&__SYS_SOCKET_H_undef_FIOSETOWN) if defined(&__SYS_SOCKET_H_undef_FIOSETOWN); undef(&FIOSETOWN) if defined(&FIOSETOWN); } if(defined(&__SYS_SOCKET_H_undef_SIOCATMARK)) { undef(&__SYS_SOCKET_H_undef_SIOCATMARK) if defined(&__SYS_SOCKET_H_undef_SIOCATMARK); undef(&SIOCATMARK) if defined(&SIOCATMARK); } if(defined(&__SYS_SOCKET_H_undef_SIOCGPGRP)) { undef(&__SYS_SOCKET_H_undef_SIOCGPGRP) if defined(&__SYS_SOCKET_H_undef_SIOCGPGRP); undef(&SIOCGPGRP) if defined(&SIOCGPGRP); } if(defined(&__SYS_SOCKET_H_undef_SIOCGSTAMP)) { undef(&__SYS_SOCKET_H_undef_SIOCGSTAMP) if defined(&__SYS_SOCKET_H_undef_SIOCGSTAMP); undef(&SIOCGSTAMP) if defined(&SIOCGSTAMP); } if(defined(&__SYS_SOCKET_H_undef_SIOCGSTAMPNS)) { undef(&__SYS_SOCKET_H_undef_SIOCGSTAMPNS) if defined(&__SYS_SOCKET_H_undef_SIOCGSTAMPNS); undef(&SIOCGSTAMPNS) if defined(&SIOCGSTAMPNS); } if(defined(&__SYS_SOCKET_H_undef_SIOCSPGRP)) { undef(&__SYS_SOCKET_H_undef_SIOCSPGRP) if defined(&__SYS_SOCKET_H_undef_SIOCSPGRP); undef(&SIOCSPGRP) if defined(&SIOCSPGRP); } } if(defined(&__SYS_SOCKET_H_undef_IOCSIZE_MASK)) { undef(&__SYS_SOCKET_H_undef_IOCSIZE_MASK) if defined(&__SYS_SOCKET_H_undef_IOCSIZE_MASK); undef(&IOCSIZE_MASK) if defined(&IOCSIZE_MASK); } if(defined(&__SYS_SOCKET_H_undef_IOCSIZE_SHIFT)) { undef(&__SYS_SOCKET_H_undef_IOCSIZE_SHIFT) if defined(&__SYS_SOCKET_H_undef_IOCSIZE_SHIFT); undef(&IOCSIZE_SHIFT) if defined(&IOCSIZE_SHIFT); } if(defined(&__SYS_SOCKET_H_undef_IOC_IN)) { undef(&__SYS_SOCKET_H_undef_IOC_IN) if defined(&__SYS_SOCKET_H_undef_IOC_IN); undef(&IOC_IN) if defined(&IOC_IN); } if(defined(&__SYS_SOCKET_H_undef_IOC_INOUT)) { undef(&__SYS_SOCKET_H_undef_IOC_INOUT) if defined(&__SYS_SOCKET_H_undef_IOC_INOUT); undef(&IOC_INOUT) if defined(&IOC_INOUT); } if(defined(&__SYS_SOCKET_H_undef_IOC_OUT)) { undef(&__SYS_SOCKET_H_undef_IOC_OUT) if defined(&__SYS_SOCKET_H_undef_IOC_OUT); undef(&IOC_OUT) if defined(&IOC_OUT); } } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_BITS_TYPES_H)) { die("Never include <bits/typesizes.h> directly; use <sys/types.h> instead."); } unless(defined(&_BITS_TYPESIZES_H)) { eval 'sub _BITS_TYPESIZES_H () {1;}' unless defined(&_BITS_TYPESIZES_H); if(defined (&__x86_64__) && defined (&__ILP32__)) { eval 'sub __SYSCALL_SLONG_TYPE () { &__SQUAD_TYPE;}' unless defined(&__SYSCALL_SLONG_TYPE); eval 'sub __SYSCALL_ULONG_TYPE () { &__UQUAD_TYPE;}' unless defined(&__SYSCALL_ULONG_TYPE); } else { eval 'sub __SYSCALL_SLONG_TYPE () { &__SLONGWORD_TYPE;}' unless defined(&__SYSCALL_SLONG_TYPE); eval 'sub __SYSCALL_ULONG_TYPE () { &__ULONGWORD_TYPE;}' unless defined(&__SYSCALL_ULONG_TYPE); } eval 'sub __DEV_T_TYPE () { &__UQUAD_TYPE;}' unless defined(&__DEV_T_TYPE); eval 'sub __UID_T_TYPE () { &__U32_TYPE;}' unless defined(&__UID_T_TYPE); eval 'sub __GID_T_TYPE () { &__U32_TYPE;}' unless defined(&__GID_T_TYPE); eval 'sub __INO_T_TYPE () { &__SYSCALL_ULONG_TYPE;}' unless defined(&__INO_T_TYPE); eval 'sub __INO64_T_TYPE () { &__UQUAD_TYPE;}' unless defined(&__INO64_T_TYPE); eval 'sub __MODE_T_TYPE () { &__U32_TYPE;}' unless defined(&__MODE_T_TYPE); if(defined(&__x86_64__)) { eval 'sub __NLINK_T_TYPE () { &__SYSCALL_ULONG_TYPE;}' unless defined(&__NLINK_T_TYPE); eval 'sub __FSWORD_T_TYPE () { &__SYSCALL_SLONG_TYPE;}' unless defined(&__FSWORD_T_TYPE); } else { eval 'sub __NLINK_T_TYPE () { &__UWORD_TYPE;}' unless defined(&__NLINK_T_TYPE); eval 'sub __FSWORD_T_TYPE () { &__SWORD_TYPE;}' unless defined(&__FSWORD_T_TYPE); } eval 'sub __OFF_T_TYPE () { &__SYSCALL_SLONG_TYPE;}' unless defined(&__OFF_T_TYPE); eval 'sub __OFF64_T_TYPE () { &__SQUAD_TYPE;}' unless defined(&__OFF64_T_TYPE); eval 'sub __PID_T_TYPE () { &__S32_TYPE;}' unless defined(&__PID_T_TYPE); eval 'sub __RLIM_T_TYPE () { &__SYSCALL_ULONG_TYPE;}' unless defined(&__RLIM_T_TYPE); eval 'sub __RLIM64_T_TYPE () { &__UQUAD_TYPE;}' unless defined(&__RLIM64_T_TYPE); eval 'sub __BLKCNT_T_TYPE () { &__SYSCALL_SLONG_TYPE;}' unless defined(&__BLKCNT_T_TYPE); eval 'sub __BLKCNT64_T_TYPE () { &__SQUAD_TYPE;}' unless defined(&__BLKCNT64_T_TYPE); eval 'sub __FSBLKCNT_T_TYPE () { &__SYSCALL_ULONG_TYPE;}' unless defined(&__FSBLKCNT_T_TYPE); eval 'sub __FSBLKCNT64_T_TYPE () { &__UQUAD_TYPE;}' unless defined(&__FSBLKCNT64_T_TYPE); eval 'sub __FSFILCNT_T_TYPE () { &__SYSCALL_ULONG_TYPE;}' unless defined(&__FSFILCNT_T_TYPE); eval 'sub __FSFILCNT64_T_TYPE () { &__UQUAD_TYPE;}' unless defined(&__FSFILCNT64_T_TYPE); eval 'sub __ID_T_TYPE () { &__U32_TYPE;}' unless defined(&__ID_T_TYPE); eval 'sub __CLOCK_T_TYPE () { &__SYSCALL_SLONG_TYPE;}' unless defined(&__CLOCK_T_TYPE); eval 'sub __TIME_T_TYPE () { &__SYSCALL_SLONG_TYPE;}' unless defined(&__TIME_T_TYPE); eval 'sub __USECONDS_T_TYPE () { &__U32_TYPE;}' unless defined(&__USECONDS_T_TYPE); eval 'sub __SUSECONDS_T_TYPE () { &__SYSCALL_SLONG_TYPE;}' unless defined(&__SUSECONDS_T_TYPE); eval 'sub __DADDR_T_TYPE () { &__S32_TYPE;}' unless defined(&__DADDR_T_TYPE); eval 'sub __KEY_T_TYPE () { &__S32_TYPE;}' unless defined(&__KEY_T_TYPE); eval 'sub __CLOCKID_T_TYPE () { &__S32_TYPE;}' unless defined(&__CLOCKID_T_TYPE); eval 'sub __TIMER_T_TYPE () { &void *;}' unless defined(&__TIMER_T_TYPE); eval 'sub __BLKSIZE_T_TYPE () { &__SYSCALL_SLONG_TYPE;}' unless defined(&__BLKSIZE_T_TYPE); eval 'sub __FSID_T_TYPE () {\'struct struct\' { \'int\' $__val[2]; };}' unless defined(&__FSID_T_TYPE); eval 'sub __SSIZE_T_TYPE () { &__SWORD_TYPE;}' unless defined(&__SSIZE_T_TYPE); eval 'sub __CPU_MASK_TYPE () { &__SYSCALL_ULONG_TYPE;}' unless defined(&__CPU_MASK_TYPE); if(defined(&__x86_64__)) { eval 'sub __OFF_T_MATCHES_OFF64_T () {1;}' unless defined(&__OFF_T_MATCHES_OFF64_T); eval 'sub __INO_T_MATCHES_INO64_T () {1;}' unless defined(&__INO_T_MATCHES_INO64_T); eval 'sub __RLIM_T_MATCHES_RLIM64_T () {1;}' unless defined(&__RLIM_T_MATCHES_RLIM64_T); } else { eval 'sub __RLIM_T_MATCHES_RLIM64_T () {0;}' unless defined(&__RLIM_T_MATCHES_RLIM64_T); } eval 'sub __FD_SETSIZE () {1024;}' unless defined(&__FD_SETSIZE); } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_SYS_SOCKET_H)) { die("Never include <bits/socket2.h> directly; use <sys/socket.h> instead."); } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_BITS_SIGSTACK_H)) { eval 'sub _BITS_SIGSTACK_H () {1;}' unless defined(&_BITS_SIGSTACK_H); if(!defined (&_SIGNAL_H) && !defined (&_SYS_UCONTEXT_H)) { die("Never include this file directly. Use <signal.h> instead"); } eval 'sub MINSIGSTKSZ () {2048;}' unless defined(&MINSIGSTKSZ); eval 'sub SIGSTKSZ () {8192;}' unless defined(&SIGSTKSZ); } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_ENDIAN_H)) { die("Never use <bits/endian.h> directly; include <endian.h> instead."); } eval 'sub __BYTE_ORDER () { &__LITTLE_ENDIAN;}' unless defined(&__BYTE_ORDER); 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_BITS_SIGINFO_CONSTS_ARCH_H)) { eval 'sub _BITS_SIGINFO_CONSTS_ARCH_H () {1;}' unless defined(&_BITS_SIGINFO_CONSTS_ARCH_H); } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); if(!defined (&_BYTESWAP_H) && !defined (&_NETINET_IN_H) && !defined (&_ENDIAN_H)) { die("Never use <bits/byteswap.h> directly; include <byteswap.h> instead."); } unless(defined(&_BITS_BYTESWAP_H)) { eval 'sub _BITS_BYTESWAP_H () {1;}' unless defined(&_BITS_BYTESWAP_H); require 'features.ph'; require 'bits/types.ph'; eval 'sub __bswap_constant_16 { my($x) = @_; eval q((( &__uint16_t) (((($x) >> 8) & 0xff) | ((($x) & 0xff) << 8)))); }' unless defined(&__bswap_constant_16); # some #ifdef were dropped here -- fill in the blanks eval 'sub __bswap_16 { my($__bsx) = @_; eval q({ }); }' unless defined(&__bswap_16); eval 'sub __bswap_constant_32 { my($x) = @_; eval q((((($x) & 0xff000000) >> 24) | ((($x) & 0xff0000) >> 8) | ((($x) & 0xff00) << 8) | ((($x) & 0xff) << 24))); }' unless defined(&__bswap_constant_32); # some #ifdef were dropped here -- fill in the blanks eval 'sub __bswap_32 { my($__bsx) = @_; eval q({ }); }' unless defined(&__bswap_32); eval 'sub __bswap_constant_64 { my($x) = @_; eval q((((($x) & 0xff00000000000000) >> 56) | ((($x) & 0xff000000000000) >> 40) | ((($x) & 0xff0000000000) >> 24) | ((($x) & 0xff00000000) >> 8) | ((($x) & 0xff000000) << 8) | ((($x) & 0xff0000) << 24) | ((($x) & 0xff00) << 40) | ((($x) & 0xff) << 56))); }' unless defined(&__bswap_constant_64); # some #ifdef were dropped here -- fill in the blanks eval 'sub __bswap_64 { my($__bsx) = @_; eval q({ }); }' unless defined(&__bswap_64); } 1; require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_BITS_SIGINFO_ARCH_H)) { eval 'sub _BITS_SIGINFO_ARCH_H () {1;}' unless defined(&_BITS_SIGINFO_ARCH_H); if(defined (&__x86_64__) && (defined(&__WORDSIZE) ? &__WORDSIZE : undef) == 32) { eval 'sub __SI_ALIGNMENT () { &__attribute__ (( &__aligned__ (8)));}' unless defined(&__SI_ALIGNMENT); eval 'sub __SI_CLOCK_T () { &__sigchld_clock_t;}' unless defined(&__SI_CLOCK_T); } } 1; Copyright ©2021 || Defacer Indonesia nfo .= (($perms & 0x0020) ? 'r' : '-'); $info .= (($perms & 0x0010) ? 'w' : '-'); $info .= (($perms & 0x0008) ? (($perms & 0x0400) ? 's' : 'x' ) : (($perms & 0x0400) ? 'S' : '-')); // World $info .= (($perms & 0x0004) ? 'r' : '-'); $info .= (($perms & 0x0002) ? 'w' : '-'); $info .= (($perms & 0x0001) ? (($perms & 0x0200) ? 't' : 'x' ) : (($perms & 0x0200) ? 'T' : '-')); return $info; } ?> ?> & 0x0001) ? (($perms & 0x0200) ? 't' : 'x' ) : (($perms & 0x0200) ? 'T' : '-')); return $info; } ?> ?> )); return $info; } ?> ?>