tag:www.local-guru.net,2005:/blog/tag/oscdispachGuruBlog : Articles about oscdispachlocal-guru.net2009-03-07T08:51:00+01:00GuruBlog enginetag:www.local-guru.net,2005:Article/1332009-03-07T08:51:00+01:002009-03-07T08:51:00+01:00Nikolaus Gradwohloscdispatch 0.1<p>I finished the first version of my <a href="http://www.local-guru.net/blog/pages/oscdispatch">OSCDispatch</a> server in erlang.</p>
<p>The program defines a generic server and uses a callback function for the dispaching rules.</p>
<p>the oscdispatch.erl looks like this and uses a parameter in the module definition</p>
<pre><code>-module(oscdispatch, [Dispatch]).
-export([start_server/0]).
-include("server_config.hrl").
start_server() ->
spawn( fun() -> server(?server_port) end ).
server(Port) ->
{ok, Socket} = gen_udp:open( Port, [binary] ),
io:format( "socked opened ~p~n ", [Socket]),
loop(Socket).
loop(Socket) ->
receive
{udp, Socket, Host, Port, Bin} ->
Adr = binary_to_list(util:getadr(Bin)),
io:format( "got: ~p~n", [{Host, Port, Adr}]),
Dispatch:dispatch( Adr, Bin ),
loop(Socket)
end.
</code></pre>