home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / lib / perl / 5.8.8 / asm-x86_64 / ioctl.ph next >
Encoding:
Text File  |  2006-07-07  |  3.1 KB  |  65 lines
  1. require '_h2ph_pre.ph';
  2.  
  3. no warnings 'redefine';
  4.  
  5. unless(defined(&_ASMX8664_IOCTL_H)) {
  6.     eval 'sub _ASMX8664_IOCTL_H () {1;}' unless defined(&_ASMX8664_IOCTL_H);
  7.     eval 'sub _IOC_NRBITS () {8;}' unless defined(&_IOC_NRBITS);
  8.     eval 'sub _IOC_TYPEBITS () {8;}' unless defined(&_IOC_TYPEBITS);
  9.     eval 'sub _IOC_SIZEBITS () {14;}' unless defined(&_IOC_SIZEBITS);
  10.     eval 'sub _IOC_DIRBITS () {2;}' unless defined(&_IOC_DIRBITS);
  11.     eval 'sub _IOC_NRMASK () {((1<<  &_IOC_NRBITS)-1);}' unless defined(&_IOC_NRMASK);
  12.     eval 'sub _IOC_TYPEMASK () {((1<<  &_IOC_TYPEBITS)-1);}' unless defined(&_IOC_TYPEMASK);
  13.     eval 'sub _IOC_SIZEMASK () {((1<<  &_IOC_SIZEBITS)-1);}' unless defined(&_IOC_SIZEMASK);
  14.     eval 'sub _IOC_DIRMASK () {((1<<  &_IOC_DIRBITS)-1);}' unless defined(&_IOC_DIRMASK);
  15.     eval 'sub _IOC_NRSHIFT () {0;}' unless defined(&_IOC_NRSHIFT);
  16.     eval 'sub _IOC_TYPESHIFT () {( &_IOC_NRSHIFT+ &_IOC_NRBITS);}' unless defined(&_IOC_TYPESHIFT);
  17.     eval 'sub _IOC_SIZESHIFT () {( &_IOC_TYPESHIFT+ &_IOC_TYPEBITS);}' unless defined(&_IOC_SIZESHIFT);
  18.     eval 'sub _IOC_DIRSHIFT () {( &_IOC_SIZESHIFT+ &_IOC_SIZEBITS);}' unless defined(&_IOC_DIRSHIFT);
  19.     eval 'sub _IOC_NONE () {0;}' unless defined(&_IOC_NONE);
  20.     eval 'sub _IOC_WRITE () {1;}' unless defined(&_IOC_WRITE);
  21.     eval 'sub _IOC_READ () {2;}' unless defined(&_IOC_READ);
  22.     eval 'sub _IOC {
  23.         my($dir,$type,$nr,$size) = @_;
  24.         eval q(((($dir) <<  &_IOC_DIRSHIFT) | (($type) <<  &_IOC_TYPESHIFT) | (($nr) <<  &_IOC_NRSHIFT) | (($size) <<  &_IOC_SIZESHIFT)));
  25.     }' unless defined(&_IOC);
  26.     eval 'sub _IO {
  27.         my($type,$nr) = @_;
  28.         eval q( &_IOC( &_IOC_NONE,($type),($nr),0));
  29.     }' unless defined(&_IO);
  30.     eval 'sub _IOR {
  31.         my($type,$nr,$size) = @_;
  32.         eval q( &_IOC( &_IOC_READ,($type),($nr),$sizeof{$size}));
  33.     }' unless defined(&_IOR);
  34.     eval 'sub _IOW {
  35.         my($type,$nr,$size) = @_;
  36.         eval q( &_IOC( &_IOC_WRITE,($type),($nr),$sizeof{$size}));
  37.     }' unless defined(&_IOW);
  38.     eval 'sub _IOWR {
  39.         my($type,$nr,$size) = @_;
  40.         eval q( &_IOC( &_IOC_READ| &_IOC_WRITE,($type),($nr),$sizeof{$size}));
  41.     }' unless defined(&_IOWR);
  42.     eval 'sub _IOC_DIR {
  43.         my($nr) = @_;
  44.         eval q(((($nr) >>  &_IOC_DIRSHIFT) &  &_IOC_DIRMASK));
  45.     }' unless defined(&_IOC_DIR);
  46.     eval 'sub _IOC_TYPE {
  47.         my($nr) = @_;
  48.         eval q(((($nr) >>  &_IOC_TYPESHIFT) &  &_IOC_TYPEMASK));
  49.     }' unless defined(&_IOC_TYPE);
  50.     eval 'sub _IOC_NR {
  51.         my($nr) = @_;
  52.         eval q(((($nr) >>  &_IOC_NRSHIFT) &  &_IOC_NRMASK));
  53.     }' unless defined(&_IOC_NR);
  54.     eval 'sub _IOC_SIZE {
  55.         my($nr) = @_;
  56.         eval q(((($nr) >>  &_IOC_SIZESHIFT) &  &_IOC_SIZEMASK));
  57.     }' unless defined(&_IOC_SIZE);
  58.     eval 'sub IOC_IN () {( &_IOC_WRITE <<  &_IOC_DIRSHIFT);}' unless defined(&IOC_IN);
  59.     eval 'sub IOC_OUT () {( &_IOC_READ <<  &_IOC_DIRSHIFT);}' unless defined(&IOC_OUT);
  60.     eval 'sub IOC_INOUT () {(( &_IOC_WRITE| &_IOC_READ) <<  &_IOC_DIRSHIFT);}' unless defined(&IOC_INOUT);
  61.     eval 'sub IOCSIZE_MASK () {( &_IOC_SIZEMASK <<  &_IOC_SIZESHIFT);}' unless defined(&IOCSIZE_MASK);
  62.     eval 'sub IOCSIZE_SHIFT () {( &_IOC_SIZESHIFT);}' unless defined(&IOCSIZE_SHIFT);
  63. }
  64. 1;
  65.