1 (* This file has been generated automatically
. DO NOT EDIT
! *)
2 (* [from code at
"/usr/include/postgresql/libpq-fe.h":106.1-111.11] *)
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
! *)
5 local open C
.Dim C_Int
in
6 structure S_pgNotify
= struct
8 type t_f_relname
= (uchar
, dec dg3 dg2
) arr
10 T
.arr (T
.uchar
, dec dg3 dg2 dim
) : t_f_relname T
.typ
11 fun f_relname
' (x
: (tag
, 'c
) su_obj
')
12 = mk_field
' (0, x
) : (t_f_relname
, 'c
) obj
'
13 fun f_relname (x
: (tag
, 'c
) su_obj
)
14 = mk_rw_field (typ_f_relname
, 0, x
)
15 type t_f_be_pid
= sint
16 val typ_f_be_pid
= T
.sint
: t_f_be_pid T
.typ
17 fun f_be_pid
' (x
: (tag
, 'c
) su_obj
')
18 = mk_field
' (32, x
) : (t_f_be_pid
, 'c
) obj
'
19 fun f_be_pid (x
: (tag
, 'c
) su_obj
)
20 = mk_rw_field (typ_f_be_pid
, 32, x
)