1 (* This file has been generated automatically
. DO NOT EDIT
! *)
2 (* [from code at
"/usr/include/postgresql/libpq-fe.h":120.1-134.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__PQprintOpt
= struct
8 type t_f_header
= uchar
9 val typ_f_header
= T
.uchar
: t_f_header T
.typ
10 fun f_header
' (x
: (tag
, 'c
) su_obj
')
11 = mk_field
' (0, x
) : (t_f_header
, 'c
) obj
'
12 fun f_header (x
: (tag
, 'c
) su_obj
) = mk_rw_field (typ_f_header
, 0, x
)
13 type t_f_align
= uchar
14 val typ_f_align
= T
.uchar
: t_f_align T
.typ
15 fun f_align
' (x
: (tag
, 'c
) su_obj
')
16 = mk_field
' (1, x
) : (t_f_align
, 'c
) obj
'
17 fun f_align (x
: (tag
, 'c
) su_obj
) = mk_rw_field (typ_f_align
, 1, x
)
18 type t_f_standard
= uchar
19 val typ_f_standard
= T
.uchar
: t_f_standard T
.typ
20 fun f_standard
' (x
: (tag
, 'c
) su_obj
')
21 = mk_field
' (2, x
) : (t_f_standard
, 'c
) obj
'
22 fun f_standard (x
: (tag
, 'c
) su_obj
)
23 = mk_rw_field (typ_f_standard
, 2, x
)
24 type t_f_html3
= uchar
25 val typ_f_html3
= T
.uchar
: t_f_html3 T
.typ
26 fun f_html3
' (x
: (tag
, 'c
) su_obj
')
27 = mk_field
' (3, x
) : (t_f_html3
, 'c
) obj
'
28 fun f_html3 (x
: (tag
, 'c
) su_obj
) = mk_rw_field (typ_f_html3
, 3, x
)
29 type t_f_expanded
= uchar
30 val typ_f_expanded
= T
.uchar
: t_f_expanded T
.typ
31 fun f_expanded
' (x
: (tag
, 'c
) su_obj
')
32 = mk_field
' (4, x
) : (t_f_expanded
, 'c
) obj
'
33 fun f_expanded (x
: (tag
, 'c
) su_obj
)
34 = mk_rw_field (typ_f_expanded
, 4, x
)
35 type t_f_pager
= uchar
36 val typ_f_pager
= T
.uchar
: t_f_pager T
.typ
37 fun f_pager
' (x
: (tag
, 'c
) su_obj
')
38 = mk_field
' (5, x
) : (t_f_pager
, 'c
) obj
'
39 fun f_pager (x
: (tag
, 'c
) su_obj
) = mk_rw_field (typ_f_pager
, 5, x
)
40 type t_f_fieldSep
= rw uchar_obj ptr
41 val typ_f_fieldSep
= T
.pointer T
.uchar
: t_f_fieldSep T
.typ
42 fun f_fieldSep
' (x
: (tag
, 'c
) su_obj
')
43 = mk_field
' (8, x
) : (t_f_fieldSep
, 'c
) obj
'
44 fun f_fieldSep (x
: (tag
, 'c
) su_obj
)
45 = mk_rw_field (typ_f_fieldSep
, 8, x
)
46 type t_f_tableOpt
= rw uchar_obj ptr
47 val typ_f_tableOpt
= T
.pointer T
.uchar
: t_f_tableOpt T
.typ
48 fun f_tableOpt
' (x
: (tag
, 'c
) su_obj
')
49 = mk_field
' (12, x
) : (t_f_tableOpt
, 'c
) obj
'
50 fun f_tableOpt (x
: (tag
, 'c
) su_obj
)
51 = mk_rw_field (typ_f_tableOpt
, 12, x
)
52 type t_f_caption
= rw uchar_obj ptr
53 val typ_f_caption
= T
.pointer T
.uchar
: t_f_caption T
.typ
54 fun f_caption
' (x
: (tag
, 'c
) su_obj
')
55 = mk_field
' (16, x
) : (t_f_caption
, 'c
) obj
'
56 fun f_caption (x
: (tag
, 'c
) su_obj
)
57 = mk_rw_field (typ_f_caption
, 16, x
)
58 type t_f_fieldName
= (rw uchar_obj ptr
, rw
) obj ptr
60 T
.pointer (T
.pointer T
.uchar
) : t_f_fieldName T
.typ
61 fun f_fieldName
' (x
: (tag
, 'c
) su_obj
')
62 = mk_field
' (20, x
) : (t_f_fieldName
, 'c
) obj
'
63 fun f_fieldName (x
: (tag
, 'c
) su_obj
)
64 = mk_rw_field (typ_f_fieldName
, 20, x
)