diff options
Diffstat (limited to 'lib/store.mli')
-rw-r--r-- | lib/store.mli | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/lib/store.mli b/lib/store.mli deleted file mode 100644 index 8eab314e..00000000 --- a/lib/store.mli +++ /dev/null @@ -1,46 +0,0 @@ -(***********************************************************************) -(* v * The Coq Proof Assistant / The Coq Development Team *) -(* <O___,, * INRIA-Rocquencourt & LRI-CNRS-Orsay *) -(* \VV/ *************************************************************) -(* // * This file is distributed under the terms of the *) -(* * GNU Lesser General Public License Version 2.1 *) -(***********************************************************************) - -(*** This module implements an "untyped store", in this particular case we - see it as an extensible record whose fields are left unspecified. ***) - -module type T = -sig -(** FIXME: Waiting for first-class modules... *) -end - -module type S = -sig - type t - (** Type of stores *) - - type 'a field - (** Type of field of such stores *) - - val empty : t - (** Empty store *) - - val set : t -> 'a field -> 'a -> t - (** Set a field *) - - val get : t -> 'a field -> 'a option - (** Get the value of a field, if any *) - - val remove : t -> 'a field -> t - (** Unset the value of the field *) - - val merge : t -> t -> t - (** [merge s1 s2] adds all the fields of [s1] into [s2]. *) - - val field : unit -> 'a field - (** Create a new field *) - -end - -module Make (M : T) : S -(** Create a new store type. *) |