diff --git a/src/ePortMsg.erl b/src/ePortMsg.erl index 8926d8b..e5e8a97 100644 --- a/src/ePortMsg.erl +++ b/src/ePortMsg.erl @@ -9,6 +9,7 @@ port_call(Port, Msg) -> Port ! {self(), {command, term_to_binary(Msg)}}, receive {Port, {data, DataBin}} -> + io:format("~p~n", [DataBin]), {ok, binary_to_term(DataBin)}; {Port, closed} -> {error, closed}; diff --git a/src/ePortSrv.erl b/src/ePortSrv.erl index 6b0161a..82b57b3 100644 --- a/src/ePortSrv.erl +++ b/src/ePortSrv.erl @@ -45,7 +45,7 @@ tt() -> ignore end, - ePortMsg:port_call(get(ppp), term_to_binary({$g, 12432, 4324})). + ePortMsg:port_call(get(ppp), {$g, 12432, 4324}). tt(CmdId) -> case get(ppp) of @@ -57,13 +57,13 @@ tt(CmdId) -> end, case CmdId of $g -> - ePortMsg:port_call(get(ppp), term_to_binary({CmdId, 12432, 4324})); + ePortMsg:port_call(get(ppp), {CmdId, 12432, 4324}); $u -> - ePortMsg:port_call(get(ppp), term_to_binary({CmdId, 12432, 4324})); + ePortMsg:port_call(get(ppp), {CmdId, 12432, 4324}); $t -> ignore; _ -> - ePortMsg:port_call(get(ppp), term_to_binary({CmdId, 12432, 4324})) + ePortMsg:port_call(get(ppp), {CmdId, 12432, 4324}) end. %%-----------------------------------------------------------------