summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--acse.erl10
-rw-r--r--tda.erl4
2 files changed, 7 insertions, 7 deletions
diff --git a/acse.erl b/acse.erl
index 1ba1cf5..84b923c 100644
--- a/acse.erl
+++ b/acse.erl
@@ -3,24 +3,24 @@
-include("ACSE-1.hrl").
-include("CSTA-application-context-information-csta3.hrl").
--export([associate_request/0, release_request/0]).
+-export([associate/0, release/0]).
-export([decode/1, accepted/1]).
-user_information() ->
+ui() ->
{ok, UI} = 'CSTA-application-context-information-csta3':encode(
'ACSEUserInformationForCSTA', {newDefinition,
#'NewACSEUserInformationForCSTA'{cSTAVersion = [versionFive]}}),
{'single-ASN1-type', UI}.
-associate_request() ->
+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 = user_information()}]}}).
+ encoding = ui()}]}}).
-release_request() -> 'ACSE-1':encode('ACSE-apdu', {rlrq, #'RLRQ-apdu'{}}).
+release() -> 'ACSE-1':encode('ACSE-apdu', {rlrq, #'RLRQ-apdu'{}}).
decode(Msg) -> 'ACSE-1':decode('ACSE-apdu', Msg).
diff --git a/tda.erl b/tda.erl
index ba17d58..b417d9a 100644
--- a/tda.erl
+++ b/tda.erl
@@ -34,12 +34,12 @@ loop(Sock) ->
receive
{login} ->
io:format("Login~n", []),
- {ok, Hello} = acse:associate_request(),
+ {ok, Hello} = acse:associate(),
gen_tcp:send(Sock, Hello),
loop(Sock);
{logout} ->
io:format("Logout~n", []),
- {ok, Bye} = acse:release_request(),
+ {ok, Bye} = acse:release(),
gen_tcp:send(Sock, Bye),
loop(Sock);
{ext} ->