From: cas <cas@opencascade.com>
Date: Fri, 29 Jun 2001 14:48:00 +0000 (+0000)
Subject: No comments
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=8797e7f86235e79788142e4ee3e46b623d7cee86;p=occt-wok.git

No comments
---

diff --git a/src/WOKTclLib/osutils.tcl b/src/WOKTclLib/osutils.tcl
index 635234b..2840180 100755
--- a/src/WOKTclLib/osutils.tcl
+++ b/src/WOKTclLib/osutils.tcl
@@ -146,12 +146,13 @@ proc osutils:tk:close { ltk } {
     set recurse {}
     foreach dir $ltk {
 	set ids [woklocate -p [wokinfo -n [wokinfo -u $dir]]:source:EXTERNLIB [wokinfo -w $dir]]
-	;#puts "EXTERNLIB dir = $dir  ids = $ids"
-	set result [concat $result [wokUtils:FILES:FileToList $ids]]
-	foreach file [wokUtils:FILES:FileToList $ids] {
+	set eated [osutils:tk:eatpk $ids]
+	set result [concat $result $eated]
+	;#puts "EXTERNLIB dir = $dir ids = $ids result = $result"
+	foreach file $eated {
 	    ;#puts "file = $file"
 	    set kds [woklocate -p [wokinfo -n [wokinfo -u $file]]:source:EXTERNLIB [wokinfo -w $file]]
-	    if { [wokUtils:FILES:FileToList $kds ] !=  {} } {
+	    if { [osutils:tk:eatpk $kds] !=  {} } {
 		lappend recurse $file
 	    }
 	}
@@ -285,6 +286,19 @@ proc osutils:tk:files { tkloc  {l_compilable {} } {justail 1} {unitfilter {}} }
     return $lret
 }
 ;#
+;# 
+;#
+proc osutils:tk:eatpk { EXTERNLIB  } {
+    set l [wokUtils:FILES:FileToList $EXTERNLIB]
+    set lret  {}
+    foreach str $l {
+	 if ![regexp -- {(CSF_[^ ]*)} $str csf] {
+	     lappend lret $str
+	 }
+    }
+    return $lret
+}
+;#
 ;# Return the list of name *CSF_ in a EXTERNLIB description of a toolkit
 ;#
 proc osutils:tk:hascsf { EXTERNLIB } {