From b29ccc68d63f204e93365626f9207ed14db2187f Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Fri, 23 Oct 2015 20:53:13 +0200 Subject: Don't need pdu, rudimentary client, broken --- tda.erl | 25 +++++++++++++++++++------ 1 file changed, 19 insertions(+), 6 deletions(-) (limited to 'tda.erl') diff --git a/tda.erl b/tda.erl index e3b45cc..5d5ec44 100644 --- a/tda.erl +++ b/tda.erl @@ -4,7 +4,7 @@ -export([release_request/0, release_result/1]). -export([associate_abort/1]). -export([system_status/0, system_status/1]). --export([pdu/1, strip/1]). +-export([client/0, stop/1, loop/1]). -include("acse.hrl"). -include("rose.hrl"). @@ -65,9 +65,22 @@ system_status() -> {error, Reason} -> Reason end. -pdu(<>) -> - Len = byte_size(Bits), - Head = <>, - <>. +client() -> + Host = "192.168.240.20", + case gen_tcp:connect(Host, 33333, [{packet, 2}]) of + {ok, Sock} -> loop(Sock); + {error, Reason} -> {error, Reason} + end. + +stop(Sock) -> gen_tcp:close(Sock). -strip(<<_:16/big, Rest/binary>>) -> Rest. +loop(Sock) -> + Hello = associate_request(), + %{tcp, Sock} ! Hello, + gen_tcp:send(Sock, Hello), + receive + {tcp, S, Whatever} -> + io:format(">>> ~p ~p ~n", [S, Whatever]), + loop(Sock); + {tcp_closed, S} -> S + end. -- cgit v1.2.3