umgeher/jsx
0
Fork 0
Code Issues Pull requests Activity

incomplete work on multi term streams

Browse source
This commit is contained in:
alisdair sullivan 2010-06-23 16:43:09 -07:00
parent 37f9d2a07a
commit 46df6e5a38
4 changed files with 31 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/jsx.erl
View file

@ -160,14 +160,19 @@ parse_opts(Opts) ->
parse_opts([], Opts) ->
Opts;
parse_opts([{comments, Value}|Rest], {_Comments, EscapedUnicode, Stream}) ->
parse_opts([{comments, Value}|Rest], {_Comments, EscapedUnicode, Multi}) ->
true = lists:member(Value, [true, false]),
parse_opts(Rest, {Value, EscapedUnicode, Stream});
parse_opts([{escaped_unicode, Value}|Rest], {Comments, _EscapedUnicode, Stream}) ->
parse_opts(Rest, {Value, EscapedUnicode, Multi});
parse_opts([{escaped_unicode, Value}|Rest], {Comments, _EscapedUnicode, Multi}) ->
true = lists:member(Value, [ascii, codepoint, none]),
parse_opts(Rest, {Comments, Value, Stream});
parse_opts([{stream_mode, Value}|Rest], {Comments, EscapedUnicode, _Stream}) ->
true = lists:member(Value, [true, false]),
parse_opts(Rest, {Comments, Value, Multi});
parse_opts([{multi_term, Value}|Rest], {Comments, EscapedUnicode, _Multi}) ->
ok = case Value of
S when is_binary(S) -> ok
; whitespace -> ok
; true -> ok
; false -> ok
end,
parse_opts(Rest, {Comments, EscapedUnicode, Value});
parse_opts([{encoding, _}|Rest], Opts) ->
parse_opts(Rest, Opts).