1 (* This file has been generated automatically
. DO NOT EDIT
! *)
2 (* [from code at
"/usr/include/postgresql/libpq-fe.h":343.1-348.16] *)
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
"PQprintTuples"
9 structure F_PQprintTuples
: sig
11 ((ST_pg_result
.tag
, ro
) su_obj ptr
' *
12 (ST__IO_FILE
.tag
, rw
) su_obj ptr
' *
15 sint
-> unit
) fptr T
.typ
18 ((ST_pg_result
.tag
, ro
) su_obj ptr
' *
19 (ST__IO_FILE
.tag
, rw
) su_obj ptr
' *
24 (ST_pg_result
.tag
, ro
) su_obj ptr
*
25 (ST__IO_FILE
.tag
, rw
) su_obj ptr
*
28 MLRep
.Signed
.int -> unit
30 (ST_pg_result
.tag
, ro
) su_obj ptr
' *
31 (ST__IO_FILE
.tag
, rw
) su_obj ptr
' *
34 MLRep
.Signed
.int -> unit
36 val typ
= FPtrRTTI_33
.typ
37 fun fptr () = mk_fptr (FPtrRTTI_33
.mkcall
, h ())
38 fun f (x1
, x2
, x3
, x4
, x5
)
46 fun f
' (x1
, x2
, x3
, x4
, x5
)
49 (x1
, x2
, Cvt
.c_sint x3
, Cvt
.c_sint x4
, Cvt
.c_sint x5
))