forks/esqlite
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Adapt for running from escript (fix 4).

Browse Source
This commit is contained in:
Anton Makarov
2025-09-10 14:53:06 +03:00
parent 204bdba2eb
commit 6b9bd3745c
1 changed files with 18 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
src/esqlite3_nif.erl
View File

@@ -88,30 +88,24 @@ init() ->
%% @private
get_priv_dir() ->
PrivDir = code:priv_dir(esqlite),
io:format("PrivDir = code:priv_dir(esqlite) = ~p~n", [PrivDir]),
case PrivDir of
%case code:priv_dir(esqlite) of
{error, bad_name} ->
%% application isn't in path, fall back
case is_escript() of
{true,Escript} ->
io:format("Escript = ~p~n", [Escript]),
Which = code:which(esqlite),
io:format("Which = ~p~n", [Which]),
{Pref,Suf} = lists:split(erlang:length(Escript), Which),
io:format("Pref = ~p~n", [Pref]),
io:format("Suf = ~p~n", [Suf]),
RootDir = filename:dirname(filename:dirname(Pref)),
AppsDir = filename:join(RootDir, "lib"),
io:format("AppsDir = ~p~n", [AppsDir]),
SqDir = filename:dirname(filename:dirname(Suf)),
filename:join([AppsDir, [$.|SqDir], "priv"]); % prepend "." to suffix that starts with "/"
false ->
"priv"
end;
Dir ->
Dir
case is_escript() of
{true,Escript} ->
io:format("Escript = ~p~n", [Escript]),
Which = code:which(esqlite),
io:format("Which = ~p~n", [Which]),
{Pref,Suf} = lists:split(erlang:length(Escript), Which),
io:format("Pref = ~p~n", [Pref]),
io:format("Suf = ~p~n", [Suf]),
RootDir = filename:dirname(filename:dirname(Pref)),
AppsDir = filename:join(RootDir, "lib"),
io:format("AppsDir = ~p~n", [AppsDir]),
SqDir = filename:dirname(filename:dirname(Suf)),
filename:join([AppsDir, [$.|SqDir], "priv"]); % prepend "." to suffix that starts with "/"
false ->
case code:priv_dir(esqlite) of
{error, bad_name} -> "priv";
Dir -> Dir
end
end.
%% @private