summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-10-23 13:18:34 +0200
committerDimitri Sokolyuk <demon@dim13.org>2015-10-23 13:18:34 +0200
commite1c2586b0b433a9909dea2c0263b5892970ebba6 (patch)
tree7d7174692e7b7aa5c3286d70ca7f50444e1cae19
parente49b3c6129fc57e5adbd478f3494c66654870acf (diff)
Add rose
-rw-r--r--tda.erl11
1 files changed, 11 insertions, 0 deletions
diff --git a/tda.erl b/tda.erl
index 04a2487..6c0f901 100644
--- a/tda.erl
+++ b/tda.erl
@@ -1,9 +1,13 @@
-module(tda).
+
-export([associate_request/0, associate_result/1]).
-export([release_request/0, release_result/1]).
-export([associate_abort/1]).
+-export([system_status/1]).
+
-include("ACSE-1.hrl").
-include("CSTA-application-context-information-csta3.hrl").
+-include("Remote-Operations-Generic-ROS-PDUs.hrl").
associate_request() ->
Ver = {newDefinition, #'NewACSEUserInformationForCSTA'{
@@ -50,3 +54,10 @@ release_result(Bin) ->
associate_abort(Bin) ->
{ok, Pdu} = 'ACSE-1':decode('ABRT-apdu', Bin),
Pdu#'ABRT-apdu'.'abort-source'.
+
+% <<161,12,2,1,1,2,2,0,211,48,3,10,1,2>>
+% <<162,11,2,1,1,48,6,2,2,0,211,5,0>>
+system_status(Bin) ->
+ % broken, no Invoke type
+ {ok, Invoke} = 'Remote-Operations-Generic-ROS-PDUs':decode('Invoke', Bin),
+ Invoke.