summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-10-30 11:28:40 +0100
committerDimitri Sokolyuk <demon@dim13.org>2015-10-30 11:28:40 +0100
commit76b5c4a5167cafd35a18e82ee9674eaa6ac9bc49 (patch)
tree6d921d16119a56796ff325bac2e2f4df6d9b19f0
parent2575bc521eeb70a6a4f2bb06e408e8160c372320 (diff)
Split files
-rw-r--r--src/csta.erl27
-rw-r--r--src/rose.erl5
-rw-r--r--src/snapshot.erl15
-rw-r--r--src/tda.erl6
4 files changed, 20 insertions, 33 deletions
diff --git a/src/csta.erl b/src/csta.erl
index dbd53b3..0ef6344 100644
--- a/src/csta.erl
+++ b/src/csta.erl
@@ -1,28 +1 @@
-module(csta).
-
--export([lines/1, decode/1, snapshot/1]).
-
--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}}}}}}}}).
-
-snapshot(Device) ->
- 'CSTA-snapshot-device':encode('SnapshotDeviceArgument',
- #'SnapshotDeviceArgument'{
- snapshotObject = #'DeviceID'{
- deviceIdentifier = {deviceNumber, Device}}}).
diff --git a/src/rose.erl b/src/rose.erl
index 47a48f2..78cfb14 100644
--- a/src/rose.erl
+++ b/src/rose.erl
@@ -23,7 +23,7 @@ dispatch({invoke, #'Invoke'{invokeId = Id, opcode = Op, argument = Data}}) ->
{local, 21} ->
ok;
{local, 51} ->
- {ok, Esc} = csta:decode(Data),
+ {ok, Esc} = escape:decode(Data),
io:format("Esc ~p~n", [Esc]),
ok;
{local, 71} ->
@@ -54,8 +54,7 @@ dispatch({reject, #'Reject'{invokeId = Id, problem = Problem}}) ->
dispatch(#'ReturnResult_result'{opcode = Op, result = Data}) ->
case Op of
{local, 74} ->
- {ok, Status} = 'CSTA-snapshot-device':decode(
- 'SnapshotDeviceResult', Data),
+ {ok, Status} = snapshot:decode(Data),
io:format("Result: ~p~n", [Status]);
_ ->
io:format("Result: ~p~n", [Data])
diff --git a/src/snapshot.erl b/src/snapshot.erl
new file mode 100644
index 0000000..4e53cb3
--- /dev/null
+++ b/src/snapshot.erl
@@ -0,0 +1,15 @@
+-module(snapshot).
+
+-export([decode/1, encode/1]).
+
+-include("CSTA-snapshot-device.hrl").
+-include("CSTA-device-identifiers.hrl").
+
+decode(Data) ->
+ 'CSTA-snapshot-device':decode('SnapshotDeviceResult', Data).
+
+encode(Device) ->
+ 'CSTA-snapshot-device':encode('SnapshotDeviceArgument',
+ #'SnapshotDeviceArgument'{
+ snapshotObject = #'DeviceID'{
+ deviceIdentifier = {deviceNumber, Device}}}).
diff --git a/src/tda.erl b/src/tda.erl
index 0798365..9cac6f7 100644
--- a/src/tda.erl
+++ b/src/tda.erl
@@ -16,13 +16,13 @@ stop() ->
tdaPid ! acse:release().
ext() ->
- tdaPid ! rose:invoke({local, 51}, csta:lines(ext)).
+ tdaPid ! rose:invoke({local, 51}, escape:lines(ext)).
co() ->
- tdaPid ! rose:invoke({local, 51}, csta:lines(co)).
+ tdaPid ! rose:invoke({local, 51}, escape:lines(co)).
snapshot(Device) ->
- tdaPid ! rose:invoke({local, 74}, csta:snapshot(Device)).
+ tdaPid ! rose:invoke({local, 74}, snapshot:encode(Device)).
client({dial, Host, Port}) ->
io:format("Dial ~p:~p~n", [Host, Port]),