From b4724009b5b8823b57c78c2cecac51875acb317a Mon Sep 17 00:00:00 2001 From: Tristan Sloughter Date: Thu, 7 May 2015 18:37:53 -0500 Subject: don't use rebar_dir function in bootstrap --- bootstrap | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'bootstrap') diff --git a/bootstrap b/bootstrap index 059bedf..d8c97a7 100755 --- a/bootstrap +++ b/bootstrap @@ -122,7 +122,7 @@ symlink_or_copy(Source, Target) -> {win32, _} -> Source; _ -> - rebar_dir:make_relative_path(Source, Target) + make_relative_path(Source, Target) end, case file:make_symlink(Link, Target) of ok -> @@ -133,6 +133,15 @@ symlink_or_copy(Source, Target) -> cp_r([Source], Target) end. +make_relative_path(Source, Target) -> + do_make_relative_path(filename:split(Source), filename:split(Target)). + +do_make_relative_path([H|T1], [H|T2]) -> + do_make_relative_path(T1, T2); +do_make_relative_path(Source, Target) -> + Base = lists:duplicate(max(length(Target) - 1, 0), ".."), + filename:join(Base ++ Source). + cp_r([], _Dest) -> ok; cp_r(Sources, Dest) -> -- cgit v1.1