From fc86381ccac10fa30aefe76996a716ae1d677f5b Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Thu, 29 Oct 2015 14:00:41 +0100 Subject: Prepare for rebar --- acse.erl | 35 ----------------------------------- 1 file changed, 35 deletions(-) delete mode 100644 acse.erl (limited to 'acse.erl') diff --git a/acse.erl b/acse.erl deleted file mode 100644 index e8f0d70..0000000 --- a/acse.erl +++ /dev/null @@ -1,35 +0,0 @@ --module(acse). - --include("ACSE-1.hrl"). --include("CSTA-application-context-information-csta3.hrl"). - --export([associate/0, release/0]). --export([decode/1, dispatch/1]). - -ui() -> - {ok, UI} = 'CSTA-application-context-information-csta3':encode( - 'ACSEUserInformationForCSTA', {newDefinition, - #'NewACSEUserInformationForCSTA'{cSTAVersion = [versionFive]}}), - {'single-ASN1-type', UI}. - -associate() -> - 'ACSE-1':encode('ACSE-apdu', {aarq, #'AARQ-apdu'{ - 'protocol-version' = [version1], - 'application-context-name' = {1, 3, 12, 0, 218}, - 'user-information' = [#'EXTERNAL'{ - 'direct-reference' = {1, 3, 12, 0, 285, 200}, - encoding = ui()}]}}). - -release() -> 'ACSE-1':encode('ACSE-apdu', {rlrq, #'RLRQ-apdu'{}}). - -decode(Msg) -> 'ACSE-1':decode('ACSE-apdu', Msg). - -dispatch({aare, #'AARE-apdu'{result = Result}}) -> - case Result of - accepted -> ok; - _ -> error - end; - -dispatch({rlre, _}) -> ok; - -dispatch({abrt, _}) -> error. -- cgit v1.2.3