|
@@ -1,5 +1,6 @@
|
|
|
import functools
|
|
|
from uuid import UUID
|
|
|
+from api.od import ODAPI
|
|
|
from services import scd, od
|
|
|
from services.bottom.V0 import Bottom
|
|
|
from concrete_syntax.common import display_value, display_name, indent
|
|
@@ -9,13 +10,18 @@ def make_graphviz_id(uuid, prefix="") -> str:
|
|
|
result = 'n'+(prefix+str(uuid).replace('-',''))[24:] # we assume that the first 24 characters are always zero...
|
|
|
return result
|
|
|
|
|
|
-# Parameter 'reify': If true, will create a node in the middle of every link. This allows links to be the src/tgt of other links (which muMLE supports), at the cost of a larger diagram.
|
|
|
-# Parameter 'only_render': if specified, only render instances of these types. E.g., ["Place", "connection"]
|
|
|
-# Parameter 'type_to_style': mapping from type-name to graphviz style. E.g., { "generic_link": ",color=purple" }
|
|
|
-def render_object_diagram(state, m, mm, render_attributes=True, prefix_ids="", reify=False, only_render=None, type_to_style={}):
|
|
|
+def render_object_diagram(state, m, mm,
|
|
|
+ render_attributes=True, # doesn't do anything (yet)
|
|
|
+ prefix_ids="",
|
|
|
+ reify=False, # If true, will create a node in the middle of every link. This allows links to be the src/tgt of other links (which muMLE supports), but will result in a larger diagram.
|
|
|
+ only_render=None, # List of type names or None. If specified, only render instances of these types. E.g., ["Place", "connection"]
|
|
|
+ type_to_style={}, # Dictionary. Mapping from type-name to graphviz style. E.g., { "generic_link": ",color=purple" }
|
|
|
+ type_to_label={}, # Dictionary. Mapping from type-name to callback for custom label creation.
|
|
|
+):
|
|
|
bottom = Bottom(state)
|
|
|
mm_scd = scd.SCD(mm, state)
|
|
|
m_od = od.OD(mm, m, state)
|
|
|
+ odapi = ODAPI(state, m, mm)
|
|
|
|
|
|
make_id = functools.partial(make_graphviz_id, prefix=prefix_ids)
|
|
|
|
|
@@ -26,6 +32,10 @@ def render_object_diagram(state, m, mm, render_attributes=True, prefix_ids="", r
|
|
|
if only_render != None and class_name not in only_render:
|
|
|
continue
|
|
|
|
|
|
+ make_label = type_to_label.get(class_name,
|
|
|
+ # default, if not found:
|
|
|
+ lambda obj_name, obj, odapi: f"{display_name(obj_name)} : {class_name}")
|
|
|
+
|
|
|
output += f"\nsubgraph {class_name} {{"
|
|
|
|
|
|
if render_attributes:
|
|
@@ -39,7 +49,7 @@ def render_object_diagram(state, m, mm, render_attributes=True, prefix_ids="", r
|
|
|
output += f"\nnode [shape=rect,{custom_style}]"
|
|
|
|
|
|
for obj_name, obj_node in m_od.get_objects(class_node).items():
|
|
|
- output += f"\n{make_id(obj_node)} [label=\"{display_name(obj_name)} : {class_name}\"] ;"
|
|
|
+ output += f"\n{make_id(obj_node)} [label=\"{make_label(obj_name, obj_node, odapi)}\"] ;"
|
|
|
#" {{"
|
|
|
|
|
|
# if render_attributes:
|
|
@@ -59,6 +69,10 @@ def render_object_diagram(state, m, mm, render_attributes=True, prefix_ids="", r
|
|
|
if only_render != None and assoc_name not in only_render:
|
|
|
continue
|
|
|
|
|
|
+ make_label = type_to_label.get(assoc_name,
|
|
|
+ # default, if not found:
|
|
|
+ lambda lnk_name, lnk, odapi: f"{display_name(lnk_name)} : {assoc_name}")
|
|
|
+
|
|
|
output += f"\nsubgraph {assoc_name} {{"
|
|
|
|
|
|
custom_style = type_to_style.get(assoc_name, "")
|
|
@@ -81,9 +95,9 @@ def render_object_diagram(state, m, mm, render_attributes=True, prefix_ids="", r
|
|
|
# intermediary node:
|
|
|
output += f"\n{make_id(src_obj)} -> {make_id(link_edge)} [arrowhead=none]"
|
|
|
output += f"\n{make_id(link_edge)} -> {make_id(tgt_obj)}"
|
|
|
- output += f"\n{make_id(link_edge)} [xlabel=\"{display_name(link_name)} : {assoc_name}\"]"
|
|
|
+ output += f"\n{make_id(link_edge)} [xlabel=\"{make_label(link_name, link_edge, odapi)}\"]"
|
|
|
else:
|
|
|
- output += f"\n{make_id(src_obj)} -> {make_id(tgt_obj)} [label=\"{display_name(link_name)}:{assoc_name}\", {custom_style}] ;"
|
|
|
+ output += f"\n{make_id(src_obj)} -> {make_id(tgt_obj)} [label=\"{make_label(link_name, link_edge, odapi)}\", {custom_style}] ;"
|
|
|
|
|
|
output += '\n}'
|
|
|
|