UTF8 type

1 files changed, 28 insertions, 0 deletions

diff --git a/lib/uTF8.ml b/lib/uTF8.ml
new file mode 100644
index 0000000..867046f
--- /dev/null
+++ b/lib/uTF8.ml
@@ -0,0 +1,28 @@
+(*─────────────────────────────────────────────────────────────────────────────┐
+│ SPDX-FileCopyrightText: 2025 toastal <https://toast.al/contact/>             │
+│ SPDX-License-Identifier: LGPL-2.1-or-later WITH OCaml-LGPL-linking-exception │
+└─────────────────────────────────────────────────────────────────────────────*)
+(* Extending Camomile *)
+include Camomile.UTF8
+
+let equal a b = compare a b = 0
+
+let pp ppf str = Fmt.pf ppf "%s" str
+
+let gen_uchar : Camomile.UChar.t QCheck.Gen.t =
+	let open QCheck.Gen in
+	let* i =
+		oneof [
+			int_range 0 0xD7FF;
+			int_range 0xE000 0x10FFFF;
+		];
+	in
+	return (Camomile.UChar.of_int i)
+
+let gen : t QCheck.Gen.t =
+	let open QCheck.Gen in
+	let* size = int_bound 40 in
+	let* chars = list_size (return size) gen_uchar in
+	let buf = Buf.create size in
+	List.iter (fun u -> Buf.add_char buf u) chars;
+	return (Buf.contents buf)