%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/assym.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_SYS_ASSYM_H_)) {
    eval 'sub _SYS_ASSYM_H_ () {1;}' unless defined(&_SYS_ASSYM_H_);
    eval 'sub ASSYM_BIAS () {0x10000;}' unless defined(&ASSYM_BIAS);
    eval 'sub ASSYM_ABS {
        my($value) = @_;
	    eval q((($value) < 0? -(($value) + 1) + 1 : ($value)));
    }' unless defined(&ASSYM_ABS);
    eval 'sub ASSYM {
        my($name, $value) = @_;
	    eval q(\'char\' $name   $sign[(($value) < 0? 1: 0) +  &ASSYM_BIAS]; \'char\' $name   $w0[( &ASSYM_ABS($value) & 0xffff) +  &ASSYM_BIAS]; \'char\' $name   $w1[(( &ASSYM_ABS($value) & 0xffff0000) >> 16) +  &ASSYM_BIAS]; \'char\' $name   $w2[(( &ASSYM_ABS($value) & 0xffff00000000) >> 32) +  &ASSYM_BIAS]; \'char\' $name   $w3[(( &ASSYM_ABS($value) & 0xffff000000000000) >> 48) +  &ASSYM_BIAS]);
    }' unless defined(&ASSYM);
    if(defined(&OFFSET_TEST)) {
	eval 'sub OFFSET_CTASSERT () { &CTASSERT;}' unless defined(&OFFSET_CTASSERT);
    } else {
	eval 'sub OFFSET_CTASSERT () {(...);}' unless defined(&OFFSET_CTASSERT);
    }
    eval 'sub OFFSYM {
        my($name, $parenttype, $datatype) = @_;
	    eval q( &ASSYM($name,  &offsetof(\'struct parenttype\', $name)); \'char\' $name   &_datatype_  $datatype [1]; \'char\' $name   &_parenttype_  $parenttype [1];  &CTASSERT( &__builtin_types_compatible_p( &__typeof(((0x))-> $name), $datatype));  &OFFSET_CTASSERT( &offsetof(\'struct parenttype\', $name) ==  &offsetof(\'struct parenttype\'   &_lite, $name)));
    }' unless defined(&OFFSYM);
}
1;

Zerion Mini Shell 1.0