aboutsummaryrefslogtreecommitdiff
path: root/lib/cStack.mli
diff options
context:
space:
mode:
authorMaxime Dénès2017-12-27 10:19:21 +0100
committerMaxime Dénès2017-12-27 10:19:21 +0100
commit4969f9425cb0d5cd5bd735110886a0cbd2641588 (patch)
tree6c05276df78dd476642ab5db8437e8730d19eb56 /lib/cStack.mli
parent3921ff2e2c189063ec46f54cbb247570b6c59b2c (diff)
parent5ffa147bd2fe548df3ac9053fe497d0871a5f6df (diff)
Merge PR #6444: [lib] Split auxiliary libraries into Coq-specific and general.
Diffstat (limited to 'lib/cStack.mli')
-rw-r--r--lib/cStack.mli56
1 files changed, 0 insertions, 56 deletions
diff --git a/lib/cStack.mli b/lib/cStack.mli
deleted file mode 100644
index 8dde1d1a1a..0000000000
--- a/lib/cStack.mli
+++ /dev/null
@@ -1,56 +0,0 @@
-(************************************************************************)
-(* 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. *)
-