summaryrefslogtreecommitdiff
path: root/src/escape.erl
diff options
context:
space:
mode:
Diffstat (limited to 'src/escape.erl')
-rw-r--r--src/escape.erl15
1 files changed, 15 insertions, 0 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.