From a0e27753c928f9f0c747b5478df86808c34d4a68 Mon Sep 17 00:00:00 2001
From: dbv <dbv@opencascade.com>
Date: Fri, 8 Nov 2013 12:37:21 +0400
Subject: [PATCH] 0024333: WOK environment fix Added path setup to UnitsAPI
 package

---
 src/WOKsite/wok_tclshrc.tcl | 9 +++++++++
 1 file changed, 9 insertions(+)

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 != "" } {
-- 
2.39.5