Removing FFI code that is now auto-generated

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

diff --git a/libpq/FFI/s-_PQconninfoOption.sml b/libpq/FFI/s-_PQconninfoOption.sml
deleted file mode 100644 (file)
index f71cd4a..0000000
--- a/libpq/FFI/s-_PQconninfoOption.sml
+++ /dev/null
@@ -1,48 +0,0 @@
-(* This file has been generated automatically. DO NOT EDIT! *)
-(* [from code at "/usr/include/postgresql/libpq-fe.h":144.1-157.19] *)
-(* [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 in
-structure S__PQconninfoOption = struct
-    open ST__PQconninfoOption
-    type t_f_keyword = rw uchar_obj ptr
-    val typ_f_keyword = T.pointer T.uchar : t_f_keyword T.typ
-    fun f_keyword' (x : (tag, 'c) su_obj')
-        = mk_field' (0, x) : (t_f_keyword, 'c) obj'
-    fun f_keyword (x : (tag, 'c) su_obj)
-        = mk_rw_field (typ_f_keyword, 0, x)
-    type t_f_envvar = rw uchar_obj ptr
-    val typ_f_envvar = T.pointer T.uchar : t_f_envvar T.typ
-    fun f_envvar' (x : (tag, 'c) su_obj')
-        = mk_field' (4, x) : (t_f_envvar, 'c) obj'
-    fun f_envvar (x : (tag, 'c) su_obj) = mk_rw_field (typ_f_envvar, 4, x)
-    type t_f_compiled = rw uchar_obj ptr
-    val typ_f_compiled = T.pointer T.uchar : t_f_compiled T.typ
-    fun f_compiled' (x : (tag, 'c) su_obj')
-        = mk_field' (8, x) : (t_f_compiled, 'c) obj'
-    fun f_compiled (x : (tag, 'c) su_obj)
-        = mk_rw_field (typ_f_compiled, 8, x)
-    type t_f_val = rw uchar_obj ptr
-    val typ_f_val = T.pointer T.uchar : t_f_val T.typ
-    fun f_val' (x : (tag, 'c) su_obj')
-        = mk_field' (12, x) : (t_f_val, 'c) obj'
-    fun f_val (x : (tag, 'c) su_obj) = mk_rw_field (typ_f_val, 12, x)
-    type t_f_label = rw uchar_obj ptr
-    val typ_f_label = T.pointer T.uchar : t_f_label T.typ
-    fun f_label' (x : (tag, 'c) su_obj')
-        = mk_field' (16, x) : (t_f_label, 'c) obj'
-    fun f_label (x : (tag, 'c) su_obj) = mk_rw_field (typ_f_label, 16, x)
-    type t_f_dispchar = rw uchar_obj ptr
-    val typ_f_dispchar = T.pointer T.uchar : t_f_dispchar T.typ
-    fun f_dispchar' (x : (tag, 'c) su_obj')
-        = mk_field' (20, x) : (t_f_dispchar, 'c) obj'
-    fun f_dispchar (x : (tag, 'c) su_obj)
-        = mk_rw_field (typ_f_dispchar, 20, x)
-    type t_f_dispsize = sint
-    val typ_f_dispsize = T.sint : t_f_dispsize T.typ
-    fun f_dispsize' (x : (tag, 'c) su_obj')
-        = mk_field' (24, x) : (t_f_dispsize, 'c) obj'
-    fun f_dispsize (x : (tag, 'c) su_obj)
-        = mk_rw_field (typ_f_dispsize, 24, x)
-end
-end