From 26f9d9ce2650dd225e011fec49641572f3b85796 Mon Sep 17 00:00:00 2001 From: Joe Zhao Date: Fri, 23 May 2014 19:06:08 +0800 Subject: Global emu debugged --- portman.erl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'portman.erl') 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 -- cgit v1.2.3-70-g09d2