summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--acse.erl8
-rw-r--r--tda.erl2
2 files changed, 5 insertions, 5 deletions
diff --git a/acse.erl b/acse.erl
index 99173ba..110f530 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, accepted/1]).
+-export([decode/1, check/1]).
ui() ->
{ok, UI} = 'CSTA-application-context-information-csta3':encode(
@@ -24,10 +24,10 @@ release() -> 'ACSE-1':encode('ACSE-apdu', {rlrq, #'RLRQ-apdu'{}}).
decode(Msg) -> 'ACSE-1':decode('ACSE-apdu', Msg).
-accepted({aare, #'AARE-apdu'{result = Result}}) ->
+check({aare, #'AARE-apdu'{result = Result}}) ->
case Result of
accepted -> ok;
_ -> error
end;
-accepted({rlre, _}) -> ok;
-accepted({abrt, _}) -> error.
+check({rlre, _}) -> ok;
+check({abrt, _}) -> error.
diff --git a/tda.erl b/tda.erl
index 1741be4..8096f92 100644
--- a/tda.erl
+++ b/tda.erl
@@ -76,7 +76,7 @@ decode(Data) ->
acse ->
{ok, Acse} = acse:decode(Data),
io:format("ACSE> ~p~n", [Acse]),
- acse:accepted(Acse)
+ acse:check(Acse)
end.
dispatch(<<Head:8,_/binary>>) ->