This commit is contained in:
swrup 2025-11-11 02:07:51 +01:00
parent aa2ff7b2f0
commit 2f3113f55d
11742 changed files with 1223940 additions and 0 deletions

View file

@ -0,0 +1,73 @@
(* Copyright (C) 2017--2023 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 LGPL-3.0 Linking 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
* and the LGPL-3.0 Linking Exception along with this library. If not, see
* <http://www.gnu.org/licenses/> and <https://spdx.org>, respectively.
*)
(** PostgreSQL driver for Caqti (bindings).
This driver is implemented in terms of the postgresql OPAM package which
provides bindings for the PostgreSQL C client library.
It handles URIs of the form
{[
postgresql://<user>:<password>@<host>:<port>/<rest>
]}
which are passed verbatim to {!Postgresql.connection}, except as noted
below, and URIs of the form [postgresql://<query>] which are first split
into [<key> = '<value>'] form.
In addition to libpq parameters, the following will be interpreted by Caqti
and stripped of before passing the URI to libpq:
- [notice_processing] can be set to [quite] (the default) to suppress
notices or to [stderr] to let libpq emit notices to standard error.
- [use_single_row_mode] can be set to [true] to enable single row mode for
queries which may return more than one row. The default is [false]
because it is significantly faster. Single row mode is needed if query
results may exceed whan can be stored in memory, but consider batching
the results with [LIMIT] and [OFFSET] instead for better perfomance.
The interface provided by this module {e should normally not be used by
applications}, but provides access to some PostgreSQL specifics in case they
are needed. *)
(** {1 Error Details}
The following gives access to diagnostics collected from the PostgreSQL
connection and result objects. *)
type Caqti_error.msg +=
| Connect_error_msg of {
error: Postgresql.error;
(** The exception raised by postgresql-ocaml. *)
}
(** An exception was raised while attempting to connect to the database. *)
| Connection_error_msg of {
error: Postgresql.error;
(** The exception raised by postgresql-ocaml. *)
connection_status: Postgresql.connection_status;
(** The connection status reported by [PQstatus]. *)
}
(** An exception was raised while operating on the database connection. *)
| Result_error_msg of {
error_message: string;
(** The error message from [PQresultErrorMessage]. *)
sqlstate: string;
(** The SQLSTATE error field. *)
}
(** An error was reported on the result from a database operation. *)

View file

@ -0,0 +1,14 @@
(rule (copy# ../../shared/postgresql_conv.ml postgresql_conv.ml))
(library
(name caqti_driver_postgresql)
(public_name caqti-driver-postgresql)
(flags (:standard -alert -caqti_unstable))
(library_flags (:standard -linkall))
(libraries caqti caqti.platform caqti.platform.unix postgresql))
(plugin
(package caqti-driver-postgresql)
(name caqti-driver-postgresql)
(libraries caqti-driver-postgresql)
(site (caqti plugins)))