type field_packet_field_type =
  1. | Field_type_decimal
  2. | Field_type_tiny
  3. | Field_type_short
  4. | Field_type_long
  5. | Field_type_float
  6. | Field_type_double
  7. | Field_type_null
  8. | Field_type_timestamp
  9. | Field_type_longlong
  10. | Field_type_int24
  11. | Field_type_date
  12. | Field_type_time
  13. | Field_type_datetime
  14. | Field_type_year
  15. | Field_type_newdate
  16. | Field_type_varchar
  17. | Field_type_bit
  18. | Field_type_newdecimal
  19. | Field_type_enum
  20. | Field_type_set
  21. | Field_type_tiny_blob
  22. | Field_type_medium_blob
  23. | Field_type_long_blob
  24. | Field_type_blob
  25. | Field_type_var_string
  26. | Field_type_string
  27. | Field_type_geometry
val field_packet_field_type_to_string : field_packet_field_type -> string
type field_packet_field_flag =
  1. | Field_flag_not_null
  2. | Field_flag_pri_key
  3. | Field_flag_unique_key
  4. | Field_flag_multiple_key
  5. | Field_flag_blob
  6. | Field_flag_unsigned
  7. | Field_flag_zerofill
  8. | Field_flag_binary
  9. | Field_flag_enum
  10. | Field_flag_auto_increment
  11. | Field_flag_timestamp
  12. | Field_flag_set
val field_packet_field_flag_to_string : field_packet_field_flag -> string
type field_packet = {
  1. field_catalog : string;
  2. field_db : string;
  3. field_table : string;
  4. field_org_table : string;
  5. field_name : string;
  6. field_org_name : string;
  7. field_charset_number : int;
  8. field_length : Int64.t;
  9. field_type : field_packet_field_type;
  10. field_flags : field_packet_field_flag list;
  11. field_decimals : int;
  12. field_default : Int64.t;
  13. version : Mp_protocol.protocol_version;
}
val field_packet_to_string : field_packet -> string
val decode_field_packet_field_type : int -> field_packet_field_type
val decode_field_packet_field_flag : Bitstring.bitstring -> field_packet_field_flag list
val field_packet : field_packet list ref -> in_channel -> 'a -> unit