From fad0d867fc28a702f869b4e64f08820024d9f3b2 Mon Sep 17 00:00:00 2001
From: Jerome Sautret <jerome.sautret@process-one.net>
Date: Tue, 26 Aug 2014 16:12:57 +0200
Subject: [PATCH] Add xref Makefile target.

Conflicts:
	rebar.config.script
---
 Makefile.in         |  4 ++++
 rebar.config.script | 30 ++++++++++++++++++++++++++++++
 2 files changed, 34 insertions(+)

diff --git a/Makefile.in b/Makefile.in
index 525879854..4f3e1bc9f 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -88,6 +88,10 @@ update:
 	rm -rf deps/.built
 	$(REBAR) update-deps && :> deps/.got
 
+xref: all
+	$(REBAR) skip_deps=true xref
+
+
 translations:
 	contrib/extract_translations/prepare-translation.sh -updateall
 
diff --git a/rebar.config.script b/rebar.config.script
index 4e2d347ff..0082ad186 100644
--- a/rebar.config.script
+++ b/rebar.config.script
@@ -116,6 +116,30 @@ CfgPostHooks = lists:flatmap(
                          []
                  end, Cfg),
 
+CfgXrefs = lists:flatmap(
+	     fun({mysql, false}) ->
+		     ["(\".*mysql.*\":_/_)"];
+		({pgsql, false}) ->
+		     ["(\".*pgsql.*\":_/_)"];
+		({pam, false}) ->
+		     ["(\"epam\":_/_)"];
+		({riak, false}) ->
+		     ["(\"riak.*\":_/_)"];
+		({json, false}) ->
+		    ["(\"jiffy\":_/_)"];
+		({p1db, false}) ->
+		     ["(\"p1db.*\":_/_)"];
+		({zlib, false}) ->
+		     ["(\"ezlib\":_/_)"];
+		({http, false}) ->
+		     ["(\"lhttpc\":_/_)"];
+		({iconv, false}) ->
+		     ["(\"iconv\":_/_)"];
+		(_) ->
+		     []
+            end, Cfg),
+
+
 {ok, Cwd} = file:get_cwd(),
 
 Config = [{erl_opts, Macros ++ HiPE ++ DebugInfo ++
@@ -124,6 +148,12 @@ Config = [{erl_opts, Macros ++ HiPE ++ DebugInfo ++
           {keep_build_info, true},
           {ct_extra_params, "-include "
            ++ filename:join([Cwd, "tools"])},
+	  {xref_warnings, false},
+          {xref_checks, []},
+	  {xref_queries,
+	   [{"(XC - UC) || (XU - X - B - "
+	     ++ string:join(["(\"gen_transport\":_/_) - (\"eprof\":_/_)"]
+			    ++ CfgXrefs, " - ") ++ ")", []}]},
           {post_hooks, PostHooks ++ CfgPostHooks},
           {deps, Deps ++ CfgDeps}],
 %%io:format("ejabberd configuration:~n  ~p~n", [Config]),