diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 1997-09-11 15:10:23 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 1997-09-11 15:10:23 +0000 |
| commit | c44e6f999a4b06a4b0e961e8607ab8c557501a57 (patch) | |
| tree | 3255033ee7995334288ca1ed7cd17d2b1de45451 /stdlib/array.ml | |
| parent | 1d41f4abb025864b1aee444790b613cc5f0a444a (diff) | |
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
Diffstat (limited to 'stdlib/array.ml')
| -rw-r--r-- | stdlib/array.ml | 5 |
1 files changed, 4 insertions, 1 deletions
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 |