Packages

gleam_erlang

0.3.0
1.3.0 1.2.0 1.1.0 1.0.0 1.0.0-rc1 0.34.0 0.33.0 0.32.0 0.31.0 0.30.0 0.29.0 0.28.0 0.27.0 0.26.0 0.25.0 0.24.0 0.23.1 0.23.0 0.22.0 0.21.0 0.20.0 0.19.0 0.18.1 0.18.0 0.18.0-rc1 retired 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.0 0.9.3 0.9.2 0.9.1 0.9.0 0.8.0 0.7.0 0.6.0 0.5.0 0.4.0 0.3.0 0.2.0 0.1.0

Types and functions for programs running on Erlang!

HexDocs

Current section

Files

Jump to
Readme
46 Versions
1 Dependency
346 Dependants
Files
Activity
gleam_erlang src gleam_erlang_ffi.erl
Raw

src/gleam_erlang_ffi.erl 

-module(gleam_erlang_ffi).

-export([atom_from_dynamic/1, atom_create_from_string/1, atom_to_string/1,

         rescue/1, atom_from_string/1, get_line/1]).



-spec atom_from_string(binary()) -> {ok, atom()} | {error, atom_not_loaded}.

atom_from_string(S) ->

    try {ok, binary_to_existing_atom(S, utf8)}

    catch error:badarg -> {error, atom_not_loaded}

    end.



-spec atom_create_from_string(binary()) -> atom().

atom_create_from_string(S) ->

    binary_to_atom(S, utf8).



-spec atom_to_string(atom()) -> binary().

atom_to_string(S) ->

    atom_to_binary(S, utf8).



% TODO: Improve error type

-spec atom_from_dynamic(any()) -> {ok, atom()} | {error, binary()}.

atom_from_dynamic(Data) when is_atom(Data) ->

    {ok, Data};

atom_from_dynamic(Data) ->

    {error, {decode_error, <<"Atom">>, gleam@dynamic:classify(Data)}}.



-spec get_line(io:prompt()) -> {ok, unicode:unicode_binary()} | {error, eof | no_data}.

get_line(Prompt) ->

    case io:get_line(Prompt) of

        eof -> {error, eof};

        {error, _} -> {error, no_data};

        Data when is_binary(Data) -> {ok, Data};

        Data when is_list(Data) -> {ok, unicode:characters_to_binary(Data)}

    end.



rescue(F) ->

    try {ok, F()}

    catch

        throw:X -> {error, {thrown, X}};

        error:X -> {error, {errored, X}};

        exit:X -> {error, {exited, X}}

    end.