summaryrefslogtreecommitdiff
path: root/tda.erl
diff options
context:
space:
mode:
Diffstat (limited to 'tda.erl')
-rw-r--r--tda.erl25
1 files changed, 19 insertions, 6 deletions
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(<<Bits/binary>>) ->
- Len = byte_size(Bits),
- Head = <<Len:16/big>>,
- <<Head/binary, Bits/binary>>.
+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.