If a float can be casted to a long long without rounding loss, we can use the integer...

[redis.git] / redis.tcl

diff --git a/redis.tcl b/redis.tcl
index 233e2c9fe1d17c5e0d98bbdd75c2f86b47193da2..0f4e401ffc1d5881f99ca77ed0a5abd88d890e90 100644 (file)
--- a/redis.tcl
+++ b/redis.tcl
@@ -25,6 +25,7 @@
 #
 # vwait forever
 
 #
 # vwait forever
 

+package require Tcl 8.5

 package provide redis 0.1
 
 namespace eval redis {}
 package provide redis 0.1
 
 namespace eval redis {}


@@ -39,14 +40,14 @@ array set ::redis::multibulkarg {}
 
 # Flag commands requiring last argument as a bulk write operation
 foreach redis_bulk_cmd {
 
 # Flag commands requiring last argument as a bulk write operation
 foreach redis_bulk_cmd {

-    set setnx rpush lpush lset lrem sadd srem sismember echo getset smove zadd zrem zscore zincrby append zrank zrevrank hget hdel hexists
+    set setnx rpush lpush lset lrem sadd srem sismember echo getset smove zadd zrem zscore zincrby append zrank zrevrank hget hdel hexists setex

 } {
     set ::redis::bulkarg($redis_bulk_cmd) {}
 }
 
 # Flag commands requiring last argument as a bulk write operation
 foreach redis_multibulk_cmd {
 } {
     set ::redis::bulkarg($redis_bulk_cmd) {}
 }
 
 # Flag commands requiring last argument as a bulk write operation
 foreach redis_multibulk_cmd {

-    mset msetnx hset hmset
+    mset msetnx hset hsetnx hmset hmget

 } {
     set ::redis::multibulkarg($redis_multibulk_cmd) {}
 }
 } {
     set ::redis::multibulkarg($redis_multibulk_cmd) {}
 }