1 (* This file has been generated automatically
. DO NOT EDIT
! *)
2 (* [from code at
"/usr/include/postgresql/libpq-fe.h":253.1-254.23] *)
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
"PQescapeBytea"
9 structure F_PQescapeBytea
: sig
11 (rw uchar_obj ptr
' * uint
* rw uint_obj ptr
' -> rw uchar_obj ptr
') fptr T
.typ
14 (rw uchar_obj ptr
' * uint
* rw uint_obj ptr
' ->
15 rw uchar_obj ptr
') fptr
17 rw uchar_obj ptr
* MLRep
.Unsigned
.word * rw uint_obj ptr
->
20 rw uchar_obj ptr
' * MLRep
.Unsigned
.word * rw uint_obj ptr
' ->
23 val typ
= FPtrRTTI_13
.typ
24 fun fptr () = mk_fptr (FPtrRTTI_13
.mkcall
, h ())
29 (fptr (), (Light
.ptr x1
, Cvt
.c_uint x2
, Light
.ptr x3
)))
30 fun f
' (x1
, x2
, x3
) = call (fptr (), (x1
, Cvt
.c_uint x2
, x3
))