diff options
| author | Joe Zhao <ztuowen@gmail.com> | 2014-05-23 19:06:08 +0800 |
|---|---|---|
| committer | Joe Zhao <ztuowen@gmail.com> | 2014-05-23 19:06:08 +0800 |
| commit | 26f9d9ce2650dd225e011fec49641572f3b85796 (patch) | |
| tree | 3f236e2278b038f95d512d062b4e8328d6cfd448 /portman.erl | |
| parent | 859179718904a1824082fdbbf77192bd1ce762e7 (diff) | |
| download | local-26f9d9ce2650dd225e011fec49641572f3b85796.tar.gz local-26f9d9ce2650dd225e011fec49641572f3b85796.tar.bz2 local-26f9d9ce2650dd225e011fec49641572f3b85796.zip | |
Global emu debugged
Diffstat (limited to 'portman.erl')
| -rw-r--r-- | portman.erl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/portman.erl b/portman.erl index 393a566..3076a39 100644 --- a/portman.erl +++ b/portman.erl @@ -10,11 +10,14 @@ -author("Tuowen"). %% API --export([start/1,serv/1,send/2]). +-export([start/1,serv/1]). oploop(Sock) -> receive {Pid,shutdown} -> ok; + {tcp,Sock,Msg} -> + io:format("~p\n",[Msg]), + oploop(Sock); {Pid,Msg} -> gen_tcp:send(Sock,Msg), oploop(Sock) @@ -27,7 +30,4 @@ serv({Host,Port}) -> ok = gen_tcp:close(Sock). start(Config) -> - spawn(?MODULE,serv,[Config]). - -send(Pid,Msg) -> - Pid ! {self(),Msg}.
\ No newline at end of file + spawn(?MODULE,serv,[Config]).
\ No newline at end of file |