From: hades <hades>
Date: Fri, 30 Mar 2001 12:48:17 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=0feaa0a97fbc1aad996dc940c34f68e135fd68d0;p=daqdata.git

*** empty log message ***
---

diff --git a/allParam/test/f_lowercase_abs_p.tcl b/allParam/test/f_lowercase_abs_p.tcl
new file mode 100644
index 0000000..19d0002
--- /dev/null
+++ b/allParam/test/f_lowercase_abs_p.tcl
@@ -0,0 +1,6 @@
+set glob(basedir) blob
+
+set file(rname) test0.blob
+set file(aname) /test0.blob
+set file(rnamellarge) test1.blob
+set file(rnameodd) test2.blob
diff --git a/allParam/test/f_lowercase_rel_no_basedir_p.tcl b/allParam/test/f_lowercase_rel_no_basedir_p.tcl
new file mode 100644
index 0000000..738234d
--- /dev/null
+++ b/allParam/test/f_lowercase_rel_no_basedir_p.tcl
@@ -0,0 +1,14 @@
+set file(rname) test0.blob
+set file(aname) /test0.blob
+set file(rnamellarge) test1.blob
+set file(rnameodd) test2.blob
+
+set file(namea0) test1.blob
+set file(namea1) /test0.blob
+set file(namea2) test3.blob
+set file(namea3) /test2.blob
+set file(namea4) test5.blob
+set file(namea5) /test4.blob
+set file(namea6) test7.blob
+set file(namea7) /test6.blob
+set file(namea9) test10.blob
diff --git a/allParam/test/f_lowercase_rel_p.tcl b/allParam/test/f_lowercase_rel_p.tcl
new file mode 100644
index 0000000..19d0002
--- /dev/null
+++ b/allParam/test/f_lowercase_rel_p.tcl
@@ -0,0 +1,6 @@
+set glob(basedir) blob
+
+set file(rname) test0.blob
+set file(aname) /test0.blob
+set file(rnamellarge) test1.blob
+set file(rnameodd) test2.blob
diff --git a/allParam/test/fa_lowercase_no_basedir_p.tcl b/allParam/test/fa_lowercase_no_basedir_p.tcl
new file mode 100644
index 0000000..72c3853
--- /dev/null
+++ b/allParam/test/fa_lowercase_no_basedir_p.tcl
@@ -0,0 +1,63 @@
+set file(rname) test0.blob
+set file(aname) /test0.blob
+set file(rnamellarge) test1.blob
+set file(rnameodd) test2.blob
+
+set file(namea0) test1.blob
+set file(namea1) /test0.blob
+set file(namea2) test3.blob
+set file(namea3) /test2.blob
+set file(namea4) test5.blob
+set file(namea5) /test4.blob
+set file(namea6) test7.blob
+set file(namea7) /test6.blob
+set file(namea9) test10.blob
+
+set tname(twhitespace)	"test1000 whith whitespace"
+set tname(tstring) test1000
+
+set tname(tint) 1000
+
+set tname(tstringa0) test10
+set tname(tstringa1) test00
+set tname(tstringa2) test30
+set tname(tstringa3) test20
+set tname(tstringa4) test50
+set tname(tstringa5) test40
+set tname(tstringa6) test70
+set tname(tstringa7) test60
+set tname(tstringa9) test100
+
+set tname(tinta0) 10
+set tname(tinta1) 00
+set tname(tinta2) 30
+set tname(tinta3) 20
+set tname(tinta4) 50
+set tname(tinta5) 40
+set tname(tinta6) 70
+set tname(tinta7) 60
+set tname(tinta8) 90
+set tname(tinta9) 80
+set tname(tinta10) 110
+set tname(tinta11) 100
+set tname(tinta12) 130
+set tname(tinta13) 120
+set tname(tinta14) 150
+set tname(tinta15) 140
+set tname(tinta16) 170
+set tname(tinta17) 160
+set tname(tinta18) 190
+set tname(tinta19) 180
+set tname(tinta20) 210
+set tname(tinta21) 200
+set tname(tinta22) 230
+set tname(tinta23) 220
+set tname(tinta24) 250
+set tname(tinta25) 240
+set tname(tinta26) 270
+set tname(tinta27) 260
+set tname(tinta28) 290
+set tname(tinta29) 280
+set tname(tinta30) 310
+set tname(tinta31) 300
+
diff --git a/allParam/test/param.tcl b/allParam/test/param.tcl
deleted file mode 100644
index 4dbafa9..0000000
--- a/allParam/test/param.tcl
+++ /dev/null
@@ -1,65 +0,0 @@
-set glob(basedir) blob
-
-set file(rname) test0.blob
-set file(aname) /test0.blob
-set file(rnamellarge) test1.blob
-set file(rnameodd) test2.blob
-
-set file(namea0) test1.blob
-set file(namea1) /test0.blob
-set file(namea2) test3.blob
-set file(namea3) /test2.blob
-set file(namea4) test5.blob
-set file(namea5) /test4.blob
-set file(namea6) test7.blob
-set file(namea7) /test6.blob
-set file(namea9) test10.blob
-
-set tname(twhitespace)	"test100 whith whitespace"
-set tname(tstring) test100
-
-set tname(tint) 100
-
-set tname(tstringa0) test1
-set tname(tstringa1) test0
-set tname(tstringa2) test3
-set tname(tstringa3) test2
-set tname(tstringa4) test5
-set tname(tstringa5) test4
-set tname(tstringa6) test7
-set tname(tstringa7) test6
-set tname(tstringa9) test10
-
-set tname(tinta0) 1
-set tname(tinta1) 0
-set tname(tinta2) 3
-set tname(tinta3) 2
-set tname(tinta4) 5
-set tname(tinta5) 4
-set tname(tinta6) 7
-set tname(tinta7) 6
-set tname(tinta8) 9
-set tname(tinta9) 8
-set tname(tinta10) 11
-set tname(tinta11) 10
-set tname(tinta12) 13
-set tname(tinta13) 12
-set tname(tinta14) 15
-set tname(tinta15) 14
-set tname(tinta16) 17
-set tname(tinta17) 16
-set tname(tinta18) 19
-set tname(tinta19) 18
-set tname(tinta20) 21
-set tname(tinta21) 20
-set tname(tinta22) 23
-set tname(tinta23) 22
-set tname(tinta24) 25
-set tname(tinta25) 24
-set tname(tinta26) 27
-set tname(tinta27) 26
-set tname(tinta28) 29
-set tname(tinta29) 28
-set tname(tinta30) 31
-set tname(tinta31) 30
-
diff --git a/allParam/test/tcl/blob_p.tcl b/allParam/test/tcl/blob_p.tcl
new file mode 100644
index 0000000..19d0002
--- /dev/null
+++ b/allParam/test/tcl/blob_p.tcl
@@ -0,0 +1,6 @@
+set glob(basedir) blob
+
+set file(rname) test0.blob
+set file(aname) /test0.blob
+set file(rnamellarge) test1.blob
+set file(rnameodd) test2.blob
diff --git a/allParam/test/tcl/default_p.tcl b/allParam/test/tcl/default_p.tcl
new file mode 100644
index 0000000..38388cd
--- /dev/null
+++ b/allParam/test/tcl/default_p.tcl
@@ -0,0 +1,3 @@
+set tname(tstring) test100
+
+set tname(tint) 100
diff --git a/allParam/test/tcl/filename_p.tcl b/allParam/test/tcl/filename_p.tcl
new file mode 100644
index 0000000..19d0002
--- /dev/null
+++ b/allParam/test/tcl/filename_p.tcl
@@ -0,0 +1,6 @@
+set glob(basedir) blob
+
+set file(rname) test0.blob
+set file(aname) /test0.blob
+set file(rnamellarge) test1.blob
+set file(rnameodd) test2.blob
diff --git a/allParam/test/tcl/filenamea_p.tcl b/allParam/test/tcl/filenamea_p.tcl
new file mode 100644
index 0000000..66ad6ee
--- /dev/null
+++ b/allParam/test/tcl/filenamea_p.tcl
@@ -0,0 +1,11 @@
+set glob(basedir) blob
+
+set file(namea0) test1.blob
+set file(namea1) /test0.blob
+set file(namea2) test3.blob
+set file(namea3) /test2.blob
+set file(namea4) test5.blob
+set file(namea5) /test4.blob
+set file(namea6) test7.blob
+set file(namea7) /test6.blob
+set file(namea9) test10.blob
diff --git a/allParam/test/i_store.tcl b/allParam/test/tcl/i_store.tcl
similarity index 100%
rename from allParam/test/i_store.tcl
rename to allParam/test/tcl/i_store.tcl
diff --git a/allParam/test/i_store_existing.tcl b/allParam/test/tcl/i_store_existing.tcl
similarity index 100%
rename from allParam/test/i_store_existing.tcl
rename to allParam/test/tcl/i_store_existing.tcl
diff --git a/allParam/test/i_store_multiple.tcl b/allParam/test/tcl/i_store_multiple.tcl
similarity index 100%
rename from allParam/test/i_store_multiple.tcl
rename to allParam/test/tcl/i_store_multiple.tcl
diff --git a/allParam/test/tcl/int_p.tcl b/allParam/test/tcl/int_p.tcl
new file mode 100644
index 0000000..b483602
--- /dev/null
+++ b/allParam/test/tcl/int_p.tcl
@@ -0,0 +1 @@
+set tname(tint) 100
diff --git a/allParam/test/tcl/inta_p.tcl b/allParam/test/tcl/inta_p.tcl
new file mode 100644
index 0000000..2d65a15
--- /dev/null
+++ b/allParam/test/tcl/inta_p.tcl
@@ -0,0 +1,32 @@
+set tname(tinta0) 1
+set tname(tinta1) 0
+set tname(tinta2) 3
+set tname(tinta3) 2
+set tname(tinta4) 5
+set tname(tinta5) 4
+set tname(tinta6) 7
+set tname(tinta7) 6
+set tname(tinta8) 9
+set tname(tinta9) 8
+set tname(tinta10) 11
+set tname(tinta11) 10
+set tname(tinta12) 13
+set tname(tinta13) 12
+set tname(tinta14) 15
+set tname(tinta15) 14
+set tname(tinta16) 17
+set tname(tinta17) 16
+set tname(tinta18) 19
+set tname(tinta19) 18
+set tname(tinta20) 21
+set tname(tinta21) 20
+set tname(tinta22) 23
+set tname(tinta23) 22
+set tname(tinta24) 25
+set tname(tinta25) 24
+set tname(tinta26) 27
+set tname(tinta27) 26
+set tname(tinta28) 29
+set tname(tinta29) 28
+set tname(tinta30) 31
+set tname(tinta31) 30
diff --git a/allParam/test/s_store.tcl b/allParam/test/tcl/s_store.tcl
similarity index 100%
rename from allParam/test/s_store.tcl
rename to allParam/test/tcl/s_store.tcl
diff --git a/allParam/test/s_store_existing.tcl b/allParam/test/tcl/s_store_existing.tcl
similarity index 100%
rename from allParam/test/s_store_existing.tcl
rename to allParam/test/tcl/s_store_existing.tcl
diff --git a/allParam/test/s_store_multiple.tcl b/allParam/test/tcl/s_store_multiple.tcl
similarity index 100%
rename from allParam/test/s_store_multiple.tcl
rename to allParam/test/tcl/s_store_multiple.tcl
diff --git a/allParam/test/s_store_whitespace.tcl b/allParam/test/tcl/s_store_whitespace.tcl
similarity index 100%
rename from allParam/test/s_store_whitespace.tcl
rename to allParam/test/tcl/s_store_whitespace.tcl
diff --git a/allParam/test/tcl/string_p.tcl b/allParam/test/tcl/string_p.tcl
new file mode 100644
index 0000000..dc5756b
--- /dev/null
+++ b/allParam/test/tcl/string_p.tcl
@@ -0,0 +1,2 @@
+set tname(twhitespace)	"test100 whith whitespace"
+set tname(tstring) test100
diff --git a/allParam/test/tcl/stringa_p.tcl b/allParam/test/tcl/stringa_p.tcl
new file mode 100644
index 0000000..51022b8
--- /dev/null
+++ b/allParam/test/tcl/stringa_p.tcl
@@ -0,0 +1,9 @@
+set tname(tstringa0) test1
+set tname(tstringa1) test0
+set tname(tstringa2) test3
+set tname(tstringa3) test2
+set tname(tstringa4) test5
+set tname(tstringa5) test4
+set tname(tstringa6) test7
+set tname(tstringa7) test6
+set tname(tstringa9) test10