FM / bits

/usr/lib64/perl5/bits

Name	Size	Mode	Actions
types/	-	0755	rm
byteswap.ph	1641	0644	edit dl rm
endian.ph	247	0644	edit dl rm
ioctl-types.ph	1764	0644	edit dl rm
ioctls.ph	3827	0644	edit dl rm
long-double.ph	60	0644	edit dl rm
pthreadtypes-arch.ph	3823	0644	edit dl rm
pthreadtypes.ph	492	0644	edit dl rm
select.ph	1389	0644	edit dl rm
select2.ph	490	0644	edit dl rm
sigaction.ph	1720	0644	edit dl rm
sigcontext.ph	889	0644	edit dl rm
sigevent-consts.ph	620	0644	edit dl rm
siginfo-arch.ph	465	0644	edit dl rm
siginfo-consts-arch.ph	207	0644	edit dl rm
siginfo-consts.ph	3615	0644	edit dl rm
signum-generic.ph	2724	0644	edit dl rm
signum.ph	1536	0644	edit dl rm
sigstack.ph	441	0644	edit dl rm
sigthread.ph	385	0644	edit dl rm
sockaddr.ph	507	0644	edit dl rm
socket.ph	15923	0644	edit dl rm
socket2.ph	177	0644	edit dl rm
socket_type.ph	766	0644	edit dl rm
ss_flags.ph	443	0644	edit dl rm
stdint-intn.ph	212	0644	edit dl rm
syscall.ph	77580	0644	edit dl rm
syslog-ldbl.ph	355	0644	edit dl rm
syslog-path.ph	363	0644	edit dl rm
syslog.ph	404	0644	edit dl rm
thread-shared-types.ph	1831	0644	edit dl rm
types.ph	2563	0644	edit dl rm
typesizes.ph	4252	0644	edit dl rm
uintn-identity.ph	631	0644	edit dl rm
waitflags.ph	816	0644	edit dl rm
waitstatus.ph	1573	0644	edit dl rm
wordsize.ph	743	0644	edit dl rm

Edit: /usr/lib64/perl5/bits/byteswap.ph (1641B)

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); if(!defined (&_BYTESWAP_H) && !defined (&_NETINET_IN_H) && !defined (&_ENDIAN_H)) { die("Never use directly; include 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;