[Libguestfs] [libnbd PATCH 1/2] generator: Add string_starts_with functions to utils.ml

Previously, the file Rust.ml used the function String.starts_with. But this function is not available in older versions of OCaml. So an identical function (string_starts_with) has been created in utils.ml to be used instead. --- generator/utils.ml | 11 +++++++++++ generator/utils.mli | 3 +++ 2 files changed, 14 insertions(+) diff --git a/generator/utils.ml b/generator/utils.ml index 96c15ac..9f97aa7 100644 --- a/generator/utils.ml +++ b/generator/utils.ml @@ -570,3 +570,14 @@ let camel_case name = a ^ String.uppercase_ascii (Str.first_chars x 1) ^ String.lowercase_ascii (Str.string_after x 1) ) "" xs + +(* Copied from OCaml's stdlib because it was not available in earlier versions + of OCaml. *) +let string_starts_with ~prefix s = + let len_s = String.length s + and len_pre = String.length prefix in + let rec aux i = + if i = len_pre then true + else if String.unsafe_get s i <> String.unsafe_get prefix i then false + else aux (i + 1) + in len_s >= len_pre && aux 0 diff --git a/generator/utils.mli b/generator/utils.mli index c7681a9..d2def0b 100644 --- a/generator/utils.mli +++ b/generator/utils.mli @@ -80,3 +80,6 @@ val pod2text : cache_key -> cache_value (* Convert C function name to upper-camel-case name. *) val camel_case : string -> string + +(* Same as [String.starts_with] in later versions of OCaml. *) +val string_starts_with : prefix:string -> string -> bool -- 2.42.0