From: cas <cas@opencascade.com>
Date: Thu, 21 Jun 2001 17:55:53 +0000 (+0000)
Subject: No comments
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=78d7877df73a0030391e0fcc1d8437190452b1eb;p=occt-wok.git

No comments
---

diff --git a/src/WOKTclLib/FILES b/src/WOKTclLib/FILES
index 4445563..cd904c0 100755
--- a/src/WOKTclLib/FILES
+++ b/src/WOKTclLib/FILES
@@ -150,3 +150,4 @@ srcinc:::MdtvLogo33x120b.gif
 srcinc:::README
 srcinc:::wokcvs.tcl
 srcinc:::ud2cvs_unix
+srcinc:::template.dsp
diff --git a/src/WOKTclLib/wstore.tcl b/src/WOKTclLib/wstore.tcl
index 912b9df..9e20676 100755
--- a/src/WOKTclLib/wstore.tcl
+++ b/src/WOKTclLib/wstore.tcl
@@ -404,7 +404,6 @@ proc wokStore:Queue:Exists { wb } {
 ;# Ecrit dans diradm le fichier VCDEF.tcl contenant les definitions de la queue.
 ;# 
 proc wokStore:Report:Configure { option fileadm wb queue trignam base type counter journal welcome } {
-    puts ccc
     set proc_defined_in_VC [list \
 	    wokStore:Report:GetRootName \
 	    wokStore:Trigger:GetName \
diff --git a/src/WOKTclLib/wutils.tcl b/src/WOKTclLib/wutils.tcl
index fbae5ab..09e45fa 100755
--- a/src/WOKTclLib/wutils.tcl
+++ b/src/WOKTclLib/wutils.tcl
@@ -31,6 +31,17 @@ proc wokUtils:TIME:clrsort { e1 e2 } {
 	}
     }
 }
+;#
+;# Returs for a full path the liste of n last directory part
+;# n = 1 => tail
+;# n = 2 => dir/file.c
+;# n = 3 => sdir/dir/file.c
+;# etc..
+proc wokUtils:FILES:wtail { f n } {
+    set ll [expr [llength [set lif [file split $f]]] -$n]
+    return [join [lrange $lif $ll end] /]
+}
+
 #
 # Returs the list of files in dirlist using gblist as pattern newer than lim
 # 
@@ -1509,6 +1520,11 @@ proc wokUtils:EASY:stobs2 { l } {
     }
 }
 #
+proc wokUtils:EASY:bs1 { s } {
+    regsub -all {/} $s {\\} r
+    return $r
+}
+#
 proc wokUtils:EASY:lbs1 { ls } {
     set lr {}
     foreach s $ls {