Packages

jqish

0.1.1
0.2.1 0.2.0 0.1.2 0.1.1 0.1.0

Jq like thing for grabbing stuff out of json like objects

HexDocs

Current section

Files

Jump to
Readme
5 Versions
0 Dependencies
Dependants
Files
Activity
jqish src jqish_lexer.xrl
Raw

src/jqish_lexer.xrl 

Definitions.



INT        = [0-9]+

IDENTIFIER = [a-zA-Z_]+

ANYTHING = "[^"\\]*(\\.[^"\\]*)*"

WHITESPACE = [\s\t\n\r]+

OPTIONAL = \?

ITERATOR = \[\]



Rules.



{INT}                   : {token, {int, TokenLine, TokenChars}}.

{IDENTIFIER}            : {token, {identifier, TokenLine, to_binary(TokenChars)}}.

{ANYTHING}              : {token, {identifier, TokenLine, to_binary(parse_string(TokenChars))}}.

{OPTIONAL}              : {token, {'?', TokenLine}}.

{ITERATOR}              : {token, {iterator, TokenLine}}.

\[                      : {token, {'[', TokenLine}}.

\]                      : {token, {']', TokenLine}}.

\.                      : {token, {'.', TokenLine}}.

:                       : {token, {':', TokenLine}}.

{WHITESPACE}            : skip_token.



Erlang code.



to_binary(Chars) ->

  list_to_binary(Chars).



unescape([$\\,$\"|Cs]) -> [$\"|unescape(Cs)];

unescape([$\\,$\\|Cs]) -> [$\\|unescape(Cs)];

unescape([$\\,$/|Cs]) -> [$/|unescape(Cs)];

unescape([$\\,$b|Cs]) -> [$\b|unescape(Cs)];

unescape([$\\,$f|Cs]) -> [$\f|unescape(Cs)];

unescape([$\\,$n|Cs]) -> [$\n|unescape(Cs)];

unescape([$\\,$r|Cs]) -> [$\r|unescape(Cs)];

unescape([$\\,$t|Cs]) -> [$\t|unescape(Cs)];

unescape([$\\,$u,C0,C1,C2,C3|Cs]) ->

    C = dehex(C3) bor

  (dehex(C2) bsl 4) bor

  (dehex(C1) bsl 8) bor

  (dehex(C0) bsl 12),

    [C|unescape(Cs)];

unescape([$"|Cs]) -> unescape(Cs);

unescape([C|Cs]) -> [C|unescape(Cs)];

unescape([]) -> [].



dehex(C) when C >= $0, C =< $9 -> C - $0;

dehex(C) when C >= $a, C =< $f -> C - $a + 10;

dehex(C) when C >= $A, C =< $F -> C - $A + 10.



parse_string(StringChars) ->

  unescape(StringChars).