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