From c9f4a22ccb3c2e39de80f15dd811ce198e35d4d4 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sun, 8 Nov 2015 17:34:19 +0100 Subject: Rename files --- src/acse.erl | 40 ---------------------------------------- 1 file changed, 40 deletions(-) delete mode 100644 src/acse.erl (limited to 'src/acse.erl') diff --git a/src/acse.erl b/src/acse.erl deleted file mode 100644 index a77fab0..0000000 --- a/src/acse.erl +++ /dev/null @@ -1,40 +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]). - -associate() -> - {ok, UI} = 'CSTA-application-context-information-csta3':encode( - 'ACSEUserInformationForCSTA', {newDefinition, - #'NewACSEUserInformationForCSTA'{cSTAVersion = [versionFive]}}), - 'ACSE-1':encode('ACSE-apdu', {aarq, #'AARQ-apdu'{ - 'protocol-version' = [version1], % required - 'application-context-name' = {1, 3, 12, 0, 218}, - 'user-information' = [#'EXTERNAL'{ - 'direct-reference' = {1, 3, 12, 0, 285, 200}, - encoding = {'single-ASN1-type', UI}}]}}). - -release() -> - 'ACSE-1':encode('ACSE-apdu', {rlrq, #'RLRQ-apdu'{}}). - -decode(Data) -> - 'ACSE-1':decode('ACSE-apdu', Data). - -dispatch({aare, #'AARE-apdu'{result = accepted}}) -> - ok; - -dispatch({aare, #'AARE-apdu'{}}) -> - error; - -dispatch({rlre, _}) -> - ok; - -dispatch({abrt, _}) -> - error; - -dispatch({asn1_ExtAlt, Data}) -> - {ok, Rose} = rose:decode(Data), - rose:dispatch(Rose). -- cgit v1.2.3