%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /backups/router/usr/local/lib/perl5/site_perl/mach/5.36/
Upload File :
Create Path :
Current File : //backups/router/usr/local/lib/perl5/site_perl/mach/5.36/usbhid.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_USBHID_H_)) {
    eval 'sub _USBHID_H_ () {1;}' unless defined(&_USBHID_H_);
    require 'stdint.ph';
    eval("sub hid_input () { 0; }") unless defined(&hid_input);
    eval("sub hid_output () { 1; }") unless defined(&hid_output);
    eval("sub hid_feature () { 2; }") unless defined(&hid_feature);
    eval("sub hid_collection () { 3; }") unless defined(&hid_collection);
    eval("sub hid_endcollection () { 4; }") unless defined(&hid_endcollection);
    eval 'sub NO_REPORT_ID () {0;}' unless defined(&NO_REPORT_ID);
    eval 'sub HID_PAGE {
        my($u) = @_;
	    eval q(((($u) >> 16) & 0xffff));
    }' unless defined(&HID_PAGE);
    eval 'sub HID_USAGE {
        my($u) = @_;
	    eval q((($u) & 0xffff));
    }' unless defined(&HID_USAGE);
    eval 'sub HID_HAS_GET_SET_REPORT () {1;}' unless defined(&HID_HAS_GET_SET_REPORT);
}
1;

Zerion Mini Shell 1.0