factor out gen_json
This commit is contained in:
parent
61ef73ff72
commit
63faf04115
8 changed files with 20 additions and 184 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue