package mysql_protocol

  1. Overview
  2. Docs
package mysql_protocol
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file mp_com.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72

type com_type = 
    Authentication (* see Mp_authentication *)
  | Init_db
  | Change_user
  | Reset_connection
  | Query
  | Prepare
  | Execute
  | Fetch
  | Close_statement
  | Ping
  | Quit
  | Client_response_auth_switch_request_plugin_mysql_native_password

let com_string statement code =
  let length = String.length statement in
  let%bitstring bits = {|
      code : 1*8 : int, unsigned;
      statement : length*8 : string
    |}
  in
  let bits = Mp_packet.make_packet (-1) bits in
  bits

let com_bitstring bits code =
  let length_bits = Bitstring.bitstring_length bits in
  let%bitstring bits = {|
      code : 1*8 : int, unsigned;
      bits : length_bits : bitstring
    |} 
  in
  let bits = Mp_packet.make_packet (-1) bits in
  bits

let com_code code =
  let%bitstring bits = {|
      code : 1*8 : int, unsigned
    |}
  in
  let bits = Mp_packet.make_packet (-1) bits in
  bits

let com_init_db database =
  com_string database 0x02

let com_change_user bits =
  com_bitstring bits 0x11

let com_reset_connection =
  com_code 0x1f

let com_query query =
  com_string query 0x03

let com_prepare statement =
  com_string statement 0x16

let com_execute bits =
  com_bitstring bits 0x17

let com_fetch bits =
  com_bitstring bits 0x1c

let com_close_statement bits =
  com_bitstring bits 0x19

let com_quit =
  com_code 0x01

let com_ping =
  com_code 0x0e