// *********************************************************
// -(new)---------------------------------------------------
void *oscmulticast_new(t_symbol *s, int argc, t_atom *argv)
{
t_oscmulticast *x = NULL;
int i, got_port = 0;
char address[64];
#ifdef MAXMSP
if ((x = object_alloc(oscmulticast_class))) {
x->outlet3 = listout((t_object *)x);
x->outlet2 = listout((t_object *)x);
x->outlet1 = listout((t_object *)x);
#else
if (x = (t_oscmulticast *) pd_new(oscmulticast_class)) {
x->outlet1 = outlet_new(&x->ob, gensym("list"));
x->outlet2 = outlet_new(&x->ob, gensym("list"));
x->outlet3 = outlet_new(&x->ob, gensym("list"));
#endif
x->group = NULL;
x->iface = NULL;
if (argc < 4) {
post("oscmulticast: not enough arguments!\n");
return NULL;
}
for (i = 0; i < argc; i++) {
if(strcmp(maxpd_atom_get_string(argv+i), "@group") == 0) {
if ((argv+i+1)->a_type == A_SYM) {
x->group = strdup(maxpd_atom_get_string(argv+i+1));
i++;
}
}
else if (strcmp(maxpd_atom_get_string(argv+i), "@port") == 0) {
if ((argv+i+1)->a_type == A_FLOAT) {
snprintf(x->port, 10, "%i", (int)maxpd_atom_get_float(argv+i+1));
got_port = 1;
i++;
}
#ifdef MAXMSP
else if ((argv+i+1)->a_type == A_LONG) {
snprintf(x->port, 10, "%i", (int)atom_getlong(argv+i+1));
got_port = 1;
i++;
}
#endif
}
else if(strcmp(maxpd_atom_get_string(argv+i), "@interface") == 0) {
if ((argv+i+1)->a_type == A_SYM) {
x->iface = strdup(maxpd_atom_get_string(argv+i+1));
i++;
}
}
}
if (!x->group || !got_port) {
post("oscmulticast: need to specify group and port!");
return NULL;
}
/* Open address */
snprintf(address, 64, "osc.udp://%s:%s", x->group, x->port);
x->address = lo_address_new_from_url(address);
if (!x->address) {
post("oscmulticast: could not create lo_address.");
return NULL;
}
/* Set TTL for packet to 1 -> local subnet */
lo_address_set_ttl(x->address, 1);
/* Specify the interface to use for multicasting */
if (x->iface) {
if (lo_address_set_iface(x->address, x->iface, 0)) {
post("oscmulticast: could not create lo_address.");
return NULL;
}
x->server = lo_server_new_multicast_iface(x->group, x->port, x->iface, 0, 0);
}
else {
x->server = lo_server_new_multicast(x->group, x->port, 0);
}
if (!x->server) {
post("oscmulticast: could not create lo_server");
lo_address_free(x->address);
return NULL;
}
// Disable liblo message queueing
lo_server_enable_queue(x->server, 0, 1);
if (x->iface)
post("oscmulticast: using interface %s", lo_address_get_iface(x->address));
else
post("oscmulticast: using default interface");
lo_server_add_method(x->server, NULL, NULL, oscmulticast_handler, x);
#ifdef MAXMSP
x->clock = clock_new(x, (method)oscmulticast_poll); // Create the timing clock
#else
x->clock = clock_new(x, (t_method)oscmulticast_poll);
#endif
clock_delay(x->clock, INTERVAL); // Set clock to go off after delay
}
return (x);
}
// *********************************************************
// -(free)--------------------------------------------------
void oscmulticast_free(t_oscmulticast *x)
{
if (x->clock) {
clock_unset(x->clock); // Remove clock routine from the scheduler
clock_free(x->clock); // Frees memory used by clock
}
if (x->server) {
lo_server_free(x->server);
}
if (x->address) {
lo_address_free(x->address);
}
if (x->iface) {
free(x->iface);
}
if (x->group) {
free(x->group);
}
}
// *********************************************************
// -(inlet/outlet assist - maxmsp only)---------------------
#ifdef MAXMSP
void oscmulticast_assist(t_oscmulticast *x, void *b, long m, long a, char *s)
{
if (m == ASSIST_INLET) { // inlet
sprintf(s, "OSC to be sent to multicast bus");
}
else { // outlet
sprintf(s, "OSC from multicast bus");
}
}
#endif
// *********************************************************
// -(interface)---------------------------------------------
static void oscmulticast_interface(t_oscmulticast *x, t_symbol *s, int argc, t_atom *argv)
{
const char *iface = 0;
if (argc < 1)
return;
if (argv->a_type != A_SYM)
return;
iface = maxpd_atom_get_string(argv);
if (lo_address_set_iface(x->address, iface, 0)) {
post("oscmulticast: could not create lo_address.");
return;
}
if (x->server)
lo_server_free(x->server);
x->server = lo_server_new_multicast_iface(x->group, x->port, iface, 0, 0);
if (!x->server) {
post("oscmulticast: could not create lo_server");
return;
}
post("oscmulticast: using interface %s", lo_address_get_iface(x->address));
lo_server_add_method(x->server, NULL, NULL, oscmulticast_handler, x);
}
// *********************************************************
// -(anything)----------------------------------------------
void oscmulticast_anything(t_oscmulticast *x, t_symbol *s, int argc, t_atom *argv)
{
lo_message m = lo_message_new();
if (!m) {
post("lo_message_new() error");
return;
}
int i;
for (i=0; i<argc; i++)
{
switch ((argv + i)->a_type)
{
case A_FLOAT:
lo_message_add_float(m, atom_getfloat(argv + i));
break;
#ifdef MAXMSP
case A_LONG:
lo_message_add_int32(m, (int)atom_getlong(argv + i));
break;
#endif
case A_SYM:
lo_message_add_string(m, maxpd_atom_get_string(argv + i));
break;
}
}
//set timetag?
lo_send_message(x->address, s->s_name, m);
lo_message_free(m);
}
int
main (int argc, char **argv)
{
lo_server_thread serv = NULL;
FILE *file = NULL;
int c;
while ( (c = getopt (argc, argv, "i:o:")) != -1)
switch (c)
{
case 'i':
{
int proto = lo_url_get_protocol_id (optarg);
if (proto == -1)
fprintf (stderr, "protocol not supported\n");
char *port = lo_url_get_port (optarg);
serv = lo_server_thread_new_with_proto (port, proto, _error);
free (port);
break;
}
case 'o':
{
if (!strcmp (optarg, "-"))
file = stdout;
else
file = fopen (optarg, "wb");
break;
}
case '?':
if ( (optopt == 'i') || (optopt == 'o') )
fprintf (stderr, "Option `-%c' requires an argument.\n", optopt);
else if (isprint (optopt))
fprintf (stderr, "Unknown option `-%c'.\n", optopt);
else
fprintf (stderr, "Unknown option character `\\x%x'.\n", optopt);
return 1;
default:
return (1);
}
if (!serv || !file)
{
fprintf (stderr, "usage: %s -i PROTOCOL://HOST:PORT -o FILE|-\n\n", argv[0]);
return (1);
}
lo_server *_serv = lo_server_thread_get_server (serv);
lo_server_add_bundle_handlers (_serv, _bundle_start_handler, _bundle_end_handler, file);
lo_server_enable_queue (_serv, 0, 1);
lo_server_thread_add_method (serv, NULL, NULL, _msg_handler, file);
lo_server_thread_start (serv);
signal (SIGHUP, _quit);
signal (SIGQUIT, _quit);
signal (SIGTERM, _quit);
signal (SIGINT, _quit);
while (!done)
nanosleep (&_10mu, NULL);
fprintf (stderr, "cleaning up\n");
lo_server_thread_stop (serv);
lo_server_thread_free (serv);
if (file != stdout)
fclose (file);
return 0;
}
