epm_util.erl

-module(epm_util).
-include("epm.hrl").

-export([ git/1
        , home_dir/0, epm_home_dir/1, set_net_timeout/1, set_http_proxy/2
        ]).

git(Params) ->
  os:cmd(string:join(["git"|Params], " ")) .

home_dir() ->
  case init:get_argument(home) of
    {ok, [[H]]} -> [H];
    _ -> []
  end.

set_http_proxy(Host, Port) when Host =:= none orelse Port =:= none ->
  ignored;
set_http_proxy(Host, Port) when is_list(Port) ->
  set_http_proxy(Host, list_to_integer(Port));
set_http_proxy(Host, Port) when is_integer(Port) ->
  epm_cfg:set(proxy_host, Host), put(proxy_port, Port).

set_net_timeout(Timeout) when is_list(Timeout) ->
  set_net_timeout(list_to_integer(Timeout));
set_net_timeout(Timeout) when is_integer(Timeout) ->
  epm_cfg:set(net_timeout, Timeout).

%% request_as_str(Url, Host) ->
%%   case http_request(Url, Host) of
%%     {ok, "200", _, Body} ->
%%       Body;
%%     {ok, "403", _, _} ->
%%       not_found;
%%     {ok, "404", _, _} ->
%%       not_found;
%%     {ok, _} ->
%%       request_failed;
%%     {error, Reason} ->
%%       io:format("timeout? ~p~n", [Reason]),
%%       Reason
%%   end.
%%
%% http_request(Url, Host) ->
%%   http_request(Url, Host, []).
%%
%% http_request(Url, Host, ClientOpts) ->
%%   Hdrs = make_headers(Host),
%%   Opts = http_options(ClientOpts),
%%   {ok, Timeout} = epm_cfg:get(net_timeout),
%%   case ibrowse:send_req(Url, Hdrs, get, [], Opts, Timeout) of
%%     {ok, "302", Headers, _} = Response ->
%%       case proplists:get_value("Location", Headers) of
%%         undefined ->
%%           Response;
%%         Location ->
%%           http_request(Location, undefined, ClientOpts)
%%       end;
%%     Other -> Other
%%   end.
%%
%% http_options(ClientOpts) ->
%%   proxy_options() ++ ClientOpts.
%%
%% proxy_options() ->
%%   case epm_cfg:get(proxy_host) of
%%     {error, not_found} -> [];
%%     {ok, Host} ->
%%       Port = case epm_cfg:get(proxy_port) of
%%                {error, not_found} -> 8080;
%%                {ok, PortNum} -> PortNum
%%              end,
%%       [{proxy_host, Host}, {proxy_port, Port}]
%%   end.
%%
%% make_headers(undefined) ->
%%   [{"User-Agent", "Erlang EPM v" ++ ?epm_version}];
%% make_headers(Host) ->
%%   [{"User-Agent", "Erlang EPM v" ++ ?epm_version}, {"Host", Host}].
%%
%% default_http_options() ->
%%   {ok, T} = epm_cfg:get(net_timeout),
%%   [{timeout, T}].

epm_home_dir(Home) ->
  EPM = filename:join([Home, ".epm"]),
  case filelib:is_dir(EPM) of
    true -> EPM;
    false ->
      case file:make_dir(EPM) of
        ok -> EPM;
        {error, Reason} ->
          ?EPM_FAIL("failed to create epm home directory (~s): ~p", [EPM, Reason])
      end
  end.

%% %% TODO: Bleeding eyes
%% eval(Str) ->
%%   case erl_scan:string(Str) of
%%     {ok, Tokens, _} ->
%%       case erl_parse:parse_exprs(Tokens) of
%%         {ok, Forms} ->
%%           {value, Terms, _} = erl_eval:exprs(Forms, []),
%%           Terms;
%%         _ -> error
%%       end;
%%     _ -> error
%%   end.
%%
%% %% TODO: Bleeding eyes
%% add_to_path(InstallDir) ->
%%   case file:list_dir(InstallDir) of
%%     {ok, Files} ->
%%       [begin
%%          File = filename:join([InstallDir, File0]),
%%          case filelib:is_dir(File) of
%%            true ->
%%              Ebin = filename:join([File, "ebin"]),
%%              case filelib:wildcard(Ebin ++ "/*.app") of
%%                [App|_] ->
%%                  case file:consult(App) of
%%                    {ok, _} ->
%%                      code:add_pathz(Ebin);
%%                    _ ->
%%                      ok
%%                  end;
%%                _ ->
%%                  ok
%%              end;
%%            false -> ok
%%          end
%%        end || File0 <- Files];
%%     _ ->
%%       ok
%%   end.
%%
%% %% TODO: Bleeding eyes
%% del_dir(Dir) ->
%%   case file:list_dir(Dir) of
%%     {ok, Files} ->
%%       [begin
%%          case file:delete(Dir ++ "/" ++ Filename) of
%%            ok -> ok;
%%            {error, eperm} ->
%%              case file:del_dir(Dir ++ "/" ++ Filename) of
%%                ok -> ok;
%%                {error, eexist} ->
%%                  del_dir(Dir ++ "/" ++ Filename)
%%              end
%%          end
%%        end || Filename <- Files],
%%       file:del_dir(Dir);
%%     _ ->
%%       ok
%%   end.
%%
%% rn_dir(OldName, NewName) ->
%%   case file:rename(OldName, NewName) of
%%     ok -> ok;
%%     {error, Reason} ->
%%       exit(lists:flatten(io_lib:format("failed to rename ~s to ~s: ~p", [OldName, NewName, Reason])))
%%   end.
%%
%% do_cmd(Cmd, fail) ->
%% 	case do_cmd(Cmd) of
%% 		{0, ""} ->
%% 			ok;
%% 		{0, Output} ->
%% 			print_cmd_output("~s~n", [Output]);
%% 		{_, Output} ->
%% 			exit(Output)
%% 	end.
%%
%% do_cmd(Cmd) ->
%%     Results = string:tokens(os:cmd(Cmd ++ "; echo $?"), "\n"),
%%     [ExitCode|Other] = lists:reverse(Results),
%%     {list_to_integer(ExitCode), string:join(lists:reverse(Other), "\n")}.
%%
%% print_cmd_output(Format, Args) ->
%% 	case epm_cfg:get(verbose) of
%%     {error, not_found} -> print_cmd_output(Format, Args, false);
%%     {ok, Verbose}      -> print_cmd_output(Format, Args, Verbose)
%% 	end.
%%
%% print_cmd_output(_, _, false) -> ok; %% do not print verbose output
%% print_cmd_output(Format, Args, true) ->
%% 	Str = lists:flatten(io_lib:format("    " ++ Format, Args)),
%% 	Output0 = re:replace(Str, "\n", "\n    ", [global, {return, list}]),
%% 	Output = re:replace(Output0, "\~", "", [global, {return, list}]),
%% 	io:format(string:substr(Output, 1, length(Output)-4), []).
%%
%% set_cwd_build_home(_State=#epm_state{}) ->
%% 	set_cwd(epm_cfg:get(build_dir, ".")).
%%
%% set_cwd(Dir) ->
%% 	case file:set_cwd(Dir) of
%% 		ok ->
%% 			ok;
%% 		{error, _} ->
%% 			exit(lists:flatten(io_lib:format("failed to change working directory: ~s", [Dir])))
%% 	end.