libpq/FFI/st--PQArgBlock.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.1) for x86-unix] *)
   4 (* Send comments and suggestions to blume@tti-c.org. Thanks! *)
   5 local
   6     structure S_'PQArgBlock = struct
   7         local
   8             open Tag
   9         in
  10             type tag = s t_' t_P t_Q t_A t_r t_g t_B t_l t_o t_c t_k
  11         end
  12         val size = C_Int.mk_su_size 0wxc : tag C.su C.S.size
  13         val typ = C_Int.mk_su_typ size
  14     end
  15 in
  16     structure ST_'PQArgBlock = S_'PQArgBlock
  17 end