1 (* This file has been generated automatically
. DO NOT EDIT
! *)
2 (* [from code at
"/usr/include/postgresql/libpq-fe.h":311.1-73] *)
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
"PQgetvalue"
9 structure F_PQgetvalue
: sig
11 ((ST_pg_result
.tag
, ro
) su_obj ptr
' * sint
* sint
->
12 rw uchar_obj ptr
') fptr T
.typ
15 ((ST_pg_result
.tag
, ro
) su_obj ptr
' * sint
* sint
->
16 rw uchar_obj ptr
') fptr
18 (ST_pg_result
.tag
, ro
) su_obj ptr
*
20 MLRep
.Signed
.int -> rw uchar_obj ptr
22 (ST_pg_result
.tag
, ro
) su_obj ptr
' *
24 MLRep
.Signed
.int -> rw uchar_obj ptr
'
26 val typ
= FPtrRTTI_26
.typ
27 fun fptr () = mk_fptr (FPtrRTTI_26
.mkcall
, h ())
32 (fptr (), (Light
.ptr x1
, Cvt
.c_sint x2
, Cvt
.c_sint x3
)))
34 = call (fptr (), (x1
, Cvt
.c_sint x2
, Cvt
.c_sint x3
))