(* 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 structure S_'PQArgBlock = struct local open Tag in type tag = s t_' t_P t_Q t_A t_r t_g t_B t_l t_o t_c t_k end val size = C_Int.mk_su_size 0wxc : tag C.su C.S.size val typ = C_Int.mk_su_typ size end in structure ST_'PQArgBlock = S_'PQArgBlock end