Packages

equery

0.8.0
0.22.0 0.21.0 0.20.0 0.19.0 0.18.1 0.18.0 0.17.2 0.17.1 0.17.0 0.16.2 0.16.1 0.16.0 0.15.0 0.14.2 0.14.1 0.14.0 0.13.4 0.13.2 0.13.1 0.13.0 0.12.1 0.12.0 0.11.0 0.10.1 0.9.1 0.9.0 0.8.4 0.8.3 0.8.2 0.8.1 0.8.0 0.6.2 0.6.1 0.2.0

Sql generator library

HexDocs

Current section

Files

Jump to
Readme
34 Versions
0 Dependencies
Dependants
Files
Activity
equery src qjson.erl
Raw

src/qjson.erl 

-module(qjson).



-export([

        '->'/2,

        '->>'/2,

        '#>'/2,

        '#>>'/2

       ]).



'->'(Field, Name) when is_binary(Name); is_atom(Name) ->

    qast:exp([

        Field,

        qast:raw("->"),

        qast:raw(

            equery_utils:string_wrap(

                equery_utils:to_binary(Name)))

    ], #{}).



'->>'(Field, Name) when is_binary(Name); is_atom(Name) ->

    qast:exp([

        Field,

        qast:raw("->>"),

        qast:raw(

            equery_utils:string_wrap(

                equery_utils:to_binary(Name)))

    ], #{type => text}).



'#>'(Field, Path) when is_list(Path) ->

    qast:exp([

        Field,

        qast:raw("#>"),

            braces_string_wrap(

                qast:join([

                    qast:raw(equery_utils:to_binary(P)) || P <- Path

                ], qast:raw(",")))

    ], #{}).



'#>>'(Field, Path) when is_list(Path) ->

    qast:exp([

        Field,

        qast:raw("#>>"),

            braces_string_wrap(

                qast:join([

                    qast:raw(equery_utils:to_binary(P)) || P <- Path

                ], qast:raw(",")))

    ], #{type => text}).



braces_string_wrap(Ast) ->

    qast:exp([

        qast:raw("'{"),

        Ast,

        qast:raw("}'")

    ]).



-ifdef(TEST).

-include_lib("eunit/include/eunit.hrl").



-endif.