author | Alberto Bertogli
<albertito@gmail.com> 2007-08-28 22:22:19 UTC |
committer | Alberto Bertogli
<albertito@gmail.com> 2007-08-28 22:22:19 UTC |
parent | fd33fd5666d7761a696dd1aa42457ce6e9eec292 |
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)