From e944d2b3d236c5aeba04455773e5cd8e5f1507c0 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Thu, 29 Oct 2015 11:33:12 +0100 Subject: Snapshot --- rose.erl | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) (limited to 'rose.erl') diff --git a/rose.erl b/rose.erl index 908f217..650061c 100644 --- a/rose.erl +++ b/rose.erl @@ -26,6 +26,8 @@ dispatch({invoke, #'Invoke'{invokeId = Id, opcode = Op, argument = Data}}) -> ok; {local, 71} -> ok; + {local, 74} -> + ok; {local, 211} -> return(Id, Op, csta:status()); _ -> @@ -35,6 +37,17 @@ dispatch({invoke, #'Invoke'{invokeId = Id, opcode = Op, argument = Data}}) -> dispatch({returnResult, #'ReturnResult'{result = Data}}) -> dispatch(Data); -dispatch(#'ReturnResult_result'{result = Data}) -> - io:format("Result: ~p~n", [Data]), +dispatch({returnError, #'ReturnError'{errcode = Code, parameter = Par}}) -> + io:format("Err: ~p ~p~n", [Code, Par]), + error; + +dispatch(#'ReturnResult_result'{opcode = Op, result = Data}) -> + case Op of + {local, 74} -> + {ok, Status} = 'CSTA-snapshot-device':decode( + 'SnapshotDeviceResult', Data), + io:format("Result: ~p~n", [Status]); + _ -> + io:format("Result: ~p~n", [Data]) + end, ok. -- cgit v1.2.3