v0.17~preview.129.07+242

Author: public-release

CHANGES.md

@@ -1,3 +1,12 @@
+* Added `Utf8`, `Utf16le`, `Utf16be`, `Utf32le` and `Utf32be` submodules to `Uchar` and `String` for Unicode
+encoding support.
+
+* Add a `Binary` submodule to `Int`, `Int32`, etc, which provide `to_string` and `sexp_of_t`
+with syntax matching the ocaml binary int literal syntax.
+
+* Add Quickcheck generator to `Uchar.t` and add Quickcheck generators to `String` for
+generating valid Unicode strings in different encodings.
+
 ## Release v0.16.0
 
 Changes that affect multiple modules:

LICENSE.md

@@ -1,6 +1,6 @@
 The MIT License
 
-Copyright (c) 2008--2023 Jane Street Group, LLC <[email protected]>
+Copyright (c) 2008--2024 Jane Street Group, LLC <[email protected]>
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

base_for_tests/src/dune

@@ -1,3 +1,6 @@
-(library (name base_for_tests) (public_name core.base_for_tests)
+(library
+ (name base_for_tests)
+ (public_name core.base_for_tests)
  (libraries base)
- (preprocess (pps ppx_base ppx_inline_test ppx_sexp_conv ppx_sexp_message)))
+ (preprocess
+  (pps ppx_base ppx_inline_test ppx_sexp_conv ppx_sexp_message)))

base_for_tests/src/test_blit.ml

@@ -30,7 +30,7 @@ module type For_tests_gen = sig
   module Src : sig
     type 'a t
 
-    val length : (_ t[@local]) -> int
+    val length : _ t -> int
     val create_bool : len:int -> bool z t
     val get : 'a z t -> int -> 'a Elt.t
     val set : 'a z t -> int -> 'a Elt.t -> unit
@@ -39,7 +39,7 @@ module type For_tests_gen = sig
   module Dst : sig
     type 'a t
 
-    val length : (_ t[@local]) -> int
+    val length : _ t -> int
     val create_bool : len:int -> bool z t
     val get : 'a z t -> int -> 'a Elt.t
     val set : 'a z t -> int -> 'a Elt.t -> unit

base_for_tests/src/test_blit_intf.ml

@@ -25,7 +25,7 @@ module type Sequence = sig
   type elt
 
   val create : len:int -> t
-  val length : (t[@local]) -> int
+  val length : t -> int
   val get : t -> int -> elt
   val set : t -> int -> elt -> unit
 end
@@ -37,7 +37,7 @@ module type Sequence1 = sig
 
   (** [Make1*] guarantees to only call [create_like ~len t] with [len > 0] if [length t >
       0]. *)
-  val length : (_ t[@local]) -> int
+  val length : _ t -> int
 
   (** [create_bool], [get], and [set] are just used for unit tests.  [z] is needed for
       [Flat_tuple_array], [elt] is needed for [Option_array]. *)

command/src/dune

@@ -1,3 +1,6 @@
-(library (name command) (public_name core.command)
+(library
+ (name command)
+ (public_name core.command)
  (libraries base filename_base stdio univ_map)
- (preprocess (pps ppx_jane ppx_optcomp)))
+ (preprocess
+  (pps ppx_jane ppx_optcomp)))

core/bench-bin/dune

@@ -1,8 +1,10 @@
 (executables
+ (modes byte exe)
  (names array_iter array_queue bench_hashtbl bench_map core_stack
-  core_string_search_pattern dequeue hashtbl_bench immediate_bench
-  ordering_container string_escaping time_to_string)
+   core_string_search_pattern dequeue hashtbl_bench immediate_bench
+   ordering_container string_escaping time_to_string)
  (libraries core_unix.command_unix core core_bench core_kernel.pairing_heap
-  core_kernel.pooled_hashtbl ppx_hash.runtime-lib pcre re2
-  shell.string_extended)
- (preprocess (pps ppx_jane)))
+   core_kernel.pooled_hashtbl ppx_hash.runtime-lib pcre re2
+   shell.string_extended)
+ (preprocess
+  (pps ppx_jane)))

core/replace_caml_modify_for_testing/dune

@@ -1,6 +1,10 @@
-(library (name replace_caml_modify_for_testing)
+(library
+ (foreign_stubs
+  (language c)
+  (names replace_caml_modify_for_testing_stub))
+ (name replace_caml_modify_for_testing)
  (library_flags -cclib -Xlinker -cclib --wrap -cclib -Xlinker -cclib
-  caml_modify -cclib -Xlinker -cclib --wrap -cclib -Xlinker -cclib
-  caml_modify_local)
- (c_names replace_caml_modify_for_testing_stub)
- (preprocess (pps ppx_inline_test)))
+   caml_modify -cclib -Xlinker -cclib --wrap -cclib -Xlinker -cclib
+   caml_modify_local)
+ (preprocess
+  (pps ppx_inline_test)))