gvsafronov/futriix
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Handle keys with hash tag when computing hash slot using tcl cluster client.

Browse Source
This commit is contained in:
WuYunlong 2020-05-11 13:07:05 +08:00
parent bc9efb577b
commit 70c4851f2c
1 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
tests/support/cluster.tcl
View File

@ -286,8 +286,29 @@ proc ::redis_cluster::crc16 {s} {
# Hash a single key returning the slot it belongs to, Implemented hash # Hash a single key returning the slot it belongs to, Implemented hash
# tags as described in the Redis Cluster specification. # tags as described in the Redis Cluster specification.
proc ::redis_cluster::hash {key} { proc ::redis_cluster::hash {key} {
# TODO: Handle hash slots. set keylen [string length $key]
expr {[::redis_cluster::crc16 $key] & 16383} set s {}
set e {}
for {set s 0} {$s < $keylen} {incr s} {
if {[string index $key $s] eq "\{"} break
}
if {[expr {$s == $keylen}]} {
set res [expr {[crc16 $key] & 16383}]
return $res
}
for {set e [expr {$s+1}]} {$e < $keylen} {incr e} {
if {[string index $key $e] == "\}"} break
}
if {$e == $keylen || $e == [expr {$s+1}]} {
set res [expr {[crc16 $key] & 16383}]
return $res
}
set key_sub [string range $key [expr {$s+1}] [expr {$e-1}]]
return [expr {[crc16 $key_sub] & 16383}]
} }
# Return the slot the specified keys hash to. # Return the slot the specified keys hash to.