-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). lines(co) -> lines(networkInterface); lines(ext) -> lines(station); lines(Device) -> 'CSTA-escape-service':encode('EscapeArgument', #'EscapeArgument'{ 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.