summaryrefslogtreecommitdiff
path: root/src/rose.erl
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-11-08 17:34:19 +0100
committerDimitri Sokolyuk <demon@dim13.org>2015-11-08 17:34:19 +0100
commitc9f4a22ccb3c2e39de80f15dd811ce198e35d4d4 (patch)
treefd80641e0f201118b1fd19de4e890d78a2b8463f /src/rose.erl
parentebd0901daf97c3f6c2dbea5737caf17b4c7d140d (diff)
Rename files
Diffstat (limited to 'src/rose.erl')
-rw-r--r--src/rose.erl80
1 files changed, 0 insertions, 80 deletions
diff --git a/src/rose.erl b/src/rose.erl
deleted file mode 100644
index 4956c67..0000000
--- a/src/rose.erl
+++ /dev/null
@@ -1,80 +0,0 @@
--module(rose).
-
--export([decode/1, invoke/2, dispatch/1]).
-
--include("opcodes.hrl").
--include("Remote-Operations-Generic-ROS-PDUs.hrl").
-
-decode(Data) ->
- 'Remote-Operations-Generic-ROS-PDUs':decode('ROS', Data).
-
-return(Id, Op, {ok, Data}) ->
- 'Remote-Operations-Generic-ROS-PDUs':encode('ROS', {returnResult,
- #'ReturnResult'{invokeId = Id,
- result = #'ReturnResult_result'{opcode = Op, result = Data}}}).
-
-invoke(Op, {ok, Data}) ->
- Id = pbx_invoke:next(),
- 'Remote-Operations-Generic-ROS-PDUs':encode('ROS', {invoke,
- #'Invoke'{invokeId = Id, opcode = Op, argument = Data}}).
-
-dispatch({invoke, #'Invoke'{invokeId = Id, opcode = Op, argument = Data}}) ->
- pbx_invoke:set(Id),
- case Op of
- ?MAKECALL ->
- ok;
- ?BUTTON ->
- ok;
- ?EVENT ->
- {ok, Event} = event:decode(Data),
- io:format("Event: ~p~n", [Event]),
- ok;
- ?ESCAPE ->
- escape:privateData(escape:decode(Data));
- ?MONITOR ->
- ok;
- ?SNAPSHOT ->
- ok;
- ?STATUS ->
- %io:format("Status: ~p~n", [status:value(Data)]),
- tapi:send(return(Id, Op, status:encode()));
- _ ->
- error
- end;
-
-dispatch({returnResult, #'ReturnResult'{invokeId = Id, result = Data}}) ->
- pbx_invoke:set(Id),
- dispatch(Data);
-
-dispatch({returnError, #'ReturnError'{invokeId = Id, errcode = Op, parameter = Data}}) ->
- pbx_invoke:set(Id),
- case Op of
- ?ERROR ->
- {ok, Error} = error:decode(Data),
- io:format("Error: ~p~n", [Error])
- end,
- error;
-
-dispatch({reject, #'Reject'{invokeId = Id, problem = Problem}}) ->
- pbx_invoke:set(Id),
- io:format("Problem: ~p~n", [Problem]),
- error;
-
-dispatch(#'ReturnResult_result'{opcode = Op, result = Data}) ->
- case Op of
- ?MAKECALL ->
- {ok, Result} = dial:decode(Data),
- io:format("Make call: ~p~n", [Result]);
- ?BUTTON ->
- {ok, List} = button:decode(Data),
- io:format("List: ~p~n", [List]);
- ?MONITOR ->
- {ok, Status} = monitor:decode(Data),
- io:format("Result: ~p~n", [Status]);
- ?SNAPSHOT ->
- {ok, Status} = snapshot:decode(Data),
- io:format("Result: ~p~n", [Status]);
- _ ->
- io:format("Result: ~p~n", [Data])
- end,
- ok.