/[mldonkey]/mldonkey/src/daemon/common/guiDecoding.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/guiDecoding.ml

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

revision 1.41 by spiralvoice, Sun Aug 21 12:27:18 2005 UTC revision 1.42 by spiralvoice, Sun Sep 18 19:00:51 2005 UTC
# Line 94  let get_array f s pos = Line 94  let get_array f s pos =
94    Array.of_list list, pos    Array.of_list list, pos
95    
96  let get_bool s pos = (get_uint8 s pos) = 1  let get_bool s pos = (get_uint8 s pos) = 1
97    let get_bool_option s pos =
98      let i = get_uint8 s pos in
99      if i = 2 then None else Some (i = 1)
100    
101  let get_float s pos =  let get_float s pos =
102    let s, pos = get_string s pos in    let s, pos = get_string s pos in
# Line 698  let get_client proto s pos = Line 701  let get_client proto s pos =
701        client_downloaded = zero;        client_downloaded = zero;
702        client_uploaded = zero;        client_uploaded = zero;
703        client_upload = None;        client_upload = None;
704          client_sui_verified = None;
705  (*      client_sock_addr = ""; *)  (*      client_sock_addr = ""; *)
706      }, pos+8      }, pos+8
707    else    else
# Line 732  let get_client proto s pos = Line 736  let get_client proto s pos =
736       if proto >= 33 then       if proto >= 33 then
737         get_string s pos         get_string s pos
738         else "", pos         else "", pos
739       in
740       let verified =
741         if proto >= 35 then
742           get_bool_option s pos
743           else None
744     in  {     in  {
745      client_num = num;      client_num = num;
746      client_network = net;      client_network = net;
# Line 750  let get_client proto s pos = Line 759  let get_client proto s pos =
759      client_downloaded = downloaded;      client_downloaded = downloaded;
760      client_uploaded = uploaded;      client_uploaded = uploaded;
761      client_upload = upload;      client_upload = upload;
762        client_sui_verified = verified;
763  (*    client_sock_addr = sock_addr; *)  (*    client_sock_addr = sock_addr; *)
764    }, pos    }, pos
765    

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

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