| author | Alberto Bertogli
<albertito@gmail.com> 2007-06-07 05:23:27 UTC |
| committer | Alberto Bertogli
<albertito@gmail.com> 2007-06-07 05:23:27 UTC |
| parent | fc56bd3f2d1372879259db664cd8b9a392bcc77e |
| bindings/newlisp/nmdb.lsp | +5 | -0 |
| bindings/newlisp/test.lsp | +1 | -0 |
diff --git a/bindings/newlisp/nmdb.lsp b/bindings/newlisp/nmdb.lsp index a139780..187e1dc 100644 --- a/bindings/newlisp/nmdb.lsp +++ b/bindings/newlisp/nmdb.lsp @@ -8,6 +8,7 @@ ; (nmdb:init) -> Creates a new database object. ; (nmdb:add-tipc-server port) -> Adds a new TIPC server to the database. ; (nmdb:add-tcp-server addr port) -> Adds a new TCP server to the database. +; (nmdb:add-udp-server addr port) -> Adds a new UDP server to the database. ; (nmdb:free) -> Closes the database. ; ; (nmdb:db-get key) -> Gets the value associated to the given key, or -1. @@ -43,6 +44,7 @@ (import libnmdb "nmdb_init") (import libnmdb "nmdb_add_tipc_server") (import libnmdb "nmdb_add_tcp_server") +(import libnmdb "nmdb_add_udp_server") (import libnmdb "nmdb_free") (import libnmdb "nmdb_set") @@ -73,6 +75,9 @@ (define (add-tcp-server addr port) (nmdb_add_tcp_server NMDB addr port)) +(define (add-udp-server addr port) + (nmdb_add_udp_server NMDB addr port)) + (define (free) (nmdb_free NMDB)) diff --git a/bindings/newlisp/test.lsp b/bindings/newlisp/test.lsp index 2139674..6a1c784 100644 --- a/bindings/newlisp/test.lsp +++ b/bindings/newlisp/test.lsp @@ -8,6 +8,7 @@ ;(println "add-tipc-server\t" (nmdb:add-tipc-server 11)) ;(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) (println "db-set D1 V1\t" (nmdb:db-set "D1" "D1")) (println "sync-set S2 V2\t" (nmdb:sync-set "S2" "V2"))