sl@0: /* -*- mode: C; c-file-style: "gnu" -*- */
sl@0: /* config-loader-libxml.c  libxml2 XML loader
sl@0:  *
sl@0:  * Copyright (C) 2003 Red Hat, Inc.
sl@0:  * Portion Copyright © 2008 Nokia Corporation and/or its subsidiary(-ies). All rights reserved.
sl@0:  * Licensed under the Academic Free License version 2.1
sl@0:  * 
sl@0:  * This program is free software; you can redistribute it and/or modify
sl@0:  * it under the terms of the GNU General Public License as published by
sl@0:  * the Free Software Foundation; either version 2 of the License, or
sl@0:  * (at your option) any later version.
sl@0:  *
sl@0:  * This program is distributed in the hope that it will be useful,
sl@0:  * but WITHOUT ANY WARRANTY; without even the implied warranty of
sl@0:  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
sl@0:  * GNU General Public License for more details.
sl@0:  * 
sl@0:  * You should have received a copy of the GNU General Public License
sl@0:  * along with this program; if not, write to the Free Software
sl@0:  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
sl@0:  *
sl@0:  */
sl@0: 
sl@0: #include "config-parser.h"
sl@0: #ifndef __SYMBIAN32__
sl@0: #include <dbus/dbus-internals.h>
sl@0: #else
sl@0: #include "dbus-internals.h"
sl@0: #endif //__SYMBIAN32__
sl@0: #ifdef __SYMBIAN32__
sl@0: #include <libxml2_xmlreader.h>
sl@0: 
sl@0: #else
sl@0: #include <libxml/xmlreader.h>
sl@0: #include <libxml/parser.h>
sl@0: #include <libxml/globals.h>
sl@0: #include <libxml/xmlmemory.h>
sl@0: #endif
sl@0: #include <errno.h>
sl@0: #include <string.h>
sl@0: 
sl@0: /* About the error handling: 
sl@0:  *  - setup a "structured" error handler that catches structural
sl@0:  *    errors and some oom errors 
sl@0:  *  - assume that a libxml function returning an error code means
sl@0:  *    out-of-memory
sl@0:  */
sl@0: #define _DBUS_MAYBE_SET_OOM(e) (dbus_error_is_set(e) ? (void)0 : _DBUS_SET_OOM(e))
sl@0: 
sl@0: 
sl@0: static dbus_bool_t
sl@0: xml_text_start_element (BusConfigParser   *parser,
sl@0: 			xmlTextReader     *reader,
sl@0: 			DBusError         *error)
sl@0: {
sl@0:   const char *name;
sl@0:   int n_attributes;
sl@0:   const char **attribute_names, **attribute_values;
sl@0:   dbus_bool_t ret;
sl@0:   int i, status, is_empty;
sl@0: 
sl@0:   _DBUS_ASSERT_ERROR_IS_CLEAR (error);
sl@0: 
sl@0:   ret = FALSE;
sl@0:   attribute_names = NULL;
sl@0:   attribute_values = NULL;
sl@0: 
sl@0: #ifdef __SYMBIAN32__
sl@0:   name = (const char *) xmlTextReaderConstName (reader);
sl@0: #else
sl@0:   name = xmlTextReaderConstName (reader);
sl@0: #endif
sl@0:   n_attributes = xmlTextReaderAttributeCount (reader);
sl@0:   is_empty = xmlTextReaderIsEmptyElement (reader);
sl@0: 
sl@0:   if (name == NULL || n_attributes < 0 || is_empty == -1)
sl@0:     {
sl@0:       _DBUS_MAYBE_SET_OOM (error);
sl@0:       goto out;
sl@0:     }
sl@0: 
sl@0:   attribute_names = dbus_new0 (const char *, n_attributes + 1);
sl@0:   attribute_values = dbus_new0 (const char *, n_attributes + 1);
sl@0:   if (attribute_names == NULL || attribute_values == NULL)
sl@0:     {
sl@0:       _DBUS_SET_OOM (error);
sl@0:       goto out;
sl@0:     }
sl@0:   i = 0;
sl@0:   while ((status = xmlTextReaderMoveToNextAttribute (reader)) == 1)
sl@0:     {
sl@0:       _dbus_assert (i < n_attributes);
sl@0: #ifdef __SYMBIAN32__
sl@0:       attribute_names[i] = (const char *) xmlTextReaderConstName (reader);
sl@0:       attribute_values[i] = (const char *) xmlTextReaderConstValue (reader);
sl@0: #else
sl@0:       attribute_names[i] = xmlTextReaderConstName (reader);
sl@0:       attribute_values[i] = (xmlTextReaderConstValue (reader);
sl@0: #endif
sl@0:       if (attribute_names[i] == NULL || attribute_values[i] == NULL)
sl@0: 	{ 
sl@0:           _DBUS_MAYBE_SET_OOM (error);
sl@0: 	  goto out;
sl@0: 	}
sl@0:       i++;
sl@0:     }
sl@0:   if (status == -1)
sl@0:     {
sl@0:       _DBUS_MAYBE_SET_OOM (error);
sl@0:       goto out;
sl@0:     }
sl@0:   _dbus_assert (i == n_attributes);
sl@0: 
sl@0:   ret = bus_config_parser_start_element (parser, name,
sl@0: 					 attribute_names, attribute_values,
sl@0: 					 error);
sl@0:   if (ret && is_empty == 1)
sl@0:     ret = bus_config_parser_end_element (parser, name, error);
sl@0: 
sl@0:  out:
sl@0:   dbus_free (attribute_names);
sl@0:   dbus_free (attribute_values);
sl@0: 
sl@0:   return ret;
sl@0: }
sl@0: 
sl@0: static void xml_shut_up (void *ctx, const char *msg, ...)
sl@0: {
sl@0:     return;
sl@0: }
sl@0: 
sl@0: static void
sl@0: xml_text_reader_error (void *arg, xmlErrorPtr xml_error)
sl@0: {
sl@0:   DBusError *error = arg;
sl@0: 
sl@0: #if 0
sl@0:   _dbus_verbose ("XML_ERROR level=%d, domain=%d, code=%d, msg=%s\n",
sl@0:                  xml_error->level, xml_error->domain,
sl@0:                  xml_error->code, xml_error->message);
sl@0: #endif
sl@0: 
sl@0:   if (!dbus_error_is_set (error))
sl@0:     {
sl@0:       if (xml_error->code == XML_ERR_NO_MEMORY)
sl@0:         _DBUS_SET_OOM (error);
sl@0:       else if (xml_error->level == XML_ERR_ERROR ||
sl@0:                xml_error->level == XML_ERR_FATAL)
sl@0:         dbus_set_error (error, DBUS_ERROR_FAILED,
sl@0:                         "Error loading config file: '%s'",
sl@0:                         xml_error->message);
sl@0:     }
sl@0: }
sl@0: 
sl@0: 
sl@0: BusConfigParser*
sl@0: bus_config_load (const DBusString      *file,
sl@0:                  dbus_bool_t            is_toplevel,
sl@0:                  const BusConfigParser *parent,
sl@0:                  DBusError             *error)
sl@0: 
sl@0: {
sl@0:   xmlTextReader *reader;
sl@0:   BusConfigParser *parser;
sl@0:   DBusString dirname, data;
sl@0:   DBusError tmp_error;
sl@0:   int ret;
sl@0:   
sl@0:   _DBUS_ASSERT_ERROR_IS_CLEAR (error);
sl@0:   
sl@0:   parser = NULL;
sl@0:   reader = NULL;
sl@0: 
sl@0:   if (!_dbus_string_init (&dirname))
sl@0:     {
sl@0:       _DBUS_SET_OOM (error);
sl@0:       return NULL;
sl@0:     }
sl@0: 
sl@0:   if (!_dbus_string_init (&data))
sl@0:     {
sl@0:       _DBUS_SET_OOM (error);
sl@0:       _dbus_string_free (&dirname);
sl@0:       return NULL;
sl@0:     }
sl@0: 
sl@0:   if (is_toplevel)
sl@0:     {
sl@0:       /* xmlMemSetup only fails if one of the functions is NULL */
sl@0:     /*
sl@0:       xmlMemSetup (dbus_free,
sl@0:                    dbus_malloc,
sl@0:                    dbus_realloc,
sl@0:                    _dbus_strdup);
sl@0:      */              
sl@0:       xmlInitParser ();
sl@0:       xmlSetGenericErrorFunc (NULL, xml_shut_up);
sl@0:     }
sl@0: 
sl@0:   if (!_dbus_string_get_dirname (file, &dirname))
sl@0:     {
sl@0:       _DBUS_SET_OOM (error);
sl@0:       goto failed;
sl@0:     }
sl@0:   
sl@0:   parser = bus_config_parser_new (&dirname, is_toplevel, parent);
sl@0:   if (parser == NULL)
sl@0:     {
sl@0:       _DBUS_SET_OOM (error);
sl@0:       goto failed;
sl@0:     }
sl@0:   
sl@0:   if (!_dbus_file_get_contents (&data, file, error))
sl@0:     goto failed;
sl@0: 
sl@0:   reader = xmlReaderForMemory (_dbus_string_get_const_data (&data), 
sl@0:                                _dbus_string_get_length (&data),
sl@0: 			       NULL, NULL, 0);
sl@0:   if (reader == NULL)
sl@0:     {
sl@0:       _DBUS_SET_OOM (error);
sl@0:       goto failed;
sl@0:     }
sl@0: 
sl@0:   xmlTextReaderSetParserProp (reader, XML_PARSER_SUBST_ENTITIES, 1);
sl@0: 
sl@0:   dbus_error_init (&tmp_error);
sl@0:   xmlTextReaderSetStructuredErrorHandler (reader, xml_text_reader_error, &tmp_error);
sl@0: 
sl@0:   while ((ret = xmlTextReaderRead (reader)) == 1)
sl@0:     {
sl@0:       int type;
sl@0:       
sl@0:       if (dbus_error_is_set (&tmp_error))
sl@0:         goto reader_out;
sl@0: 
sl@0:       type = xmlTextReaderNodeType (reader);
sl@0:       if (type == -1)
sl@0:         {
sl@0:           _DBUS_MAYBE_SET_OOM (&tmp_error);
sl@0:           goto reader_out;
sl@0:         }
sl@0: 
sl@0:       switch ((xmlReaderTypes) type) {
sl@0:       case XML_READER_TYPE_ELEMENT:
sl@0: 	xml_text_start_element (parser, reader, &tmp_error);
sl@0: 	break;
sl@0: 
sl@0:       case XML_READER_TYPE_TEXT:
sl@0:       case XML_READER_TYPE_CDATA:
sl@0: 	{
sl@0: 	  DBusString content;
sl@0: 	  const char *value;
sl@0: #ifdef __SYMBIAN32__
sl@0: 	  value = (const char *) xmlTextReaderConstValue (reader);
sl@0: #else
sl@0: 	  value = xmlTextReaderConstValue (reader);
sl@0: #endif
sl@0: 	  if (value != NULL)
sl@0: 	    {
sl@0: 	      _dbus_string_init_const (&content, value);
sl@0: 	      bus_config_parser_content (parser, &content, &tmp_error);
sl@0: 	    }
sl@0:           else
sl@0:             _DBUS_MAYBE_SET_OOM (&tmp_error);
sl@0: 	  break;
sl@0: 	}
sl@0: 
sl@0:       case XML_READER_TYPE_DOCUMENT_TYPE:
sl@0: 	{
sl@0: 	  const char *name;
sl@0: #ifdef __SYMBIAN32__
sl@0: 	  name = (const char *) xmlTextReaderConstName (reader);
sl@0: #else
sl@0: 	  name = xmlTextReaderConstName (reader);
sl@0: #endif
sl@0: 	  if (name != NULL)
sl@0: 	    bus_config_parser_check_doctype (parser, name, &tmp_error);
sl@0:           else
sl@0:             _DBUS_MAYBE_SET_OOM (&tmp_error);
sl@0: 	  break;
sl@0: 	}
sl@0: 
sl@0:       case XML_READER_TYPE_END_ELEMENT:
sl@0: 	{
sl@0: 	  const char *name;
sl@0: #ifdef __SYMBIAN32__
sl@0: 	  name = (const char *) xmlTextReaderConstName (reader);
sl@0: #else
sl@0: 	  name = xmlTextReaderConstName (reader);
sl@0: #endif
sl@0: 	  if (name != NULL)
sl@0: 	    bus_config_parser_end_element (parser, name, &tmp_error);
sl@0:           else
sl@0:             _DBUS_MAYBE_SET_OOM (&tmp_error);
sl@0: 	  break;
sl@0: 	}
sl@0: 
sl@0:       case XML_READER_TYPE_DOCUMENT:
sl@0:       case XML_READER_TYPE_DOCUMENT_FRAGMENT:
sl@0:       case XML_READER_TYPE_PROCESSING_INSTRUCTION:
sl@0:       case XML_READER_TYPE_COMMENT:
sl@0:       case XML_READER_TYPE_ENTITY:
sl@0:       case XML_READER_TYPE_NOTATION:
sl@0:       case XML_READER_TYPE_WHITESPACE:
sl@0:       case XML_READER_TYPE_SIGNIFICANT_WHITESPACE:
sl@0:       case XML_READER_TYPE_END_ENTITY:
sl@0:       case XML_READER_TYPE_XML_DECLARATION:
sl@0: 	/* nothing to do, just read on */
sl@0: 	break;
sl@0: 
sl@0:       case XML_READER_TYPE_NONE:
sl@0:       case XML_READER_TYPE_ATTRIBUTE:
sl@0:       case XML_READER_TYPE_ENTITY_REFERENCE:
sl@0: 	_dbus_assert_not_reached ("unexpected nodes in XML");
sl@0:       }
sl@0: 
sl@0:       if (dbus_error_is_set (&tmp_error))
sl@0:         goto reader_out;
sl@0:     }
sl@0: 
sl@0:   if (ret == -1)
sl@0:     _DBUS_MAYBE_SET_OOM (&tmp_error);
sl@0: 
sl@0:  reader_out:
sl@0:   xmlFreeTextReader (reader);
sl@0:   reader = NULL;
sl@0:   if (dbus_error_is_set (&tmp_error))
sl@0:     {
sl@0:       dbus_move_error (&tmp_error, error);
sl@0:       goto failed;
sl@0:     }
sl@0:   
sl@0:   if (!bus_config_parser_finished (parser, error))
sl@0:     goto failed;
sl@0:   _dbus_string_free (&dirname);
sl@0:   _dbus_string_free (&data);
sl@0:   if (is_toplevel)
sl@0:     xmlCleanupParser();
sl@0:   _DBUS_ASSERT_ERROR_IS_CLEAR (error);
sl@0:   return parser;
sl@0:   
sl@0:  failed:
sl@0:   _DBUS_ASSERT_ERROR_IS_SET (error);
sl@0:   _dbus_string_free (&dirname);
sl@0:   _dbus_string_free (&data);
sl@0:   if (is_toplevel)
sl@0:     xmlCleanupParser();
sl@0:   if (parser)
sl@0:     bus_config_parser_unref (parser);
sl@0:   _dbus_assert (reader == NULL); /* must go to reader_out first */
sl@0:   return NULL;
sl@0: }