diff options
| -rw-r--r-- | src/gleam/binary.gleam | 8 | ||||
| -rw-r--r-- | src/gleam/binary_native.erl | 20 | ||||
| -rw-r--r-- | src/gleam_stdlib.erl | 21 |
3 files changed, 24 insertions, 25 deletions
diff --git a/src/gleam/binary.gleam b/src/gleam/binary.gleam index c83b5e1..d830273 100644 --- a/src/gleam/binary.gleam +++ b/src/gleam/binary.gleam @@ -19,7 +19,7 @@ pub external fn byte_size(Binary) -> Int = /// "butterfly" /// pub external fn append(first: Binary, second: Binary) -> Binary = - "binary_native" "append" + "gleam_stdlib" "binary_append" /// Extracts part of a binary. /// @@ -30,16 +30,16 @@ pub external fn part( position: Int, length: Int, ) -> Result(Binary, Nil) = - "binary_native" "part" + "gleam_stdlib" "binary_part_" /// Convert an integer to unsigned 32 bits. /// /// Returns an error if integer is less than zero or equal to or larger than 2^32. pub external fn int_to_u32(Int) -> Result(Binary, Nil) = - "binary_native" "int_to_u32" + "gleam_stdlib" "binary_int_to_u32" /// Convert unsigned 32 bits to an integer /// /// Returns an error if the binary is not 32 bits in length. pub external fn int_from_u32(Binary) -> Result(Int, Nil) = - "binary_native" "int_from_u32" + "gleam_stdlib" "binary_int_from_u32" diff --git a/src/gleam/binary_native.erl b/src/gleam/binary_native.erl deleted file mode 100644 index c7dfad7..0000000 --- a/src/gleam/binary_native.erl +++ /dev/null @@ -1,20 +0,0 @@ --module (binary_native). --export ([int_to_u32/1, int_from_u32/1, append/2, part/3]). - -append(First, Second) -> - <<First/binary, Second/binary>>. - -part(Bin, Pos, Len) -> - try {ok, binary:part(Bin, Pos, Len)} catch - error:badarg -> {error, nil} - end. - -int_to_u32(I) when 0 =< I, I < 4294967296 -> - {ok, <<I:32>>}; -int_to_u32(_) -> - {error, nil}. - -int_from_u32(<<I:32>>) -> - {ok, I}; -int_from_u32(_) -> - {error, nil}. diff --git a/src/gleam_stdlib.erl b/src/gleam_stdlib.erl index 1b33126..376692b 100644 --- a/src/gleam_stdlib.erl +++ b/src/gleam_stdlib.erl @@ -8,7 +8,8 @@ decode_thunk/1, decode_atom/1, decode_list/1, decode_field/2, decode_element/2, parse_int/1, parse_float/1, compare_strings/2, string_pop_grapheme/1, string_starts_with/2, string_ends_with/2, - string_pad/4, decode_tuple2/1, decode_map/1]). + string_pad/4, decode_tuple2/1, decode_map/1, binary_int_to_u32/1, + binary_int_from_u32/1, binary_append/2, binary_part_/3]). should_equal(Actual, Expected) -> ?assertEqual(Expected, Actual). should_not_equal(Actual, Expected) -> ?assertNotEqual(Expected, Actual). @@ -139,3 +140,21 @@ string_pop_grapheme(String) -> {ok, {unicode:characters_to_binary([Next]), unicode:characters_to_binary(Rest)}}; _ -> {error, nil} end. + +binary_append(First, Second) -> + <<First/binary, Second/binary>>. + +binary_part_(Bin, Pos, Len) -> + try {ok, binary:part(Bin, Pos, Len)} catch + error:badarg -> {error, nil} + end. + +binary_int_to_u32(I) when 0 =< I, I < 4294967296 -> + {ok, <<I:32>>}; +binary_int_to_u32(_) -> + {error, nil}. + +binary_int_from_u32(<<I:32>>) -> + {ok, I}; +binary_int_from_u32(_) -> + {error, nil}. |