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

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_SYS_IOCCOM_H_)) {
    eval 'sub _SYS_IOCCOM_H_ () {1;}' unless defined(&_SYS_IOCCOM_H_);
    eval 'sub IOCPARM_SHIFT () {13;}' unless defined(&IOCPARM_SHIFT);
    eval 'sub IOCPARM_MASK () {((1<<  &IOCPARM_SHIFT) - 1);}' unless defined(&IOCPARM_MASK);
    eval 'sub IOCPARM_LEN {
        my($x) = @_;
	    eval q(((($x) >> 16) &  &IOCPARM_MASK));
    }' unless defined(&IOCPARM_LEN);
    eval 'sub IOCBASECMD {
        my($x) = @_;
	    eval q((($x) & ~( &IOCPARM_MASK << 16)));
    }' unless defined(&IOCBASECMD);
    eval 'sub IOCGROUP {
        my($x) = @_;
	    eval q(((($x) >> 8) & 0xff));
    }' unless defined(&IOCGROUP);
    eval 'sub IOCPARM_MAX () {(1<<  &IOCPARM_SHIFT);}' unless defined(&IOCPARM_MAX);
    eval 'sub IOC_VOID () {0x20000000;}' unless defined(&IOC_VOID);
    eval 'sub IOC_OUT () {0x40000000;}' unless defined(&IOC_OUT);
    eval 'sub IOC_IN () {0x80000000;}' unless defined(&IOC_IN);
    eval 'sub IOC_INOUT () {( &IOC_IN| &IOC_OUT);}' unless defined(&IOC_INOUT);
    eval 'sub IOC_DIRMASK () {( &IOC_VOID| &IOC_OUT| &IOC_IN);}' unless defined(&IOC_DIRMASK);
    eval 'sub _IOC {
        my($inout,$group,$num,$len) = @_;
	    eval q(( (($inout) | ((($len) &  &IOCPARM_MASK) << 16) | (($group) << 8) | ($num))));
    }' unless defined(&_IOC);
    eval 'sub _IO {
        my($g,$n) = @_;
	    eval q( &_IOC( &IOC_VOID, ($g), ($n), 0));
    }' unless defined(&_IO);
    eval 'sub _IOWINT {
        my($g,$n) = @_;
	    eval q( &_IOC( &IOC_VOID, ($g), ($n), $sizeof{\'int\'}));
    }' unless defined(&_IOWINT);
    eval 'sub _IOR {
        my($g,$n,$t) = @_;
	    eval q( &_IOC( &IOC_OUT, ($g), ($n), $sizeof{$t}));
    }' unless defined(&_IOR);
    eval 'sub _IOW {
        my($g,$n,$t) = @_;
	    eval q( &_IOC( &IOC_IN, ($g), ($n), $sizeof{$t}));
    }' unless defined(&_IOW);
    eval 'sub _IOWR {
        my($g,$n,$t) = @_;
	    eval q( &_IOC( &IOC_INOUT, ($g), ($n), $sizeof{$t}));
    }' unless defined(&_IOWR);
    eval 'sub _IOC_NEWLEN {
        my($ioc, $len) = @_;
	    eval q((((~( &IOCPARM_MASK << 16)) & ($ioc)) | ((($len) &  &IOCPARM_MASK) << 16)));
    }' unless defined(&_IOC_NEWLEN);
    eval 'sub _IOC_NEWTYPE {
        my($ioc, $type) = @_;
	    eval q( &_IOC_NEWLEN(($ioc), $sizeof{$type}));
    }' unless defined(&_IOC_NEWTYPE);
    if(defined(&_KERNEL)) {
	if(defined(&COMPAT_FREEBSD6) || defined(&COMPAT_FREEBSD5) || defined(&COMPAT_FREEBSD4) || defined(&COMPAT_43)) {
	    eval 'sub IOCPARM_IVAL {
	        my($x) = @_;
    		eval q((( &intptr_t)*( &void *)($x)));
	    }' unless defined(&IOCPARM_IVAL);
	}
    } else {
	require 'sys/cdefs.ph';
    }
}
1;

Zerion Mini Shell 1.0