diff --git a/syntax_checkers/erlang/erlang_check_file.erl b/syntax_checkers/erlang/erlang_check_file.erl index 54cc9366..2fadfd5f 100755 --- a/syntax_checkers/erlang/erlang_check_file.erl +++ b/syntax_checkers/erlang/erlang_check_file.erl @@ -4,6 +4,33 @@ main([FileName]) -> LibDirs = filelib:wildcard("{lib,deps}/*/ebin"), compile(FileName, LibDirs); + +main([FileName | ["-rebar" | [Path | LibDirs]]]) -> + {ok, L} = file:consult(Path), + P = dict:from_list(L), + Root = filename:dirname(Path), + + Lib1 = case dict:find(lib_dirs, P) of + {ok, X} -> lists:map(fun(Sub) -> Root ++ "/" ++ Sub end, X); + _ -> [] + end, + + Lib2 = case dict:find(sub_dirs, P) of + {ok, Y} -> lists:foldl( + fun(Sub,Sofar) -> + Sofar ++ [ + Root ++ "/" ++ Sub, + Root ++ "/" ++ Sub ++ "/include", + Root ++ "/" ++ Sub ++ "/deps", + Root ++ "/" ++ Sub ++ "/lib" + ] end, [], Y); + _ -> [] + end, + + LibDirs1 = LibDirs ++ Lib1 ++ Lib2, + %io:format("~p~n", [LibDirs1]), + compile(FileName, LibDirs1); + main([FileName | LibDirs]) -> compile(FileName, LibDirs).