From: cascade <cascade@opencascade.com>
Date: Thu, 23 Oct 2003 09:43:51 +0000 (+0000)
Subject: automatization of WOK creation resources only
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=292586311ef8be3a708e6cc8e6967ddc395dc7cb;p=occt-wok.git

automatization of WOK creation resources only
---

diff --git a/src/WOKTclLib/Wok_Init.tcl b/src/WOKTclLib/Wok_Init.tcl
index f6406bc..7fe43ca 100755
--- a/src/WOKTclLib/Wok_Init.tcl
+++ b/src/WOKTclLib/Wok_Init.tcl
@@ -9,6 +9,20 @@ proc __restore_env__ {} {
   }
   array set env $__initenv__
 }
+proc UNC { path } {
+
+ if { [cindex $path 0] == "{" && [cindex $path [clength $path]-1] == "}" } {
+  set path [crange $path 1 [clength $path]-2]
+ }
+
+ if { [cindex $path 0] == "\\" && [cindex $path 1] == "\\"} {
+  set path "//[crange $path 2 [clength $path]]"
+ }
+
+ return $path
+
+}
+
 
 auto_load wok_cd_proc
 auto_load wok_exit_proc
@@ -36,5 +50,8 @@ set WOK_GLOBALS(cd_proc,tcl)       1
 set WOK_GLOBALS(source_proc,term)  1
 set WOK_GLOBALS(source_proc,emacs) 1
 set WOK_GLOBALS(source_proc,tcl)   1
-
+update
 set WOK_GLOBALS(wokinterp,tclcommands) "Winfo|finfo|pinfo|screate|sinfo|srm|ucreate|uinfo|umake|urm|w_info|wcreate|wokcd|wokclose|wokinfo|wokparam|wokprofile|wokenv|wrm|wmove|msclear|wprepare|wstore|wintegre|upack|iwok|wsrc|wdrv|wls|wcd|cd"
+update
+
+