LispForum

Code: Select all

(usb_init) ;;no return value
(usb_find_busses) ;;returns 1
(usb_find_devices) ;;returns 5

(let ((bus (usb_get_busses)))
  (format t "BUS IS ~A~%" bus)
  (loop 
    for device = (cffi:foreign-slot-value bus 'usb_bus 'devices)
                 then (cffi:foreign-slot-value device 'usb_device 'next)
       until (cffi:null-pointer-p device)
   do(format t "DEVICE IS ~A~%" device)))

Code: Select all

BUS IS #.(SB-SYS:INT-SAP #X02131958)
DEVICE IS #.(SB-SYS:INT-SAP #X02131964)
DEVICE IS #.(SB-SYS:INT-SAP #X00000030)
EXCEPTION_ACCESS_VIOLATION
   [Condition of type SIMPLE-ERROR]
	0: [RETRY] Retry SLIME REPL evaluation request.
	1: [ABORT] Return to SLIME's top level.
	2: [ABORT] Abort
	3: [CLOSE-CONNECTION] Close SLIME connection
	4: [ABORT] Exit debugger, returning to top level.

Code: Select all

(DEFCSTRUCT USB_BUS 
  (NEXT :POINTER) (PREV :POINTER) (DIRNAME :STRING)
  (DEVICES :POINTER) (LOCATION :UNSIGNED-LONG)
  (ROOT_DEV :POINTER))

(DEFCSTRUCT USB_DEVICE 
  (NEXT :POINTER) (PREV :POINTER) (FILENAME :STRING)
  (BUS :POINTER) (DESCRIPTOR :POINTER) (CONFIG :POINTER)
  (DEV :POINTER) (DEVNUM :UNSIGNED-CHAR)
  (NUM_CHILDREN :UNSIGNED-CHAR) (CHILDREN :POINTER))

Code: Select all

struct usb_bus {
  struct usb_bus *next, *prev;

  char dirname[LIBUSB_PATH_MAX];

  struct usb_device *devices;
  unsigned long location;

  struct usb_device *root_dev;
};


struct usb_device {
  struct usb_device *next, *prev;

  char filename[LIBUSB_PATH_MAX];

  struct usb_bus *bus;

  struct usb_device_descriptor descriptor;
  struct usb_config_descriptor *config;

  void *dev;		/* Darwin support */

  unsigned char devnum;

  unsigned char num_children;
  struct usb_device **children;
};

Code: Select all

(defcstruct usb-bus
  (next :pointer)
  (prev :pointer)
  (dirname :char :pointer 512)
  (devices :pointer)
  (location :uint)
  (root-dev :pointer))

(defcstruct usb-device
  (next :pointer)
  (prev :pointer)
  (filename :char :count 512)
  (bus :pointer)
  (descriptor usb-device-descriptor) ;; there should be (defcstruct usb-device-descriptor ...)
  (config :pointer)
  (dev :pointer)
  (devnum :uchar)
  (num-children :uchar)
  (children :pointer))