Lines Matching refs:set

15 set testdir [file dirname $argv0]
17 set testprefix zipfile2
28   set concat [string map {" " "" "\n" ""} $str]
37   set L [list]
38   set start 0
39   while { [set idx [string first $needle $haystack $start]]>=0 } {
41     set start [expr $idx+1]
43   set L
66 set archive {
90 set blob [blob $archive]
101 set L [findall 504B $archive]
102 for {set i 0} {$i < [llength $L]} {incr i} {
103   set idx [lindex $L $i]
104   set a [string replace $archive $idx [expr $idx+3] 0000]
105   set blob [blob $a]
112 set L [findall 5554 $archive]
113 for {set i 0} {$i < [llength $L]} {incr i} {
114   set idx [lindex $L $i]
115   set a [string replace $archive $idx [expr $idx+3] 1234]
116   set blob [blob $a]
125 for {set i 0} {$i < [llength $L]} {incr i} {
126   set idx [lindex $L $i]
127   set a [string replace $archive [expr $idx+8] [expr $idx+9] 00]
128   set blob [blob $a]
137 # set blob [db one {
142 # set blob [string range $blob 2 end]
143 # set blob [string range $blob 0 end-1]
146 #   set blob [string range $blob 64 end]
150 set archive2 {
157 set blob [blob $archive2]
164 set L [findall 17000000 $archive2]
165 set a $archive2
166 foreach i $L { set a [string replace $a $i [expr $i+7] 16000000] }
167 set blob [blob $a]
172 # Check the response to an unknown compression method (set data to NULL).
173 set blob [blob [string map {0800 0900} $archive2]]
185   set blob [blob [string map [list 504B0506 $sub] $archive2]]
197   set blob [db one {
204   set hex [binary encode hex $blob]
205   set hex [string map {6e6f7461646972 6e6f746164692f} $hex] 
206   set blob2 [binary decode hex $hex]
230   UPDATE  temp.zip set name=name||'new' where name='test'; 
232   UPDATE  temp.zip set name=name||'new' where name='test';