97 proc srv {args} {  argument
99     if {[string is integer [lindex $args 0]]} {
100         set level [lindex $args 0]
101         set property [lindex $args 1]
103         set property [lindex $args 0]
112 proc r {args} {  argument
114     if {[string is integer [lindex $args 0]]} {
115         set level [lindex $args 0]
116         set args [lrange $args 1 end]
118     [srv $level "client"] {*}$args
121 proc reconnect {args} {  argument
122     set level [lindex $args 0]
143 proc redis_deferring_client {args} {  argument
145     if {[llength $args] > 0 && [string is integer [lindex $args 0]]} {
146         set level [lindex $args 0]
147         set args [lrange $args 1 end]
160 proc s {args} {  argument
162     if {[string is integer [lindex $args 0]]} {
163         set level [lindex $args 0]
164         set args [lrange $args 1 end]
166     status [srv $level "client"] [lindex $args 0]