From 26427226fa701d90a8aa107ef0709ee19d6f2c54 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Mon, 2 Nov 2015 16:41:17 +0100 Subject: Add event report --- src/event.erl | 8 ++++++++ src/rose.erl | 2 ++ 2 files changed, 10 insertions(+) create mode 100644 src/event.erl (limited to 'src') diff --git a/src/event.erl b/src/event.erl new file mode 100644 index 0000000..8b275b2 --- /dev/null +++ b/src/event.erl @@ -0,0 +1,8 @@ +-module(event). + +-export([decode/1]). + +-include("CSTA-event-report-definitions.hrl"). + +decode(Data) -> + 'CSTA-event-report-definitions':decode('CSTAEventReportArgument', Data). diff --git a/src/rose.erl b/src/rose.erl index e267b6d..18b661a 100644 --- a/src/rose.erl +++ b/src/rose.erl @@ -22,6 +22,8 @@ dispatch({invoke, #'Invoke'{invokeId = Id, opcode = Op, argument = Data}}) -> counter:set(Id), case Op of ?EVENT -> + {ok, Event} = event:decode(Data), + io:format("Event: ~p~n", [Event]), ok; ?ESCAPE -> escape:privateData(escape:decode(Data)); -- cgit v1.2.3