1 (* This file has been generated automatically
. DO NOT EDIT
! *)
2 (* [from code at
"/usr/include/postgresql/libpq-fe.h":357.1-64] *)
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
"lo_read"
9 structure F_lo_read
: sig
11 ((ST_pg_conn
.tag
, rw
) su_obj ptr
' *
14 uint
-> sint
) fptr T
.typ
17 ((ST_pg_conn
.tag
, rw
) su_obj ptr
' *
22 (ST_pg_conn
.tag
, rw
) su_obj ptr
*
25 MLRep
.Unsigned
.word -> MLRep
.Signed
.int
27 (ST_pg_conn
.tag
, rw
) su_obj ptr
' *
30 MLRep
.Unsigned
.word -> MLRep
.Signed
.int
32 val typ
= FPtrRTTI_48
.typ
33 fun fptr () = mk_fptr (FPtrRTTI_48
.mkcall
, h ())
34 fun f (x1
, x2
, x3
, x4
)
42 fun f
' (x1
, x2
, x3
, x4
)
44 (call (fptr (), (x1
, Cvt
.c_sint x2
, x3
, Cvt
.c_uint x4
)))