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

Simplified replace function (see Erlang Efficiency Guide)

Browse Source
This commit is contained in:
Alexey Romanov
2010-10-05 14:32:08 +04:00
parent 842df283d0
commit f20f951c7c
1 changed files with 5 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/sqlite3_lib.erl
View File

@@ -77,16 +77,11 @@ write_col_sql(Cols) ->
%% @end %% @end
%%-------------------------------------------------------------------- %%--------------------------------------------------------------------
-spec (replace/1::(string ()) -> string ()). -spec (replace/1::(string ()) -> string ()).
replace ([34 | T]) -> replace([]) -> [];
replace (T, ["'"]); replace([$" | T]) ->
replace ([H | T]) -> [$' | replace(T)];
replace (T, [binary_to_list (<<H>>)]). replace([H | T]) ->
replace ([], L) -> [H | replace(T)].
lists:flatten (lists:reverse (L));
replace ([34 | T], L) ->
replace (T, ["'" | L]);
replace ([H | T], L) ->
replace (T, [binary_to_list (<<H>>) | L]).
%%-------------------------------------------------------------------- %%--------------------------------------------------------------------
%% @spec update_set_sql ([{Col, Value}]) -> string () %% @spec update_set_sql ([{Col, Value}]) -> string ()