No comments

diff --git a/src/WOKTclLib/FILES b/src/WOKTclLib/FILES
index 4445563592e725b79e1a733afbe825504ac157c2..cd904c023f30de29ea3b10b9d808b890d0ebe5a5 100755 (executable)
--- 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 912b9df3a919306617a2812d0b591dbf06d688a4..9e20676a74c3aec46434eccf5e3b80513af09bdb 100755 (executable)
--- 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 fbae5abce9f4246c728ec61ccfe12592702cae90..09e45fae61466fb992817561d2ba648ceda11cb5 100755 (executable)
--- 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 {