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'

---
 Makefile             |  3 +--
 rebar.config.script  | 15 +++++++++++++++
 src/rcl_provider.erl | 18 ++++++++++++++++++
 3 files changed, 34 insertions(+), 2 deletions(-)
 create mode 100644 rebar.config.script

diff --git a/Makefile b/Makefile
index 3be2ee3..55565b0 100644
--- a/Makefile
+++ b/Makefile
@@ -81,8 +81,7 @@ $(DEPS_PLT):
 	   --apps erts kernel stdlib -r deps
 
 dialyzer: $(DEPS_PLT)
-	dialyzer --plt $(DEPS_PLT) --fullpath -Wrace_conditions \
-	-I include -pa $(CURDIR)/ebin --src src
+	dialyzer --fullpath --plt $(DEPS_PLT) -I include -Wrace_conditions -r ./ebin
 
 typer:
 	typer --plt $(DEPS_PLT) -r ./src
diff --git a/rebar.config.script b/rebar.config.script
new file mode 100644
index 0000000..c19a751
--- /dev/null
+++ b/rebar.config.script
@@ -0,0 +1,15 @@
+{match, [ErtsNumber]} = re:run(erlang:system_info(otp_release), "R(\\d+).+", [{capture, [1], list}]),
+ErtsVsn = erlang:list_to_integer(ErtsNumber),
+Opts1 = case lists:keysearch(erl_opts, 1, CONFIG) of
+            {value, {erl_opts, Opts0}} ->
+                Opts0;
+            false ->
+                []
+        end,
+Opts2 = if
+            ErtsVsn >= 15 ->
+                [{d, have_callback_support} | Opts1];	
+             true ->
+                Opts1
+        end,
+lists:keystore(erl_opts, 1, CONFIG, {erl_opts, Opts2}).
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