diff options
author | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-19 18:16:23 +0000 |
---|---|---|
committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-19 18:16:23 +0000 |
commit | 51684142c40fced940bb870742bc7f75c3e2fd52 (patch) | |
tree | 9a8e883e7c53d2fa23ef8f0d9deffabeccfeb56e /lib/stateid.mli | |
parent | 09d7951e0c0009e4ac55091cede25b88576759d2 (diff) |
Modulification and removing of structural equality in Stateid.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16705 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/stateid.mli')
-rw-r--r-- | lib/stateid.mli | 30 |
1 files changed, 16 insertions, 14 deletions
diff --git a/lib/stateid.mli b/lib/stateid.mli index 978f12691..27b083efd 100644 --- a/lib/stateid.mli +++ b/lib/stateid.mli @@ -8,24 +8,26 @@ open Xml_datatype -type state_id -val initial_state_id : state_id -val dummy_state_id : state_id -val fresh_state_id : unit -> state_id -val string_of_state_id : state_id -> string -val state_id_of_int : int -> state_id -val int_of_state_id : state_id -> int -val newer_than : state_id -> state_id -> bool +type t + +val equal : t -> t -> bool +val compare : t -> t -> int + +val initial : t +val dummy : t +val fresh : unit -> t +val to_string : t -> string +val of_int : int -> t +val to_int : t -> int +val newer_than : t -> t -> bool (* XML marshalling *) -val of_state_id : state_id -> xml -val to_state_id : xml -> state_id +val to_xml : t -> xml +val of_xml : xml -> t (* Attaches to an exception the concerned state id, plus an optional * state id that is a valid state id before the error. * Backtracking to the valid id is safe. * The initial_state_id is assumed to be safe. *) -val add_state_id : exn -> ?valid:state_id -> state_id -> exn -val get_state_id : exn -> (state_id * state_id) option - -module StateidOrderedType : Map.OrderedType with type t = state_id +val add : exn -> ?valid:t -> t -> exn +val get : exn -> (t * t) option |