projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
time_run
[tatoo.git]
/
src
/
asta.ml
diff --git
a/src/asta.ml
b/src/asta.ml
index
bbbba49
..
d866005
100644
(file)
--- a/
src/asta.ml
+++ b/
src/asta.ml
@@
-121,6
+121,12
@@
let init_top ast = ast.top <- (StateSet.empty)
let top_states ast = StateSet.elements ast.top
let top_states ast = StateSet.elements ast.top
+let top_states_s ast = ast.top
+
+let bot_states_s ast = ast.bottom
+
+let selec_states ast = ast.selec
+
let print fmt asta =
let print_box fmt flag =
let pp = Format.fprintf fmt in
let print fmt asta =
let print_box fmt flag =
let pp = Format.fprintf fmt in
@@
-145,6
+151,6
@@
let print fmt asta =
print_box_list asta.trans_q;
Format.fprintf fmt "@[<v 0># Recognizing transitions:@ %a@]"
print_box_list asta.trans_r in
print_box_list asta.trans_q;
Format.fprintf fmt "@[<v 0># Recognizing transitions:@ %a@]"
print_box_list asta.trans_r in
- Format.fprintf fmt "@[<v 1>##### ASTA #####@
,
%a@ @]@." print_box 0
+ Format.fprintf fmt "@[<v 1>##### ASTA #####@
.
%a@ @]@." print_box 0
let to_file out asta = ()
let to_file out asta = ()