Packages

equery

0.22.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 equery_utils.erl
Raw

src/equery_utils.erl 

-module(equery_utils).

-moduledoc """

Identifier wrapping and shared grammar helpers.



Mostly internal: identifier quoting (`wrap/1`, `wrap_table/1`,

`field_name/1`) and the order-item builder shared between top-level

`ORDER BY` and aggregate-internal ordering (`order_item_exp/1`).

""".



-export([

         wrap/1,

         wrap_table/1,

         field_name/1,

         to_binary/1,

         order_item_exp/1

        ]).



-spec wrap(iodata()) -> iolist().

wrap(F) ->

    ["\"", F, "\""].



-spec wrap_table(binary() | {binary(), binary()}) -> iolist().

wrap_table({Schema, Table}) ->

    [wrap(Schema), $., wrap(Table)];

wrap_table(Table) ->

    wrap(Table).



-spec field_name(atom()) -> iolist().

field_name(Atom) when is_atom(Atom) ->

    wrap(atom_to_list(Atom)).



to_binary(Atom) when is_atom(Atom) ->

    atom_to_binary(Atom, utf8);

to_binary(Int) when is_integer(Int) ->

    integer_to_binary(Int);

to_binary(Bin) when is_binary(Bin) ->

    Bin.



-spec order_item_exp({qast:ast_node(), asc | desc}

                   | {qast:ast_node(), asc | desc, nulls_first | nulls_last})

    -> qast:ast_node().

order_item_exp({Field, Direction}) ->

    qast:exp([Field, direction_exp(Direction)]);

order_item_exp({Field, Direction, Nulls}) ->

    qast:exp([Field, direction_exp(Direction), nulls_exp(Nulls)]).



direction_exp(asc) -> qast:raw(<<" ASC">>);

direction_exp(desc) -> qast:raw(<<" DESC">>).



nulls_exp(nulls_first) -> qast:raw(<<" NULLS FIRST">>);

nulls_exp(nulls_last) -> qast:raw(<<" NULLS LAST">>).