+++ /dev/null
-(* This file has been generated automatically. DO NOT EDIT! *)
-(* [from code at "/usr/include/postgresql/libpq-fe.h":163.1-172.13] *)
-(* [by Matthias Blume's ml-nlffigen (version 0.9.1) for x86-unix] *)
-(* Send comments and suggestions to blume@tti-c.org. Thanks! *)
-local open C.Dim C_Int in
-structure U_'PQArgBlock'0 = struct
- open UT_'PQArgBlock'0
- type t_f_ptr = rw sint_obj ptr
- val typ_f_ptr = T.pointer T.sint : t_f_ptr T.typ
- fun f_ptr' (x : (tag, 'c) su_obj')
- = mk_field' (0, x) : (t_f_ptr, 'c) obj'
- fun f_ptr (x : (tag, 'c) su_obj) = mk_rw_field (typ_f_ptr, 0, x)
- type t_f_integer = sint
- val typ_f_integer = T.sint : t_f_integer T.typ
- fun f_integer' (x : (tag, 'c) su_obj')
- = mk_field' (0, x) : (t_f_integer, 'c) obj'
- fun f_integer (x : (tag, 'c) su_obj)
- = mk_rw_field (typ_f_integer, 0, x)
-end
-end