get_design_info value
value
Must be one of the valid string values summarized in the table below:
|
Value |
Description |
|
name |
Design name. The result is set to the design name string. |
|
family |
Silicon family. The result is set to the family name. |
|
design_path |
Fully qualified path of the design file. The result is set to the location of the .adb file. If a design has not been saved to disk, the result will be an empty string. This command replaces the command get_design_filename. |
|
design_folder |
Directory (folder) portion of the design_path. |
|
design_file |
Filename portion of the design_path. |
|
cwdir |
Current working directory. The result is set to the location of the current working directory |
|
die |
Die name. The result is set to the name of the selected die for the design. If no die is selected, this is an empty string. |
|
Package |
Package. The result is set to the name of the selected package for the design. If no package is selected, this is an empty string. |
|
Speed |
Speed grade. The result is set to the speed grade for the design. If no speed grade is selected, this is an empty string. |
Returns an error if a design is not loaded.
Returns an error if more than one argument is passed.
Returns an error if the argument is not one of the valid values.
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"
}
}
puts "get_design.tcl done"