Current section

Files

Jump to
gleam_erlang src gleam@erlang@atom.erl
Raw

src/gleam@erlang@atom.erl

-module(gleam@erlang@atom).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).
-export([get/1, create/1, to_string/1]).
-export_type([atom_/0]).
-if(?OTP_RELEASE >= 27).
-define(MODULEDOC(Str), -moduledoc(Str)).
-define(DOC(Str), -doc(Str)).
-else.
-define(MODULEDOC(Str), -compile([])).
-define(DOC(Str), -compile([])).
-endif.
-type atom_() :: any().
-file("src/gleam/erlang/atom.gleam", 24).
?DOC(
" Finds an existing atom for the given string.\n"
"\n"
" If no atom is found in the virtual machine's atom table for the string then\n"
" an error is returned.\n"
).
-spec get(binary()) -> {ok, atom_()} | {error, nil}.
get(A) ->
gleam_erlang_ffi:atom_from_string(A).
-file("src/gleam/erlang/atom.gleam", 36).
?DOC(
" Creates an atom from a string, inserting a new value into the virtual\n"
" machine's atom table if an atom does not already exist for the given\n"
" string.\n"
"\n"
" We must be careful when using this function as there is a limit to the\n"
" number of atom that can fit in the virtual machine's atom table. Never\n"
" convert user input into atoms as filling the atom table will cause the\n"
" virtual machine to crash!\n"
).
-spec create(binary()) -> atom_().
create(A) ->
erlang:binary_to_atom(A).
-file("src/gleam/erlang/atom.gleam", 49).
?DOC(
" Returns a `String` corresponding to the text representation of the given\n"
" `Atom`.\n"
"\n"
" ## Examples\n"
" ```gleam\n"
" let ok_atom = create(\"ok\")\n"
" to_string(ok_atom)\n"
" // -> \"ok\"\n"
" ```\n"
).
-spec to_string(atom_()) -> binary().
to_string(A) ->
erlang:atom_to_binary(A).