/[mldonkey]/mldonkey/src/networks/donkey/donkeyProtoServer.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeyProtoServer.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19 by spiralvoice, Sun Aug 28 12:07:49 2005 UTC revision 1.20 by spiralvoice, Sat Sep 17 17:50:38 2005 UTC
# Line 803  module QueryUsersReply = struct (* reque Line 803  module QueryUsersReply = struct (* reque
803    end    end
804    
805  module QueryLocation  = struct  module QueryLocation  = struct
806      type t = Md4.t      type t = {
807            md4: Md4.t;
808            size: Int64.t;
809        }
810    
811      let parse len s =      let parse len s =
812        get_md4 s 1        let m = get_md4 s 1 in
813          {
814            md4 = m;
815            size = Int64.zero;
816          }
817    
818      let print t =      let print t =
819        lprintf_nl "QUERY LOCATION OF %s" (Md4.to_string t)        lprintf_nl "QUERY LOCATION OF %s [%Ld]" (Md4.to_string t.md4) t.size
820    
821      let bprint oc t =      let bprint oc t =
822        Printf.bprintf oc "QUERY LOCATION OF %s\n" (Md4.to_string t)        Printf.bprintf oc "QUERY LOCATION OF %s [%Ld]\n" (Md4.to_string t.md4) t.size
823    
824      let write buf t =      let write buf t =
825        buf_md4 buf t        buf_md4 buf t.md4; buf_int64_32 buf t.size
826    end    end
827    
828  module QueryLocationReply  = struct  module QueryLocationReply  = struct

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26