1type t = { tid : int; rid : int; ty : Op.operation; data : string; } 2exception Error of string 3exception DataError of string 4external string_of_header : int -> int -> int -> int -> string 5 = "stub_string_of_header" 6val create : int -> int -> Op.operation -> string -> t 7val of_partialpkt : Partial.pkt -> t 8val to_string : t -> string 9val unpack : t -> int * int * Op.operation * string 10val get_tid : t -> int 11val get_ty : t -> Op.operation 12val get_data : t -> string 13val get_rid : t -> int 14