Commit | Line | Data |
---|---|---|
f147efc8 AC |
1 | (* This file has been generated automatically. DO NOT EDIT! *) |
2 | (* [from code at "/usr/include/postgresql/libpq-fe.h":144.1-157.19] *) | |
790a48a1 AC |
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! *) | |
f147efc8 AC |
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) | |
47 | end | |
48 | end |