summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-10-23 20:53:13 +0200
committerDimitri Sokolyuk <demon@dim13.org>2015-10-23 20:53:13 +0200
commitb29ccc68d63f204e93365626f9207ed14db2187f (patch)
treef87a8056d8605c7f1fa97ee9f42bb48615c57b43
parent49c71a0b66a9b2f5a3ebaaf62d880fab7b9988a6 (diff)
Don't need pdu, rudimentary client, broken
-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.