find_devices.tcl 322 B

12345678910111213
  1. close_hw_manager -quiet
  2. open_hw_manager -quiet
  3. connect_hw_server -quiet
  4. set hwts [get_hw_targets -quiet]
  5. foreach key $hwts {
  6. current_hw_target $key
  7. open_hw_target -quiet
  8. set hwds [get_hw_devices -quiet]
  9. puts "CSV,$key,$hwds"
  10. close_hw_target -quiet
  11. }
  12. disconnect_hw_server -quiet
  13. close_hw_manager -quiet