Module Res.Weak

Resizable weak array using the default reallocation strategy.

Signatures and types
module Strategy = DefStrat

Module implementing the reallocation strategy

type strategy = Strategy.t

Type of reallocation strategy

type 'a t

Type of parameterized resizable arrays

Index and length information
val length : 'a t -> int

length ra

  • returns

    (virtual) length of resizable array ra excluding the reserved space.

val lix : 'a t -> int

lix ra

  • returns

    (virtual) last index of resizable array ra excluding the reserved space.

val real_length : 'a t -> int

real_length ra

  • returns

    (real) length of resizable array ra including the reserved space.

val real_lix : 'a t -> int

real_lix ra

  • returns

    (real) last index of resizable array ra including the reserved space.

Getting, setting and checking
val get : 'a t -> int -> 'a option

get ra n

  • returns

    the nth element of ra.

  • raises Invalid_argument

    if index out of bounds.

val get_copy : 'a t -> int -> 'a option

get_copy ra n see documentation of module Weak in the standard distribution.

val check : 'a t -> int -> bool

check ra n

  • returns

    true if the nth cell of ra is full, false if it is empty. Note that even if check ar n returns true, a subsequent getar n can return None.

val set : 'a t -> int -> 'a option -> unit

set ra n sets the nth element of ra.

  • raises Invalid_argument

    if index out of bounds.

Creation of resizable arrays
val sempty : strategy -> 'a t

sempty s

  • returns

    an empty resizable array using strategy s.

val empty : unit -> 'a t

empty () same as sempty but uses default strategy.

val screate : strategy -> int -> 'a t

screate s n el

  • returns

    a resizable array of length n using strategy s.

val create : int -> 'a t

create n same as screate but uses default strategy.

val sinit : strategy -> int -> (int -> 'a option) -> 'a t

sinit s n f

  • returns

    an array of length n containing elements that were created by applying function f to the index, using strategy s.

val init : int -> (int -> 'a option) -> 'a t

init n f sames as sinit but uses default strategy.

Strategy handling
val get_strategy : 'a t -> strategy

get_strategy ra

  • returns

    the reallocation strategy used by resizable array ra.

val set_strategy : 'a t -> strategy -> unit

set_strategy ra s sets the reallocation strategy of resizable array ra to s, possibly causing an immediate reallocation.

val put_strategy : 'a t -> strategy -> unit

put_strategy ra s sets the reallocation strategy of resizable array ra to s. Reallocation is only done at later changes in size.

val enforce_strategy : 'a t -> unit

enforce_strategy ra forces a reallocation if necessary (e.g. after a put_strategy).

Copying, blitting and range extraction
val copy : 'a t -> 'a t

copy ra

  • returns

    a copy of resizable array ra. The two arrays share the same strategy!

val sub : 'a t -> int -> int -> 'a t

sub ra ofs len

  • returns

    a resizable subarray of length len from resizable array ra starting at offset ofs using the default strategy.

  • raises Invalid_argument

    if parameters do not denote a correct subarray.

val fill : 'a t -> int -> int -> 'a option -> unit

fill ra ofs len el fills resizable array ra from offset ofs with len elements el, possibly adding elements at the end. Raises Invalid_argument if offset ofs is larger than the length of the array.

val blit : 'a t -> int -> 'a t -> int -> int -> unit

blit ra1 ofs1 ra2 ofs2 len blits resizable array ra1 onto ra2 reading len elements from offset ofs1 and writing them to ofs2, possibly adding elements at the end of ra2. Raises Invalid_argument if ofs1 and len do not designate a valid subarray of ra1 or if ofs2 is larger than the length of ra2.

Combining resizable arrays
val append : 'a t -> 'a t -> 'a t

append ra1 ra2

  • returns

    a new resizable array using the default strategy and copying ra1 and ra2 in this order onto it.

val concat : 'a t list -> 'a t

concat l

  • returns

    a new resizable array using the default strategy and copying all resizable arrays in l in their respective order onto it.

Adding and removing elements
val add_one : 'a t -> 'a option -> unit

add_one ra el adds element el to resizable array ra, possibly causing a reallocation.

val remove_one : 'a t -> unit

remove_one ra removes the last element of resizable array ra, possibly causing a reallocation.

  • raises Failure

    if the array is empty.

val remove_n : 'a t -> int -> unit

remove_n ra n removes the last n elements of resizable array ra, possibly causing a reallocation.

  • raises Invalid_argument

    if there are not enough elements or n < 0.

val remove_range : 'a t -> int -> int -> unit

remove_range ra ofs len removes len elements from resizable array ra starting at ofs and possibly causing a reallocation.

  • raises Invalid_argument

    if range is invalid.

val clear : 'a t -> unit

clear ra removes all elements from resizable array ra, possibly causing a reallocation.

Swapping
val swap : 'a t -> int -> int -> unit

swap ra n m swaps elements at indices n and m.

  • raises Invalid_argument

    if any index is out of range.

val swap_in_last : 'a t -> int -> unit

swap_in_last ra n swaps the last element with the one at position n.

  • raises Invalid_argument

    if index n is out of range.

Standard conversions
val to_std : 'a t -> 'a Stdlib.Weak.t

to_std ra converts a resizable weak array to a standard one.

val sof_std : strategy -> 'a Stdlib.Weak.t -> 'a t

sof_std s ar converts a standard weak array to a resizable one, using strategy s.

val of_std : 'a Stdlib.Weak.t -> 'a t

of_std ar converts a standard weak array to a resizable one using the default strategy.

List conversions
val to_list : 'a t -> 'a option list

to_list ra converts resizable array ra to a list.

val of_list : 'a option list -> 'a t

of_list l creates a resizable array using the default strategy and the elements in list l.

Iterators
val iter : ('a option -> unit) -> 'a t -> unit

iter f ra applies the unit-function f to each element in resizable array ra.

val iteri : (int -> 'a option -> unit) -> 'a t -> unit

iteri f ra applies the unit-function f to each index and element in resizable array ra.

val fold_left : ('b -> 'a option -> 'b) -> 'b -> 'a t -> 'b

fold_left f a ra left-folds values in resizable array ra using function f and start accumulator a.

val fold_right : ('a option -> 'b -> 'b) -> 'a t -> 'b -> 'b

fold_right f a ra right-folds values in resizable array ra using function f and start accumulator a.

Scanning of resizable arrays
val for_all : ('a option -> bool) -> 'a t -> bool

for_all p ra

  • returns

    true if all elements in resizable array ra satisfy the predicate p, false otherwise.

val exists : ('a option -> bool) -> 'a t -> bool

exists p ra

  • returns

    true if at least one element in resizable array ra satisfies the predicate p, false otherwise.

val mem : 'a option -> 'a t -> bool

mem el ra

  • returns

    true if element el is logically equal to any element in resizable array ra, false otherwise.

val memq : 'a option -> 'a t -> bool

memq el ra

  • returns

    true if element el is physically equal to any element in resizable array ra, false otherwise.

val pos : 'a option -> 'a t -> int option

pos el ra

  • returns

    Some index if el is logically equal to the element at index in ra, None otherwise. index is the index of the first element that matches.

val posq : 'a option -> 'a t -> int option

posq el ra

  • returns

    Some index if el is physically equal to the element at index in ra, None otherwise. index is the index of the first element that matches.

Searching of resizable arrays
val find : ('a option -> bool) -> 'a t -> 'a option

find p ra

  • returns

    the first element in resizable array ra that satisfies predicate p.

  • raises Not_found

    if there is no such element.

val find_index : ('a option -> bool) -> 'a t -> int -> int

find_index p ra pos

  • returns

    the index of the first element that satisfies predicate p in resizable array ra, starting search at index pos.

  • raises Not_found

    if there is no such element or if pos is larger than the highest index.

  • raises Invalid_argument

    if pos is negative.

val filter : ('a option -> bool) -> 'a t -> 'a t

filter p ra

  • returns

    a new resizable array by filtering out all elements in ra that satisfy predicate p using the same strategy as ra.

val find_all : ('a option -> bool) -> 'a t -> 'a t

find_all p ra is the same as filter

val filter_in_place : ('a option -> bool) -> 'a t -> unit

filter_in_place p ra as filter, but filters in place.

val partition : ('a option -> bool) -> 'a t -> 'a t * 'a t

partition p ra

  • returns

    a pair of resizable arrays, the left part containing only elements of ra that satisfy predicate p, the right one only those that do not satisfy it. Both returned arrays are created using the strategy of ra.

UNSAFE STUFF - USE WITH CAUTION!
val unsafe_get : 'a t -> int -> 'a option
val unsafe_set : 'a t -> int -> 'a option -> unit
val unsafe_sub : 'a t -> int -> int -> 'a t
val unsafe_fill : 'a t -> int -> int -> 'a option -> unit
val unsafe_blit : 'a t -> int -> 'a t -> int -> int -> unit
val unsafe_remove_one : 'a t -> unit
val unsafe_remove_n : 'a t -> int -> unit
val unsafe_swap : 'a t -> int -> int -> unit
val unsafe_swap_in_last : 'a t -> int -> unit