summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-11-02 16:41:17 +0100
committerDimitri Sokolyuk <demon@dim13.org>2015-11-02 16:41:17 +0100
commit26427226fa701d90a8aa107ef0709ee19d6f2c54 (patch)
tree9d93eda248341f25ddf397d415f73273ac49bd0e
parent2000ab446d49d75d21d4b338e20d6eec9d2f48d1 (diff)
Add event report
-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));