jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Print causality constraints in a human readable shape.

Browse source
This commit is contained in:
Léonard Gérard 2010-08-02 16:32:40 +02:00
parent 418b961293
commit 79c4e2a581
1 changed files with 21 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
compiler/heptagon/analysis/causal.ml
View file

@ -53,28 +53,27 @@ and nc =
| Aac of ac
| Aempty
let output_ac ff ac = (*TODO LG fix breaks*)
let rec print priority ff ac =
fprintf ff "@[<hov 0>";
begin match ac with
| Aseq(ac1, ac2) ->
(if priority > 1
then fprintf ff "(%a@ < %a)"
else fprintf ff "%a@ < %a")
(print 1) ac1 (print 1) ac2
| Aand(ac1, ac2) ->
(if priority > 0
then fprintf ff "(%a || %a)"
else fprintf ff "%a || %a")
(print 0) ac1 (print 0) ac2
| Atuple(acs) ->
print_list_r (print 1) "(" "," ")" ff acs
| Awrite(m) -> fprintf ff "%s" (name m)
| Aread(m) -> fprintf ff "^%s" (name m)
| Alastread(m) -> fprintf ff "last %s" (name m)
end;
fprintf ff "@]" in
fprintf ff "@[%a@]@?" (print 0) ac
let output_ac ff ac =
let rec print priority ff ac = match ac with
| Aseq(ac1, ac2) -> (* priority 1 *)
(if priority = 1 then fprintf ff "%a@ < %a"
else if priority > 1
then fprintf ff "@[<v 1>(%a@ < %a)@]"
else fprintf ff "@[%a@ < %a@]")
(print 1) ac1 (print 1) ac2
| Aand(ac1, ac2) -> (* priority 0 *)
(if priority = 0 then fprintf ff "%a@ || %a"
else if priority > 0
then fprintf ff "@[<v 1>(%a@ || %a)@]"
else fprintf ff "@[%a@ || %a@]")
(print 0) ac1 (print 0) ac2
| Atuple(acs) ->
fprintf ff "@[%a@]" (print_list_r (print 1) "(" "," ")") acs
| Awrite(m) -> fprintf ff "%s" (name m)
| Aread(m) -> fprintf ff "^%s" (name m)
| Alastread(m) -> fprintf ff "last %s" (name m)
in
fprintf ff "@[<v 1>%a@]@?" (print 0) ac
type error = Ecausality_cycle of ac