Gecko [ armaneco.co.uk ]

Name	Size	Permission	Date
byteswap-16.ph	730 B	-rw-r--r--	2026-01-13 18:27
byteswap.ph	3.79 KB	-rw-r--r--	2026-01-13 18:27
endian.ph	247 B	-rw-r--r--	2026-01-13 18:27
ioctl-types.ph	1.72 KB	-rw-r--r--	2026-01-13 18:27
ioctls.ph	3.74 KB	-rw-r--r--	2026-01-13 18:27
pthreadtypes.ph	3.92 KB	-rw-r--r--	2026-01-13 18:27
select.ph	1.36 KB	-rw-r--r--	2026-01-13 18:27
select2.ph	490 B	-rw-r--r--	2026-01-13 18:27
sigaction.ph	1.5 KB	-rw-r--r--	2026-01-13 18:27
sigcontext.ph	860 B	-rw-r--r--	2026-01-13 18:27
siginfo.ph	6.79 KB	-rw-r--r--	2026-01-13 18:27
signum.ph	2.76 KB	-rw-r--r--	2026-01-13 18:27
sigset.ph	2.99 KB	-rw-r--r--	2026-01-13 18:27
sigstack.ph	408 B	-rw-r--r--	2026-01-13 18:27
sigthread.ph	346 B	-rw-r--r--	2026-01-13 18:27
sockaddr.ph	507 B	-rw-r--r--	2026-01-13 18:27
socket.ph	12.27 KB	-rw-r--r--	2026-01-13 18:27
socket2.ph	177 B	-rw-r--r--	2026-01-13 18:27
socket_type.ph	766 B	-rw-r--r--	2026-01-13 18:27
syscall.ph	73.15 KB	-rw-r--r--	2026-01-13 18:27
syslog-ldbl.ph	353 B	-rw-r--r--	2026-01-13 18:27
syslog-path.ph	363 B	-rw-r--r--	2026-01-13 18:27
syslog.ph	403 B	-rw-r--r--	2026-01-13 18:27
time.ph	1.76 KB	-rw-r--r--	2026-01-13 18:27
timex.ph	3.03 KB	-rw-r--r--	2026-01-13 18:27
types.ph	2.51 KB	-rw-r--r--	2026-01-13 18:27
typesizes.ph	3.87 KB	-rw-r--r--	2026-01-13 18:27
uio.ph	581 B	-rw-r--r--	2026-01-13 18:27
waitflags.ph	731 B	-rw-r--r--	2026-01-13 18:27
waitstatus.ph	2.52 KB	-rw-r--r--	2026-01-13 18:27
wordsize.ph	457 B	-rw-r--r--	2026-01-13 18:27

Rename

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_SIGSET_H_types)) {
    eval 'sub _SIGSET_H_types () {1;}' unless defined(&_SIGSET_H_types);
    eval 'sub _SIGSET_NWORDS () {(1024/ (8* $sizeof{\'unsigned long int\'}));}' unless defined(&_SIGSET_NWORDS);
}
if(!defined (&_SIGSET_H_fns)  && defined (&_SIGNAL_H)) {
    eval 'sub _SIGSET_H_fns () {1;}' unless defined(&_SIGSET_H_fns);
    unless(defined(&_EXTERN_INLINE)) {
	eval 'sub _EXTERN_INLINE () { &__extern_inline;}' unless defined(&_EXTERN_INLINE);
    }
    eval 'sub __sigmask {
        my($sig) = @_;
	    eval q((( 1) << ((($sig) - 1) % (8* $sizeof{\'unsigned long int\'}))));
    }' unless defined(&__sigmask);
    eval 'sub __sigword {
        my($sig) = @_;
	    eval q(((($sig) - 1) / (8* $sizeof{\'unsigned long int\'})));
    }' unless defined(&__sigword);
    if(defined (&__GNUC__)  && (defined(&__GNUC__) ? &__GNUC__ : undef) >= 2) {
	eval 'sub __sigemptyset {
	    my($set) = @_;
    	    eval q(( &__extension__ ({ \'int\'  &__cnt =  &_SIGSET_NWORDS;  &sigset_t * &__set = ($set);  &while (-- &__cnt >= 0)  ($__set->{__val[&__cnt]}) = 0; 0; })));
	}' unless defined(&__sigemptyset);
	eval 'sub __sigfillset {
	    my($set) = @_;
    	    eval q(( &__extension__ ({ \'int\'  &__cnt =  &_SIGSET_NWORDS;  &sigset_t * &__set = ($set);  &while (-- &__cnt >= 0)  ($__set->{__val[&__cnt]}) = ~0; 0; })));
	}' unless defined(&__sigfillset);
	if(defined(&__USE_GNU)) {
	    eval 'sub __sigisemptyset {
	        my($set) = @_;
    		eval q(( &__extension__ ({ \'int\'  &__cnt =  &_SIGSET_NWORDS;  &const  &sigset_t * &__set = ($set); \'int\'  &__ret =  ($__set->{__val[&}--__cnt]);  &while (! &__ret  && -- &__cnt >= 0)  &__ret =  ($__set->{__val[&__cnt]});  &__ret == 0; })));
	    }' unless defined(&__sigisemptyset);
	    eval 'sub __sigandset {
	        my($dest, $left, $right) = @_;
    		eval q(( &__extension__ ({ \'int\'  &__cnt =  &_SIGSET_NWORDS;  &sigset_t * &__dest = ($dest);  &const  &sigset_t * &__left = ($left);  &const  &sigset_t * &__right = ($right);  &while (-- &__cnt >= 0)  ($__dest->{__val[&__cnt]}) = ( ($__left->{__val[&__cnt]})	 &  ($__right->{__val[&__cnt]})); 0; })));
	    }' unless defined(&__sigandset);
	    eval 'sub __sigorset {
	        my($dest, $left, $right) = @_;
    		eval q(( &__extension__ ({ \'int\'  &__cnt =  &_SIGSET_NWORDS;  &sigset_t * &__dest = ($dest);  &const  &sigset_t * &__left = ($left);  &const  &sigset_t * &__right = ($right);  &while (-- &__cnt >= 0)  ($__dest->{__val[&__cnt]}) = ( ($__left->{__val[&__cnt]})	 |  ($__right->{__val[&__cnt]})); 0; })));
	    }' unless defined(&__sigorset);
	}
    }
    if(defined(&__USE_EXTERN_INLINES)) {
	eval 'sub __SIGSETFN {
	    my($NAME, $BODY, $CONST) = @_;
    	    eval q( &_EXTERN_INLINE \'int\' $NAME ($CONST  &__sigset_t * &__set, \'int\'  &__sig) { \'unsigned long int __mask\' =  &__sigmask ( &__sig); \'unsigned long int __word\' =  &__sigword ( &__sig);  &return $BODY; });
	}' unless defined(&__SIGSETFN);
	undef(&__SIGSETFN) if defined(&__SIGSETFN);
    }
}
1;