projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Refactor pretty printing of transitions and fix some depracated function uses.
[tatoo.git]
/
src
/
ata.mli
diff --git
a/src/ata.mli
b/src/ata.mli
index
e1fdc4a
..
54ed1b4
100644
(file)
--- a/
src/ata.mli
+++ b/
src/ata.mli
@@
-102,7
+102,7
@@
end
module TransList : sig
include Hlist.S with type elt = Transition.t
module TransList : sig
include Hlist.S with type elt = Transition.t
- val print :
Format.formatter -> ?sep:string
-> t -> unit
+ val print :
?sep:string -> Format.formatter
-> t -> unit
end
(** Hashconsed lists of transitions, with a printing facility *)
end
(** Hashconsed lists of transitions, with a printing facility *)
@@
-141,6
+141,10
@@
val get_form : t -> QNameSet.elt -> State.t -> Formula.t
(** [get_form auto l q] returns a single formula for label [l] in state [q].
Takes time proportional to the number of transitions in the automaton.
*)
(** [get_form auto l q] returns a single formula for label [l] in state [q].
Takes time proportional to the number of transitions in the automaton.
*)
+val state_prerequisites : move -> t -> State.t -> StateSet.t
+(** [state_prerequisites m auto q] returns the set of all states q' such
+ that [q', _ -> phi] and [m(q)] is in phi
+*)
val print : Format.formatter -> t -> unit
(** Pretty printing of the automaton *)
val print : Format.formatter -> t -> unit
(** Pretty printing of the automaton *)