USING: alien.c-types classes.struct unix.types ;

IN: libusb

STRUCT: libusb_transfer
{ dev_handle libusb_device_handle* }
{ flags uint8_t initial: 0 } { endpoint uchar initial: 0 }
{ type uchar initial: 0 } { timeout uint initial: 0 }
{ status libusb_transfer_status } { length int initial: 0 }
{ actual_length int initial: 0 }
{ callback libusb_transfer_cb_fn } { user_data void* }
{ buffer uchar* } { num_iso_packets int initial: 0 }
{ iso_packet_desc libusb_iso_packet_descriptor[0] } ;

USING: classes.struct classes.struct.private kernel libusb ;

M: libusb_transfer clone
clone-underlying \ libusb_transfer memory>struct ; inline

USING: accessors classes.struct combinators combinators.smart
libusb ;

M: libusb_transfer struct-slot-values
[
{
[ dev_handle>> ]
[ flags>> ]
[ endpoint>> ]
[ type>> ]
[ timeout>> ]
[ status>> ]
[ length>> ]
[ actual_length>> ]
[ callback>> ]
[ user_data>> ]
[ buffer>> ]
[ num_iso_packets>> ]
[ iso_packet_desc>> ]
} cleave
] output>array ; inline