Query Server 和Yield Server 在IC上的使用

set cells [dfm::get_cells];while {$cells != ""} { set cellName [dfm::get_data $cells -cell_name]; lappend cellList $cellName; dfm::inc cells;}# get the total cell countset cellCount [llength $cellList];# test for hierarchy and exit if there is noneif { $cellCount < "2" } { puts "\n NOTE: Layout has no hierarchy. Nothing to do. \n"; exit 0;} # put any debug diagnostics hereif { [info exists DEBUG] == 1 } {  puts "\n---$cellCount layout cells: \n\n[regsub -all { } \[lsort $cellList] "\n"] \n";};proc hier_count { cells level } { # if this proc is called, there is an additional level of hierarchy incr level;  set currentCells $cells; set newCells "";# track cells at a given level foreach child $currentCells {  append newCells "[dfm::list_children $child] "; }  if { [lindex $newCells 0] != "" } { hier_count $newCells $level; } else { return $level; }} puts "\n\n CELL HIERARCHY LEVELS AND INSTANTIATIONS"puts "---------------------------------------------------------------\n";# iterate over all cells.set hierList "";foreach cell $cellList { set plCount [dfm::get_placement_count $cell] set childCells [dfm::list_children $cell]# if there are child cells, process to find the number of hierarchy # levels, otherwise add to the list with hierarchy as <0> if { [llength $childCells] > 0 } { lappend hierList [list $cell "levels: [hier_count "$childCells" 0]"\"instantiations: $plCount"]; } else { lappend hierList [list $cell "levels: 0" "instantiations: $plCount"]; }}# output the cell list in ascii order# create a 3-column matrix for printingstruct::matrix m0;m0 add columns 3;set sortList [lsort $hierList];set sortListLength [llength $sortList];for {set i 0} {$i < $sortListLength} {incr i} {# if struct::matrix is not available, use next line for output instead# puts "---[lindex $sortList $i]"; m0 add row "---[lindex $sortList $i]";}# output the tablem0 format 2chan;puts "\n";proc write_tree { level {cell ""} {indent ""} } {  if { $cell == 0 } { puts "\n ERROR: Cannot determine top cell."; exit 1; }# get placements in a cell set pl [dfm::get_placements $cell]# write the cell placement in the tree puts "$indent <$level> $cell"; # adjust the indent level of the tree append indent " ";# increment the level incr level; # recursively call this proc to descend all branches of the hierarchy while {$pl != ""} { set plName [dfm::get_data $pl -cell_name]; write_tree $level $plName $indent; dfm::inc pl; } } # OUTPUT FROM THIS PART IS VERBOSE! UNCOMMENT TO CALL IT.# puts "\n\n HIERARCHY TREE"# puts "-------------------------------------------------------------\n";# call the write_tree proc. hierarchy level is 0 beginning with top cell# write_tree 0 [dfm::get_top_cell]; # UNCOMMENT TO WRITE TREE;puts "\n\n---Done.\n"exit -force}