umgeher/jsx
0
Fork 0
Code Issues Pull requests Activity

add collect function to jsx_utils for later use

Browse source
This commit is contained in:
alisdair sullivan 2011-08-10 01:44:38 -07:00
parent 59bde85780
commit 39605da171
1 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/jsx_utils.erl
View file

@ -23,12 +23,20 @@
-module(jsx_utils).
-export([nice_decimal/1, detect_encoding/1, detect_encoding/2]).
-export([nice_decimal/1, detect_encoding/1, detect_encoding/2, collect/1]).
-ifdef(TEST).
-include_lib("eunit/include/eunit.hrl").
-endif.
-spec collect(F::function()) -> {jsx, list(), function()}.
collect(F) when is_function(F) ->
collect(F(), []).
collect({error, _}, _) -> {error, badarg};
collect({jsx, incomplete, More}, Acc) ->
{jsx, incomplete, fun(Stream) -> collect(More(Stream), Acc) end};
collect({jsx, end_json, Next}, Acc) ->
{jsx, lists:reverse([end_json] ++ Acc), Next};
collect({jsx, Event, Next}, Acc) -> collect(Next(), [Event] ++ Acc).
@ -269,6 +277,7 @@ detect_encoding(Bin, Opts) ->
%% eunit tests
-ifdef(TEST).
-include_lib("eunit/include/eunit.hrl").
nice_decimal_test_() ->
[