Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 70 lines (54 sloc) 1.39 kB
28d1653 @soemraws Forgot to commit package.lisp on first commit.
authored
1 ;;;; package.lisp
2
3 (defpackage #:libusb-ffi
4 (:use #:cl #:cffi)
5 (:export #:usb-get-busses
6 #:usb-get-devices
7 #:usb-get-devices-by-ids
8
9 #:usb-open
10 #:usb-close
11
12 #:usb-get-vendor-id
13 #:usb-get-product-id
14
15 #:usb-device-get-descriptor
16 #:usb-get-configurations
17 #:usb-get-configuration-by-value
18 #:usb-configuration-get-value
19 #:usb-configuration-get-interfaces
20 #:usb-interface-get-settings
21 #:usb-interface-setting-get-number
22 #:usb-interface-setting-get-alternate
23 #:usb-interface-setting-get-endpoints
24 #:usb-endpoint-get-address
25
26 #:usb-get-string-index
27 #:usb-get-string
28 #:usb-bulk-read
29 #:usb-bulk-write
30 #:usb-interrupt-read
31 #:usb-interrupt-write
32
33 #:usb-claim-interface
34 #:usb-release-interface
35 #:usb-set-configuration
36 #:usb-set-altinterface
37
38 #:usb-clear-halt
39 #:usb-reset
40
41 #:endpoint-in-p
42 #:endpoint-out-p))
43
44
45 (defpackage #:cl-libusb
46 (:use #:cl)
47 (:export #:usb-device
48 #:usb-get-devices-by-ids
49
50 #:usb-open
51 #:usb-close
52 #:usb-open-p
53
54 #:usb-bulk-read
55 #:usb-bulk-write
56 #:usb-interrupt-read
57 #:usb-interrupt-write
58
59 #:usb-get-vendor-id
60 #:usb-get-product-id
61 #:usb-get-string
62
63 #:usb-claim-interface
64 #:usb-release-interface
65 #:usb-set-configuration
66 #:usb-set-alt-interface
67 #:usb-simple-setup
68
69 #:usb-clear-halt))
Something went wrong with that request. Please try again.