1 (* This file has been generated automatically
. DO NOT EDIT
! *)
2 (* [from code at
"/usr/include/postgresql/libpq-fe.h":287.1-293.13] *)
3 (* [by Matthias Blume
's ml
-nlffigen (version
0.9) for x86
-unix
] *)
4 (* Send comments
and suggestions to blume@research
.bell
-labs
.com
. Thanks
! *)
7 val h
= LibpqH
.libh
"PQfn"
11 ((ST_pg_conn
.tag
, rw
) su_obj ptr
' *
16 (ST_
'PQArgBlock
.tag
, ro
) su_obj ptr
' *
17 sint
-> (ST_pg_result
.tag
, rw
) su_obj ptr
') fptr T
.typ
20 ((ST_pg_conn
.tag
, rw
) su_obj ptr
' *
25 (ST_
'PQArgBlock
.tag
, ro
) su_obj ptr
' *
26 sint
-> (ST_pg_result
.tag
, rw
) su_obj ptr
') fptr
28 (ST_pg_conn
.tag
, rw
) su_obj ptr
' *
33 (ST_
'PQArgBlock
.tag
, ro
) su_obj ptr
' *
34 MLRep
.Signed
.int -> (ST_pg_result
.tag
, rw
) su_obj ptr
'
36 val typ
= FPtrRTTI_18
.typ
37 fun fptr () = mk_fptr (FPtrRTTI_18
.mkcall
, h ())
38 fun f
' (x1
, x2
, x3
, x4
, x5
, x6
, x7
)