Removing FFI code that is now auto-generated

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

diff --git a/libpq/FFI/s--PQArgBlock.sml b/libpq/FFI/s--PQArgBlock.sml
deleted file mode 100644 (file)
index b4c7afa..0000000
--- a/libpq/FFI/s--PQArgBlock.sml
+++ /dev/null
@@ -1,23 +0,0 @@
-(* This file has been generated automatically. DO NOT EDIT! *)
-(* [from code at "/usr/include/postgresql/libpq-fe.h":163.1-172.13] *)
-(* [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_'PQArgBlock = struct
-    open ST_'PQArgBlock
-    type t_f_len = sint
-    val typ_f_len = T.sint : t_f_len T.typ
-    fun f_len' (x : (tag, 'c) su_obj')
-        = mk_field' (0, x) : (t_f_len, 'c) obj'
-    fun f_len (x : (tag, 'c) su_obj) = mk_rw_field (typ_f_len, 0, x)
-    type t_f_isint = sint
-    val typ_f_isint = T.sint : t_f_isint T.typ
-    fun f_isint' (x : (tag, 'c) su_obj')
-        = mk_field' (4, x) : (t_f_isint, 'c) obj'
-    fun f_isint (x : (tag, 'c) su_obj) = mk_rw_field (typ_f_isint, 4, x)
-    type t_f_u = UT_'PQArgBlock'0.tag su
-    val typ_f_u = UT_'PQArgBlock'0.typ : t_f_u T.typ
-    fun f_u' (x : (tag, 'c) su_obj') = mk_field' (8, x) : (t_f_u, 'c) obj'
-    fun f_u (x : (tag, 'c) su_obj) = mk_rw_field (typ_f_u, 8, x)
-end
-end