| author | Alberto Bertogli
<albertito@gmail.com> 2007-09-02 00:06:45 UTC |
| committer | Alberto Bertogli
<albertito@gmail.com> 2007-09-02 00:06:45 UTC |
| parent | 32341dc16d8e8657a7a28efec584e962f7545115 |
| bindings/newlisp/nmdb.lsp | +4 | -0 |
| bindings/newlisp/test.lsp | +1 | -0 |
diff --git a/bindings/newlisp/nmdb.lsp b/bindings/newlisp/nmdb.lsp index 4d9b747..a095f93 100644 --- a/bindings/newlisp/nmdb.lsp +++ b/bindings/newlisp/nmdb.lsp @@ -45,6 +45,7 @@ (import libnmdb "nmdb_add_tipc_server") (import libnmdb "nmdb_add_tcp_server") (import libnmdb "nmdb_add_udp_server") +(import libnmdb "nmdb_add_sctp_server") (import libnmdb "nmdb_free") (import libnmdb "nmdb_set") @@ -78,6 +79,9 @@ (define (add-udp-server addr port) (nmdb_add_udp_server NMDB addr port)) +(define (add-sctp-server addr port) + (nmdb_add_sctp_server NMDB addr port)) + (define (free) (nmdb_free NMDB)) diff --git a/bindings/newlisp/test.lsp b/bindings/newlisp/test.lsp index 6a1c784..1c5e9a9 100644 --- a/bindings/newlisp/test.lsp +++ b/bindings/newlisp/test.lsp @@ -9,6 +9,7 @@ ;(println "add-tipc-server\t" (nmdb:add-tipc-server 12)) ;(println "add-tcp-server\t" (nmdb:add-tcp-server "127.0.0.1" -1)) ;(println "add-udp-server\t" (nmdb:add-udp-server "127.0.0.1" -1)) +;(println "add-sctp-server\t" (nmdb:add-sctp-server "127.0.0.1" -1)) (println) (println "db-set D1 V1\t" (nmdb:db-set "D1" "D1")) (println "sync-set S2 V2\t" (nmdb:sync-set "S2" "V2"))