1 (* This file has been generated automatically
. DO NOT EDIT
! *)
2 (* [from code at
"/usr/include/postgresql/libpq-fe.h":372.1-32] *)
3 (* [by Matthias Blume
's ml
-nlffigen (version
0.9.1) for x86
-unix
] *)
4 (* Send comments
and suggestions to blume@tti
-c
.org
. Thanks
! *)
7 val h
= LibpqH
.libh
"PQenv2encoding"
9 structure F_PQenv2encoding
: sig
10 val typ
: (unit
-> sint
) fptr T
.typ
11 val fptr
: unit
-> (unit
-> sint
) fptr
12 val f
: unit
-> MLRep
.Signed
.int
13 val f
' : unit
-> MLRep
.Signed
.int
15 val typ
= FPtrRTTI_12
.typ
16 fun fptr () = mk_fptr (FPtrRTTI_12
.mkcall
, h ())
17 fun f () = Cvt
.ml_sint (call (fptr (), ()))
18 fun f
' () = Cvt
.ml_sint (call (fptr (), ()))