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