From 783331b03773ac8f165ad8773efd5dc12db99b2f Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Fri, 11 Jul 2014 23:07:26 +0200
Subject: [PATCH] CCString.init

---
 core/CCString.ml  | 5 +++++
 core/CCString.mli | 4 ++++
 2 files changed, 9 insertions(+)

diff --git a/core/CCString.ml b/core/CCString.ml
index 9c46b93c..1128093a 100644
--- a/core/CCString.ml
+++ b/core/CCString.ml
@@ -56,6 +56,11 @@ let compare = String.compare
 
 let hash s = Hashtbl.hash s
 
+let init n f =
+  let s = String.make n ' ' in
+  for i = 0 to n-1 do s.[i] <- f i done;
+  s
+
 let length = String.length
 
 let rec _to_list s acc i len =
diff --git a/core/CCString.mli b/core/CCString.mli
index 19fbe9fc..547ed083 100644
--- a/core/CCString.mli
+++ b/core/CCString.mli
@@ -62,6 +62,10 @@ val compare : t -> t -> int
 
 val hash : t -> int
 
+val init : int -> (int -> char) -> t
+(** Analog to [Array.init].
+    @since NEXT_VERSION *)
+
 val of_gen : char gen -> t
 val of_seq : char sequence -> t
 val of_klist : char klist -> t