diff options
author | Thomas White <taw@physics.org> | 2023-04-22 13:56:14 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2023-04-22 16:06:20 +0200 |
commit | 24ddf3f4bd754478a7880586b93dc1342a34001b (patch) | |
tree | 5d034f020219bf79e13d4d0ef4d87e9617a56b81 | |
parent | 09c71fef227fcd1d6a8b4142ceaa0cbe66f1aab7 (diff) |
make-osc-address: Take URL instead of port number
-rw-r--r-- | README.md | 2 | ||||
-rw-r--r-- | guile-osc.c | 7 |
2 files changed, 4 insertions, 5 deletions
@@ -44,7 +44,7 @@ Or, to send messages (with parameters): ``` (use-modules (open-sound-control client)) -(define osc-send-addr (make-osc-address "7771")) +(define osc-send-addr (make-osc-address "osc.udp://localhost:7771")) (osc-send osc-send-addr "/their/osc/method" 1 2 4) (osc-send osc-send-addr "/their/other/method" "string-arg") diff --git a/guile-osc.c b/guile-osc.c index 4174697..75f1a2b 100644 --- a/guile-osc.c +++ b/guile-osc.c @@ -59,12 +59,11 @@ static void finalize_osc_server_thread(SCM obj) } -static SCM make_osc_address(SCM port_obj) +static SCM make_osc_address(SCM url_obj) { lo_address addr; - const char *port = scm_to_utf8_stringn(port_obj, NULL); - addr = lo_address_new(NULL, port); - return scm_make_foreign_object_1(osc_address_type, addr); + const char *url = scm_to_utf8_stringn(url_obj, NULL); + addr = lo_address_new_from_url(url); if ( addr == NULL ) { return SCM_BOOL_F; } else { |