simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 03:05:28 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

add CCDeque.clear

Browse source
This commit is contained in:
Simon Cruanes 2015-08-31 18:39:53 +02:00
parent f77172ee26
commit 944c85167f
2 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/data/CCDeque.ml
View file

@ -64,6 +64,12 @@ let create () =
let rec cur = { cell=Zero; prev=cur; next=cur } in let rec cur = { cell=Zero; prev=cur; next=cur } in
{ cur; size=0 } { cur; size=0 }
let clear q =
let rec cur = { cell=Zero; prev=cur; next=cur } in
q.cur <- cur;
q.size <- 0;
()
let incr_size_ d = d.size <- d.size + 1 let incr_size_ d = d.size <- d.size + 1
let decr_size_ d = d.size <- d.size - 1 let decr_size_ d = d.size <- d.size - 1

4
src/data/CCDeque.mli
View file

@ -33,6 +33,10 @@ exception Empty
val create : unit -> 'a t val create : unit -> 'a t
(** New deque *) (** New deque *)
val clear : _ t -> unit
(** Remove all elements
@since NEXT_RELEASE *)
val is_empty : 'a t -> bool val is_empty : 'a t -> bool
(** Is the deque empty? *) (** Is the deque empty? *)