(* This file has been generated automatically. DO NOT EDIT! *) (* [from code at "/usr/include/postgresql/libpq-fe.h":304.1-55] *) (* [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 val h = LibpqH.libh "PQftype" in structure F_PQftype : sig val typ : ((ST_pg_result.tag, ro) su_obj ptr' * sint -> uint) fptr T.typ val fptr : unit -> ((ST_pg_result.tag, ro) su_obj ptr' * sint -> uint) fptr val f : (ST_pg_result.tag, ro) su_obj ptr * MLRep.Signed.int -> MLRep.Unsigned.word val f' : (ST_pg_result.tag, ro) su_obj ptr' * MLRep.Signed.int -> MLRep.Unsigned.word end = struct val typ = FPtrRTTI_22.typ fun fptr () = mk_fptr (FPtrRTTI_22.mkcall, h ()) fun f (x1, x2) = Cvt.ml_uint (call (fptr (), (Light.ptr x1, Cvt.c_sint x2))) fun f' (x1, x2) = Cvt.ml_uint (call (fptr (), (x1, Cvt.c_sint x2))) end end