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 ts = if ts == TagSet.star then TagSet.diff ts attributes else ts
in *)
let b = TagSet.mem tag ts in
- 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);