projects
/
tatoo.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4ce31bb
)
Also print the number of states when printing automata.
author
Kim Nguyễn
<kn@lri.fr>
Sun, 18 Aug 2013 10:18:26 +0000
(12:18 +0200)
committer
Kim Nguyễn
<kn@lri.fr>
Sun, 18 Aug 2013 10:18:26 +0000
(12:18 +0200)
src/ata.ml
patch
|
blob
|
history
diff --git
a/src/ata.ml
b/src/ata.ml
index
5e28a54
..
a4ea306
100644
(file)
--- a/
src/ata.ml
+++ b/
src/ata.ml
@@
-175,11
+175,13
@@
let print fmt a =
fprintf fmt
"Internal UID: %i@\n\
States: %a@\n\
+ Number of states: %i@\n\
Starting states: %a@\n\
Selection states: %a@\n\
Alternating transitions:@\n"
(a.id :> int)
StateSet.print a.states
+ (StateSet.cardinal a.states)
StateSet.print a.starting_states
StateSet.print a.selecting_states;
let trs =