1 (* This file has been generated automatically
. DO NOT EDIT
! *)
2 (* [from code at
"/usr/include/postgresql/libpq-fe.h":297.1-48] *)
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
"PQresStatus"
9 structure F_PQresStatus
: sig
11 (ET_
'ExecStatusType
.tag enum
-> rw uchar_obj ptr
') fptr T
.typ
13 unit
-> (ET_
'ExecStatusType
.tag enum
-> rw uchar_obj ptr
') fptr
14 val f
: MLRep
.Signed
.int -> rw uchar_obj ptr
15 val f
' : MLRep
.Signed
.int -> rw uchar_obj ptr
'
17 val typ
= FPtrRTTI_36
.typ
18 fun fptr () = mk_fptr (FPtrRTTI_36
.mkcall
, h ())
20 = Heavy
.ptr (T
.pointer T
.uchar
) (call (fptr (), Cvt
.i2c_enum x1
))
21 fun f
' x1
= call (fptr (), Cvt
.i2c_enum x1
)