/*!
* \brief Parse an xml file from a filename given in Dia's/GLib's filename encoding
*
* @param filename A file to parse. On win32 the filename encoding is utf-8 since GLib 2.6
* @param ctx If something goes wrong during parsing ctx will include according messages
* @param try_harder If set an additional attempt is done with guessed encoding
* @return An XML document.
*
* \ingroup DiagramXmlIo
*/
xmlDocPtr
diaXmlParseFile(const char *filename, DiaContext *ctx, gboolean try_harder)
{
xmlDocPtr doc;
xmlErrorPtr err;
doc = xmlParseFile(filename);
if (!doc) {
err = xmlGetLastError ();
dia_context_add_message (ctx, "%s", err->message);
if (err->code == XML_ERR_INVALID_CHAR && try_harder) /* fallback to temporary file with encoding approach */
doc = xmlDiaParseFile (filename, ctx);
}
return doc;
}
/**
* @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;
}
