diff options
Diffstat (limited to 'guile-osc.c')
| -rw-r--r-- | guile-osc.c | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/guile-osc.c b/guile-osc.c index 7c09637..50ce99e 100644 --- a/guile-osc.c +++ b/guile-osc.c @@ -146,11 +146,31 @@ static SCM osc_send(SCM addr_obj, SCM path_obj, SCM rest) { lo_address addr; char *path; + int n_args; + lo_message message; + int i; scm_assert_foreign_object_type(osc_address_type, addr_obj); addr = scm_foreign_object_ref(addr_obj, 0); path = scm_to_utf8_stringn(path_obj, NULL); - lo_send(addr, path, ""); + + n_args = scm_to_int(scm_length(rest)); + + message = lo_message_new(); + for ( i=0; i<n_args; i++ ) { + SCM item = scm_list_ref(rest, scm_from_int(i)); + + if ( scm_is_true(scm_real_p(item)) ) { + lo_message_add_double(message, scm_to_double(item)); + } else if ( scm_is_true(scm_integer_p(item)) ) { + lo_message_add_int32(message, scm_to_int(item)); + } else { + fprintf(stderr, "Unrecognised type\n"); + } + } + + lo_send_message(addr, path, message); + lo_message_free(message); return SCM_UNSPECIFIED; } |