zcy
/
pluto_hdl_adi
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

scripts/adi_env.tcl: print in logs system variables are used

main
Laszlo Nagy 2020-05-15 07:42:50 +01:00 committed by Laszlo Nagy
parent e7600eb552
commit db6af63583
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
projects/scripts/adi_env.tcl
View File

@ -22,6 +22,7 @@ if [info exists ::env(ADI_GHDL_DIR)] {
# default_value - returned vale in case environment variable does not exists # default_value - returned vale in case environment variable does not exists
proc get_env_param {name default_value} { proc get_env_param {name default_value} {
if [info exists ::env($name)] { if [info exists ::env($name)] {
puts "Getting from environment the parameter: $name=$::env($name) "
return $::env($name) return $::env($name)
} else { } else {
return $default_value return $default_value