type result_packet = | Result_packet_ok of Mp_ok_packet.ok_packet| Result_packet_prepare_ok of Mp_ok_prepare_packet.ok_prepare_packet| Result_packet_result_set of Mp_result_set_packet.result_select| Result_packet_eof of Mp_eof_packet.eof_packet| Result_packet_error of Mp_error_packet.error_packetval result_packet_to_string : result_packet -> stringval result_packet :
Pervasives.in_channel ->
'a ->
((string * int) list -> Mp_data.native_data list -> bool) option ->
((string * int) list -> Mp_data.native_data list -> unit) option ->
bool ->
Mp_com.com_type ->
Mp_field_packet.field_packet list ->
(result_packet * int) list ->
(result_packet * int) list