Source file caqti_driver_info.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
(* Copyright (C) 2017  Petter A. Urkedal <paurkedal@gmail.com>
 *
 * This library is free software; you can redistribute it and/or modify it
 * under the terms of the GNU Lesser General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or (at your
 * option) any later version, with the OCaml static compilation exception.
 *
 * This library is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
 * License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public License
 * along with this library.  If not, see <http://www.gnu.org/licenses/>.
 *)

type dialect_tag = [`Mysql | `Pgsql | `Sqlite | `Other]
type sql_dialect_tag = [`Mysql | `Pgsql | `Sqlite]
type parameter_style =
  [ `None
  | `Linear of string
  | `Indexed of (int -> string) ]

type t = {
  index: int;
  uri_scheme: string;
  dialect_tag: dialect_tag;
  parameter_style: parameter_style;
  describe_has_typed_params: bool;
  describe_has_typed_fields: bool;
  can_transact: bool;
  can_pool: bool;
  can_concur: bool;
}

let next_backend_index = ref 0

let create
    ~uri_scheme
    ?(dialect_tag = `Other)
    ?(parameter_style = `None)
    ~can_pool
    ~can_concur
    ~can_transact
    ~describe_has_typed_params
    ~describe_has_typed_fields
    () =
  {
    index = (let i = !next_backend_index in incr next_backend_index; i);
    uri_scheme;
    dialect_tag;
    parameter_style;
    describe_has_typed_params;
    describe_has_typed_fields;
    can_transact;
    can_pool;
    can_concur;
  }

let uri_scheme di = di.uri_scheme
let dialect_tag di = di.dialect_tag
let parameter_style di = di.parameter_style
let can_pool di = di.can_pool
let can_concur di = di.can_concur
let can_transact di = di.can_transact
let describe_has_typed_params di = di.describe_has_typed_params
let describe_has_typed_fields di = di.describe_has_typed_fields