blob: 8dde1d1a1ad9c468ba3767312ac7e5b2d55091ae (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
(************************************************************************)
(* v * The Coq Proof Assistant / The Coq Development Team *)
(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2010 *)
(* \VV/ **************************************************************)
(* // * This file is distributed under the terms of the *)
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)
(** Extended interface for OCaml stacks. *)
type 'a t
exception Empty
(** Alias for Stack.Empty. *)
val create : unit -> 'a t
(** Create an empty stack. *)
val push : 'a -> 'a t -> unit
(** Add an element to a stack. *)
val find : ('a -> bool) -> 'a t -> 'a
(** Find the first element satisfying the predicate.
@raise Not_found it there is none. *)
val is_empty : 'a t -> bool
(** Whether a stack is empty. *)
val iter : ('a -> unit) -> 'a t -> unit
(** Iterate a function over elements, from the last added one. *)
val clear : 'a t -> unit
(** Empty a stack. *)
val length : 'a t -> int
(** Length of a stack. *)
val pop : 'a t -> 'a
(** Remove and returns the first element of the stack.
@raise Empty if empty. *)
val top : 'a t -> 'a
(** Remove the first element of the stack without modifying it.
@raise Empty if empty. *)
val to_list : 'a t -> 'a list
(** Convert to a list. *)
val find_map : ('a -> 'b option) -> 'a t -> 'b
(** Find the first element that returns [Some _].
@raise Not_found it there is none. *)
val fold_until : ('c -> 'a -> 'c CSig.until) -> 'c -> 'a t -> 'c
(** Like CList.fold_left_until.
The stack is traversed from the top and is not altered. *)
|
