1 (* This file has been generated automatically
. DO NOT EDIT
! *)
2 (* [from code at
"/usr/include/postgresql/libpq-fe.h":200.1-46] *)
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
"PQconndefaults"
9 structure F_PQconndefaults
: sig
11 (unit
-> (ST__PQconninfoOption
.tag
, rw
) su_obj ptr
') fptr T
.typ
13 unit
-> (unit
-> (ST__PQconninfoOption
.tag
, rw
) su_obj ptr
') fptr
14 val f
: unit
-> (ST__PQconninfoOption
.tag
, rw
) su_obj ptr
15 val f
' : unit
-> (ST__PQconninfoOption
.tag
, rw
) su_obj ptr
'
17 val typ
= FPtrRTTI_5
.typ
18 fun fptr () = mk_fptr (FPtrRTTI_5
.mkcall
, h ())
21 (T
.pointer ST__PQconninfoOption
.typ
) (call (fptr (), ()))
22 fun f
' () = call (fptr (), ())