From c44e6f999a4b06a4b0e961e8607ab8c557501a57 Mon Sep 17 00:00:00 2001 From: Damien Doligez Date: Thu, 11 Sep 1997 15:10:23 +0000 Subject: arg.ml, arg.mli, string.mli: amelioration de la doc array.mli, array.ml, random.ml: create -> make (coherence avec String) sys.ml, sys.mli: ajout max_string_length, max_array_length git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1706 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- stdlib/array.ml | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'stdlib/array.ml') diff --git a/stdlib/array.ml b/stdlib/array.ml index 901004de9..7a103f4ea 100644 --- a/stdlib/array.ml +++ b/stdlib/array.ml @@ -18,15 +18,18 @@ external get: 'a array -> int -> 'a = "%array_safe_get" external set: 'a array -> int -> 'a -> unit = "%array_safe_set" external unsafe_get: 'a array -> int -> 'a = "%array_unsafe_get" external unsafe_set: 'a array -> int -> 'a -> unit = "%array_unsafe_set" +external make: int -> 'a -> 'a array = "make_vect" external create: int -> 'a -> 'a array = "make_vect" -let create_matrix sx sy init = +let make_matrix sx sy init = let res = create sx [||] in for x = 0 to pred sx do unsafe_set res x (create sy init) done; res +let create_matrix = make_matrix + let copy a = let l = length a in if l = 0 then [||] else begin -- cgit v1.2.3-70-g09d2