From a96ae5dc597cbc01515c75fea9f41a6d79be91b3 Mon Sep 17 00:00:00 2001
From: Eric B Merritt <ericbmerritt@gmail.com>
Date: Fri, 5 Apr 2013 14:31:17 -0700
Subject: support both R14 'behaviours' and R15+ 'callback info'

---
 src/rcl_provider.erl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'src')

diff --git a/src/rcl_provider.erl b/src/rcl_provider.erl
index 750b96e..4d8f044 100644
--- a/src/rcl_provider.erl
+++ b/src/rcl_provider.erl
@@ -41,10 +41,28 @@
 
 -opaque t() :: {?MODULE, module()}.
 
+
+-ifdef(have_callback_support).
+
 -callback init(rcl_state:t()) -> {ok, rcl_state:t()} | relcool:error().
 -callback do(rcl_state:t()) ->  {ok, rcl_state:t()} | relcool:error().
 -callback format_error(Reason::term()) -> iolist().
 
+-else.
+
+%% In the case where R14 or lower is being used to compile the system
+%% we need to export a behaviour info
+-export([behaviour_info/1]).
+-spec behaviour_info(atom()) -> [{atom(), arity()}] | undefined.
+behaviour_info(callbacks) ->
+    [{init, 1},
+     {do, 1},
+     {format_error, 1}];
+behaviour_info(_) ->
+    undefined.
+
+-endif.
+
 %%%===================================================================
 %%% API
 %%%===================================================================
-- 
cgit v1.2.3