umgeher/jsx
0
Fork 0
Code Issues Pull requests Activity

updated examples for new api, sort of. should have done all of this on a branch

Browse source
This commit is contained in:
alisdair sullivan 2010-05-27 16:24:31 -07:00
parent 60943446c0
commit 697d14135a
2 changed files with 5 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

9
examples/jsx_parser.erl
View file

@ -34,11 +34,8 @@
decode(JSON) ->
P = jsx:decoder({{jsx_parser, event}, []}, []),
try
{Result, Rest} = P(JSON),
case jsx:tail_clean(Rest) of
true -> Result
; _ -> throw(badarg)
end
{Result, _} = P(JSON),
Result
catch
_:_ -> throw(badarg)
end.
@ -68,7 +65,7 @@ event(end_array, [Array, Parent|Stack]) when is_list(Parent) ->
event(end_object, [Object]) ->
[Object];
event(end_array, [Array]) ->
[Array];
[lists:reverse(Array)];
event({key, Key}, [Object|Stack]) ->
[{key, Key}] ++ [Object] ++ Stack;

7
examples/jsx_prettify.erl
View file

@ -36,11 +36,8 @@ pretty(JSON, Opts) ->
Init = init(parse_opts(Opts, #opts{})),
P = jsx:decoder({{jsx_prettify, jsx_event}, Init}, []),
try
{Result, Rest} = P(JSON),
case jsx:tail_clean(Rest) of
true -> Result
; _ -> throw(badarg)
end
{Result, _} = P(JSON),
Result
catch
_:_ -> throw(badarg)
end.