From 515371ecf04c1fd274c6ea6d8f1d60fbefc4587f Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Thu, 29 Oct 2015 12:31:14 +0100 Subject: Add reject and counter:set --- rose.erl | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'rose.erl') diff --git a/rose.erl b/rose.erl index 65aa139..e2fb004 100644 --- a/rose.erl +++ b/rose.erl @@ -36,13 +36,20 @@ dispatch({invoke, #'Invoke'{invokeId = Id, opcode = Op, argument = Data}}) -> error end; -dispatch({returnResult, #'ReturnResult'{result = Data}}) -> +dispatch({returnResult, #'ReturnResult'{invokeId = Id, result = Data}}) -> + counter:set(Id), dispatch(Data); -dispatch({returnError, #'ReturnError'{errcode = Code, parameter = Par}}) -> +dispatch({returnError, #'ReturnError'{invokeId = Id, errcode = Code, parameter = Par}}) -> + counter:set(Id), io:format("Err: ~p ~p~n", [Code, Par]), error; +dispatch({reject, #'Reject'{invokeId = Id, problem = Problem}}) -> + counter:set(Id), + io:format("Problem: ~p~n", [Problem]), + error; + dispatch(#'ReturnResult_result'{opcode = Op, result = Data}) -> case Op of {local, 74} -> -- cgit v1.2.3