projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Final test in run_test try my.query on my.xml (from thesis) + fixs in run.ml ==>...
[tatoo.git]
/
src
/
asta.ml
diff --git
a/src/asta.ml
b/src/asta.ml
index
3189b27
..
d866005
100644
(file)
--- a/
src/asta.ml
+++ b/
src/asta.ml
@@
-121,7
+121,9
@@
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 bot_states ast = ast.bottom
+let top_states_s ast = ast.top
+
+let bot_states_s ast = ast.bottom
let selec_states ast = ast.selec
let selec_states ast = ast.selec
@@
-149,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 = ()