1 (* This file has been generated automatically
. DO NOT EDIT
! *)
2 (* [from code at
"/usr/include/postgresql/libpq-fe.h":362.1-47] *)
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
"lo_unlink"
9 structure F_lo_unlink
: sig
10 val typ
: ((ST_pg_conn
.tag
, rw
) su_obj ptr
' * uint
-> sint
) fptr T
.typ
12 unit
-> ((ST_pg_conn
.tag
, rw
) su_obj ptr
' * uint
-> sint
) fptr
14 (ST_pg_conn
.tag
, rw
) su_obj ptr
* MLRep
.Unsigned
.word ->
17 (ST_pg_conn
.tag
, rw
) su_obj ptr
' * MLRep
.Unsigned
.word ->
20 val typ
= FPtrRTTI_49
.typ
21 fun fptr () = mk_fptr (FPtrRTTI_49
.mkcall
, h ())
23 = Cvt
.ml_sint (call (fptr (), (Light
.ptr x1
, Cvt
.c_uint x2
)))
24 fun f
' (x1
, x2
) = Cvt
.ml_sint (call (fptr (), (x1
, Cvt
.c_uint x2
)))