13.33.76.3 Example

The following example uses get_design_info to display the various values to the screen.

if { [ is_design_loaded ] } { puts "Design is loaded." set bDesignLoaded 1

} else {

puts "No design is loaded." set bDesignLoaded 0

}

if { $bDesignLoaded != 0 } {

set var [ get_design_info NAME ] puts " DESIGN NAME:\t$var"

set var [ get_design_info FAMILY ] puts " FAMILY:\t$var"

set var [ get_design_info DESIGN_PATH ] puts " DESIGN PATH:\t$var"

set var [ get_design_info DESIGN_FILE ] puts " DESIGN FILE:\t$var"

set var [ get_design_info DESIGN_FOLDER ] puts " DESIGN FOLDER:\t$var"

set var [ get_design_info CWDIR ] puts " WORKING DIRECTORY: $var"

set var [ get_design_info DIE ] puts " DIE:\t$var"

set var [ get_design_info PACKAGE ] puts " PACKAGE:\t'$var'"

set var [ get_design_info SPEED ] puts " SPEED GRADE:\t$var"

if { [ is_design_modified ] } { puts "The design is modified."

} else {

puts "The design is unchanged"

}

}

get_nets

puts "get_design.tcl done"