program_bit.tcl 853 B

1234567891011121314151617181920212223242526272829303132333435
  1. set bitfile [lindex $argv 0]
  2. set hwtarget [lindex $argv 1]
  3. if { [file exists $bitfile] != 1 } {
  4. puts "No bitfile $bitfile"
  5. exit 1
  6. } else {
  7. puts "Using bitfile $bitfile"
  8. }
  9. open_hw_manager
  10. connect_hw_server -quiet
  11. set target [lindex [get_hw_targets -quiet -nocase $hwtarget] 0]
  12. if { $target eq "" } {
  13. puts "Can't found hardware target $hwtarget"
  14. disconnect_hw_server
  15. close_hw_manager
  16. exit 2
  17. }
  18. current_hw_target $target
  19. open_hw_target
  20. set first_hw_device [lindex [get_hw_devices -quiet] 0]
  21. if { $first_hw_device eq "" } {
  22. puts "No hardware device found!"
  23. disconnect_hw_server
  24. close_hw_manager
  25. exit 3
  26. }
  27. current_hw_device $first_hw_device
  28. set_property PROGRAM.FILE $bitfile $first_hw_device
  29. program_hw_devices $first_hw_device
  30. puts "Program bitfile $bitfile finished"
  31. disconnect_hw_server
  32. close_hw_manager
  33. exit 0