Commit e10db0bd authored by Maxime Perrotin's avatar Maxime Perrotin

Slightly improve dot backend

parent e09ad2e4
......@@ -736,7 +736,7 @@ package body TASTE.Interface_View is
for PI of Each.Provided loop
-- Add periodic PIs to the list of connections
if PI.RCM = Cyclic_Operation then
if PI.RCM = Cyclic_Operation and not Each.Is_Type then
End_To_End_Connections := End_To_End_Connections
& (Caller => US ("ENV"),
Callee => Each.Name,
......
......@@ -24,9 +24,9 @@
@@-- @_Is_Type_@ : Flag, True if function is a component type
@@-- @_Instance_Of_@ : Optional name of component type
@@IF@@ @_Is_Type_@ = TRUE
@_Name_@ [shape=box, style=filled, fontsize=24, label="type @_Name_@ (@_Language_@)"];
@_Name_@ [shape=box, style=filled, fillcolor=gold,fontsize=24, label="type @_Name_@ (@_Language_@)"];
@@ELSIF@@ @_Instance_Of_@ /= ""
@_Name_@ [shape=box, fillcolor=cyan, style="filled, rounded", fontsize=20, label="@_Name_@ : @_Instance_Of_@"];
@_Name_@ [shape=box, fillcolor=beige, style="filled, rounded", fontsize=20, label="@_Name_@ : @_Instance_Of_@"];
@@ELSE@@
@_Name_@ [shape=box, fillcolor=cyan, style="filled, rounded", fontsize=20, label="@_Name_@ (@_Language_@)"];
@_Name_@ [shape=box, fillcolor=bisque, style="filled, rounded", fontsize=20, label="@_Name_@ (@_Language_@)"];
@@END_IF@@
......@@ -5,5 +5,9 @@
@@-- @_Callee_PIs_@ : |_ corresponding name of PIs
@_Functions'Indent_@
@@TABLE@@
@@IF@@ @_Caller_RIs_@ = @_Callee_PIs_@
@_Callers_@ -> @_Callees_@ [fontsize=14, color=blue, headlabel="[@_Callee_PIs_@]"];
@@ELSE@@
@_Callers_@ -> @_Callees_@ [fontsize=14, color=blue, headlabel="[@_Caller_RIs_@]", taillabel="[@_Callee_PIs_@]"];
@@END_IF@@
@@END_TABLE@@
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment