did you know the module definition must be the first non-whitespace, non-comment line in a module? i did not
This commit is contained in:
parent
c16351ad12
commit
86333b8e7f
6 changed files with 12 additions and 14 deletions
|
@ -20,10 +20,9 @@
|
|||
%% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
||||
%% THE SOFTWARE.
|
||||
|
||||
-author("alisdairsullivan@yahoo.ca").
|
||||
|
||||
|
||||
-module(jsx_parser).
|
||||
-author("alisdairsullivan@yahoo.ca").
|
||||
|
||||
-export([decode/1, event/2]).
|
||||
-export([literal/1, string/1, number/1]).
|
||||
|
|
|
@ -20,10 +20,10 @@
|
|||
%% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
||||
%% THE SOFTWARE.
|
||||
|
||||
-author("alisdairsullivan@yahoo.ca").
|
||||
|
||||
|
||||
-module(jsx_prettify).
|
||||
-author("alisdairsullivan@yahoo.ca").
|
||||
|
||||
|
||||
-export([pretty/2, jsx_event/2]).
|
||||
|
||||
|
|
|
@ -20,10 +20,9 @@
|
|||
%% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
||||
%% THE SOFTWARE.
|
||||
|
||||
-author("alisdairsullivan@yahoo.ca").
|
||||
|
||||
|
||||
-module(jsx_stream_parser).
|
||||
-author("alisdairsullivan@yahoo.ca").
|
||||
|
||||
-export([decoder/1, event/2]).
|
||||
|
||||
|
@ -35,6 +34,7 @@ decoder(Opts) ->
|
|||
catch
|
||||
throw:{ok, Result} -> Result
|
||||
; throw:not_found -> not_found
|
||||
; _:_ -> throw(badarg)
|
||||
end
|
||||
end.
|
||||
|
||||
|
|
|
@ -20,10 +20,9 @@
|
|||
%% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
||||
%% THE SOFTWARE.
|
||||
|
||||
-author("alisdairsullivan@yahoo.ca").
|
||||
|
||||
|
||||
-module(jsx).
|
||||
-author("alisdairsullivan@yahoo.ca").
|
||||
|
||||
-export([decoder/0, decoder/2, tail_clean/1]).
|
||||
|
||||
|
|
|
@ -20,10 +20,9 @@
|
|||
%% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
||||
%% THE SOFTWARE.
|
||||
|
||||
-author("alisdairsullivan@yahoo.ca").
|
||||
|
||||
|
||||
-module(jsx_decoder).
|
||||
-author("alisdairsullivan@yahoo.ca").
|
||||
|
||||
-export([start/4]).
|
||||
|
||||
|
|
|
@ -20,10 +20,9 @@
|
|||
%% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
||||
%% THE SOFTWARE.
|
||||
|
||||
-author("alisdairsullivan@yahoo.ca").
|
||||
|
||||
|
||||
-module(jsx_test).
|
||||
-author("alisdairsullivan@yahoo.ca").
|
||||
|
||||
-export([test/1]).
|
||||
|
||||
|
@ -62,7 +61,8 @@ test_body(TestSpec, Dir) ->
|
|||
end.
|
||||
|
||||
incremental_decode(F, <<>>) ->
|
||||
{Result, _} = F(<<>>),
|
||||
{Result, Rest} = F(<<>>),
|
||||
true = tail_clean(Rest),
|
||||
Result;
|
||||
incremental_decode(F, <<A/utf8, Rest/binary>>) ->
|
||||
case F(<<A/utf8>>) of
|
||||
|
@ -77,7 +77,8 @@ decode(F, JSON) ->
|
|||
G when is_function(G) ->
|
||||
{Result, <<>>} = G(<<>>),
|
||||
Result
|
||||
; {Result, _} ->
|
||||
; {Result, Rest} ->
|
||||
true = tail_clean(Rest),
|
||||
Result
|
||||
end.
|
||||
|
Loading…
Add table
Add a link
Reference in a new issue