bit array for erlang

Author: renatillas

src/gleam/bit_array.gleam

@@ -45,6 +45,9 @@ pub fn slice(
   take length: Int,
 ) -> Result(BitArray, Nil)
 
+@external(erlang, "gleam_stdlib", "bit_array_split")
+pub fn split(x: BitArray, on subpattern: BitArray) -> List(BitArray)
+
 /// Tests to see whether a bit array is valid UTF-8.
 ///
 pub fn is_utf8(bits: BitArray) -> Bool {

src/gleam_stdlib.erl

@@ -206,6 +206,11 @@ bit_array_slice(Bin, Pos, Len) ->
     catch error:badarg -> {error, nil}
     end.
 
+bit_array_split(Bin, Sub) ->
+    try {ok, binary:split(Bin, Pos, Len)}
+    catch error:badarg -> {error, nil}
+    end.
+
 bit_array_int_to_u32(I) when 0 =< I, I < 4294967296 ->
     {ok, <<I:32>>};
 bit_array_int_to_u32(_) ->

test/gleam/bit_array_test.gleam

@@ -302,3 +302,15 @@ pub fn inspect_partial_bytes_test() {
   bit_array.inspect(<<5:3, 11:4, 1:2>>)
   |> should.equal("<<182, 1:size(1)>>")
 }
+
+@target(erlang)
+pub fn split_test() {
+  bit_array.split(<<"ILOVEGLEAM!":utf8>>, <<"GLEAM":utf8>>)
+  |> should.equal([<<"ILOVE":utf8>>, <<"!":utf8>>])
+
+  bit_array.inspect(<<100, 5:3>>)
+  |> should.equal("<<100, 5:size(3)>>")
+
+  bit_array.inspect(<<5:3, 11:4, 1:2>>)
+  |> should.equal("<<182, 1:size(1)>>")
+}