From: cas <cas@opencascade.com>
Date: Thu, 19 Jul 2001 14:35:51 +0000 (+0000)
Subject: No comments
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=e32c4f714ab41ed13d315c4d40b7fe128acfa6d6;p=occt-wok.git

No comments
---

diff --git a/src/WOKTclLib/FILES b/src/WOKTclLib/FILES
index 929866e..732b3df 100755
--- a/src/WOKTclLib/FILES
+++ b/src/WOKTclLib/FILES
@@ -147,4 +147,3 @@ srcinc:::template.minx
 srcinc:::template.mam
 srcinc:::template.mamx
 srcinc:::osutils.tcl
-srcinc:::opencascade.gif
diff --git a/src/WOKTclLib/wprepare.tcl b/src/WOKTclLib/wprepare.tcl
index 8e6dff8..e424211 100755
--- a/src/WOKTclLib/wprepare.tcl
+++ b/src/WOKTclLib/wprepare.tcl
@@ -155,21 +155,46 @@ proc wokPrepare:Unit:Ref { Fout Wb Uliste } {
 # Boucle sur une liste  {type name}, ecrit dans table le resultat de la comparaison
 # wokPrepare:Unit:Loop Mytable DEMO:Demo:Kernel DEMO:Demo:FK  {NTD AccesServer}
 # Pere = FACT:SHOP:WBPERE , Fils: FACT:SHOP:WBFILS
+# Pour chacune des Uds il faut chercher dans quel workbench elle se trouve au dessus.
+# si elle n'existe pas =. on met {}. 
+#
 #;<
 proc wokPrepare:Unit:Loop { Fout Pere Fils Uliste } {
-    set lupere [w_info -l $Pere]
+    wokPrepare:Unit:ouestu ${Pere} $Uliste map
     foreach e $Uliste {
 	set t [uinfo -t ${Fils}:${e}]
 	$Fout uheader "$e.$t"
 	set loc [uinfo -fl -Tsource ${Fils}:$e]
-	if { [lsearch $lupere $e] != -1 } {
-	    wokPrepare:Unit:Diff $Fout [uinfo -fp -Tsource ${Pere}:$e] [uinfo -fp -Tsource ${Fils}:$e] $loc
+	
+	if { $map($e) != {} } {
+	    set ances $map($e)
+	    wokPrepare:Unit:Diff $Fout [uinfo -fp -Tsource $ances:$e] [uinfo -fp -Tsource ${Fils}:$e] $loc
 	} else {
 	    wokPrepare:Unit:Diff $Fout {} [uinfo -fp -Tsource ${Fils}:$e] $loc
 	}
     }
 }
 
+#;>
+# retourne le nom du workbench ou se trouve u
+# dans l'ascendance de wb, (wb inclus)
+# wb est un full path
+#;<
+proc wokPrepare:Unit:ouestu { wb lu map} {
+    upvar $map TLOC
+    set pfx [wokinfo -s $wb]
+    set ancestors [w_info -A $wb]
+    foreach u $lu {
+	foreach w $ancestors {
+	    set TLOC($u) {}
+	    if { [wokinfo -x ${pfx}:${w}:$u] } {
+		set TLOC($u) ${pfx}:$w
+		break
+	    }
+	}
+    }
+}
+
 #;>
 #
 #  l1 liste des sources vue du pere {basename dirname}