From c9f4a22ccb3c2e39de80f15dd811ce198e35d4d4 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sun, 8 Nov 2015 17:34:19 +0100 Subject: Rename files --- src/rose.erl | 80 ------------------------------------------------------------ 1 file changed, 80 deletions(-) delete mode 100644 src/rose.erl (limited to 'src/rose.erl') 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. -- cgit v1.2.3