0024333: WOK environment fix

Added path setup to UnitsAPI package

diff --git a/src/WOKsite/wok_tclshrc.tcl b/src/WOKsite/wok_tclshrc.tcl
index f699383432e3b28ebd5c265fe735c2e86eeb3096..c7af7429617fb7a0540a7bc03c06969d89e25a1a 100644 (file)
--- a/src/WOKsite/wok_tclshrc.tcl
+++ b/src/WOKsite/wok_tclshrc.tcl
@@ -492,6 +492,15 @@ proc wenv {} {
     puts "Warning! 'XSTEPResource' package not found!"
   }
 
+  set aUnitsAPI [woklocate -u UnitsAPI]
+  if { $aUnitsAPI != "" } {
+    set aUnitsAPIPath [string range [wokinfo -p source:. $aUnitsAPI] 0 [expr {[string length [wokinfo -p source:. $aUnitsAPI]] - 3}]]
+    set env(CSF_UnitsLexicon) "$aUnitsAPIPath/Lexi_Expr.dat"
+    set env(CSF_UnitsDefinition) "$aUnitsAPIPath/Units.dat"
+  } else {
+    puts "Warning! 'UnitsAPI' package not found!"
+  }
+
   # main DRAWEXE commands
   set aDrawRes [woklocate -u DrawResources]
   if { $aDrawRes != "" } {