Initial revision

[hcoop/smlsql.git] / libpq / FFI / s-pgNotify.sml

(* This file has been generated automatically. DO NOT EDIT! *)
(* [from code at "/usr/include/postgresql/libpq-fe.h":106.1-111.11] *)
(* [by Matthias Blume's ml-nlffigen (version 0.9) for x86-unix] *)
(* Send comments and suggestions to blume@research.bell-labs.com. Thanks! *)
local open C.Dim C_Int in
structure S_pgNotify = struct
    open ST_pgNotify
    type t_f_relname = (uchar, dec dg3 dg2) arr
    val typ_f_relname =
        T.arr (T.uchar, dec dg3 dg2 dim) : t_f_relname T.typ
    fun f_relname' (x : (tag, 'c) su_obj')
        = mk_field' (0, x) : (t_f_relname, 'c) obj'
    fun f_relname (x : (tag, 'c) su_obj)
        = mk_rw_field (typ_f_relname, 0, x)
    type t_f_be_pid = sint
    val typ_f_be_pid = T.sint : t_f_be_pid T.typ
    fun f_be_pid' (x : (tag, 'c) su_obj')
        = mk_field' (32, x) : (t_f_be_pid, 'c) obj'
    fun f_be_pid (x : (tag, 'c) su_obj)
        = mk_rw_field (typ_f_be_pid, 32, x)
end
end