/[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.42 by spiralvoice, Sun Sep 18 19:00:51 2005 UTC revision 1.43 by spiralvoice, Sat Nov 12 22:53:51 2005 UTC
# Line 520  let get_file proto s pos = Line 520  let get_file proto s pos =
520      else      else
521        get_list get_uid s pos        get_list get_uid s pos
522    in    in
523      let sub_files, pos =
524        if proto > 35 then
525          get_list (fun s pos ->
526              let name, pos = get_string s pos in
527              let size, pos = get_int64 s pos, pos+8 in
528              (name, size), pos
529          ) s pos
530        else [], pos
531      in
532    
533    (*    (*
534    assert (num = file_info_test.file_num);    assert (num = file_info_test.file_num);
535    assert (net = file_info_test.file_network);    assert (net = file_info_test.file_network);
# Line 564  let get_file proto s pos = Line 574  let get_file proto s pos =
574      file_last_seen = last_seen;      file_last_seen = last_seen;
575      file_priority = priority;      file_priority = priority;
576      file_uids = uids;      file_uids = uids;
577        file_sub_files = sub_files;
578    }, pos    }, pos
579    
580  let get_host_state proto s pos =  let get_host_state proto s pos =

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

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