From fc86381ccac10fa30aefe76996a716ae1d677f5b Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Thu, 29 Oct 2015 14:00:41 +0100 Subject: Prepare for rebar --- src/csta.erl | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 src/csta.erl (limited to 'src/csta.erl') diff --git a/src/csta.erl b/src/csta.erl new file mode 100644 index 0000000..60aaaee --- /dev/null +++ b/src/csta.erl @@ -0,0 +1,35 @@ +-module(csta). + +-export([lines/1, decode/1, snapshot/1]). +-export([decodeStatus/1, statusOk/0]). + +-include("CSTA-escape-service.hrl"). +-include("CSTA-snapshot-device.hrl"). +-include("CSTA-device-identifiers.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}}}}}}}}). + +decodeStatus(Data) -> + 'CSTA-system-status':decode('SystemStatusArg', Data). + +statusOk() -> + 'CSTA-system-status':encode('SystemStatusRes', {noData, []}). + +snapshot(Device) -> + 'CSTA-snapshot-device':encode('SnapshotDeviceArgument', + #'SnapshotDeviceArgument'{ + snapshotObject = #'DeviceID'{ + deviceIdentifier = {deviceNumber, Device}}}). -- cgit v1.2.3