forks/erlang-sqlite3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Adapt for running from escript (remove debug output).

Browse Source
This commit is contained in:
Anton Makarov
2025-09-10 15:46:27 +03:00
parent 9b0330e01f
commit 86c4316a0b
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/sqlite3.erl
View File

@@ -792,7 +792,7 @@ value_to_sql(X) -> sqlite3_lib:value_to_sql(X).
-spec init([any()]) -> {'ok', #state{}} | {'stop', string()}. -spec init([any()]) -> {'ok', #state{}} | {'stop', string()}.
init(Options) -> init(Options) ->
PrivDir = get_priv_dir(), PrivDir = get_priv_dir(),
io:format("PrivDir = ~p~n", [PrivDir]), %io:format("PrivDir = ~p~n", [PrivDir]),
case erl_ddll:load(PrivDir, atom_to_list(?DRIVER_NAME)) of case erl_ddll:load(PrivDir, atom_to_list(?DRIVER_NAME)) of
ok -> ok ->
do_init(Options); do_init(Options);
@@ -1075,15 +1075,15 @@ get_priv_dir() ->
%% application isn't in path, fall back %% application isn't in path, fall back
case is_escript() of case is_escript() of
{true,Escript} -> {true,Escript} ->
io:format("Escript = ~p~n", [Escript]), %io:format("Escript = ~p~n", [Escript]),
Which = code:which(sqlite3), Which = code:which(sqlite3),
io:format("Which = ~p~n", [Which]), %io:format("Which = ~p~n", [Which]),
{Pref,Suf} = lists:split(erlang:length(Escript), Which), {Pref,Suf} = lists:split(erlang:length(Escript), Which),
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]),
SqDir = filename:dirname(filename:dirname(Suf)), SqDir = filename:dirname(filename:dirname(Suf)),
filename:join([AppsDir, [$.|SqDir], "priv"]); % prepend "." to suffix that starts with "/" filename:join([AppsDir, [$.|SqDir], "priv"]); % prepend "." to suffix that starts with "/"
false -> false ->