From 5ab97ed6bef0406b68f01b79a702ca9aa88c1912 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Wed, 28 Oct 2015 20:10:53 +0100 Subject: Unify --- acse.erl | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'acse.erl') diff --git a/acse.erl b/acse.erl index 110f530..e8f0d70 100644 --- a/acse.erl +++ b/acse.erl @@ -4,7 +4,7 @@ -include("CSTA-application-context-information-csta3.hrl"). -export([associate/0, release/0]). --export([decode/1, check/1]). +-export([decode/1, dispatch/1]). ui() -> {ok, UI} = 'CSTA-application-context-information-csta3':encode( @@ -24,10 +24,12 @@ release() -> 'ACSE-1':encode('ACSE-apdu', {rlrq, #'RLRQ-apdu'{}}). decode(Msg) -> 'ACSE-1':decode('ACSE-apdu', Msg). -check({aare, #'AARE-apdu'{result = Result}}) -> +dispatch({aare, #'AARE-apdu'{result = Result}}) -> case Result of accepted -> ok; _ -> error end; -check({rlre, _}) -> ok; -check({abrt, _}) -> error. + +dispatch({rlre, _}) -> ok; + +dispatch({abrt, _}) -> error. -- cgit v1.2.3