umgeher/jsx
0
Fork 0
Code Issues Pull requests Activity

fix for issue 19, incorrect handling of proplists when using pre_encode

Browse source
This commit is contained in:
alisdair sullivan 2012-09-03 20:06:50 -07:00
parent 4ba676e2b0
commit 4620081f6e
1 changed files with 40 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

53
src/jsx_encoder.erl
View file

@ -65,22 +65,38 @@ value([{}], {Handler, State}, _Opts) ->
Handler:handle_event(end_object, Handler:handle_event(start_object, State)); Handler:handle_event(end_object, Handler:handle_event(start_object, State));
value([], {Handler, State}, _Opts) -> value([], {Handler, State}, _Opts) ->
Handler:handle_event(end_array, Handler:handle_event(start_array, State)); Handler:handle_event(end_array, Handler:handle_event(start_array, State));
value([Tuple|Rest], Handler, Opts) when is_tuple(Tuple) -> value([Tuple|_] = List, Handler, Opts) when is_tuple(Tuple) ->
list_or_object([pre_encode(Tuple, Opts)|Rest], Handler, Opts); list_or_object(List, Handler, Opts);
value(List, Handler, Opts) when is_list(List) -> value(List, Handler, Opts) when is_list(List) ->
list_or_object(List, Handler, Opts); list_or_object(List, Handler, Opts);
value(Term, Handler, Opts) -> ?error([Term, Handler, Opts]). value(Term, Handler, Opts) -> ?error([Term, Handler, Opts]).
list_or_object([Tuple|_] = List, {Handler, State}, Opts) when is_tuple(Tuple) -> list_or_object([Term|Rest], {Handler, State}, Opts) ->
object(List, {Handler, Handler:handle_event(start_object, State)}, Opts); case pre_encode(Term, Opts) of
list_or_object(List, {Handler, State}, Opts) -> {K, V} ->
list(List, {Handler, Handler:handle_event(start_array, State)}, Opts). object([{K, V}|Rest], {Handler, Handler:handle_event(start_object, State)}, Opts)
; T ->
list([T|Rest], {Handler, Handler:handle_event(start_array, State)}, Opts)
end.
object([{Key, Value}|Rest], {Handler, State}, Opts) when is_atom(Key); is_binary(Key) -> object([{Key, Value}, Next|Rest], {Handler, State}, Opts) when is_atom(Key); is_binary(Key) ->
object( object(
Rest, [pre_encode(Next, Opts)|Rest],
{
Handler,
value(
pre_encode(Value, Opts),
{Handler, Handler:handle_event({key, clean_string(fix_key(Key), Opts)}, State)},
Opts
)
},
Opts
);
object([{Key, Value}], {Handler, State}, Opts) when is_atom(Key); is_binary(Key) ->
object(
[],
{ {
Handler, Handler,
value( value(
@ -95,8 +111,10 @@ object([], {Handler, State}, _Opts) -> Handler:handle_event(end_object, State);
object(Term, Handler, Opts) -> ?error([Term, Handler, Opts]). object(Term, Handler, Opts) -> ?error([Term, Handler, Opts]).
list([Value|Rest], {Handler, State}, Opts) -> list([Value, Next|Rest], {Handler, State}, Opts) ->
list(Rest, {Handler, value(pre_encode(Value, Opts), {Handler, State}, Opts)}, Opts); list([pre_encode(Next, Opts)|Rest], {Handler, value(Value, {Handler, State}, Opts)}, Opts);
list([Value], {Handler, State}, Opts) ->
list([], {Handler, value(Value, {Handler, State}, Opts)}, Opts);
list([], {Handler, State}, _Opts) -> Handler:handle_event(end_array, State); list([], {Handler, State}, _Opts) -> Handler:handle_event(end_array, State);
list(Term, Handler, Opts) -> ?error([Term, Handler, Opts]). list(Term, Handler, Opts) -> ?error([Term, Handler, Opts]).
@ -884,10 +902,10 @@ pre_encoders_test_() ->
] ]
)}, )},
{"pre_encode 2-tuples", ?_assertEqual( {"pre_encode 2-tuples", ?_assertEqual(
encode([{number, 1}], [{pre_encode, fun({K, V}) -> {K, V + 1}; (V) -> V end}]), encode([{two, 1}, {three, 2}], [{pre_encode, fun({K, V}) -> {K, V + 1}; (V) -> V end}]),
[ [
start_object, start_object,
{key, <<"number">>}, {integer, 2}, {key, <<"two">>}, {integer, 2}, {key, <<"three">>}, {integer, 3},
end_object, end_object,
end_json end_json
] ]
@ -900,7 +918,16 @@ pre_encoders_test_() ->
end_object, end_object,
end_json end_json
] ]
)} )},
{"pre_encode list", ?_assertEqual(
encode([1,2,3], [{pre_encode, fun(X) when is_integer(X) -> X + 1; (V) -> V end}]),
[
start_array,
{integer, 2}, {integer, 3}, {integer, 4},
end_array,
end_json
]
)}
]. ].