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 S_
'PQArgBlock
= struct
9 val typ_f_len
= T
.sint
: t_f_len T
.typ
10 fun f_len
' (x
: (tag
, 'c
) su_obj
')
11 = mk_field
' (0, x
) : (t_f_len
, 'c
) obj
'
12 fun f_len (x
: (tag
, 'c
) su_obj
) = mk_rw_field (typ_f_len
, 0, x
)
14 val typ_f_isint
= T
.sint
: t_f_isint T
.typ
15 fun f_isint
' (x
: (tag
, 'c
) su_obj
')
16 = mk_field
' (4, x
) : (t_f_isint
, 'c
) obj
'
17 fun f_isint (x
: (tag
, 'c
) su_obj
) = mk_rw_field (typ_f_isint
, 4, x
)
18 type t_f_u
= UT_
'PQArgBlock
'0.tag su
19 val typ_f_u
= UT_
'PQArgBlock
'0.typ
: t_f_u T
.typ
20 fun f_u
' (x
: (tag
, 'c
) su_obj
') = mk_field
' (8, x
) : (t_f_u
, 'c
) obj
'
21 fun f_u (x
: (tag
, 'c
) su_obj
) = mk_rw_field (typ_f_u
, 8, x
)