f39fba1c87
When having nested directories (for instance `src/protocol/tm_protocol.erl`)
autocompilation would fail. This fix adds the abspath of all depdencies to
the codepath and sets compile option {i, _} to support both `deps/` and `lib/`.
35 lines
1.1 KiB
Erlang
Executable File
35 lines
1.1 KiB
Erlang
Executable File
#!/usr/bin/env escript
|
|
-export([main/1]).
|
|
|
|
main([FileName]) ->
|
|
LibDirs = filelib:wildcard("{lib,deps}/*/ebin"),
|
|
compile(FileName, LibDirs);
|
|
main([FileName | LibDirs]) ->
|
|
compile(FileName, LibDirs).
|
|
|
|
compile(FileName, LibDirs) ->
|
|
Root = get_root(filename:dirname(FileName)),
|
|
ok = code:add_pathsa(LibDirs),
|
|
compile:file(FileName, [warn_obsolete_guard,
|
|
warn_unused_import,
|
|
warn_shadow_vars,
|
|
warn_export_vars,
|
|
strong_validation,
|
|
report,
|
|
{i, filename:join(Root, "include")},
|
|
{i, filename:join(Root, "deps")},
|
|
{i, filename:join(Root, "apps")},
|
|
{i, filename:join(Root, "lib")}
|
|
]).
|
|
|
|
get_root(Dir) ->
|
|
Path = filename:split(filename:absname(Dir)),
|
|
filename:join(get_root(lists:reverse(Path), Path)).
|
|
|
|
get_root([], Path) ->
|
|
Path;
|
|
get_root(["src" | Tail], _Path) ->
|
|
lists:reverse(Tail);
|
|
get_root([_ | Tail], Path) ->
|
|
get_root(Tail, Path).
|