1 (* This file has been generated automatically
. DO NOT EDIT
! *)
2 (* [from code at
"/usr/include/postgresql/libpq-fe.h":327.1-330.24] *)
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
"PQprint"
9 structure F_PQprint
: sig
11 ((ST__IO_FILE
.tag
, rw
) su_obj ptr
' *
12 (ST_pg_result
.tag
, ro
) su_obj ptr
' *
13 (ST__PQprintOpt
.tag
, ro
) su_obj ptr
' -> unit
) fptr T
.typ
16 ((ST__IO_FILE
.tag
, rw
) su_obj ptr
' *
17 (ST_pg_result
.tag
, ro
) su_obj ptr
' *
18 (ST__PQprintOpt
.tag
, ro
) su_obj ptr
' -> unit
) fptr
20 (ST__IO_FILE
.tag
, rw
) su_obj ptr
*
21 (ST_pg_result
.tag
, ro
) su_obj ptr
*
22 (ST__PQprintOpt
.tag
, ro
) su_obj ptr
-> unit
24 (ST__IO_FILE
.tag
, rw
) su_obj ptr
' *
25 (ST_pg_result
.tag
, ro
) su_obj ptr
' *
26 (ST__PQprintOpt
.tag
, ro
) su_obj ptr
' -> unit
28 val typ
= FPtrRTTI_32
.typ
29 fun fptr () = mk_fptr (FPtrRTTI_32
.mkcall
, h ())
31 = call (fptr (), (Light
.ptr x1
, Light
.ptr x2
, Light
.ptr x3
))
32 fun f
' (x1
, x2
, x3
) = call (fptr (), (x1
, x2
, x3
))