comparison c/plosc.c @ 2:6c1ba6bf9f96

Added osc_split_address/3 to analyse address into host and port.

 static functor_t int_1, float_1, double_1, string_1;
 
 install_t install();
 
 foreign_t mk_address( term_t host, term_t port, term_t addr); 
+foreign_t split_address( term_t addr, term_t host, term_t port); 
 foreign_t is_address( term_t addr); 
 foreign_t send_osc_now( term_t addr, term_t msg, term_t args); 
 foreign_t send_osc_at( term_t addr, term_t msg, term_t args, term_t time); 
 foreign_t send_osc_from_at( term_t serv, term_t addr, term_t msg, term_t args, term_t time); 
 foreign_t send_timestamped( term_t addr, term_t msg, term_t args, term_t sec, term_t frac); 

 	}
 	return TRUE;
 }
 
 install_t install() { 
-	PL_register_foreign("osc_now",        2, (void *)now, 0);
-	PL_register_foreign("time_to_ts",     3, (void *)time_to_ts, 0);
-	PL_register_foreign("time_from_ts",   3, (void *)time_from_ts, 0);
-	PL_register_foreign("osc_mk_address", 3, (void *)mk_address, 0);
-	PL_register_foreign("osc_is_address", 1, (void *)is_address, 0);
-	PL_register_foreign("osc_send_now",   3, (void *)send_osc_now, 0);
-	PL_register_foreign("osc_send_at",    4, (void *)send_osc_at, 0);
+	PL_register_foreign("osc_now",          2, (void *)now, 0);
+	PL_register_foreign("time_to_ts",       3, (void *)time_to_ts, 0);
+	PL_register_foreign("time_from_ts",     3, (void *)time_from_ts, 0);
+	PL_register_foreign("osc_mk_address",   3, (void *)mk_address, 0);
+	PL_register_foreign("osc_split_address",3, (void *)split_address, 0);
+	PL_register_foreign("osc_is_address",   1, (void *)is_address, 0);
+	PL_register_foreign("osc_send_now",     3, (void *)send_osc_now, 0);
+	PL_register_foreign("osc_send_at",      4, (void *)send_osc_at, 0);
 	PL_register_foreign("osc_send_from_at", 5, (void *)send_osc_from_at, 0);
 	PL_register_foreign("osc_mk_server",    2, (void *)mk_server, 0);
 	PL_register_foreign("osc_start_server", 1, (void *)start_server, 0);
 	PL_register_foreign("osc_stop_server",  1, (void *)stop_server, 0);
 	PL_register_foreign("osc_run_server",   1, (void *)run_server, 0);

 			return type_error(port,"integer");
 		}
 	} else {
 		return type_error(host,"atom");
 	}
+}
+
+foreign_t split_address(term_t addr, term_t host, term_t port) { 
+	lo_address 	a;
+	const char *h, *p;
+
+	return get_addr(addr,&a)
+		&& (h=lo_address_get_hostname(a))!=NULL
+		&& (p=lo_address_get_port(a))!=NULL
+		&& PL_unify_atom_chars(host,h)
+		&& PL_unify_integer(port,atoi(p));
 }
 
 foreign_t now(term_t sec, term_t frac) { 
 	lo_timetag ts;
 	int64_t s, f;