Packages

gleam_stdlib

0.2.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

Retired package: Release invalid - Does not compile correctly
HexDocs

Current section

Files

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

src/gleam__stdlib.erl 

-module(gleam__stdlib).

-include_lib("eunit/include/eunit.hrl").



-export([expect_equal/2, expect_not_equal/2, expect_true/1, expect_false/1,

         expect_is_ok/1, expect_is_error/1, atom_from_string/1,

         atom_create_from_string/1, atom_to_string/1, map_fetch/2,

         iodata_append/2, iodata_prepend/2, identity/1, decode_int/1,

         decode_string/1, decode_bool/1, decode_float/1, decode_thunk/1, decode_atom/1,

         decode_tuple/1, decode_list/1, decode_field/2, parse_int/1, parse_float/1]).



expect_equal(Actual, Expected) -> ?assertEqual(Expected, Actual).

expect_not_equal(Actual, Expected) -> ?assertNotEqual(Expected, Actual).

expect_true(A) -> ?assert(A).

expect_false(A) -> ?assertNot(A).

expect_is_ok(A) -> ?assertMatch({ok, _}, A).

expect_is_error(A) -> ?assertMatch({error, _}, A).



map_fetch(Map, Key) ->

  case maps:find(Key, Map) of

    error -> {error, not_found};

    OkFound -> OkFound

  end.



atom_create_from_string(S) ->

  binary_to_atom(S, utf8).



atom_to_string(S) ->

  atom_to_binary(S, utf8).



atom_from_string(S) ->

  try {ok, binary_to_existing_atom(S, utf8)} catch

    error:badarg -> {error, atom_not_loaded}

  end.



iodata_append(Iodata, String) -> [Iodata, String].

iodata_prepend(Iodata, String) -> [String, Iodata].



identity(X) -> X.



decode_error_msg(Type, Data) ->

  {error, iolist_to_binary(io_lib:format("Expected ~s, got `~p`", [Type, Data]))}.



decode_atom(Data) when is_atom(Data) -> {ok, Data};

decode_atom(Data) -> decode_error_msg("an Atom", Data).



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

decode_string(Data) -> decode_error_msg("a String", Data).



decode_int(Data) when is_integer(Data) -> {ok, Data};

decode_int(Data) -> decode_error_msg("an Int", Data).



decode_float(Data) when is_float(Data) -> {ok, Data};

decode_float(Data) -> decode_error_msg("a Float", Data).



decode_bool(Data) when is_boolean(Data) -> {ok, Data};

decode_bool(Data) -> decode_error_msg("a Bool", Data).



decode_thunk(Data) when is_function(Data, 0) -> {ok, Data};

decode_thunk(Data) -> decode_error_msg("a zero arity function", Data).



decode_tuple(Data = {_, _}) -> {ok, Data};

decode_tuple(Data) -> decode_error_msg("a 2 element tuple", Data).



decode_list(Data) when is_list(Data) -> {ok, Data};

decode_list(Data) -> decode_error_msg("a List", Data).



decode_field(Data, Key) ->

  case Data of

    #{Key := Value} ->

      {ok, Value};



    _ ->

      decode_error_msg(io_lib:format("a map with key `~p`", [Key]), Data)

  end.



parse_int(String) ->

  case string:to_integer(binary:bin_to_list(String)) of

    {Integer, []} ->

      {ok, Integer};



    _ ->

      {error, parse_error}

  end.



parse_float(String) ->

  case string:to_float(binary:bin_to_list(String)) of

    {Float, []} ->

      {ok, Float};



    _ ->

      {error, parse_error}

  end.