Commits

Alexey Kishkin committed ac170b4

debug

Comments (0)

Files changed (2)

-(***********************************************************************)
-(*                                                                     *)
-(* Memcached Client library module (binary protocol)                   *)
-(*                                                           *)
-(* @author Alexey Kishkin odobenus-rosmarus@ya.ru           *)
-(***********************************************************************)
+(***********************************************************************
+                                                                     
+ Memcached Client library module (binary protocol)                   
+                                                                     
+ @author Alexey Kishkin odobenus-rosmarus@ya.ru                      
+
+**********************************************************************)
 
 (* Low level operations *)
 type operation =
          if keylen > 0 then (Buffer.add_string buffer key);
          if vllen > 0 then (Buffer.add_string buffer vl);
          Buffer.contents buffer
-   method printhex pct =
-      for i = 0 to (String.length pct) - 1 do
-         Printf.printf " 0x%2x " (Char.code (pct.[i]));
-         if ((i + 1) mod 4) == 0 then print_string "\n"
-      done;
-      print_string "\n"
    
+  
    method decode_header pct =
       try
          let magic = self#magic_code_decode (get_i8 pct 0) in        (* 0 *)
 c#set "walrus" "1963" 0 0;;
 c#set "wax" "1969" 0 0;;
 c#set "mumka" "1959" 0 0;;
+c#add "odobenus rosmarus" "rosmarus" 0 0;;
+
 c#append "walrus" " year";;
-List.iter (fun x -> presult x) (c#multiget ["wax";"walrus"]);;
+List.iter (fun x -> presult x) (c#multiget ["mumka";"odobenus rosmarus";"abirvalg";"walrus"]);;
 List.iter (fun x -> presult x) (c#stat_all);;
     method operation_encode : operation -> int
     method prepend : string -> string -> response_status * string * string
     method prependq : string -> string -> unit
-    method printhex : string -> unit
     method quit : response_status * string * string
     method quitq : unit
     method read_answer :