libpq/FFI/ut--PQArgBlock-0.sml

   1 (* This file has been generated automatically. DO NOT EDIT! *)
   2 (* [from code at "/usr/include/postgresql/libpq-fe.h":163.1-172.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
   6     structure U_'PQArgBlock'0 = struct
   7         local
   8             open Tag
   9         in
  10             type tag =
  11                 u t_' t_P t_Q t_A t_r t_g t_B t_l t_o t_c t_k t_' t_0
  12         end
  13         val size = C_Int.mk_su_size 0wx4 : tag C.su C.S.size
  14         val typ = C_Int.mk_su_typ size
  15     end
  16 in
  17     structure UT_'PQArgBlock'0 = U_'PQArgBlock'0
  18 end