From: dbv <dbv@opencascade.com>
Date: Fri, 8 Nov 2013 08:37:21 +0000 (+0400)
Subject: 0024333: WOK environment fix
X-Git-Tag: V6_7_1~16
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=a0e27753c928f9f0c747b5478df86808c34d4a68;p=occt-wok.git

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 f699383..c7af742 100644
--- 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 != "" } {