Packages

gleam_stdlib

0.55.0
1.0.3 1.0.2 1.0.1 1.0.0 0.71.0 0.70.0 0.69.0 0.68.1 0.68.0 0.67.1 0.67.0 0.65.0 0.64.0 0.63.2 0.63.1 0.63.0 0.62.1 0.62.0 0.61.0 0.60.0 0.59.0 0.58.0 0.57.0 0.56.0 0.55.0 0.54.0 0.53.0 0.52.0 0.51.0 0.50.0 0.49.0 0.48.0 0.47.0 0.46.0 0.45.0 0.44.0 0.43.0 0.42.0 0.41.0 0.40.0 0.39.0 0.38.0 0.37.0 0.36.0 0.35.1 0.35.0 0.34.0 0.33.1 0.33.0 0.32.1 0.32.0 0.31.0 0.30.2 0.30.1 0.30.0 0.29.2 0.29.1 0.29.0 0.28.2 0.28.1 0.28.0 0.27.0 0.26.1 0.26.0 0.25.0 0.24.0 0.23.0 0.22.3 0.22.2 0.22.1 0.22.0 0.21.0 0.20.0 0.19.3 0.19.2 0.19.1 0.19.0 0.18.1 0.18.0 0.18.0-rc1 0.17.1 0.17.0 0.16.0 0.15.0 0.14.0 0.13.0 0.12.0 0.11.0 0.10.1 0.10.0 0.9.0 0.8.0 0.7.0 0.6.0 0.5.0 0.4.0 0.4.0-rc1 0.3.1 0.3.0 0.2.0 retired

A standard library for the Gleam programming language

HexDocs

Current section

Files

Jump to
Readme
100 Versions
0 Dependencies
1565 Dependants
Files
Activity
gleam_stdlib src gleam_stdlib_decode_ffi.erl
Raw

src/gleam_stdlib_decode_ffi.erl 

-module(gleam_stdlib_decode_ffi).



-export([index/2, list/5, dict/1, int/1, float/1, bit_array/1, is_null/1]).



index([X | _], 0) ->

    {ok, {some, X}};

index([_, X | _], 1) ->

    {ok, {some, X}};

index(Tuple, Index) when is_tuple(Tuple) andalso is_integer(Index) ->

    {ok, try

        {some, element(Index + 1, Tuple)}

    catch _:_ -> 

        none

    end};

index(Map, Key) when is_map(Map) ->

    {ok, try

        {some, maps:get(Key, Map)}

    catch _:_ -> 

        none

    end};

index(_, Index) when is_integer(Index) ->

    {error, <<"Indexable">>};

index(_, _) ->

    {error, <<"Dict">>}.



list(T, A, B, C, D) when is_tuple(T) ->

    list(tuple_to_list(T), A, B, C, D);

list([], _, _, _, Acc) ->

    {lists:reverse(Acc), []};

list([X | Xs], Decode, PushPath, Index, Acc) ->

    {Out, Errors} = Decode(X),

    case Errors of

        [] -> list(Xs, Decode, PushPath, Index + 1, [Out | Acc]);

        _ -> PushPath({[], Errors}, integer_to_binary(Index))

    end;

list(Unexpected, _, _, _, []) ->

    Found = gleam@dynamic:classify(Unexpected),

    Error = {decode_error, <<"List"/utf8>>, Found, []},

    {[], [Error]};

list(_, _, _, _, Acc) ->

    {lists:reverse(Acc), []}.



dict(#{} = Data) -> {ok, Data};

dict(_) -> {error, nil}.



int(I) when is_integer(I) -> {ok, I};

int(_) -> {error, 0}.



float(F) when is_float(F) -> {ok, F};

float(_) -> {error, 0.0}.



bit_array(B) when is_bitstring(B) -> {ok, B};

bit_array(_) -> {error, <<>>}.



is_null(X) ->

    X =:= undefined orelse X =:= null orelse X =:= nil.