Source file `result_desc.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
open Sexplib0.Sexp_conv
include Types

type t =
  { name : string
  ; table : oid option
  ; column : int option
  ; field_type : oid
  ; length : int
  ; modifier : int32
  }
[@@deriving sexp]

let of_row_desc r =
  let open Row_desc in
  { name = r.name
  ; table = (if r.table = 0l then None else Some r.table)
  ; column = (if r.col = 0 then None else Some r.col)
  ; field_type = r.oid
  ; length = r.len
  ; modifier = r.modifier
  }
;;