# Copyright 2016-2026 Paul Obermeier (obermeier@tcl3d.org)
#
# Test program for the hidtcl package.

package require hidtcl

puts "List of HID devices:"
foreach dev [hidtcl::enumerate 0 0] {
    puts [format "%04X/%04X: %s - %s" \
         [dict get $dev vendor_id] [dict get $dev product_id] \
         [dict get $dev manufacturer_string] [dict get $dev product_string]]
}

puts ""
puts [format "Using hidtcl %s (based on hidapi %s) on %s with %dbit Tcl %s" \
     [package version hidtcl] [hidtcl::version_str] $::tcl_platform(os) \
     [expr $::tcl_platform(pointerSize) * 8]  [info patchlevel]]

exit
