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

Adapt for running from escript (fix 6).

Browse Source
This commit is contained in:
Anton Makarov
2025-09-10 15:31:33 +03:00
parent 878f6a4656
commit 25bccc2562
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/esqlite3_nif.erl
View File

@@ -82,7 +82,9 @@
init() -> init() ->
NifName = "esqlite3_nif", NifName = "esqlite3_nif",
NifFileName = filename:join(get_priv_dir(), NifName), PrivDir = get_priv_dir(),
io:format("PrivDir = ~p~n", [PrivDir]),
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).
@@ -110,8 +112,7 @@ try_escript() ->
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)), filename:join([AppsDir, [$.|Suf], "priv"]); % prepend "." to suffix that starts with "/"
filename:join([AppsDir, [$.|SqDir], "priv"]); % prepend "." to suffix that starts with "/"
false -> false ->
case code:priv_dir(esqlite) of case code:priv_dir(esqlite) of
{error, bad_name} -> "priv"; {error, bad_name} -> "priv";