static
int lo_send_from_varargs_internal(lo_address to, lo_server from,
const char *file,
const int line, lo_timetag ts,
const char *path, const char *types,
va_list ap)
{
lo_bundle b = NULL;
int ret;
lo_message msg = lo_message_new();
if (ts.sec != LO_TT_IMMEDIATE.sec || ts.frac != LO_TT_IMMEDIATE.frac)
b = lo_bundle_new(ts);
// Clear any previous errors
to->errnum = 0;
to->errstr = NULL;
ret = lo_message_add_varargs_internal(msg, types, ap, file, line);
if (ret == 0) {
if (b) {
lo_bundle_add_message(b, path, msg);
ret = lo_send_bundle_from(to, from, b);
} else {
ret = lo_send_message_from(to, from, path, msg);
}
}
// Free-up memory
lo_message_free(msg);
if (b)
lo_bundle_free(b);
return ret;
}
static
int lo_send_varargs_internal(lo_address t, const char *file,
const int line, const char *path,
const char *types, va_list ap)
{
int ret;
lo_message msg = lo_message_new();
t->errnum = 0;
t->errstr = NULL;
ret = lo_message_add_varargs_internal(msg, types, ap, file, line);
if (ret) {
lo_message_free(msg);
t->errnum = ret;
if (ret == -1)
t->errstr = "unknown type";
else
t->errstr = "bad format/args";
return ret;
}
ret = lo_send_message(t, path, msg);
lo_message_free(msg);
return ret;
}
static
int lo_send_timestamped_varargs_internal(lo_address t, const char *file,
const int line, lo_timetag ts,
const char *path, const char *types,
va_list ap)
{
int ret;
lo_message msg = lo_message_new();
lo_bundle b = lo_bundle_new(ts);
t->errnum = 0;
t->errstr = NULL;
ret = lo_message_add_varargs_internal(msg, types, ap, file, line);
if (ret == 0) {
lo_bundle_add_message(b, path, msg);
ret = lo_send_bundle(t, b);
}
lo_message_free(msg);
lo_bundle_free(b);
return ret;
}
int lo_send(lo_address t, const char *path, const char *types, ...)
#endif
{
va_list ap;
int ret;
#ifndef __GNUC__
const char *file = "";
int line = 0;
#endif
lo_message msg = lo_message_new();
t->errnum = 0;
t->errstr = NULL;
va_start(ap, types);
ret = lo_message_add_varargs_internal(msg, types, ap, file, line);
if (ret) {
lo_message_free(msg);
t->errnum = ret;
if (ret == -1) t->errstr = "unknown type";
else t->errstr = "bad format/args";
return ret;
}
ret = lo_send_message(t, path, msg);
lo_message_free(msg);
return ret;
}
int lo_send_timestamped(lo_address t, lo_timetag ts,
const char *path, const char *types, ...)
#endif
{
va_list ap;
int ret;
lo_message msg = lo_message_new();
lo_bundle b = lo_bundle_new(ts);
#ifndef __GNUC__
const char *file = "";
int line = 0;
#endif
t->errnum = 0;
t->errstr = NULL;
va_start(ap, types);
ret = lo_message_add_varargs_internal(msg, types, ap, file, line);
if (t->errnum) {
lo_message_free(msg);
return t->errnum;
}
lo_bundle_add_message(b, path, msg);
ret = lo_send_bundle(t, b);
lo_message_free(msg);
lo_bundle_free(b);
return ret;
}
int lo_message_add_internal(lo_message msg, const char *file,
const int line, const char *types, ...)
{
va_list ap;
va_start(ap, types);
return lo_message_add_varargs_internal(msg, types, ap, file, line);
}
int lo_send_from(lo_address to, lo_server from, lo_timetag ts,
const char *path, const char *types, ...)
#endif
{
lo_bundle b = NULL;
va_list ap;
int ret;
#ifndef __GNUC__
const char *file = "";
int line = 0;
#endif
lo_message msg = lo_message_new();
if (ts.sec!=LO_TT_IMMEDIATE.sec || ts.frac!=LO_TT_IMMEDIATE.frac)
b = lo_bundle_new(ts);
// Clear any previous errors
to->errnum = 0;
to->errstr = NULL;
va_start(ap, types);
ret = lo_message_add_varargs_internal(msg, types, ap, file, line);
if (to->errnum) {
if (b) lo_bundle_free(b);
lo_message_free(msg);
return to->errnum;
}
if (b) {
lo_bundle_add_message(b, path, msg);
ret = lo_send_bundle_from(to, from, b);
} else {
ret = lo_send_message_from(to, from, path, msg);
}
// Free-up memory
lo_message_free(msg);
if (b) lo_bundle_free(b);
return ret;
}