projects
/
SXSI
/
xpathcomp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ff7893d
)
Add more logging statements.
author
Kim Nguyễn
<kn@lri.fr>
Wed, 2 May 2012 12:31:57 +0000
(14:31 +0200)
committer
Kim Nguyễn
<kn@lri.fr>
Wed, 2 May 2012 12:31:57 +0000
(14:31 +0200)
src/ata.ml
patch
|
blob
|
history
diff --git
a/src/ata.ml
b/src/ata.ml
index
ae633d3
..
8590a8e
100644
(file)
--- a/
src/ata.ml
+++ b/
src/ata.ml
@@
-268,14
+268,13
@@
let top_down_approx auto states tree =
let get_trans ?(attributes=TagSet.empty) auto states tag =
StateSet.fold (fun q acc ->
List.fold_left (fun ((tr_acc, l_acc, r_acc) as acc) (ts, tr) ->
let get_trans ?(attributes=TagSet.empty) auto states tag =
StateSet.fold (fun q acc ->
List.fold_left (fun ((tr_acc, l_acc, r_acc) as acc) (ts, tr) ->
- let ts = if ts == TagSet.star then TagSet.diff ts attributes else ts
- in
+
(*
let ts = if ts == TagSet.star then TagSet.diff ts attributes else ts
+ in
*)
let b = TagSet.mem tag ts in
let b = TagSet.mem tag ts in
-
let () =
LOG(__ "transition" 3 "tag=<%s>, %s: %a7C"
+ LOG(__ "transition" 3 "tag=<%s>, %s: %a7C"
(Tag.to_string tag)
(if b then " taking" else "not taking")
(Tag.to_string tag)
(if b then " taking" else "not taking")
- Transition.print tr)
- in
+ Transition.print tr);
if b then
let _, _, _, f = Transition.node tr in
let l, r = Formula.st f in
if b then
let _, _, _, f = Transition.node tr in
let l, r = Formula.st f in