1 (* This file has been generated automatically
. DO NOT EDIT
! *)
2 (* [from code at
"/usr/include/postgresql/libpq-fe.h":211.1-59] *)
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
"PQresetPoll"
9 structure F_PQresetPoll
: sig
11 ((ST_pg_conn
.tag
, rw
) su_obj ptr
' ->
12 ET_
'PostgresPollingStatusType
.tag enum
) fptr T
.typ
15 ((ST_pg_conn
.tag
, rw
) su_obj ptr
' ->
16 ET_
'PostgresPollingStatusType
.tag enum
) fptr
17 val f
: (ST_pg_conn
.tag
, rw
) su_obj ptr
-> MLRep
.Signed
.int
18 val f
' : (ST_pg_conn
.tag
, rw
) su_obj ptr
' -> MLRep
.Signed
.int
20 val typ
= FPtrRTTI_6
.typ
21 fun fptr () = mk_fptr (FPtrRTTI_6
.mkcall
, h ())
22 fun f x1
= Cvt
.c2i_enum (call (fptr (), Light
.ptr x1
))
23 fun f
' x1
= Cvt
.c2i_enum (call (fptr (), x1
))