libpq/FFI/f-PQsetdbLogin.sml

   1 (* This file has been generated automatically. DO NOT EDIT! *)
   2 (* [from code at "/usr/include/postgresql/libpq-fe.h":188.1-191.40] *)
   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     open C.Dim C_Int
   7     val h = LibpqH.libh "PQsetdbLogin"
   8 in
   9 structure F_PQsetdbLogin : sig
  10     val typ :
  11         (ro uchar_obj ptr' *
  12          ro uchar_obj ptr' *
  13          ro uchar_obj ptr' *
  14          ro uchar_obj ptr' *
  15          ro uchar_obj ptr' *
  16          ro uchar_obj ptr' *
  17          ro uchar_obj ptr' -> (ST_pg_conn.tag, rw) su_obj ptr') fptr T.typ
  18     val fptr :
  19         unit ->
  20             (ro uchar_obj ptr' *
  21              ro uchar_obj ptr' *
  22              ro uchar_obj ptr' *
  23              ro uchar_obj ptr' *
  24              ro uchar_obj ptr' *
  25              ro uchar_obj ptr' *
  26              ro uchar_obj ptr' -> (ST_pg_conn.tag, rw) su_obj ptr') fptr
  27     val f' :
  28         ro uchar_obj ptr' *
  29         ro uchar_obj ptr' *
  30         ro uchar_obj ptr' *
  31         ro uchar_obj ptr' *
  32         ro uchar_obj ptr' *
  33         ro uchar_obj ptr' *
  34         ro uchar_obj ptr' -> (ST_pg_conn.tag, rw) su_obj ptr'
  35 end = struct
  36     val typ = FPtrRTTI_39.typ
  37     fun fptr () = mk_fptr (FPtrRTTI_39.mkcall, h ())
  38     fun f' (x1, x2, x3, x4, x5, x6, x7)
  39         = call (fptr (), (x1, x2, x3, x4, x5, x6, x7))
  40 end
  41 end