1 (* This file has been generated automatically
. DO NOT EDIT
! *)
2 (* [from code at
"/usr/include/postgresql/libpq-fe.h":323.1-74] *)
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
"PQmakeEmptyPGresult"
9 structure F_PQmakeEmptyPGresult
: sig
11 ((ST_pg_conn
.tag
, rw
) su_obj ptr
' * ET_
'ExecStatusType
.tag enum
->
12 (ST_pg_result
.tag
, rw
) su_obj ptr
') fptr T
.typ
15 ((ST_pg_conn
.tag
, rw
) su_obj ptr
' *
16 ET_
'ExecStatusType
.tag enum
->
17 (ST_pg_result
.tag
, rw
) su_obj ptr
') fptr
19 (ST_pg_conn
.tag
, rw
) su_obj ptr
' * MLRep
.Signed
.int ->
20 (ST_pg_result
.tag
, rw
) su_obj ptr
'
22 val typ
= FPtrRTTI_27
.typ
23 fun fptr () = mk_fptr (FPtrRTTI_27
.mkcall
, h ())
24 fun f
' (x1
, x2
) = call (fptr (), (x1
, Cvt
.i2c_enum x2
))