summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-10-30 17:47:48 +0100
committerDimitri Sokolyuk <demon@dim13.org>2015-10-30 17:47:48 +0100
commit5e788053dbc150a4c79065509b266d2bcad865e0 (patch)
treebd0fcd7f35dfe9bdef3db0ca1127d9be5db6b255
parent39e62f3f8aeb2a5e2bc8cc2affed731d7df2e03f (diff)
Stub decode privateData
-rw-r--r--src/escape.erl15
-rw-r--r--src/rose.erl4
2 files changed, 16 insertions, 3 deletions
diff --git a/src/escape.erl b/src/escape.erl
index 2787663..d7ad50a 100644
--- a/src/escape.erl
+++ b/src/escape.erl
@@ -1,8 +1,10 @@
-module(escape).
-export([decode/1, lines/1]).
+-export([privateData/1]).
-include("CSTA-escape-service.hrl").
+-include("KME-specific-types.hrl").
decode(Data) ->
'CSTA-escape-service':decode('EscapeArgument', Data).
@@ -18,3 +20,16 @@ lines(Device) ->
privateData = {private,
{kmeSystemData, {getSystemData, {request, {deviceList,
{category, {standardDevice, Device}}}}}}}}).
+
+privateData({ok, #'EscapeArgument'{privateData = Data}}) ->
+ Private = private(Data),
+ io:format("Private Data ~p~n", [Private]).
+
+private({private, Private}) ->
+ private(Private);
+private({kmeSystemData, Data}) ->
+ private(Data);
+private({systemDataLinkedReply, #'KmeSystemDataLinkedReply'{lastSegment = false, sysData = Data}}) ->
+ Data;
+private({systemDataLinkedReply, #'KmeSystemDataLinkedReply'{lastSegment = true, sysData = Data}}) ->
+ Data.
diff --git a/src/rose.erl b/src/rose.erl
index ba6d566..3db9909 100644
--- a/src/rose.erl
+++ b/src/rose.erl
@@ -24,9 +24,7 @@ dispatch({invoke, #'Invoke'{invokeId = Id, opcode = Op, argument = Data}}) ->
?EVENT ->
ok;
?ESCAPE ->
- {ok, Esc} = escape:decode(Data),
- io:format("Esc ~p~n", [Esc]),
- ok;
+ escape:privateData(escape:decode(Data));
?MONITOR ->
ok;
?SNAPSHOT ->