DiaObject *aadlbox_copy(DiaObject *obj)
{
int i;
Handle *handle1,*handle2;
Aadlport *port;
ConnectionPoint *connection;
Aadlbox *aadlbox = (Aadlbox *) obj;
void *user_data = ((Aadlbox *) obj)->specific;
DiaObject *newobj = obj->type->ops->create(&obj->position,
user_data,
&handle1,&handle2);
object_copy_props(newobj,obj,FALSE);
/* copy ports */
for (i=0; i<aadlbox->num_ports; i++) {
Point p;
point_copy(&p, &aadlbox->ports[i]->handle->pos);
port = new_port(aadlbox->ports[i]->type, aadlbox->ports[i]->declaration);
aadlbox_add_port((Aadlbox *)newobj, &p, port);
}
/* copy connection points */
for (i=0; i<aadlbox->num_connections; i++) {
Point p;
point_copy(&p, &aadlbox->connections[i]->pos);
connection= g_new0(ConnectionPoint, 1);
aadlbox_add_connection((Aadlbox *)newobj, &p, connection);
}
return newobj;
}
/**
* @param filename the file to load from or NULL for default
* @param create_lazy if FALSE creates default objects for
* every known type. Otherwise default objects
* are created on demand
*
* Create all the default objects.
*/
gboolean
dia_object_defaults_load (const gchar *filename, gboolean create_lazy)
{
xmlDocPtr doc;
xmlNsPtr name_space;
ObjectNode obj_node, layer_node;
object_default_create_lazy = create_lazy;
if (!defaults_hash)
{
defaults_hash = g_hash_table_new_full(g_str_hash, g_str_equal,
NULL, _obj_destroy);
if (!create_lazy)
object_registry_foreach (_obj_create, defaults_hash);
}
/* overload properties from file */
if (!filename)
{
gchar *default_filename = dia_config_filename("defaults.dia");
if (g_file_test(default_filename, G_FILE_TEST_EXISTS))
doc = xmlDiaParseFile(default_filename);
else
doc = NULL;
g_free (default_filename);
}
else
doc = xmlDiaParseFile(filename);
if (!doc)
return FALSE;
name_space = xmlSearchNs(doc, doc->xmlRootNode, (const xmlChar *)"dia");
if (xmlStrcmp (doc->xmlRootNode->name, (const xmlChar *)"diagram")
|| (name_space == NULL))
{
message_error(_("Error loading defaults '%s'.\n"
"Not a Dia diagram file."),
dia_message_filename(filename));
xmlFreeDoc (doc);
return FALSE;
}
layer_node = doc->xmlRootNode->xmlChildrenNode;
while (layer_node)
{
if ( !xmlIsBlankNode(layer_node)
&& 0 == xmlStrcmp(layer_node->name, (const xmlChar *)"layer"))
{
obj_node = layer_node->xmlChildrenNode;
while (obj_node)
{
if (!xmlIsBlankNode(obj_node)
&& 0 == xmlStrcmp(obj_node->name, (const xmlChar *)"object"))
{
char *typestr = (char *) xmlGetProp(obj_node, (const xmlChar *)"type");
char *version = (char *) xmlGetProp(obj_node, (const xmlChar *)"version");
if (typestr)
{
DiaObject *obj = g_hash_table_lookup (defaults_hash, typestr);
if (!obj)
{
if (!create_lazy)
g_warning ("Unknown object '%s' while reading '%s'",
typestr, filename);
else
{
DiaObjectType *type = object_get_type (typestr);
if (type)
obj = type->ops->load (
obj_node,
0,
filename);
if (obj)
g_hash_table_insert (defaults_hash,
obj->type->name, obj);
}
}
else
{
#if 0 /* lots of complaining about missing attributes */
object_load_props(obj, obj_node); /* leaks ?? */
#else
DiaObject *def_obj;
def_obj = obj->type->ops->load (
obj_node,
/*version ? atoi(version) : 0,*/0,
filename);
if (def_obj->ops->set_props)
{
object_copy_props (obj, def_obj, TRUE);
def_obj->ops->destroy (def_obj);
}
else
{
/* can't copy props */
g_hash_table_replace (defaults_hash,
def_obj->type->name, def_obj);
}
#endif
}
if (version)
xmlFree (version);
xmlFree (typestr);
}
}
obj_node = obj_node->next;
}
}
layer_node = layer_node->next;
}
xmlFreeDoc(doc);
return TRUE;
}
