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":163.1-172.13] *) | |
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_'PQArgBlock = struct | |
7 | open ST_'PQArgBlock | |
8 | type t_f_len = sint | |
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) | |
13 | type t_f_isint = sint | |
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) | |
22 | end | |
23 | end |