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 |