Adapt for running from escript (remove debug output).
This commit is contained in:
@@ -83,9 +83,9 @@
|
|||||||
init() ->
|
init() ->
|
||||||
NifName = "esqlite3_nif",
|
NifName = "esqlite3_nif",
|
||||||
PrivDir = get_priv_dir(),
|
PrivDir = get_priv_dir(),
|
||||||
io:format("PrivDir = ~p~n", [PrivDir]),
|
%io:format("PrivDir = ~p~n", [PrivDir]),
|
||||||
NifFileName = filename:join(PrivDir, NifName),
|
NifFileName = filename:join(PrivDir, NifName),
|
||||||
io:format("NifFileName = ~p~n", [NifFileName]),
|
%io:format("NifFileName = ~p~n", [NifFileName]),
|
||||||
ok = erlang:load_nif(NifFileName, 0).
|
ok = erlang:load_nif(NifFileName, 0).
|
||||||
|
|
||||||
%% @private
|
%% @private
|
||||||
@@ -103,15 +103,15 @@ get_priv_dir() ->
|
|||||||
try_escript() ->
|
try_escript() ->
|
||||||
case is_escript() of
|
case is_escript() of
|
||||||
{true,Escript} ->
|
{true,Escript} ->
|
||||||
io:format("Escript = ~p~n", [Escript]),
|
%io:format("Escript = ~p~n", [Escript]),
|
||||||
PrivDir = code:priv_dir(esqlite),
|
PrivDir = code:priv_dir(esqlite),
|
||||||
io:format("PrivDir = ~p~n", [PrivDir]),
|
%io:format("PrivDir = ~p~n", [PrivDir]),
|
||||||
{Pref,Suf} = lists:split(erlang:length(Escript), PrivDir),
|
{Pref,Suf} = lists:split(erlang:length(Escript), PrivDir),
|
||||||
io:format("Pref = ~p~n", [Pref]),
|
%io:format("Pref = ~p~n", [Pref]),
|
||||||
io:format("Suf = ~p~n", [Suf]),
|
%io:format("Suf = ~p~n", [Suf]),
|
||||||
RootDir = filename:dirname(filename:dirname(Pref)),
|
RootDir = filename:dirname(filename:dirname(Pref)),
|
||||||
AppsDir = filename:join(RootDir, "lib"),
|
AppsDir = filename:join(RootDir, "lib"),
|
||||||
io:format("AppsDir = ~p~n", [AppsDir]),
|
%io:format("AppsDir = ~p~n", [AppsDir]),
|
||||||
filename:join(AppsDir, [$.|Suf]); % prepend "." to suffix that starts with "/"
|
filename:join(AppsDir, [$.|Suf]); % prepend "." to suffix that starts with "/"
|
||||||
false ->
|
false ->
|
||||||
case code:priv_dir(esqlite) of
|
case code:priv_dir(esqlite) of
|
||||||
|
|||||||
Reference in New Issue
Block a user