16 lines
334 B
Tcl
16 lines
334 B
Tcl
|
|
# environment related stuff
|
|
|
|
set ad_hdl_dir [file normalize [file join [file dirname [info script]] "../.."]]
|
|
set ad_phdl_dir $ad_hdl_dir
|
|
|
|
|
|
if [info exists ::env(ADI_HDL_DIR)] {
|
|
set ad_hdl_dir [file normalize $::env(ADI_HDL_DIR)]
|
|
}
|
|
|
|
if [info exists ::env(ADI_PHDL_DIR)] {
|
|
set ad_phdl_dir [file normalize $::env(ADI_PHDL_DIR)]
|
|
}
|
|
|