USB::LibUSB::XS(3pm) | User Contributed Perl Documentation | USB::LibUSB::XS(3pm) |
USB::LibUSB::XS - Raw XS bindings to the libusb-1.0 <http://libusb.info/> API.
# import all the constants and non-method subroutines use USB::LibUSB::XS; my ($rv, $ctx) = USB::LibUSB::XS->init(); $ctx->set_debug(LIBUSB_LOG_LEVEL_WARNING); my ($vendor_id, $product_id) = (0x1234, 0x5678); my $handle = $ctx->open_device_with_vid_pid($vendor_id, $product_id); $rv = $handle->set_auto_detach_kernel_driver(1); $rv = $handle->claim_interface($interface); $rv = $handle->bulk_transfer_write($endpoint, "some data", $timeout); ($rv, my $data) = $handle->bulk_transfer_read($endpoint, $length, $timeout);
USB::LibUSB::XS provides the raw XS access to the libusb-1.0 API, which can then be used by modules like USB::LibUSB, which is a more user frienly interface.
The following API is documented in the excellent libusb documentation <http://libusb.sourceforge.net/api-1.0/>.
Implementation status: complete.
set_debug
$ctx->set_debug(LIBUSB_LOG_LEVEL_DEBUG);
init
my ($rv, $ctx) = USB::LibUSB::XS->init();
exit
$ctx->exit();
Implementation status: complete.
get_device_list
my ($rv, @device_list) = $ctx->get_device_list();
@device_list contains USB::LibUSB::XS::Device objects.
get_bus_number
my $bus_number = $dev->get_bus_number();
get_port_number
my $port_number = $dev->get_port_number();
get_port_numbers
my ($rv, @port_numbers) = $dev->get_port_numbers();
get_parent
my $parent_dev = $dev->get_parent();
get_device_address
my $address = $dev->get_device_address();
get_device_speed
my $speed = $dev->get_device_speed();
get_max_packet_size
my $size = $dev->get_max_packet_size($endpoint);
get_max_iso_packet_size
my $size = $dev->get_max_iso_packet_size($endpoint);
ref_device
$dev = $dev->ref_device();
unref_device
$dev->unref_device();
open
my ($rv, $handle) = $dev->open();
Return a USB::LibUSB::XS::Device::Handle object in $handle if $rv is 0.
open_device_with_vid_pid
my $handle = $ctx->open_device_with_vid_pid(0x1111, 0x2222);
Return undef on error.
close
$handle->close();
get_device
my $dev = $hanlde->get_device();
get_configuration
my $config = $handle->get_configuration();
set_configuration
my $rv = $handle->set_configuration($config);
claim_interface
my $rv = $handle->claim_interface($interface_number);
release_interface
my $rv = $handle->release_interface($interface_number);
set_interface_alt_setting
my $rv = $handle->set_interface_alt_setting($interface_number, $alternate_setting);
clear_halt
my $rv = $handle->clear_halt($endpoint);
reset_device
my $rv = $handle->reset_device();
kernel_driver_active
my $is_active = $handle->kernelt_driver_active($interface_number);
detach_kernel_driver
my $rv = $handle->detach_kernel_driver($interface_number);
attach_kernel_driver
my $rv = $handle->attach_kernel_driver($interface_number);
set_auto_detach_kernel_driver
my $rv = $handle->set_auto_detach_kernel_driver($enable);
Implementation status: complete.
libusb_has_capability
my $has_cap = libusb_has_capability($capability);
libusb_error_name
my $error_name = libusb_error_name($error_code);
libusb_get_version
my $version_hash = libusb_get_version(); my $major = $version_hash->{major};
libusb_setlocale
my $rv = libusb_setlocale($locale);
libusb_strerror
my $strerror = libusb_strerror($error_code);
Implementation status: complete.
All descriptors are returned as hash references.
get_device_descriptor
my ($rv, $desc) = $dev->get_device_descriptor(); my $iSerialNumber = $desc->{iSerialNumber};
get_active_config_descriptor
my ($rv, $config) = $dev->get_active_config_descriptor($ctx); my $iConfiguration = $config->{iConfiguration};
get_config_descriptor
my ($rv, $config) = $dev->get_config_descriptor($ctx, $config_index);
get_config_descriptor_by_value
my ($rv, $config) = $dev->get_config_descriptor_by_value($ctx, $bConfigurationValue);
get_bos_descriptor
my ($rv, $bos) = $handle->get_bos_descriptor($ctx);
get_string_descriptor_ascii
my ($rv, $data) = $handle->get_string_descriptor_ascii($desc_index, $length);
get_descriptor
my ($rv, $data) = $handle->get_descriptor($desc_type, $desc_index, $length);
get_string_descriptor
my ($rv, $data) = $handle->get_string_descriptor($desc_index, $langid, $length);
Implementation status: To be implemented.
Implementation status: To be implemented.
Implementation status: To be implemented.
Implementation status: complete.
Timeouts are given in milliseconds.
control_transfer_write
my $rv = $handle->control_transfer_write($bmRequestType, $bRequest, $wValue, $wIndex, $data, $timeout);
control_transfer_read
my ($rv, $data) = $handle->control_transfer_read($bmRequestType, $bRequest, $wValue, $wIndex, $length, $timeout);
bulk_tranfer_write
my $rv = $handle->bulk_transfer_write($endpoint, $data, $timeout);
bulk_transfer_read
my ($rv, $data) = $handle->bulk_transfer_read($endpoint, $length, $timeout);
interrupt_transfer_write
my $rv = $handle->interrupt_transfer_write($endpoint, $data, $timeout);
interrupt_transfer_read
my ($rv, $data) = $handle->interrupt_transfer_read($endpoint, $length, $timeout);
Please report bugs at <https://github.com/lab-measurement/USB-LibUSB/issues>.
Feel free to contact us at the #labmeasurement channel on Freenode IRC.
Simon Reinhardt, <simon.reinhardt@physik.uni-r.de>
Copyright (C) 2017 by Simon Reinhardt
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.24.0 or, at your option, any later version of Perl 5 you may have available.
2020-11-09 | perl v5.32.0 |