summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-10-29 07:35:05 +0100
committerDimitri Sokolyuk <demon@dim13.org>2015-10-29 07:35:05 +0100
commit8c335639d2baae339c6fef30215c334c8740ae2c (patch)
tree1d1a594bc6685e1ec22ba525625721fd008b92fb
parent875ca2f891ec4c6d6a80eb3f4723ba64030eca6f (diff)
Simplify
-rw-r--r--csta.erl16
-rw-r--r--tda.erl4
2 files changed, 10 insertions, 10 deletions
diff --git a/csta.erl b/csta.erl
index 4064a7c..7eefbb2 100644
--- a/csta.erl
+++ b/csta.erl
@@ -1,20 +1,20 @@
-module(csta).
--export([co_lines/0, ext_lines/0, decode/1]).
+-export([lines/1, decode/1]).
-include("CSTA-escape-service.hrl").
decode(Data) ->
'CSTA-escape-service':decode('EscapeArgument', Data).
-co_lines() ->
- 'CSTA-escape-service':encode('EscapeArgument', #'EscapeArgument'{
- privateData = {private,
- {kmeSystemData, {getSystemData, {request, {deviceList,
- {category, {standardDevice, networkInterface}}}}}}}}).
+lines(co) ->
+ lines(networkInterface);
+
+lines(ext) ->
+ lines(station);
-ext_lines() ->
+lines(Device) ->
'CSTA-escape-service':encode('EscapeArgument', #'EscapeArgument'{
privateData = {private,
{kmeSystemData, {getSystemData, {request, {deviceList,
- {category, {standardDevice, station}}}}}}}}).
+ {category, {standardDevice, Device}}}}}}}}).
diff --git a/tda.erl b/tda.erl
index 3008b5e..e030a57 100644
--- a/tda.erl
+++ b/tda.erl
@@ -14,10 +14,10 @@ stop() ->
tdaPid ! acse:release().
ext() ->
- tdaPid ! rose:invoke({present, 2}, {local, 51}, csta:ext_lines()).
+ tdaPid ! rose:invoke({present, 2}, {local, 51}, csta:lines(ext)).
co() ->
- tdaPid ! rose:invoke({present, 2}, {local, 51}, csta:co_lines()).
+ tdaPid ! rose:invoke({present, 2}, {local, 51}, csta:lines(co)).
client({dial, Host, Port}) ->
io:format("Dial ~p:~p~n", [Host, Port]),