Packages

glint

0.12.0-rc4
1.3.0 1.2.1 1.2.0 1.1.1 1.1.0 1.0.1 1.0.0 1.0.0-rc5 1.0.0-rc4 1.0.0-rc3 1.0.0-rc2 1.0.0-rc1 0.18.1 0.18.0 0.17.1 0.17.0 0.16.0 0.16.0-rc1 0.15.0 0.15.0-rc2 0.15.0-rc1 0.14.0 0.13.0 0.12.0 0.12.0-rc6 0.12.0-rc5 0.12.0-rc4 0.12.0-rc3 0.12.0-rc2 0.12.0-rc1 0.11.4 0.11.3 0.11.2 0.11.0 0.10.0 0.9.0 0.8.0 0.7.4 0.7.3 0.7.2 0.7.1 0.7.0 0.6.0 0.5.0 0.4.0 0.3.0 0.2.0 0.1.3 0.1.2 0.1.1 0.1.0

Gleam command-line argument parsing with flags and automated help text generation.

HexDocs

Current section

Files

Jump to
Readme
51 Versions
4 Dependencies
29 Dependants
Files
Activity
glint src glint@flag@constraint.erl
Raw

src/glint@flag@constraint.erl 

-module(glint@flag@constraint).

-compile([no_auto_import, nowarn_unused_vars]).



-export([one_of/1, none_of/1, each/1]).



-spec one_of(list(FWD)) -> fun((FWD) -> {ok, nil} | {error, snag:snag()}).

one_of(Allowed) ->

    Allowed_set = gleam@set:from_list(Allowed),

    fun(Val) -> case gleam@set:contains(Allowed_set, Val) of

            true ->

                {ok, nil};



            false ->

                _pipe@2 = <<<<<<"invalid value '"/utf8,

                            (gleam@string:inspect(Val))/binary>>/binary,

                        "', must be one of: ["/utf8>>/binary,

                    ((<<(begin

                            _pipe = Allowed,

                            _pipe@1 = gleam@list:map(

                                _pipe,

                                fun(A) ->

                                    <<<<"'"/utf8,

                                            (gleam@string:inspect(A))/binary>>/binary,

                                        "'"/utf8>>

                                end

                            ),

                            gleam@string:join(_pipe@1, <<", "/utf8>>)

                        end)/binary,

                        "]"/utf8>>))/binary>>,

                snag:error(_pipe@2)

        end end.



-spec none_of(list(FWG)) -> fun((FWG) -> {ok, nil} | {error, snag:snag()}).

none_of(Disallowed) ->

    Disallowed_set = gleam@set:from_list(Disallowed),

    fun(Val) -> case gleam@set:contains(Disallowed_set, Val) of

            false ->

                {ok, nil};



            true ->

                _pipe@2 = <<<<<<"invalid value '"/utf8,

                            (gleam@string:inspect(Val))/binary>>/binary,

                        "', must not be one of: ["/utf8>>/binary,

                    ((<<(begin

                            _pipe = Disallowed,

                            _pipe@1 = gleam@list:map(

                                _pipe,

                                fun(A) ->

                                    <<<<"'"/utf8,

                                            (gleam@string:inspect(A))/binary>>/binary,

                                        "'"/utf8>>

                                end

                            ),

                            gleam@string:join(_pipe@1, <<", "/utf8>>)

                        end)/binary,

                        "]"/utf8>>))/binary>>,

                snag:error(_pipe@2)

        end end.



-spec each(fun((FWJ) -> {ok, nil} | {error, snag:snag()})) -> fun((list(FWJ)) -> {ok,

        nil} |

    {error, snag:snag()}).

each(Constraint) ->

    fun(L) -> _pipe = L,

        _pipe@1 = gleam@list:try_map(_pipe, Constraint),

        gleam@result:replace(_pipe@1, nil) end.