1 (* This file has been generated automatically
. DO NOT EDIT
! *)
2 (* [from code at
"/usr/include/postgresql/libpq-fe.h":144.1-157.19] *)
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__PQconninfoOption
= struct
7 open ST__PQconninfoOption
8 type t_f_keyword
= rw uchar_obj ptr
9 val typ_f_keyword
= T
.pointer T
.uchar
: t_f_keyword T
.typ
10 fun f_keyword
' (x
: (tag
, 'c
) su_obj
')
11 = mk_field
' (0, x
) : (t_f_keyword
, 'c
) obj
'
12 fun f_keyword (x
: (tag
, 'c
) su_obj
)
13 = mk_rw_field (typ_f_keyword
, 0, x
)
14 type t_f_envvar
= rw uchar_obj ptr
15 val typ_f_envvar
= T
.pointer T
.uchar
: t_f_envvar T
.typ
16 fun f_envvar
' (x
: (tag
, 'c
) su_obj
')
17 = mk_field
' (4, x
) : (t_f_envvar
, 'c
) obj
'
18 fun f_envvar (x
: (tag
, 'c
) su_obj
) = mk_rw_field (typ_f_envvar
, 4, x
)
19 type t_f_compiled
= rw uchar_obj ptr
20 val typ_f_compiled
= T
.pointer T
.uchar
: t_f_compiled T
.typ
21 fun f_compiled
' (x
: (tag
, 'c
) su_obj
')
22 = mk_field
' (8, x
) : (t_f_compiled
, 'c
) obj
'
23 fun f_compiled (x
: (tag
, 'c
) su_obj
)
24 = mk_rw_field (typ_f_compiled
, 8, x
)
25 type t_f_val
= rw uchar_obj ptr
26 val typ_f_val
= T
.pointer T
.uchar
: t_f_val T
.typ
27 fun f_val
' (x
: (tag
, 'c
) su_obj
')
28 = mk_field
' (12, x
) : (t_f_val
, 'c
) obj
'
29 fun f_val (x
: (tag
, 'c
) su_obj
) = mk_rw_field (typ_f_val
, 12, x
)
30 type t_f_label
= rw uchar_obj ptr
31 val typ_f_label
= T
.pointer T
.uchar
: t_f_label T
.typ
32 fun f_label
' (x
: (tag
, 'c
) su_obj
')
33 = mk_field
' (16, x
) : (t_f_label
, 'c
) obj
'
34 fun f_label (x
: (tag
, 'c
) su_obj
) = mk_rw_field (typ_f_label
, 16, x
)
35 type t_f_dispchar
= rw uchar_obj ptr
36 val typ_f_dispchar
= T
.pointer T
.uchar
: t_f_dispchar T
.typ
37 fun f_dispchar
' (x
: (tag
, 'c
) su_obj
')
38 = mk_field
' (20, x
) : (t_f_dispchar
, 'c
) obj
'
39 fun f_dispchar (x
: (tag
, 'c
) su_obj
)
40 = mk_rw_field (typ_f_dispchar
, 20, x
)
41 type t_f_dispsize
= sint
42 val typ_f_dispsize
= T
.sint
: t_f_dispsize T
.typ
43 fun f_dispsize
' (x
: (tag
, 'c
) su_obj
')
44 = mk_field
' (24, x
) : (t_f_dispsize
, 'c
) obj
'
45 fun f_dispsize (x
: (tag
, 'c
) su_obj
)
46 = mk_rw_field (typ_f_dispsize
, 24, x
)
HCoop / hcoop / smlsql.git / blob