diff options
| author | Maxime Dénès | 2017-12-27 10:19:21 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2017-12-27 10:19:21 +0100 |
| commit | 4969f9425cb0d5cd5bd735110886a0cbd2641588 (patch) | |
| tree | 6c05276df78dd476642ab5db8437e8730d19eb56 /lib/cStack.ml | |
| parent | 3921ff2e2c189063ec46f54cbb247570b6c59b2c (diff) | |
| parent | 5ffa147bd2fe548df3ac9053fe497d0871a5f6df (diff) | |
Merge PR #6444: [lib] Split auxiliary libraries into Coq-specific and general.
Diffstat (limited to 'lib/cStack.ml')
| -rw-r--r-- | lib/cStack.ml | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/lib/cStack.ml b/lib/cStack.ml deleted file mode 100644 index 4acb2930c5..0000000000 --- a/lib/cStack.ml +++ /dev/null @@ -1,42 +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 *) -(************************************************************************) - -exception Empty = Stack.Empty - -type 'a t = { - mutable stack : 'a list; -} - -let create () = { stack = [] } - -let push x s = s.stack <- x :: s.stack - -let pop = function - | { stack = [] } -> raise Stack.Empty - | { stack = x::xs } as s -> s.stack <- xs; x - -let top = function - | { stack = [] } -> raise Stack.Empty - | { stack = x::_ } -> x - -let to_list { stack = s } = s - -let find f s = List.find f (to_list s) - -let find_map f s = CList.find_map f s.stack - -let fold_until f accu s = CList.fold_left_until f accu s.stack - -let is_empty { stack = s } = s = [] - -let iter f { stack = s } = List.iter f s - -let clear s = s.stack <- [] - -let length { stack = s } = List.length s - |