From 83b7a731eba809b644c6cf43d71d8e20a5434e40 Mon Sep 17 00:00:00 2001 From: jgv Date: Fri, 26 Oct 2012 13:57:59 +0400 Subject: [PATCH] 23481: WOK cannot be launched if the variable "LIB" or "INCLUDE" is not set WOK launches if the variable "LIB" or "INCLUDE" is set possibility has been added --- src/WOKsite/wok_tclshrc.tcl | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/src/WOKsite/wok_tclshrc.tcl b/src/WOKsite/wok_tclshrc.tcl index b16fc03..a90e51e 100644 --- a/src/WOKsite/wok_tclshrc.tcl +++ b/src/WOKsite/wok_tclshrc.tcl @@ -210,11 +210,20 @@ if { "$::ARCH" == "32"} { } else { set aCLibPaths [join $::CSF_OPT_LIB64 $::SYS_PATH_SPLITTER] } -set env($aEnvVarCLib) "${aCLibPaths}${::SYS_PATH_SPLITTER}$env($aEnvVarCLib)" + +if { [array names env $aEnvVarCLib] == "" } { + set env($aEnvVarCLib) "${aCLibPaths}${::SYS_PATH_SPLITTER}" +} else { + set env($aEnvVarCLib) "${aCLibPaths}${::SYS_PATH_SPLITTER}$env($aEnvVarCLib)" +} # Compiler search path to the headers set aCIncPaths [join $::CSF_OPT_INC $::SYS_PATH_SPLITTER] -set env($aEnvVarCInc) "${aCIncPaths}${::SYS_PATH_SPLITTER}$env($aEnvVarCInc)" +if { [array names env $aEnvVarCInc] == "" } { + set env($aEnvVarCInc) "${aCIncPaths}${::SYS_PATH_SPLITTER}" +} else { + set env($aEnvVarCInc) "${aCIncPaths}${::SYS_PATH_SPLITTER}$env($aEnvVarCInc)" +} # Search path to the libraries if { "$::tcl_platform(platform)" != "windows" } { -- 2.39.5