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); |
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 = |