%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/lib/perl5/site_perl/mach/5.32/sys/
Upload File :
Create Path :
Current File : //usr/local/lib/perl5/site_perl/mach/5.32/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);
}
1;

Zerion Mini Shell 1.0