factor out gen_json

This commit is contained in:
alisdair sullivan 2012-03-02 22:53:23 -08:00
parent 61ef73ff72
commit 63faf04115
8 changed files with 20 additions and 184 deletions

View file

@ -23,7 +23,7 @@
-module(jsx_utils).
-export([parse_opts/1, extract_opts/1]).
-export([parse_opts/1]).
-export([nice_decimal/1]).
-export([json_escape/2]).
@ -49,22 +49,6 @@ parse_opts(_, _) ->
{error, badarg}.
extract_opts(Opts) ->
extract_parser_opts(Opts, []).
extract_parser_opts([], Acc) -> Acc;
extract_parser_opts([{K,V}|Rest], Acc) ->
case lists:member(K, [loose_unicode, escape_forward_slash, explicit_end, parser]) of
true -> extract_parser_opts(Rest, [{K,V}] ++ Acc)
; false -> extract_parser_opts(Rest, Acc)
end;
extract_parser_opts([K|Rest], Acc) ->
case lists:member(K, [loose_unicode, escape_forward_slash, explicit_end]) of
true -> extract_parser_opts(Rest, [K] ++ Acc)
; false -> extract_parser_opts(Rest, Acc)
end.
%% conversion of floats to 'nice' decimal output. erlang's float implementation
%% is almost but not quite ieee 754. it converts negative zero to plain zero