mirror of https://github.com/openXC7/prjxray.git
41 lines
981 B
Tcl
41 lines
981 B
Tcl
source "$::env(FUZDIR)/util.tcl"
|
|
|
|
proc write_tiles_txt {} {
|
|
# Get all tiles, ie not just the selected LUTs
|
|
set tiles [get_tiles]
|
|
|
|
# Write tiles.txt with site metadata
|
|
set fp [open "tiles.txt" w]
|
|
foreach tile $tiles {
|
|
set type [get_property TYPE $tile]
|
|
set grid_x [get_property GRID_POINT_X $tile]
|
|
set grid_y [get_property GRID_POINT_Y $tile]
|
|
set sites [get_sites -quiet -of_objects $tile]
|
|
set typed_sites {}
|
|
|
|
if [llength $sites] {
|
|
set site_types [get_property SITE_TYPE $sites]
|
|
foreach t $site_types s $sites {
|
|
lappend typed_sites $t $s
|
|
}
|
|
}
|
|
|
|
puts $fp "$type $tile $grid_x $grid_y $typed_sites"
|
|
}
|
|
close $fp
|
|
}
|
|
|
|
proc run {} {
|
|
# Generate grid of entire part
|
|
make_project_roi XRAY_ROI_TILEGRID
|
|
|
|
place_design
|
|
route_design
|
|
write_checkpoint -force design.dcp
|
|
write_bitstream -force design.bit
|
|
|
|
write_tiles_txt
|
|
}
|
|
|
|
run
|