summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/event.erl8
-rw-r--r--src/rose.erl2
2 files changed, 10 insertions, 0 deletions
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));