+static void recursiveNewVariableType(const std::string& new_typename, const std::string& color,
+ simgrid::instr::Type* root)
+{
+ if (root->get_name() == "HOST" || root->get_name() == "VM")
+ root->by_name_or_create(std::string("p") + new_typename, color);
+
+ if (root->get_name() == "LINK")
+ root->by_name_or_create(std::string("b") + new_typename, color);
+
+ for (auto const& elm : root->get_children()) {
+ recursiveNewVariableType(new_typename, color, elm.second.get());
+ }
+}
+
+void instr_new_variable_type(const std::string& new_typename, const std::string& color)
+{
+ recursiveNewVariableType(new_typename, color, simgrid::instr::Container::get_root()->type_);
+}
+
+static void recursiveNewUserVariableType(const std::string& father_type, const std::string& new_typename,
+ const std::string& color, simgrid::instr::Type* root)
+{
+ if (root->get_name() == father_type) {
+ root->by_name_or_create(new_typename, color);
+ }
+ for (auto const& elm : root->get_children())
+ recursiveNewUserVariableType(father_type, new_typename, color, elm.second.get());
+}
+
+void instr_new_user_variable_type(const std::string& father_type, const std::string& new_typename,
+ const std::string& color)
+{
+ recursiveNewUserVariableType(father_type, new_typename, color, simgrid::instr::Container::get_root()->type_);
+}
+
+static void recursiveNewUserStateType(const std::string& father_type, const std::string& new_typename,
+ simgrid::instr::Type* root)
+{
+ if (root->get_name() == father_type)
+ root->by_name_or_create<simgrid::instr::StateType>(new_typename);
+
+ for (auto const& elm : root->get_children())
+ recursiveNewUserStateType(father_type, new_typename, elm.second.get());
+}
+
+void instr_new_user_state_type(const std::string& father_type, const std::string& new_typename)
+{
+ recursiveNewUserStateType(father_type, new_typename, simgrid::instr::Container::get_root()->type_);
+}
+
+static void recursiveNewValueForUserStateType(const std::string& type_name, const char* val, const std::string& color,
+ simgrid::instr::Type* root)
+{
+ if (root->get_name() == type_name)
+ static_cast<simgrid::instr::StateType*>(root)->add_entity_value(val, color);
+
+ for (auto const& elm : root->get_children())
+ recursiveNewValueForUserStateType(type_name, val, color, elm.second.get());
+}
+
+void instr_new_value_for_user_state_type(const std::string& type_name, const char* value, const std::string& color)
+{
+ recursiveNewValueForUserStateType(type_name, value, color, simgrid::instr::Container::get_root()->type_);
+}
+
+namespace simgrid {
+namespace instr {
+
+void platform_graph_export_graphviz(const std::string& output_filename)
+{
+ auto* g = xbt_graph_new_graph(0, nullptr);
+ std::map<std::string, xbt_node_t> nodes;
+ std::map<std::string, xbt_edge_t> edges;
+ s4u::Engine::get_instance()->get_netzone_root()->extract_xbt_graph(g, &nodes, &edges);
+
+ std::ofstream fs;
+ fs.open(output_filename, std::ofstream::out);
+ xbt_assert(not fs.fail(), "Failed to open %s", output_filename.c_str());
+
+ if (g->directed)
+ fs << "digraph test {" << std::endl;
+ else
+ fs << "graph test {" << std::endl;
+
+ fs << " graph [overlap=scale]" << std::endl;
+
+ fs << " node [shape=box, style=filled]" << std::endl;
+ fs << " node [width=.3, height=.3, style=filled, color=skyblue]" << std::endl << std::endl;
+
+ for (auto const& elm : nodes)
+ fs << " \"" << elm.first << "\";" << std::endl;
+
+ for (auto const& elm : edges) {
+ const char* src_s = static_cast<char*>(elm.second->src->data);
+ const char* dst_s = static_cast<char*>(elm.second->dst->data);
+ if (g->directed)
+ fs << " \"" << src_s << "\" -> \"" << dst_s << "\";" << std::endl;
+ else
+ fs << " \"" << src_s << "\" -- \"" << dst_s << "\";" << std::endl;
+ }
+ fs << "}" << std::endl;
+ fs.close();
+
+ xbt_graph_free_graph(g, xbt_free_f, xbt_free_f, nullptr);
+}
+
+/* Callbacks */
+static std::vector<NetZoneContainer*> currentContainer; /* push and pop, used only in creation */
+static void on_netzone_creation(s4u::NetZone const& netzone)