1 (* This file has been generated automatically
. DO NOT EDIT
! *)
2 (* [from code at
"/usr/include/postgresql/libpq-fe.h":163.1-172.13] *)
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
! *)
5 local open C
.Dim C_Int
in
6 structure U_
'PQArgBlock
'0 = struct
8 type t_f_ptr
= rw sint_obj ptr
9 val typ_f_ptr
= T
.pointer T
.sint
: t_f_ptr T
.typ
10 fun f_ptr
' (x
: (tag
, 'c
) su_obj
')
11 = mk_field
' (0, x
) : (t_f_ptr
, 'c
) obj
'
12 fun f_ptr (x
: (tag
, 'c
) su_obj
) = mk_rw_field (typ_f_ptr
, 0, x
)
13 type t_f_integer
= sint
14 val typ_f_integer
= T
.sint
: t_f_integer T
.typ
15 fun f_integer
' (x
: (tag
, 'c
) su_obj
')
16 = mk_field
' (0, x
) : (t_f_integer
, 'c
) obj
'
17 fun f_integer (x
: (tag
, 'c
) su_obj
)
18 = mk_rw_field (typ_f_integer
, 0, x
)