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

Fixed, all tests pass

Browse Source
This commit is contained in:
Alexey Romanov
2011-04-19 17:38:58 +04:00
parent dddb991d5e
commit 442fc256d5
3 changed files with 91 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/sqlite3.erl
View File

@@ -1108,19 +1108,26 @@ exec(Port, {Cmd, Index}) when is_integer(Index) ->
wait_result(Port) ->
receive
{Port, error, Code, Reason} ->
error_logger:error_msg("sqlite3 driver error: ~s~n",
[Reason]),
% ?dbg("Error: ~p~n", [Reason]),
{error, Code, Reason};
{Port, Reply} ->
% ?dbg("Reply: ~p~n", [Reply]),
Reply;
case Reply of
{error, Code, Reason} ->
error_logger:error_msg("sqlite3 driver error: ~s~n",
[Reason]),
% ?dbg("Error: ~p~n", [Reason]),
{error, Code, Reason};
_ ->
% ?dbg("Reply: ~p~n", [Reply]),
Reply
end;
{'EXIT', Port, Reason} ->
error_logger:error_msg("sqlite3 driver port closed with reason ~p~n",
[Reason]),
% ?dbg("Error: ~p~n", [Reason]),
{error, -1, Reason}
{error, -1, Reason};
Other when is_tuple(Other), element(1, Other) =/= '$gen_call', element(1, Other) =/= '$gen_cast' ->
error_logger:error_msg("sqlite3 unexpected reply ~p~n",
[Other]),
Other
end.
parse_table_info(Info) ->