X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Futils%2Fhcons_sig.ml;fp=src%2Futils%2Fhcons_sig.ml;h=0000000000000000000000000000000000000000;hp=599819c60827fa3665c9921ff552b7420c2fd62c;hb=b00bff88c7902e828804c06b7f9dc55222fdc84e;hpb=03b6a364e7240ca827585e7baff225a0aaa33bc6

diff --git a/src/utils/hcons_sig.ml b/src/utils/hcons_sig.ml
deleted file mode 100644
index 599819c..0000000
--- a/src/utils/hcons_sig.ml
+++ /dev/null
@@ -1,68 +0,0 @@
-(***********************************************************************)
-(*                                                                     *)
-(*                               TAToo                                 *)
-(*                                                                     *)
-(*                     Kim Nguyen, LRI UMR8623                         *)
-(*                   Université Paris-Sud & CNRS                       *)
-(*                                                                     *)
-(*  Copyright 2010-2012 Université Paris-Sud and Centre National de la *)
-(*  Recherche Scientifique. All rights reserved.  This file is         *)
-(*  distributed under the terms of the GNU Lesser General Public       *)
-(*  License, with the special exception on linking described in file   *)
-(*  ../LICENSE.                                                        *)
-(*                                                                     *)
-(***********************************************************************)
-
-(*
-  Time-stamp: <Last modified on 2013-03-04 22:36:31 CET by Kim Nguyen>
-*)
-
-  (** Abstract signature of a module implementing an hashconsed datatype *)
-module type Abstract =
-sig
-
-    (** The type of the data to be hash-consed *)
-  type data
-
-    (** The type of hashconsed data *)
-  type t
-
-    (** [make v] internalizes the value [v], making it an hashconsed
-        value.
-    *)
-  val make : data -> t
-
-    (** [node h] extract the original data from its hashconsed value
-    *)
-  val node : t -> data
-
-    (** [hash h] returns a hash of [h], such that for every [h1] and
-        [h2], [equal h1 h2] implies [hash h1 = hash h2].
-    *)
-  val hash : t -> int
-
-    (** [uid h] returns a unique identifier *)
-  val uid : t -> Uid.t
-
-    (** Equality between hashconsed values. Equivalent to [==] *)
-  val equal : t -> t -> bool
-
-    (** Initializes the internal storage. Any previously hashconsed
-        element is discarded. *)
-  val init : unit -> unit
-
-    (** Create a dummy (non-hashconsed) node with a boggus identifer
-        and hash *)
-  val dummy : data -> t
-end
-
-
-  (** Concrete signature of a module implementing an hashconsed datatype *)
-module type S =
-sig
-  type data
-  type t = private { id   : Uid.t;
-                     hash : int;
-                     node : data }
-  include Abstract with type data := data and type t := t
-end