git » nmdb » commit 2b82b5c

Add nmdb_add_sctp_server() to Bigloo bindings.

author Alberto Bertogli
2007-08-28 22:22:19 UTC
committer Alberto Bertogli
2007-08-28 22:22:19 UTC
parent fd33fd5666d7761a696dd1aa42457ce6e9eec292

Add nmdb_add_sctp_server() to Bigloo bindings.

Signed-off-by: Alberto Bertogli <albertito@gmail.com>

bindings/bigloo/nmdb.scm +4 -0

diff --git a/bindings/bigloo/nmdb.scm b/bindings/bigloo/nmdb.scm
index 9989d3f..be8ba5c 100644
--- a/bindings/bigloo/nmdb.scm
+++ b/bindings/bigloo/nmdb.scm
@@ -16,6 +16,8 @@
 		 "nmdb_add_tcp_server")
 	  (macro _nmdb_add_udp_server::int (::_nmdb_t ::string ::int)
 		 "nmdb_add_udp_server")
+	  (macro _nmdb_add_sctp_server::int (::_nmdb_t ::string ::int)
+		 "nmdb_add_sctp_server")
 
 	  (macro _nmdb_set::int
 		 (::_nmdb_t ::string ::uint ::string ::uint)
@@ -60,6 +62,7 @@
 	  (nmdb-add-tipc-server db port)
 	  (nmdb-add-tcp-server db addr port)
 	  (nmdb-add-udp-server db addr port)
+	  (nmdb-add-sctp-server db addr port)
 
 	  (nmdb-get db key)
 	  (nmdb-cache-get db key)
@@ -87,6 +90,7 @@
 (define (nmdb-add-tipc-server db port) (_nmdb_add_tipc_server db port))
 (define (nmdb-add-tcp-server db addr port) (_nmdb_add_tcp_server db addr port))
 (define (nmdb-add-udp-server db addr port) (_nmdb_add_udp_server db addr port))
+(define (nmdb-add-sctp-server db addr port) (_nmdb_add_sctp_server db addr port))
 
 ;; get functions
 (define (nmdb-generic-get func db key)