1type pkt = { 2 tid : int; 3 rid : int; 4 ty : Op.operation; 5 len : int; 6 buf : Buffer.t; 7} 8external header_size : unit -> int = "stub_header_size" 9external header_of_string_internal : string -> int * int * int * int 10 = "stub_header_of_string" 11val xenstore_payload_max : int 12val xenstore_rel_path_max : int 13val of_string : string -> pkt 14val append : pkt -> string -> int -> unit 15val to_complete : pkt -> int 16