Bit string JS funtions

2 files changed, 51 insertions, 30 deletions

diff --git a/src/gleam/bit_string.gleam b/src/gleam/bit_string.gleam
index fc6cf58..1d203dc 100644
--- a/src/gleam/bit_string.gleam
+++ b/src/gleam/bit_string.gleam
@@ -68,43 +68,54 @@ if erlang {
     length: Int,
   ) -> Result(BitString, Nil) =
     "gleam_stdlib" "bit_string_part_"
+}
 
-  /// Converts 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(BitString, Nil) =
-    "gleam_stdlib" "bit_string_int_to_u32"
-
-  /// Converts unsigned 32 bits to an integer.
-  ///
-  /// Returns an error if the bit string is not 32 bits in length.
-  ///
-  pub external fn int_from_u32(BitString) -> Result(Int, Nil) =
-    "gleam_stdlib" "bit_string_int_from_u32"
+/// Tests to see whether a bit string is valid UTF-8.
+///
+pub fn is_utf8(bits: BitString) -> Bool {
+  do_is_utf8(bits)
+}
 
-  /// Tests to see whether a bit string is valid UTF-8.
-  ///
-  pub fn is_utf8(bits: BitString) -> Bool {
+if erlang {
+  fn do_is_utf8(bits: BitString) -> Bool {
     case bits {
       <<>> -> True
       <<_:utf8, rest:binary>> -> is_utf8(rest)
       _ -> False
     }
   }
+}
 
+if javascript {
+  fn do_is_utf8(bits: BitString) -> Bool {
+    case to_string(bits) {
+      Ok(_) -> True
+      _ -> False
+    }
+  }
+}
+
+/// Converts a bit string to a string.
+///
+/// Returns an error if the bit string is invalid UTF-8 data.
+///
+pub fn to_string(bits: BitString) -> Result(String, Nil) {
+  do_to_string(bits)
+}
+
+if erlang {
   external fn unsafe_to_string(BitString) -> String =
     "gleam_stdlib" "identity"
 
-  /// Converts a bit string to a string.
-  ///
-  /// Returns an error if the bit string is invalid UTF-8 data.
-  ///
-  pub fn to_string(bits: BitString) -> Result(String, Nil) {
+  fn do_to_string(bits: BitString) -> Result(String, Nil) {
     case is_utf8(bits) {
       True -> Ok(unsafe_to_string(bits))
       False -> Error(Nil)
     }
   }
 }
+
+if javascript {
+  external fn do_to_string(BitString) -> Result(String, Nil) =
+    "../gleam_stdlib.js" "bit_string_to_string"
+}
diff --git a/src/gleam_stdlib.js b/src/gleam_stdlib.js
index 085bbe6..ff0921d 100644
--- a/src/gleam_stdlib.js
+++ b/src/gleam_stdlib.js
@@ -8,11 +8,11 @@ function to_list(array) {
   return list;
 }
 
-function ok(x) {
+function gleam_ok(x) {
   return { type: "Ok", 0: x };
 }
 
-function error(x) {
+function gleam_error(x) {
   return { type: "Error", 0: x };
 }
 
@@ -22,9 +22,9 @@ export function identity(x) {
 
 export function parse_int(value) {
   if (/^[-+]?(\d+)$/.test(value)) {
-    return ok(Number(value));
+    return gleam_ok(Number(value));
   } else {
-    return error(Nil);
+    return gleam_error(Nil);
   }
 }
 
@@ -72,9 +72,9 @@ export function pop_grapheme(string) {
     first = string.match(/./u)?.[0];
   }
   if (first) {
-    return ok([first, string.slice(first.length)]);
+    return gleam_ok([first, string.slice(first.length)]);
   } else {
-    return error(Nil);
+    return gleam_error(Nil);
   }
 }
 
@@ -143,9 +143,9 @@ export function split_once(haystack, needle) {
   if (index >= 0) {
     let before = haystack.slice(0, index);
     let after = haystack.slice(index + needle.length);
-    return ok([before, after]);
+    return gleam_ok([before, after]);
   } else {
-    return error(Nil);
+    return gleam_error(Nil);
   }
 }
 
@@ -189,3 +189,13 @@ export function stringify(data) {
 export function crash(message) {
   throw new Error(message);
 }
+
+export function bit_string_to_string(bit_string) {
+  try {
+    return gleam_ok(
+      new TextDecoder("utf-8", { fatal: true }).decode(bit_string)
+    );
+  } catch (_error) {
+    return gleam_error(undefined);
+  }
+}