mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-06 03:05:31 -05:00
39 lines
1.8 KiB
OCaml
39 lines
1.8 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Cubicle *)
|
|
(* Combining model checking algorithms and SMT solvers *)
|
|
(* *)
|
|
(* Mohamed Iguernelala *)
|
|
(* Universite Paris-Sud 11 *)
|
|
(* *)
|
|
(* Copyright 2011. This file is distributed under the terms of the *)
|
|
(* Apache Software License version 2.0 *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
type 'a t = { mutable dummy: 'a; mutable data : 'a array; mutable sz : int }
|
|
val make : int -> 'a -> 'a t
|
|
val init : int -> (int -> 'a) -> 'a -> 'a t
|
|
val from_array : 'a array -> int -> 'a -> 'a t
|
|
val from_list : 'a list -> int -> 'a -> 'a t
|
|
val clear : 'a t -> unit
|
|
val shrink : 'a t -> int -> unit
|
|
val pop : 'a t -> unit
|
|
val size : 'a t -> int
|
|
val is_empty : 'a t -> bool
|
|
val grow_to : 'a t -> int -> unit
|
|
val grow_to_double_size : 'a t -> unit
|
|
val grow_to_by_double : 'a t -> int -> unit
|
|
val is_full : 'a t -> bool
|
|
val push : 'a t -> 'a -> unit
|
|
val push_none : 'a t -> unit
|
|
val last : 'a t -> 'a
|
|
val get : 'a t -> int -> 'a
|
|
val set : 'a t -> int -> 'a -> unit
|
|
val set_size : 'a t -> int -> unit
|
|
val copy : 'a t -> 'a t
|
|
val move_to : 'a t -> 'a t -> unit
|
|
val remove : 'a t -> 'a -> unit
|
|
val fast_remove : 'a t -> 'a -> unit
|
|
val sort : 'a t -> ('a -> 'a -> int) -> unit
|
|
val iter : ('a -> unit) -> 'a t -> unit
|