let print ppf a =
fprintf ppf
- "Automaton (%i) :@\n\
+ "Unique ID: %i@\n\
States %a@\n\
Initial states: %a@\n\
Marking states: %a@\n\
let sline = Pretty.line (Pretty.length line) in
fprintf ppf "%s@\n" sline;
List.iter (fun s -> fprintf ppf "%s@\n" s) strings;
- fprintf ppf "%s@\n" sline
+ fprintf ppf "%s" sline
type jump_kind =
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 () = LOG(__ "transition" 3 "tag=<%s>, %s: %a7C"
+ LOG(__ "transition" 3 "tag=<%s>, %s: %a"
(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