From d3cc0b23d7e0393eba45e15c841f057ed15d888f Mon Sep 17 00:00:00 2001
From: cascade <cascade@opencascade.com>
Date: Thu, 28 Oct 2004 21:37:55 +0000
Subject: [PATCH] OCC7091 TESTAM fanction need a new argument (list of modules)

---
 src/WOKTclLib/osutils.tcl | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/src/WOKTclLib/osutils.tcl b/src/WOKTclLib/osutils.tcl
index b3184c1..de469ca 100755
--- a/src/WOKTclLib/osutils.tcl
+++ b/src/WOKTclLib/osutils.tcl
@@ -546,13 +546,14 @@ proc osutils:mkdspx { dir tkloc {tmplat {} } {fmtcpp {} } } {
         foreach tk [LibToLinkX [woklocate -u $tkloc] $tf] {
 	  foreach element [osutils:tk:hascsf [woklocate -p ${tk}:source:EXTERNLIB [wokcd]]] {
 	    if {[wokparam -t %$element] != 0} {
-		set felem [file tail [lindex [wokparam -v "%$element"] 0]] 
-	      if {[lsearch $tkused $felem] == "-1"} {
-		if {$felem != "\{\}"} {
-                    #puts "was found $element $felem"	   
-		    set tkused [concat $tkused $felem]
-		}
-	      }   
+		set felem0 [wokparam -v "%$element"]
+		if {$felem0 != "\{\}"} {
+		    set felem [file tail [lindex $felem0 0]]
+		    if {[lsearch $tkused $felem] == "-1"} {
+			#puts "was found $element $felem"	   
+			set tkused [concat $tkused $felem]
+		    }
+		}  
 	    }
 	 }
        }
@@ -997,10 +998,12 @@ proc osutils:in:__AMDEPTRUE__ { l } {
 
 ;#############################################################
 ;#
-proc TESTAM { {root} } {
+proc TESTAM { {root} {ll {}} } {
 #    source [woklocate -p OS:source:OS.tcl]
 #    source [woklocate -p WOKTclLib:source:osutils.tcl]
-    foreach theModule [OS -lm] {
+    set lesmodules [OS -lm]
+    if { $ll != {} } {  set lesmodules $ll }
+    foreach theModule $lesmodules {
 	foreach unit [$theModule:toolkits] {
 	    puts " toolkit: $unit ==> [woklocate -p ${unit}:source:EXTERNLIB]"
 	    wokUtils:FILES:rmdir $root/$unit
-- 
2.39.5