/* xmp-parse.c - simple parser for XMP metadata * * Copyright (C) 2004-2007, Raphaël Quinet * * This library is free software: you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 3 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library. If not, see * . */ /* This code implements a simple parser for XMP metadata. Its API is * based on the one provided by GMarkupParser (part of Glib). * * This is not a full RDF parser: it shares some of the limitations * inherited from glib (UTF-8 only, no special entities) and supports * RDF only to the extent needed for XMP. XMP defines several * "schemas" containing a list of "properties". Each property in a * schema has one value, which can be a simple type (e.g., integer or * text) or a structured type (rdf:Alt, rdf:Bag, rdf:Seq). As there * is no need to support a much deeper nesting of elements, this * parser does not try to maintain an arbitrarily large stack of * elements. Also, it does not support RDF features that are * forbidden by the XMP specs, such as rdf:parseType="Litteral". * * The design goals for this parser are: support all RDF features * needed for XMP (at least the features explicitely described in the * XMP spec), be tolerant in case unknown elements or attributes are * found, be as simple as possible, avoid building a DOM tree. * * TODO: * - support UCS-2 and UCS-4 besides UTF-8 (copy and convert the data) * - write a decent scanner for finding as recommended * in the XMP specification (including support for UCS-2 and UCS-4) * - provide an API for passing unknown elements or tags to the caller * - think about re-writing this using a better XML parser (expat?) * instead of the GMarkup parser */ #ifndef WITHOUT_GIMP # include "config.h" # include # include "libgimp/stdplugins-intl.h" #else # include # define _(String) (String) # define N_(String) (String) #endif #include "base64.h" #include "xmp-parse.h" GQuark xmp_parse_error_quark (void) { static GQuark error_quark = 0; if (error_quark == 0) error_quark = g_quark_from_static_string ("xmp-parse-error-quark"); return error_quark; } /* The current version of XMP (January 2004) is relatively simple in * that only a few elements (, , , * ) may include other elements and no deep nesting is * allowed. As a result, it is possible to include all allowed * combinations directly into the state instead of having to maintain * a separate stack besides the simple state enum. There is only a * 1-element stack (saved_state) used for some special cases such as * when skipping unknown tags or parsing a property with qualifiers. * * Here is a quick overview of the structure of an XMP document and * the corresponding state after reading each element. Depending on * the contents of each property, we can have the following cases * that are summarized as STATE_INSIDE... below: * - structured types can use any valid combination of the states * between STATE_INSIDE_QDESC and STATE_INSIDE_SEQ_LI_RSC; * - simple property types contain some text and no other element so * the only state will be STATE_INSIDE_PROPERTY while reading that * text; * - if the shorthand notation is used for some simple properties, * then they will be written as attributes of a top level * rdf:Description instead of being a separate element, so the * state will not go deeper than STATE_INSIDE_TOPLEVEL_DESC. * * (init) STATE_START * STATE_INSIDE_XPACKET * STATE_INSIDE_XMPMETA * STATE_INSIDE_RDF * STATE_INSIDE_TOPLEVEL_DESC * STATE_INSIDE_PROPERTY * ... (simple or structured property) STATE_INSIDE... * STATE_INSIDE_TOPLEVEL_DESC * STATE_INSIDE_PROPERTY * ... (simple or structured property) STATE_INSIDE... * STATE_INSIDE_TOPLEVEL_DESC * STATE_INSIDE_RDF * STATE_INSIDE_TOPLEVEL_DESC * ... (some properties) STATE_INSIDE_PROPERTY * STATE_INSIDE_RDF * ... * STATE_AFTER_RDF * STATE_AFTER_XMPMETA * STATE_AFTER_XPACKET * * Note: The abbreviation QDESC is used for the properties with * qualifiers (when is used deeper than at the top * level inside ). In that case, QDESC_VALUE contains the * value of the property and QDESC_QUAL is used for each of the * optional qualifiers (which are currently ignored). */ typedef enum { STATE_START, STATE_INSIDE_XPACKET, STATE_INSIDE_XMPMETA, STATE_INSIDE_RDF, STATE_INSIDE_TOPLEVEL_DESC, STATE_INSIDE_PROPERTY, STATE_INSIDE_QDESC, STATE_INSIDE_QDESC_VALUE, STATE_INSIDE_QDESC_QUAL, STATE_INSIDE_STRUCT_ADD_NS, STATE_INSIDE_STRUCT, STATE_INSIDE_STRUCT_ELEMENT, STATE_INSIDE_ALT, STATE_INSIDE_ALT_LI, STATE_INSIDE_ALT_LI_RSC, STATE_INSIDE_ALT_LI_RSC_IMG, STATE_INSIDE_BAG, STATE_INSIDE_BAG_LI, STATE_INSIDE_BAG_LI_RSC, STATE_INSIDE_SEQ, STATE_INSIDE_SEQ_LI, STATE_INSIDE_SEQ_LI_RSC, STATE_AFTER_RDF, STATE_AFTER_XMPMETA, STATE_AFTER_XPACKET, STATE_SKIPPING_UNKNOWN_ELEMENTS, STATE_SKIPPING_IGNORED_ELEMENTS, STATE_ERROR } XMPParseState; typedef struct { gint depth; gchar *uri; gchar *prefix; gint prefix_len; gpointer ns_user_data; } XMLNameSpace; struct _XMPParseContext { const XMPParser *parser; XMPParseFlags flags; gpointer user_data; GDestroyNotify user_data_dnotify; XMPParseState state; gint depth; GSList *namespaces; gchar *xmp_prefix; guint xmp_prefix_len; gchar *rdf_prefix; guint rdf_prefix_len; gchar *property; XMLNameSpace *property_ns; XMPParseType property_type; gchar **prop_value; gint prop_cur_value; gint prop_max_value; gboolean prop_missing_value; /* used when skipping tags, or inside a struct or property qualifier */ XMPParseState saved_state; gint saved_depth; GMarkupParseContext *markup_context; }; #ifdef DEBUG_XMP_PARSER static const gchar * const state_names[] = { "START", "INSIDE_XPACKET", "INSIDE_XMPMETA", "INSIDE_RDF", "INSIDE_TOPLEVEL_DESC", "INSIDE_PROPERTY", "INSIDE_QDESC", "INSIDE_QDESC_VALUE", "INSIDE_QDESC_QUAL", "INSIDE_STRUCT_ADD_NS", "INSIDE_STRUCT", "INSIDE_STRUCT_ELEMENT", "INSIDE_ALT", "INSIDE_ALT_LI", "INSIDE_ALT_LI_RSC", "INSIDE_ALT_LI_RSC_IMG", "INSIDE_BAG", "INSIDE_BAG_LI", "INSIDE_BAG_LI_RSC", "INSIDE_SEQ", "INSIDE_SEQ_LI", "INSIDE_SEQ_LI_RSC", "AFTER_RDF", "AFTER_XMPMETA", "AFTER_XPACKET", "SKIPPING_UNKNOWN_ELEMENTS", "SKIPPING_IGNORED_ELEMENTS", "ERROR", }; #endif /* report an error and propagate it */ static void parse_error (XMPParseContext *context, GError **error, XMPParseError code, const gchar *format, ...) { GError *tmp_error; if (code == XMP_ERROR_NO_XPACKET) tmp_error = g_error_new (XMP_PARSE_ERROR, code, _("Error: No XMP packet found")); else { gchar *s; va_list args; gint line_number; gint char_number; va_start (args, format); s = g_strdup_vprintf (format, args); va_end (args); g_markup_parse_context_get_position (context->markup_context, &line_number, &char_number); tmp_error = g_error_new (XMP_PARSE_ERROR, code, _("Error on line %d char %d: %s"), line_number, char_number, s); g_free (s); } context->state = STATE_ERROR; if (context->parser->error) (*context->parser->error) (context, tmp_error, context->user_data); g_propagate_error (error, tmp_error); } /* report an error if an unexpected element is found in the wrong context */ static void parse_error_element (XMPParseContext *context, GError **error, const gchar *expected_element, gboolean optional, const gchar *found_element) { if (optional == TRUE) parse_error (context, error, XMP_ERROR_UNEXPECTED_ELEMENT, _("Expected text or optional element <%s>, found <%s> instead"), expected_element, found_element); else parse_error (context, error, XMP_ERROR_UNEXPECTED_ELEMENT, _("Expected element <%s>, found <%s> instead"), expected_element, found_element); } /* skip an unknown element (unknown property) and its contents */ static void unknown_element (XMPParseContext *context, GError **error, const gchar *element_name) { #ifdef DEBUG_XMP_PARSER g_print ("XMP: SKIPPING %s\n", element_name); #endif if (context->flags & XMP_FLAG_NO_UNKNOWN_ELEMENTS) parse_error (context, error, XMP_ERROR_UNKNOWN_ELEMENT, _("Unknown element <%s>"), element_name); else { context->saved_depth = context->depth; context->saved_state = context->state; context->state = STATE_SKIPPING_UNKNOWN_ELEMENTS; } } /* skip and element and all other elements that it may contain */ static void ignore_element (XMPParseContext *context) { context->saved_depth = context->depth; context->saved_state = context->state; context->state = STATE_SKIPPING_IGNORED_ELEMENTS; } /* skip an unknown attribute (or abort if flags forbid unknown attributes) */ static void unknown_attribute (XMPParseContext *context, GError **error, const gchar *element_name, const gchar *attribute_name, const gchar *attribute_value) { if (context->flags & XMP_FLAG_NO_UNKNOWN_ATTRIBUTES) parse_error (context, error, XMP_ERROR_UNKNOWN_ATTRIBUTE, _("Unknown attribute \"%s\"=\"%s\" in element <%s>"), attribute_name, attribute_value, element_name); #ifdef DEBUG_XMP_PARSER g_print ("skipping unknown attribute \"%s\"=\"%s\" in element <%s>\n", attribute_name, attribute_value, element_name); #endif } static gboolean is_whitespace_string (const gchar *string) { const gchar *p; if (string == NULL) return TRUE; /* XML accepts only 4 ASCII chars as whitespace and no other UNICODE chars */ for (p = string; *p; ++p) if (*p != ' ' && *p != '\t' && *p != '\r' && *p != '\n') return FALSE; return TRUE; } /* new namespace/schema seen - add it to the list of namespaces */ static void push_namespace (XMPParseContext *context, const gchar *uri, const gchar *prefix, GError **error) { XMLNameSpace *ns; if (! strcmp (uri, "adobe:ns:meta/")) { g_free (context->xmp_prefix); context->xmp_prefix = g_strdup (prefix); /* XMP recommends "x:" */ context->xmp_prefix_len = strlen (prefix); return; } if (! strcmp (uri, "http://www.w3.org/1999/02/22-rdf-syntax-ns#")) { g_free (context->rdf_prefix); context->rdf_prefix = g_strdup (prefix); /* XMP recommends "rdf:" */ context->rdf_prefix_len = strlen (prefix); return; } ns = g_slice_new0 (XMLNameSpace); ns->depth = context->depth; ns->uri = g_strdup (uri); ns->prefix = g_strdup (prefix); ns->prefix_len = strlen (prefix); context->namespaces = g_slist_prepend (context->namespaces, ns); if (context->parser->start_schema) ns->ns_user_data = (*context->parser->start_schema) (context, ns->uri, ns->prefix, context->user_data, error); else ns->ns_user_data = NULL; } /* free all namespaces that are deeper than the current element depth */ static void pop_namespaces (XMPParseContext *context, GError **error) { XMLNameSpace *ns; if (context->namespaces == NULL) return; ns = context->namespaces->data; while (ns->depth >= context->depth) { if (context->parser->end_schema) (*context->parser->end_schema) (context, ns->ns_user_data, context->user_data, error); g_free (ns->uri); g_free (ns->prefix); g_slice_free (XMLNameSpace, ns); context->namespaces = g_slist_delete_link (context->namespaces, context->namespaces); if (context->namespaces == NULL) break; ns = context->namespaces->data; } } /* checks if an element name starts with the prefix of the given namespace */ static gboolean has_ns_prefix (const gchar *name, XMLNameSpace *ns) { if (ns == NULL) return FALSE; return ((strncmp (name, ns->prefix, ns->prefix_len) == 0) && (name[ns->prefix_len] == ':')); } /* checks if an element or attribute matches a target with the given prefix */ static gboolean matches_with_prefix (const gchar *name, const gchar *prefix, guint prefix_len, const gchar *target_name) { if (prefix == NULL) return FALSE; return ((strncmp (name, prefix, prefix_len) == 0) && (strlen (name) > prefix_len + 1) && (name[prefix_len] == ':') && (strcmp (name + prefix_len + 1, target_name) == 0)); } /* checks if an element or attribute matches a target in the RDF namespace */ static gboolean matches_rdf (const gchar *name, XMPParseContext *context, const gchar *target_name) { if (context->rdf_prefix != NULL) return matches_with_prefix (name, context->rdf_prefix, context->rdf_prefix_len, target_name); else return matches_with_prefix (name, "rdf", 3, target_name); } /* add a new property to the schema referenced by its prefix */ /* the value(s) of the property will be added later by add_property_value() */ static XMLNameSpace * new_property_in_ns (XMPParseContext *context, const gchar *element_name) { GSList *list; XMLNameSpace *ns; g_return_val_if_fail (context->property == NULL, NULL); g_return_val_if_fail (context->prop_cur_value == -1, NULL); /* element_name is a new property if it starts with a known prefix */ for (list = context->namespaces; list != NULL; list = g_slist_next (list)) { ns = list->data; if (has_ns_prefix (element_name, ns)) { context->property = g_strdup (element_name + ns->prefix_len + 1); context->property_type = XMP_PTYPE_UNKNOWN; context->property_ns = ns; context->prop_missing_value = FALSE; return ns; } } return NULL; } /* store a value for the current property - if the element containing the */ /* value is being parsed but the actual value has not been seen yet, then */ /* call this function with a NULL value so that its data structure is */ /* allocated now; it will be updated later with update_property_value() */ static void add_property_value (XMPParseContext *context, XMPParseType type, gchar *name, gchar *value) { g_return_if_fail (context->property != NULL); if (type == XMP_PTYPE_TEXT || type == XMP_PTYPE_RESOURCE) g_return_if_fail (context->prop_cur_value < 0); if (context->property_type != type) { /* make sure that we are not mixing different types in this property */ g_return_if_fail (context->property_type == XMP_PTYPE_UNKNOWN); context->property_type = type; } if (context->prop_cur_value + 3 >= context->prop_max_value) { context->prop_max_value += 10; context->prop_value = g_realloc (context->prop_value, sizeof (gchar *) * context->prop_max_value); } /* some types store a name and a value; most others store only a value */ if (type == XMP_PTYPE_ALT_LANG || type == XMP_PTYPE_STRUCTURE || type == XMP_PTYPE_ALT_THUMBS) /* for thumbnails, name is the size */ { context->prop_cur_value++; context->prop_value[context->prop_cur_value] = name; } else g_assert (name == NULL); context->prop_cur_value++; context->prop_value[context->prop_cur_value] = value; context->prop_value[context->prop_cur_value + 1] = NULL; /* if value was NULL, then we must update it later */ context->prop_missing_value = (value == NULL); } /* update a value that has been allocated but not stored yet */ static void update_property_value (XMPParseContext *context, gchar *value) { g_return_if_fail (context->property != NULL); g_return_if_fail (context->prop_cur_value >= 0); g_return_if_fail (context->prop_missing_value == TRUE); context->prop_value[context->prop_cur_value] = value; context->prop_missing_value = FALSE; } /* invoke the 'set_property' callback and free the temporary structures */ static void propagate_property (XMPParseContext *context, GError **error) { g_return_if_fail (context->property != NULL); g_return_if_fail (context->prop_cur_value >= 0); if (context->parser->set_property) (*context->parser->set_property) (context, context->property, context->property_type, (const gchar **)(context->prop_value), context->property_ns->ns_user_data, context->user_data, error); if (! (context->flags & XMP_FLAG_DEFER_VALUE_FREE)) { while (context->prop_cur_value >= 0) { g_free (context->prop_value[context->prop_cur_value]); context->prop_cur_value--; } g_free (context->prop_value); } context->prop_value = NULL; context->prop_cur_value = -1; context->prop_max_value = 0; g_free (context->property); context->property = NULL; context->property_ns = NULL; } /* called from the GMarkupParser */ static void start_element_handler (GMarkupParseContext *markup_context, const gchar *element_name, const gchar **attribute_names, const gchar **attribute_values, gpointer user_data, GError **error) { XMPParseContext *context = user_data; gint attr; #ifdef DEBUG_XMP_PARSER g_print ("[%25s/%17s] %d <%s>\n", state_names[context->state], (context->saved_state == STATE_ERROR ? "-" : state_names[context->saved_state]), context->depth, element_name); #endif context->depth++; for (attr = 0; attribute_names[attr] != NULL; ++attr) if (g_str_has_prefix (attribute_names[attr], "xmlns:")) push_namespace (context, attribute_values[attr], attribute_names[attr] + sizeof ("xmlns:") - 1, error); switch (context->state) { case STATE_INSIDE_XPACKET: if (! strcmp (element_name, "x:xmpmeta") || ! strcmp (element_name, "x:xapmeta") || matches_with_prefix (element_name, context->xmp_prefix, context->xmp_prefix_len, "xmpmeta")) context->state = STATE_INSIDE_XMPMETA; else if (matches_rdf (element_name, context, "RDF")) { /* the x:xmpmeta element is missing, but this is allowed */ context->depth++; context->state = STATE_INSIDE_RDF; } else parse_error_element (context, error, "x:xmpmeta", FALSE, element_name); break; case STATE_INSIDE_XMPMETA: if (matches_rdf (element_name, context, "RDF")) context->state = STATE_INSIDE_RDF; else parse_error_element (context, error, "rdf:RDF", FALSE, element_name); break; case STATE_INSIDE_RDF: if (matches_rdf (element_name, context, "Description")) { XMLNameSpace *ns; gboolean about_seen = FALSE; context->state = STATE_INSIDE_TOPLEVEL_DESC; for (attr = 0; attribute_names[attr] != NULL; ++attr) { if (matches_rdf (attribute_names[attr], context, "about") || ! strcmp (attribute_names[attr], "about") /* old style */) about_seen = TRUE; else if (g_str_has_prefix (attribute_names[attr], "xmlns")) ; /* the namespace has already been pushed on the stack */ else { ns = new_property_in_ns (context, attribute_names[attr]); if (ns != NULL) { /* RDF shorthand notation */ add_property_value (context, XMP_PTYPE_TEXT, NULL, g_strdup (attribute_values[attr])); propagate_property (context, error); } else unknown_attribute (context, error, element_name, attribute_names[attr], attribute_values[attr]); } } if ((about_seen == FALSE) && (context->flags & XMP_FLAG_NO_MISSING_ABOUT)) parse_error (context, error, XMP_ERROR_MISSING_ABOUT, _("Required attribute rdf:about missing in <%s>"), element_name); } else parse_error_element (context, error, "rdf:Description", FALSE, element_name); break; case STATE_INSIDE_TOPLEVEL_DESC: { XMLNameSpace *ns; ns = new_property_in_ns (context, element_name); if (ns != NULL) { context->state = STATE_INSIDE_PROPERTY; for (attr = 0; attribute_names[attr] != NULL; ++attr) { if (matches_rdf (attribute_names[attr], context, "resource")) add_property_value (context, XMP_PTYPE_RESOURCE, NULL, g_strdup (attribute_values[attr])); else if (matches_rdf (attribute_names[attr], context, "parseType") && ! strcmp (attribute_values[attr], "Resource")) { context->saved_state = STATE_INSIDE_TOPLEVEL_DESC; context->state = STATE_INSIDE_STRUCT_ADD_NS; } else unknown_attribute (context, error, element_name, attribute_names[attr], attribute_values[attr]); } } else unknown_element (context, error, element_name); } break; case STATE_INSIDE_PROPERTY: if (matches_rdf (element_name, context, "Description")) { context->saved_state = context->state; context->state = STATE_INSIDE_QDESC; for (attr = 0; attribute_names[attr] != NULL; ++attr) { if (g_str_has_prefix (attribute_names[attr], "xmlns")) { /* this desc. is a structure, not a property qualifier */ context->state = STATE_INSIDE_STRUCT_ADD_NS; } else unknown_attribute (context, error, element_name, attribute_names[attr], attribute_values[attr]); } } else if (matches_rdf (element_name, context, "Alt")) context->state = STATE_INSIDE_ALT; else if (matches_rdf (element_name, context, "Bag")) context->state = STATE_INSIDE_BAG; else if (matches_rdf (element_name, context, "Seq")) context->state = STATE_INSIDE_SEQ; else unknown_element (context, error, element_name); break; case STATE_INSIDE_QDESC: if (matches_rdf (element_name, context, "value")) context->state = STATE_INSIDE_QDESC_VALUE; else context->state = STATE_INSIDE_QDESC_QUAL; break; case STATE_INSIDE_STRUCT_ADD_NS: case STATE_INSIDE_STRUCT: { GSList *ns_list; XMLNameSpace *ns; gboolean found; /* compare with namespaces in scope of current rdf:Description */ found = FALSE; ns_list = context->namespaces; while (ns_list != NULL) { ns = ns_list->data; if (ns->depth < context->depth - 2) break; if (has_ns_prefix (element_name, ns)) { if (context->state == STATE_INSIDE_STRUCT_ADD_NS) { /* first element - save the namespace prefix and uri */ add_property_value (context, XMP_PTYPE_STRUCTURE, g_strdup (ns->prefix), g_strdup (ns->uri)); } context->state = STATE_INSIDE_STRUCT_ELEMENT; add_property_value (context, XMP_PTYPE_STRUCTURE, g_strdup (element_name + ns->prefix_len + 1), NULL); found = TRUE; break; } ns_list = ns_list->next; } if (found == FALSE) unknown_element (context, error, element_name); } break; case STATE_INSIDE_ALT: if (matches_rdf (element_name, context, "li")) { context->state = STATE_INSIDE_ALT_LI; for (attr = 0; attribute_names[attr] != NULL; ++attr) { if (matches_rdf (attribute_names[attr], context, "parseType") && ! strcmp (attribute_values[attr], "Resource")) context->state = STATE_INSIDE_ALT_LI_RSC; else if (! strcmp (attribute_names[attr], "xml:lang")) add_property_value (context, XMP_PTYPE_ALT_LANG, g_strdup (attribute_values[attr]), NULL); else unknown_attribute (context, error, element_name, attribute_names[attr], attribute_values[attr]); } /* rdf:Alt is not an ordered list, but some broken XMP files use */ /* it instead of rdf:Seq. Workaround: if we did not find some */ /* attributes for the valid cases ALT_LANG or ALT_LI_RSC, then */ /* we pretend that we are parsing a real list (bug #343315). */ if ((context->property_type != XMP_PTYPE_ALT_LANG) && (context->state != STATE_INSIDE_ALT_LI_RSC)) add_property_value (context, XMP_PTYPE_ORDERED_LIST, NULL, NULL); } else parse_error_element (context, error, "rdf:li", FALSE, element_name); break; case STATE_INSIDE_BAG: if (matches_rdf (element_name, context, "li")) { context->state = STATE_INSIDE_BAG_LI; for (attr = 0; attribute_names[attr] != NULL; ++attr) { if (matches_rdf (attribute_names[attr], context, "parseType") && ! strcmp (attribute_values[attr], "Resource")) context->state = STATE_INSIDE_BAG_LI_RSC; else unknown_attribute (context, error, element_name, attribute_names[attr], attribute_values[attr]); } if (context->state != STATE_INSIDE_BAG_LI_RSC) add_property_value (context, XMP_PTYPE_UNORDERED_LIST, NULL, NULL); } else parse_error_element (context, error, "rdf:li", FALSE, element_name); break; case STATE_INSIDE_SEQ: if (matches_rdf (element_name, context, "li")) { context->state = STATE_INSIDE_SEQ_LI; for (attr = 0; attribute_names[attr] != NULL; ++attr) { if (matches_rdf (attribute_names[attr], context, "parseType") && ! strcmp (attribute_values[attr], "Resource")) context->state = STATE_INSIDE_SEQ_LI_RSC; else unknown_attribute (context, error, element_name, attribute_names[attr], attribute_values[attr]); } if (context->state != STATE_INSIDE_SEQ_LI_RSC) add_property_value (context, XMP_PTYPE_ORDERED_LIST, NULL, NULL); } else parse_error_element (context, error, "rdf:li", FALSE, element_name); break; case STATE_INSIDE_BAG_LI: case STATE_INSIDE_SEQ_LI: if (matches_rdf (element_name, context, "Description")) { context->saved_state = context->state; context->state = STATE_INSIDE_QDESC; } else parse_error_element (context, error, "rdf:Description", TRUE, element_name); break; case STATE_INSIDE_ALT_LI_RSC: /* store the thumbnail image and ignore the other elements */ if (! strcmp (element_name, "xapGImg:image")) /* FIXME */ context->state = STATE_INSIDE_ALT_LI_RSC_IMG; else if (! strcmp (element_name, "xapGImg:format") || ! strcmp (element_name, "xapGImg:width") || ! strcmp (element_name, "xapGImg:height")) ignore_element (context); else unknown_element (context, error, element_name); break; case STATE_INSIDE_BAG_LI_RSC: case STATE_INSIDE_SEQ_LI_RSC: unknown_element (context, error, element_name); break; case STATE_SKIPPING_UNKNOWN_ELEMENTS: case STATE_SKIPPING_IGNORED_ELEMENTS: break; default: parse_error (context, error, XMP_ERROR_PARSE, _("Nested elements (<%s>) are not allowed in this context"), element_name); break; } } /* called from the GMarkupParser */ static void end_element_handler (GMarkupParseContext *markup_context, const gchar *element_name, gpointer user_data, GError **error) { XMPParseContext *context = user_data; #ifdef DEBUG_XMP_PARSER g_print ("[%25s/%17s] %d \n", state_names[context->state], (context->saved_state == STATE_ERROR ? "-" : state_names[context->saved_state]), context->depth, element_name); #endif switch (context->state) { case STATE_INSIDE_PROPERTY: context->state = STATE_INSIDE_TOPLEVEL_DESC; if (context->property != NULL) { if (context->prop_cur_value < 0) { /* if not set yet, then property was empty */ add_property_value (context, XMP_PTYPE_TEXT, NULL, g_strdup ("")); } propagate_property (context, error); } break; case STATE_INSIDE_STRUCT: context->state = context->saved_state; if (context->property != NULL) propagate_property (context, error); break; case STATE_INSIDE_ALT: case STATE_INSIDE_BAG: case STATE_INSIDE_SEQ: context->state = STATE_INSIDE_PROPERTY; break; case STATE_INSIDE_QDESC: context->state = context->saved_state; break; case STATE_INSIDE_QDESC_VALUE: case STATE_INSIDE_QDESC_QUAL: context->state = STATE_INSIDE_QDESC; break; case STATE_INSIDE_STRUCT_ELEMENT: context->state = STATE_INSIDE_STRUCT; if ((context->prop_cur_value >= 0) && (context->prop_value[context->prop_cur_value] == NULL)) update_property_value (context, g_strdup ("")); break; case STATE_INSIDE_ALT_LI: context->state = STATE_INSIDE_ALT; if ((context->prop_cur_value >= 0) && (context->prop_value[context->prop_cur_value] == NULL)) update_property_value (context, g_strdup ("")); break; case STATE_INSIDE_ALT_LI_RSC: context->state = STATE_INSIDE_ALT; break; case STATE_INSIDE_ALT_LI_RSC_IMG: context->state = STATE_INSIDE_ALT_LI_RSC; break; case STATE_INSIDE_BAG_LI: case STATE_INSIDE_BAG_LI_RSC: context->state = STATE_INSIDE_BAG; break; case STATE_INSIDE_SEQ_LI: case STATE_INSIDE_SEQ_LI_RSC: context->state = STATE_INSIDE_SEQ; break; case STATE_INSIDE_TOPLEVEL_DESC: g_return_if_fail (matches_rdf (element_name, context, "Description")); context->state = STATE_INSIDE_RDF; break; case STATE_INSIDE_RDF: g_return_if_fail (matches_rdf (element_name, context, "RDF")); context->state = STATE_AFTER_RDF; break; case STATE_AFTER_RDF: g_return_if_fail (! strcmp (element_name, "x:xmpmeta") || ! strcmp (element_name, "x:xapmeta") || matches_with_prefix (element_name, context->xmp_prefix, context->xmp_prefix_len, "xmpmeta")); context->state = STATE_AFTER_XMPMETA; break; case STATE_SKIPPING_UNKNOWN_ELEMENTS: case STATE_SKIPPING_IGNORED_ELEMENTS: if (context->depth == context->saved_depth) { /* resume normal processing */ context->state = context->saved_state; context->saved_state = STATE_ERROR; } break; default: parse_error (context, error, XMP_ERROR_PARSE, _("End of element <%s> not expected in this context"), element_name); break; } pop_namespaces (context, error); context->depth--; } /* called from the GMarkupParser */ static void text_handler (GMarkupParseContext *markup_context, const gchar *text, gsize text_len, gpointer user_data, GError **error) { XMPParseContext *context = user_data; switch (context->state) { case STATE_INSIDE_PROPERTY: if (! is_whitespace_string (text)) add_property_value (context, XMP_PTYPE_TEXT, NULL, g_strndup (text, text_len)); break; case STATE_INSIDE_STRUCT_ELEMENT: case STATE_INSIDE_ALT_LI: case STATE_INSIDE_BAG_LI: case STATE_INSIDE_SEQ_LI: if (! is_whitespace_string (text)) update_property_value (context, g_strndup (text, text_len)); break; case STATE_INSIDE_ALT_LI_RSC_IMG: { gint max_size; gchar *decoded; gint decoded_size; #ifdef DEBUG_XMP_PARSER /* g_print ("XMP: Pushing text:\n%s\n", text); */ #endif max_size = text_len - text_len / 4 + 1; decoded = g_malloc (max_size); decoded_size = base64_decode (text, text_len, decoded, max_size, FALSE); #ifdef DEBUG_XMP_PARSER if (decoded_size > 0) { /* FIXME: remove this debugging code */ /* FILE *ttt; ttt = fopen ("/tmp/xmp-thumb.jpg", "wb"); fwrite (decoded, decoded_size, 1, ttt); fclose (ttt); */ g_print ("XMP: Thumb text len: %d (1/4 = %d)\nMax size: %d\nUsed size: %d\n", (int) text_len, (int) text_len / 4, max_size, decoded_size); } #endif if (decoded_size > 0) { gint *size_p; size_p = g_new (gint, 1); *size_p = decoded_size; add_property_value (context, XMP_PTYPE_ALT_THUMBS, (char *) size_p, decoded); } else add_property_value (context, XMP_PTYPE_ALT_THUMBS, NULL, NULL); } break; case STATE_INSIDE_QDESC_VALUE: if (! is_whitespace_string (text)) { if (context->saved_state == STATE_INSIDE_PROPERTY) add_property_value (context, XMP_PTYPE_TEXT, NULL, g_strndup (text, text_len)); else update_property_value (context, g_strndup (text, text_len)); } break; case STATE_INSIDE_QDESC_QUAL: #ifdef DEBUG_XMP_PARSER g_print ("ignoring qualifier for part of \"%s\"[]: \"%.*s\"\n", context->property, (int)text_len, text); #endif /* FIXME: notify the user? add a way to collect qualifiers? */ break; case STATE_SKIPPING_UNKNOWN_ELEMENTS: case STATE_SKIPPING_IGNORED_ELEMENTS: break; default: if (! is_whitespace_string (text)) parse_error (context, error, XMP_ERROR_INVALID_CONTENT, _("The current element (<%s>) cannot contain text"), g_markup_parse_context_get_element (markup_context)); break; } } /* called from the GMarkupParser */ static void passthrough_handler (GMarkupParseContext *markup_context, const gchar *passthrough_text, gsize text_len, gpointer user_data, GError **error) { XMPParseContext *context = user_data; switch (context->state) { case STATE_START: case STATE_AFTER_XPACKET: if ((text_len >= 21) && (! strncmp (passthrough_text, "state = STATE_INSIDE_XPACKET; else parse_error (context, error, XMP_ERROR_PARSE, _("XMP packets must start with ")); break; case STATE_AFTER_RDF: /* the x:xmpmeta element is missing */ context->depth--; pop_namespaces (context, error); /*fallthrough*/ case STATE_AFTER_XMPMETA: if ((text_len >= 19) && (! strncmp (passthrough_text, "state = STATE_AFTER_XPACKET; else parse_error (context, error, XMP_ERROR_PARSE, _("XMP packets must end with ")); break; default: if ((text_len >= 18) && (! strncmp (passthrough_text, " */ else if (! (context->flags & XMP_FLAG_NO_COMMENTS) && (text_len > 7) && (! strncmp (passthrough_text, "