18 lines
451 B
Tcl
18 lines
451 B
Tcl
|
|
# environment related stuff
|
|
|
|
set ad_hdl_dir [file normalize [file join [file dirname [info script]] "../.."]]
|
|
|
|
# assuming that ghdl is cloned next to hdl repository
|
|
set ad_ghdl_dir [file normalize [file join [file dirname [info script]] "../../../ghdl"]]
|
|
|
|
|
|
if [info exists ::env(ADI_HDL_DIR)] {
|
|
set ad_hdl_dir [file normalize $::env(ADI_HDL_DIR)]
|
|
}
|
|
|
|
if [info exists ::env(ADI_GHDL_DIR)] {
|
|
G set ad_ghdl_dir [file normalize $::env(ADI_GHDL_DIR)]
|
|
}
|
|
|