From: cascade <cascade@opencascade.com>
Date: Wed, 7 Jul 2004 00:05:03 +0000 (+0000)
Subject: OCC4062 The filling of development version of WOK doesn't equivalent to release one... 
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=fb1e170d0c00298f49234a0ffaf364e32c859649;p=occt-wok.git

OCC4062 The filling of development version of WOK doesn't equivalent to release one resources
---

diff --git a/src/WOKTclLib/osutils.tcl b/src/WOKTclLib/osutils.tcl
index 7195e86..b3184c1 100755
--- a/src/WOKTclLib/osutils.tcl
+++ b/src/WOKTclLib/osutils.tcl
@@ -145,28 +145,39 @@ proc osutils:dsp:compilable { } {
 ;#
 ;# remove from listloc OpenCascade units indesirables on NT
 ;#
-proc osutils:justwnt { listloc } {
+proc osutils:juststation {goaway listloc} {
     set lret {}
-    set goaway [list Xdps Xw ImageUtility WOKUnix]
     foreach u $listloc {
-	if { [lsearch $goaway [wokinfo -n $u]] == -1 } {
+	if { 
+	     (
+	     	[woklocate -u $u] != ""
+	     	&&
+	     	[lsearch $goaway [wokinfo -n [woklocate -u $u]]] == -1
+	     )
+	     ||
+	     (
+	     	[woklocate -u $u] == ""
+	     	&&
+	     	[lsearch $goaway [wokinfo -n $u]] == -1
+	     )
+	    
+	} {
 	    lappend lret $u
 	}
     }
-    return $lret
+    return $lret	
+}
+
+proc osutils:justwnt { listloc } {
+    set goaway [list Xdps Xw ImageUtility WOKUnix]
+    return [osutils:juststation $goaway $listloc]
 }
 ;#
 ;# remove from listloc OpenCascade units indesirables on Unix
 ;#
 proc osutils:justunix { listloc } {
-    set lret {}
     set goaway [list WNT WOKNT]
-    foreach u $listloc {
-	if { [lsearch $goaway [wokinfo -n $u]] == -1 } {
-	    lappend lret $u
-	}
-    }
-    return $lret
+    return [osutils:juststation $goaway $listloc]
 }
 ;#
 ;# Define libraries to link