summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-10-23 12:27:29 +0200
committerDimitri Sokolyuk <demon@dim13.org>2015-10-23 12:27:29 +0200
commitc1d3a646353b7cbd8c79e6bdf3777a25d1c87a39 (patch)
tree4c3a8dc22eeb1d91c37a4033d773dfd1f5166b69
parent3b36fb5bf7537913145f7bd0ae512c7df13dfb34 (diff)
Add more messages
-rw-r--r--tda.erl12
1 files changed, 12 insertions, 0 deletions
diff --git a/tda.erl b/tda.erl
index 6bf486d..948f75e 100644
--- a/tda.erl
+++ b/tda.erl
@@ -1,5 +1,7 @@
-module(tda).
-export([associate_request/0, associate_result/1]).
+-export([release_request/0, release_result/1]).
+-export([associate_abort/1]).
-include("ACSE-1.hrl").
-include("CSTA-application-context-information-csta3.hrl").
@@ -24,3 +26,13 @@ associate_result(Bin) ->
'ACSEUserInformationForCSTA', Enc),
{Pdu#'AARE-apdu'.result, Ver#'NewACSEUserInformationForCSTA'.cSTAVersion}.
+release_request() ->
+ 'ACSE-1':encode('RLRQ-apdu', #'RLRQ-apdu'{}).
+
+release_result(Bin) ->
+ 'ACSE-1':decode('RLRE-apdu', Bin).
+
+% <<100,3,128,1,0>>
+associate_abort(Bin) ->
+ {ok, Pdu} = 'ACSE-1':decode('ABRT-apdu', Bin),
+ Pdu#'ABRT-apdu'.'abort-source'.