matthieu/ocaml-libusb
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

2018-06-15

Browse Source 
* Ajout de claim_interface et release_interface
* Ajout de num_configurations dans descriptor
* Ajout de unref_devices
* Ajout de bulk_transfer
This commit is contained in:
Matthieu Dubuget
2018-06-15 08:30:45 +02:00
parent b7376530ea
commit 1792a640a1
5 changed files with 61 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/generator/g.ml
View File

@ -15,6 +15,8 @@ module P(F:Cstubs.FOREIGN) = struct
let open_device = foreign "libusb_open" (ptr U.device @-> ptr (ptr U.device_handle) @-> returning U.error)
let close_device = foreign "libusb_close" (ptr U.device_handle @-> returning void)
let get_device_descriptor = foreign "libusb_get_device_descriptor" (ptr U.device @-> ptr U.device_descriptor @-> returning U.error)
let claim_interface = foreign "libusb_claim_interface" (ptr U.device_handle @-> int @-> returning U.error)
let release_interface = foreign "libusb_release_interface" (ptr U.device_handle @-> int @-> returning U.error)
let get_string_descriptor_ascii = foreign "libusb_get_string_descriptor_ascii" (ptr U.device_handle @-> uint8_t @-> ptr char @-> int @-> returning U.error)
let control_transfer = foreign "libusb_control_transfer" (ptr U.device_handle @-> uint8_t @-> uint8_t @-> uint16_t @-> uint16_t @-> ptr char @-> uint16_t @-> uint @-> returning U.error)
let bulk_transfer = foreign "libusb_bulk_transfer" (ptr U.device_handle @-> uint8_t @-> ptr char @-> int @-> ptr int @-> uint @-> returning U.error)

1
lib/generator/stubs/t.ml
View File

@ -31,6 +31,7 @@ type device_descriptor = {
id_product: int; (** Product ID.*)
i_manufacturer: int; (** Index of string descriptor describing manufacturer. *)
i_product: int; (** Index of string descriptor describing product. *)
num_configurations: int;
}
module Types(T:Cstubs.Types.TYPE) = struct