From c1d3a646353b7cbd8c79e6bdf3777a25d1c87a39 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Fri, 23 Oct 2015 12:27:29 +0200 Subject: Add more messages --- tda.erl | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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'. -- cgit v1.2.3