54 lines
1.7 KiB
OCaml
54 lines
1.7 KiB
OCaml
(***********************************************************************)
|
|
(* *)
|
|
(* Objective Caml *)
|
|
(* *)
|
|
(* Damien Doligez, projet Para, INRIA Rocquencourt *)
|
|
(* *)
|
|
(* Copyright 1997 Institut National de Recherche en Informatique et *)
|
|
(* en Automatique. All rights reserved. This file is distributed *)
|
|
(* under the terms of the GNU Library General Public License. *)
|
|
(* *)
|
|
(***********************************************************************)
|
|
|
|
(* $Id$ *)
|
|
|
|
(* Weak array operations *)
|
|
|
|
type 'a t;;
|
|
|
|
external create: int -> 'a t = "weak_create";;
|
|
|
|
let length x = Obj.size(Obj.repr x) - 1;;
|
|
|
|
external set : 'a t -> int -> 'a option -> unit = "weak_set";;
|
|
|
|
external get: 'a t -> int -> 'a option = "weak_get";;
|
|
|
|
external check: 'a t -> int -> bool = "weak_check";;
|
|
|
|
let fill ar ofs len x =
|
|
if ofs < 0 || len < 0 || ofs + len > length ar
|
|
then raise (Invalid_argument "Weak.fill")
|
|
else begin
|
|
for i = ofs to (ofs + len - 1) do
|
|
set ar i x
|
|
done
|
|
end
|
|
;;
|
|
|
|
let blit ar1 of1 ar2 of2 len =
|
|
if of1 < 0 || of1 + len > length ar1 || of2 < 0 || of2 + len > length ar2
|
|
then raise (Invalid_argument "Weak.blit")
|
|
else begin
|
|
if of2 > of1 then begin
|
|
for i = 0 to len - 1 do
|
|
set ar2 (of2 + i) (get ar1 (of1 + i))
|
|
done
|
|
end else begin
|
|
for i = len - 1 downto 0 do
|
|
set ar2 (of2 + i) (get ar1 (of1 + i))
|
|
done
|
|
end
|
|
end
|
|
;;
|