home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl502b.zip / lib / OS2 / sys / so_ioctl.ph next >
Encoding:
Text File  |  1995-01-24  |  2.7 KB  |  58 lines
  1. if (!defined ( &_SYS_SO_IOCTL_H)) {
  2.     eval 'sub _SYS_SO_IOCTL_H {1;}';
  3.     eval 'sub _IOC {
  4.         local($a,$b) = @_;
  5.         eval "(($a<<8)|$b)";
  6.     }';
  7.     eval 'sub _IOW {
  8.         local($a,$b,$c) = @_;
  9.         eval " &_IOC($a,$b)";
  10.     }';
  11.     eval 'sub _IOR {
  12.         local($a,$b,$c) = @_;
  13.         eval " &_IOC($a,$b)";
  14.     }';
  15.     eval 'sub _IOWR {
  16.         local($a,$b,$c) = @_;
  17.         eval " &_IOC($a,$b)";
  18.     }';
  19.     eval 'sub _TCPIP_FIONREAD { &_IOC(ord(\'f\'), 127);}';
  20.     eval 'sub FIONBIO { &_IOC(ord(\'f\'), 126);}';
  21.     eval 'sub FIOASYNC { &_IOC(ord(\'f\'), 125);}';
  22.     eval 'sub FIOTCPCKSUM { &_IOC(ord(\'f\'), 128);}';
  23.     eval 'sub FIONSTATUS { &_IOC(ord(\'f\'), 120);}';
  24.     eval 'sub FIONURG { &_IOC(ord(\'f\'), 121);}';
  25.     eval 'sub SIOCSHIWAT { &_IOW(ord(\'s\'), 0, int);}';
  26.     eval 'sub SIOCGHIWAT { &_IOR(ord(\'s\'), 1, int);}';
  27.     eval 'sub SIOCSLOWAT { &_IOW(ord(\'s\'), 2, int);}';
  28.     eval 'sub SIOCGLOWAT { &_IOR(ord(\'s\'), 3, int);}';
  29.     eval 'sub SIOCATMARK { &_IOR(ord(\'s\'), 7, int);}';
  30.     eval 'sub SIOCSPGRP { &_IOW(ord(\'s\'), 8, int);}';
  31.     eval 'sub SIOCGPGRP { &_IOR(ord(\'s\'), 9, int);}';
  32.     eval 'sub SIOCADDRT { &_IOW(ord(\'r\'), 10, struct ortentry);}';
  33.     eval 'sub SIOCDELRT { &_IOW(ord(\'r\'), 11, struct ortentry);}';
  34.     eval 'sub SIOCSIFADDR { &_IOW(ord(\'i\'), 12, struct ifreq);}';
  35.     eval 'sub SIOCGIFADDR { &_IOWR(ord(\'i\'),13, struct ifreg);}';
  36.     eval 'sub OSIOCGIFADDR { &SIOCGIFADDR;}';
  37.     eval 'sub SIOCSIFDSTADDR { &_IOW(ord(\'i\'), 14, struct ifreq);}';
  38.     eval 'sub SIOCGIFDSTADDR { &_IOWR(ord(\'i\'),15, struct ifreq);}';
  39.     eval 'sub OSIOCGIFDSTADDR { &SIOCGIFDSTADDR;}';
  40.     eval 'sub SIOCSIFFLAGS { &_IOW(ord(\'i\'), 16, struct ifreq);}';
  41.     eval 'sub SIOCGIFFLAGS { &_IOWR(ord(\'i\'),17, struct ifreq);}';
  42.     eval 'sub SIOCGIFBRDADDR { &_IOWR(ord(\'i\'),18, struct ifreq);}';
  43.     eval 'sub OSIOCGIFBRDADDR { &SIOCGIFBRDADDR;}';
  44.     eval 'sub SIOCSIFBRDADDR { &_IOW(ord(\'i\'), 19, struct ifreq);}';
  45.     eval 'sub SIOCGIFCONF { &_IOWR(ord(\'i\'),20, struct ifreq);}';
  46.     eval 'sub OSIOCGIFCONF { &SIOCGIFCONF;}';
  47.     eval 'sub SIOCGIFNETMASK { &_IOWR(ord(\'i\'),21, struct ifreq);}';
  48.     eval 'sub OSIOCGIFNETMASK { &SIOCGIFNETMASK;}';
  49.     eval 'sub SIOCSIFNETMASK { &_IOW(ord(\'i\'), 22, struct ifreq);}';
  50.     eval 'sub SIOCGIFMETRIC { &_IOWR(ord(\'i\'),23, struct ifreq);}';
  51.     eval 'sub SIOCSIFMETRIC { &_IOW(ord(\'i\'), 24, struct ifreq);}';
  52.     eval 'sub SIOCSARP { &_IOW(ord(\'i\'), 30, struct arpreq);}';
  53.     eval 'sub SIOCGARP { &_IOWR(ord(\'i\'),31, struct arpreq);}';
  54.     eval 'sub OSIOCGARP { &SIOCGARP;}';
  55.     eval 'sub SIOCDARP { &_IOW(ord(\'i\'), 32, struct arpreq);}';
  56. }
  57. 1;
  58.