sl@0: /* -*- mode: C; c-file-style: "gnu" -*- */
sl@0: /* dbus-gparser.c parse DBus description files
sl@0:  *
sl@0:  * Copyright (C) 2003, 2005  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: #include "dbus-gparser.h"
sl@0: #include "dbus/dbus-glib-lowlevel.h"
sl@0: #include "dbus-gidl.h"
sl@0: #include "dbus-gobject.h"
sl@0: #include "dbus/dbus-signature.h"
sl@0: #include <string.h>
sl@0: 
sl@0: 
sl@0: 
sl@0: #ifndef __SYMBIAN32__
sl@0: #include <libintl.h>
sl@0: #define _(x) gettext ((x))
sl@0: #define N_(x) x
sl@0: #else
sl@0: 
sl@0: #define _(x) x
sl@0: #define N_(x) x
sl@0: #endif
sl@0: 
sl@0: 
sl@0: #ifndef DOXYGEN_SHOULD_SKIP_THIS
sl@0: 
sl@0: #define ELEMENT_IS(name) (strcmp (element_name, (name)) == 0)
sl@0: 
sl@0: typedef struct
sl@0: {
sl@0:   const char  *name;
sl@0:   const char **retloc;
sl@0: } LocateAttr;
sl@0: 
sl@0: static gboolean
sl@0: locate_attributes (const char  *element_name,
sl@0:                    const char **attribute_names,
sl@0:                    const char **attribute_values,
sl@0:                    GError     **error,
sl@0:                    const char  *first_attribute_name,
sl@0:                    const char **first_attribute_retloc,
sl@0:                    ...)
sl@0: {
sl@0:   va_list args;
sl@0:   const char *name;
sl@0:   const char **retloc;
sl@0:   int n_attrs;
sl@0: #define MAX_ATTRS 24
sl@0:   LocateAttr attrs[MAX_ATTRS];
sl@0:   gboolean retval;
sl@0:   int i;
sl@0: 
sl@0:   g_return_val_if_fail (first_attribute_name != NULL, FALSE);
sl@0:   g_return_val_if_fail (first_attribute_retloc != NULL, FALSE);
sl@0: 
sl@0:   retval = TRUE;
sl@0: 
sl@0:   n_attrs = 1;
sl@0:   attrs[0].name = first_attribute_name;
sl@0:   attrs[0].retloc = first_attribute_retloc;
sl@0:   *first_attribute_retloc = NULL;
sl@0:   
sl@0:   va_start (args, first_attribute_retloc);
sl@0: 
sl@0:   name = va_arg (args, const char*);
sl@0:   retloc = va_arg (args, const char**);
sl@0: 
sl@0:   while (name != NULL)
sl@0:     {
sl@0:       g_return_val_if_fail (retloc != NULL, FALSE);
sl@0: 
sl@0:       g_assert (n_attrs < MAX_ATTRS);
sl@0:       
sl@0:       attrs[n_attrs].name = name;
sl@0:       attrs[n_attrs].retloc = retloc;
sl@0:       n_attrs += 1;
sl@0:       *retloc = NULL;      
sl@0: 
sl@0:       name = va_arg (args, const char*);
sl@0:       retloc = va_arg (args, const char**);
sl@0:     }
sl@0: 
sl@0:   va_end (args);
sl@0: 
sl@0:   if (!retval)
sl@0:     return retval;
sl@0: 
sl@0:   i = 0;
sl@0:   while (attribute_names[i])
sl@0:     {
sl@0:       int j;
sl@0:       gboolean found;
sl@0: 
sl@0:       found = FALSE;
sl@0:       j = 0;
sl@0:       while (j < n_attrs)
sl@0:         {
sl@0:           if (strcmp (attrs[j].name, attribute_names[i]) == 0)
sl@0:             {
sl@0:               retloc = attrs[j].retloc;
sl@0: 
sl@0:               if (*retloc != NULL)
sl@0:                 {
sl@0:                   g_set_error (error,
sl@0:                                G_MARKUP_ERROR,
sl@0:                                G_MARKUP_ERROR_PARSE,
sl@0:                                _("Attribute \"%s\" repeated twice on the same <%s> element"),
sl@0:                                attrs[j].name, element_name);
sl@0:                   retval = FALSE;
sl@0:                   goto out;
sl@0:                 }
sl@0: 
sl@0:               *retloc = attribute_values[i];
sl@0:               found = TRUE;
sl@0:             }
sl@0: 
sl@0:           ++j;
sl@0:         }
sl@0: 
sl@0:       if (!found)
sl@0:         {
sl@0:           g_set_error (error,
sl@0:                        G_MARKUP_ERROR,
sl@0:                        G_MARKUP_ERROR_PARSE,
sl@0:                        _("Attribute \"%s\" is invalid on <%s> element in this context"),
sl@0:                        attribute_names[i], element_name);
sl@0:           retval = FALSE;
sl@0:           goto out;
sl@0:         }
sl@0: 
sl@0:       ++i;
sl@0:     }
sl@0: 
sl@0:  out:
sl@0:   return retval;
sl@0: }
sl@0: 
sl@0: #if 0
sl@0: static gboolean
sl@0: check_no_attributes (const char  *element_name,
sl@0:                      const char **attribute_names,
sl@0:                      const char **attribute_values,
sl@0:                      GError     **error)
sl@0: {
sl@0:   if (attribute_names[0] != NULL)
sl@0:     {
sl@0:       g_set_error (error,
sl@0:                    G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("Attribute \"%s\" is invalid on <%s> element in this context"),
sl@0:                    attribute_names[0], element_name);
sl@0:       return FALSE;
sl@0:     }
sl@0: 
sl@0:   return TRUE;
sl@0: }
sl@0: #endif
sl@0: 
sl@0: struct Parser
sl@0: {
sl@0:   int refcount;
sl@0: 
sl@0:   NodeInfo *result; /* Filled in when we pop the last node */
sl@0:   GSList *node_stack;
sl@0:   InterfaceInfo *interface;
sl@0:   MethodInfo *method;
sl@0:   SignalInfo *signal;
sl@0:   PropertyInfo *property;
sl@0:   ArgInfo *arg;
sl@0:   gboolean in_annotation;
sl@0: };
sl@0: 
sl@0: Parser*
sl@0: parser_new (void)
sl@0: {
sl@0:   Parser *parser;
sl@0: 
sl@0:   parser = g_new0 (Parser, 1);
sl@0: 
sl@0:   parser->refcount = 1;
sl@0: 
sl@0:   return parser;
sl@0: }
sl@0: 
sl@0: Parser *
sl@0: parser_ref (Parser *parser)
sl@0: {
sl@0:   parser->refcount += 1;
sl@0: 
sl@0:   return parser;
sl@0: }
sl@0: 
sl@0: void
sl@0: parser_unref (Parser *parser)
sl@0: {
sl@0:   parser->refcount -= 1;
sl@0:   if (parser->refcount == 0)
sl@0:     {
sl@0:       if (parser->result)
sl@0:         node_info_unref (parser->result);
sl@0: 
sl@0:       g_free (parser);
sl@0:     }
sl@0: }
sl@0: 
sl@0: gboolean
sl@0: parser_check_doctype (Parser      *parser,
sl@0:                       const char  *doctype,
sl@0:                       GError     **error)
sl@0: {
sl@0:   g_return_val_if_fail (error == NULL || *error == NULL, FALSE);
sl@0:   
sl@0:   if (strcmp (doctype, "node") != 0)
sl@0:     {
sl@0:       g_set_error (error,
sl@0:                    G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    "D-BUS description file has the wrong document type %s, use node or interface",
sl@0:                    doctype);
sl@0:       return FALSE;
sl@0:     }
sl@0:   else
sl@0:     return TRUE;
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: parse_node (Parser      *parser,
sl@0:             const char  *element_name,
sl@0:             const char **attribute_names,
sl@0:             const char **attribute_values,
sl@0:             GError     **error)
sl@0: {
sl@0:   const char *name;
sl@0:   NodeInfo *node;
sl@0:   
sl@0:   if (parser->interface ||
sl@0:       parser->method ||
sl@0:       parser->signal ||
sl@0:       parser->property ||
sl@0:       parser->arg ||
sl@0:       parser->in_annotation)
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("Can't put <%s> element here"),
sl@0:                    element_name);
sl@0:       return FALSE;      
sl@0:     }
sl@0: 
sl@0:   name = NULL;
sl@0:   if (!locate_attributes (element_name, attribute_names,
sl@0:                           attribute_values, error,
sl@0:                           "name", &name,
sl@0:                           NULL))
sl@0:     return FALSE;
sl@0: 
sl@0:   /* Only the root node can have no name */
sl@0:   if (parser->node_stack != NULL && name == NULL)
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("\"%s\" attribute required on <%s> element "),
sl@0:                    "name", element_name);
sl@0:       return FALSE;
sl@0:     }
sl@0: 
sl@0:   /* Root element name must be absolute */
sl@0:   if (parser->node_stack == NULL && name && *name != '/')
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("\"%s\" attribute on <%s> element must be an absolute object path, \"%s\" not OK"),
sl@0:                    "name", element_name, name);
sl@0:       return FALSE;
sl@0:     }
sl@0: 
sl@0:   /* Other element names must not be absolute */
sl@0:   if (parser->node_stack != NULL && name && *name == '/')
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("\"%s\" attribute on <%s> element must not be an absolute object path, \"%s\" starts with /"),
sl@0:                    "name", element_name, name);
sl@0:       return FALSE;
sl@0:     }
sl@0:   
sl@0:   node = node_info_new (name);
sl@0: 
sl@0:   if (parser->node_stack != NULL)
sl@0:     {
sl@0:       node_info_add_node (parser->node_stack->data,
sl@0:                           node);
sl@0:     }
sl@0:   
sl@0:   parser->node_stack = g_slist_prepend (parser->node_stack,
sl@0:                                         node);
sl@0:   
sl@0:   return TRUE;
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: parse_interface (Parser      *parser,
sl@0:                  const char  *element_name,
sl@0:                  const char **attribute_names,
sl@0:                  const char **attribute_values,
sl@0:                  GError     **error)
sl@0: {
sl@0:   const char *name;
sl@0:   InterfaceInfo *iface;
sl@0:   NodeInfo *top;
sl@0:   
sl@0:   if (parser->interface ||
sl@0:       parser->method ||
sl@0:       parser->signal ||
sl@0:       parser->property ||
sl@0:       parser->arg ||
sl@0:       parser->in_annotation ||
sl@0:       (parser->node_stack == NULL))
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("Can't put <%s> element here"),
sl@0:                    element_name);
sl@0:       return FALSE;      
sl@0:     }
sl@0: 
sl@0:   name = NULL;
sl@0:   if (!locate_attributes (element_name, attribute_names,
sl@0:                           attribute_values, error,
sl@0:                           "name", &name,
sl@0:                           NULL))
sl@0:     return FALSE;
sl@0: 
sl@0:   if (name == NULL)
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("\"%s\" attribute required on <%s> element "),
sl@0:                    "name", element_name);
sl@0:       return FALSE;
sl@0:     }
sl@0: 
sl@0:   top = parser->node_stack->data;
sl@0:   
sl@0:   iface = interface_info_new (name);
sl@0:   node_info_add_interface (top, iface);
sl@0:   interface_info_unref (iface);
sl@0: 
sl@0:   parser->interface = iface;
sl@0:   
sl@0:   return TRUE;
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: parse_method (Parser      *parser,
sl@0:               const char  *element_name,
sl@0:               const char **attribute_names,
sl@0:               const char **attribute_values,
sl@0:               GError     **error)
sl@0: {
sl@0:   const char *name;
sl@0:   MethodInfo *method;
sl@0:   
sl@0:   if (parser->interface == NULL ||
sl@0:       parser->node_stack == NULL ||
sl@0:       parser->method ||
sl@0:       parser->signal ||
sl@0:       parser->property ||
sl@0:       parser->in_annotation ||
sl@0:       parser->arg)
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("Can't put <%s> element here"),
sl@0:                    element_name);
sl@0:       return FALSE;      
sl@0:     }
sl@0: 
sl@0:   name = NULL;
sl@0:   if (!locate_attributes (element_name, attribute_names,
sl@0:                           attribute_values, error,
sl@0:                           "name", &name,
sl@0:                           NULL))
sl@0:     return FALSE;
sl@0: 
sl@0:   if (name == NULL)
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("\"%s\" attribute required on <%s> element "),
sl@0:                    "name", element_name);
sl@0:       return FALSE;
sl@0:     }
sl@0: 
sl@0:   method = method_info_new (name);
sl@0:   interface_info_add_method (parser->interface, method);
sl@0:   method_info_unref (method);
sl@0: 
sl@0:   parser->method = method;
sl@0:   
sl@0:   return TRUE;
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: parse_signal (Parser      *parser,
sl@0:               const char  *element_name,
sl@0:               const char **attribute_names,
sl@0:               const char **attribute_values,
sl@0:               GError     **error)
sl@0: {
sl@0:   const char *name;
sl@0:   SignalInfo *signal;
sl@0:   
sl@0:   if (parser->interface == NULL ||
sl@0:       parser->node_stack == NULL ||
sl@0:       parser->signal ||
sl@0:       parser->method ||
sl@0:       parser->property ||
sl@0:       parser->in_annotation ||
sl@0:       parser->arg)
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("Can't put <%s> element here"),
sl@0:                    element_name);
sl@0:       return FALSE;      
sl@0:     }
sl@0: 
sl@0:   name = NULL;
sl@0:   if (!locate_attributes (element_name, attribute_names,
sl@0:                           attribute_values, error,
sl@0:                           "name", &name,
sl@0:                           NULL))
sl@0:     return FALSE;
sl@0: 
sl@0:   if (name == NULL)
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("\"%s\" attribute required on <%s> element "),
sl@0:                    "name", element_name);
sl@0:       return FALSE;
sl@0:     }
sl@0: 
sl@0:   signal = signal_info_new (name);
sl@0:   interface_info_add_signal (parser->interface, signal);
sl@0:   signal_info_unref (signal);
sl@0: 
sl@0:   parser->signal = signal;
sl@0:   
sl@0:   return TRUE;
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: validate_signature (const char *str,
sl@0: 		    const char *element_name,
sl@0: 		    GError    **error)
sl@0: {
sl@0:   DBusError derror;
sl@0: 
sl@0:   dbus_error_init (&derror);
sl@0:   
sl@0:   if (!dbus_signature_validate (str, &derror))
sl@0:     {
sl@0:       dbus_set_g_error (error, &derror);
sl@0:       return FALSE;
sl@0:     }
sl@0:   return TRUE;
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: parse_property (Parser      *parser,
sl@0:                 const char  *element_name,
sl@0:                 const char **attribute_names,
sl@0:                 const char **attribute_values,
sl@0:                 GError     **error)
sl@0: {
sl@0:   const char *name;
sl@0:   const char *access;
sl@0:   const char *type;
sl@0:   PropertyInfo *property;
sl@0:   PropertyAccessFlags access_flags;
sl@0:   
sl@0:   if (parser->interface == NULL ||
sl@0:       parser->node_stack == NULL ||
sl@0:       parser->signal ||
sl@0:       parser->method ||
sl@0:       parser->property ||
sl@0:       parser->in_annotation ||
sl@0:       parser->arg)
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("Can't put <%s> element here"),
sl@0:                    element_name);
sl@0:       return FALSE;      
sl@0:     }
sl@0: 
sl@0:   name = NULL;
sl@0:   if (!locate_attributes (element_name, attribute_names,
sl@0:                           attribute_values, error,
sl@0:                           "name", &name,
sl@0:                           "access", &access,
sl@0:                           "type", &type,
sl@0:                           NULL))
sl@0:     return FALSE;
sl@0: 
sl@0:   if (name == NULL)
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("\"%s\" attribute required on <%s> element "),
sl@0:                    "name", element_name);
sl@0:       return FALSE;
sl@0:     }
sl@0: 
sl@0:   if (access == NULL)
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("\"%s\" attribute required on <%s> element "),
sl@0:                    "access", element_name);
sl@0:       return FALSE;
sl@0:     }
sl@0: 
sl@0:   if (type == NULL)
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("\"%s\" attribute required on <%s> element "),
sl@0:                    "type", element_name);
sl@0:       return FALSE;
sl@0:     }
sl@0: 
sl@0:   if (!validate_signature (type, element_name, error))
sl@0:     return FALSE;
sl@0: 
sl@0:   access_flags = 0;
sl@0:   if (strcmp (access, "readwrite") == 0)
sl@0:     access_flags = PROPERTY_READ | PROPERTY_WRITE;
sl@0:   else if (strcmp (access, "read") == 0)
sl@0:     access_flags = PROPERTY_READ;
sl@0:   else if (strcmp (access, "write") == 0)
sl@0:     access_flags = PROPERTY_WRITE;
sl@0:   else
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("access=\"%s\" must have value readwrite, read, or write on %s\n"),
sl@0:                    access, element_name);
sl@0:       return FALSE;
sl@0:     }
sl@0:   
sl@0:   property = property_info_new (name, type, access_flags);
sl@0:   interface_info_add_property (parser->interface, property);
sl@0:   property_info_unref (property);
sl@0: 
sl@0:   parser->property = property;
sl@0:   
sl@0:   return TRUE;
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: parse_arg (Parser      *parser,
sl@0:            const char  *element_name,
sl@0:            const char **attribute_names,
sl@0:            const char **attribute_values,
sl@0:            GError     **error)
sl@0: {
sl@0:   const char *name;
sl@0:   const char *type;
sl@0:   const char *direction;
sl@0:   ArgDirection dir;
sl@0:   ArgInfo *arg;
sl@0:   char *generated_name;
sl@0:   
sl@0:   if (!(parser->method || parser->signal) ||
sl@0:       parser->node_stack == NULL ||
sl@0:       parser->property ||
sl@0:       parser->in_annotation ||
sl@0:       parser->arg)
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("Can't put <%s> element here"),
sl@0:                    element_name);
sl@0:       return FALSE;      
sl@0:     }
sl@0: 
sl@0:   name = NULL;
sl@0:   if (!locate_attributes (element_name, attribute_names,
sl@0:                           attribute_values, error,
sl@0:                           "name", &name,
sl@0:                           "type", &type,
sl@0:                           "direction", &direction,
sl@0:                           NULL))
sl@0:     return FALSE;
sl@0: 
sl@0:   /* name can be null for args */
sl@0:   
sl@0:   if (type == NULL)
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("\"%s\" attribute required on <%s> element "),
sl@0:                    "type", element_name);
sl@0:       return FALSE;
sl@0:     }
sl@0: 
sl@0:   if (direction == NULL)
sl@0:     {
sl@0:       /* methods default to in, signal to out */
sl@0:       if (parser->method)
sl@0:         direction = "in";
sl@0:       else if (parser->signal)
sl@0:         direction = "out";
sl@0:       else
sl@0:         g_assert_not_reached ();
sl@0:     }
sl@0: 
sl@0:   dir = ARG_INVALID;
sl@0:   
sl@0:   if (strcmp (direction, "in") == 0)
sl@0:     dir = ARG_IN;
sl@0:   else if (strcmp (direction, "out") == 0)
sl@0:     dir = ARG_OUT;
sl@0:   
sl@0:   if (dir == ARG_INVALID ||
sl@0:       (parser->signal && dir == ARG_IN))
sl@0:     {
sl@0:       if (parser->signal)
sl@0:         g_set_error (error, G_MARKUP_ERROR,
sl@0:                      G_MARKUP_ERROR_PARSE,
sl@0:                      _("Signals must have direction=\"out\" (just omit the direction attribute)"));
sl@0:       else
sl@0:         g_set_error (error, G_MARKUP_ERROR,
sl@0:                      G_MARKUP_ERROR_PARSE,
sl@0:                      _("\"%s\" attribute on <%s> has value \"in\" or \"out\""),
sl@0:                      "direction", element_name);
sl@0:       return FALSE;
sl@0:     }
sl@0: 
sl@0:   if (!validate_signature (type, element_name, error))
sl@0:     return FALSE;
sl@0: 
sl@0:   generated_name = NULL;
sl@0:   if (name == NULL)
sl@0:     generated_name = g_strdup_printf ("arg%d",
sl@0:                                       parser->method ?
sl@0:                                       method_info_get_n_args (parser->method) :
sl@0:                                       signal_info_get_n_args (parser->signal));
sl@0:                                       
sl@0:   arg = arg_info_new (name ? name : generated_name, dir, type);
sl@0:   if (parser->method)
sl@0:     method_info_add_arg (parser->method, arg);
sl@0:   else if (parser->signal)
sl@0:     signal_info_add_arg (parser->signal, arg);
sl@0:   else
sl@0:     g_assert_not_reached ();
sl@0: 
sl@0:   g_free (generated_name);
sl@0:   
sl@0:   arg_info_unref (arg);
sl@0: 
sl@0:   parser->arg = arg;
sl@0:   
sl@0:   return TRUE;
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: parse_annotation (Parser      *parser,
sl@0: 		  const char  *element_name,
sl@0: 		  const char **attribute_names,
sl@0: 		  const char **attribute_values,
sl@0: 		  GError     **error)
sl@0: {
sl@0:   const char *name;
sl@0:   const char *value;
sl@0:   
sl@0:   if (!(parser->method || parser->interface || parser->arg) || 
sl@0:       parser->node_stack == NULL ||
sl@0:       parser->signal ||
sl@0:       parser->property ||
sl@0:       parser->in_annotation)
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("Can't put <%s> element here"),
sl@0:                    element_name);
sl@0:       return FALSE;      
sl@0:     }
sl@0: 
sl@0:   name = NULL;
sl@0:   if (!locate_attributes (element_name, attribute_names,
sl@0:                           attribute_values, error,
sl@0:                           "name", &name,
sl@0:                           "value", &value,
sl@0:                           NULL))
sl@0:     return FALSE;
sl@0: 
sl@0:   if (name == NULL)
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("\"%s\" attribute required on <%s> element "),
sl@0:                    "name", element_name);
sl@0:       return FALSE;
sl@0:     }
sl@0:   if (value == NULL)
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("\"%s\" attribute required on <%s> element "),
sl@0:                    "value", element_name);
sl@0:       return FALSE;
sl@0:     }
sl@0: 
sl@0:   if (parser->arg)
sl@0:     arg_info_add_annotation (parser->arg, name, value);
sl@0:   else if (parser->method)
sl@0:     method_info_add_annotation (parser->method, name, value);
sl@0:   else if (parser->interface)
sl@0:     interface_info_add_annotation (parser->interface, name, value);
sl@0:   else
sl@0:     g_assert_not_reached ();
sl@0: 
sl@0:   parser->in_annotation = TRUE;
sl@0: 
sl@0:   return TRUE;
sl@0: }
sl@0: 
sl@0: gboolean
sl@0: parser_start_element (Parser      *parser,
sl@0:                       const char  *element_name,
sl@0:                       const char **attribute_names,
sl@0:                       const char **attribute_values,
sl@0:                       GError     **error)
sl@0: {
sl@0:   g_return_val_if_fail (error == NULL || *error == NULL, FALSE);
sl@0: 
sl@0:   if (ELEMENT_IS ("node"))
sl@0:     {
sl@0:       if (!parse_node (parser, element_name, attribute_names,
sl@0:                        attribute_values, error))
sl@0:         return FALSE;
sl@0:     }
sl@0:   else if (ELEMENT_IS ("interface"))
sl@0:     {
sl@0:       if (!parse_interface (parser, element_name, attribute_names,
sl@0:                             attribute_values, error))
sl@0:         return FALSE;
sl@0:     }
sl@0:   else if (ELEMENT_IS ("method"))
sl@0:     {
sl@0:       if (!parse_method (parser, element_name, attribute_names,
sl@0:                          attribute_values, error))
sl@0:         return FALSE;
sl@0:     }
sl@0:   else if (ELEMENT_IS ("signal"))
sl@0:     {
sl@0:       if (!parse_signal (parser, element_name, attribute_names,
sl@0:                          attribute_values, error))
sl@0:         return FALSE;
sl@0:     }
sl@0:   else if (ELEMENT_IS ("property"))
sl@0:     {
sl@0:       if (!parse_property (parser, element_name, attribute_names,
sl@0:                            attribute_values, error))
sl@0:         return FALSE;
sl@0:     }
sl@0:   else if (ELEMENT_IS ("arg"))
sl@0:     {
sl@0:       if (!parse_arg (parser, element_name, attribute_names,
sl@0:                       attribute_values, error))
sl@0:         return FALSE;
sl@0:     }
sl@0:   else if (ELEMENT_IS ("annotation"))
sl@0:     {
sl@0:       if (!parse_annotation (parser, element_name, attribute_names,
sl@0: 			     attribute_values, error))
sl@0:         return FALSE;
sl@0:     }
sl@0:   else
sl@0:     {
sl@0:       g_set_error (error, G_MARKUP_ERROR,
sl@0:                    G_MARKUP_ERROR_PARSE,
sl@0:                    _("Element <%s> not recognized"),
sl@0:                    element_name);
sl@0:     }
sl@0:   
sl@0:   return TRUE;
sl@0: }
sl@0: 
sl@0: gboolean
sl@0: parser_end_element (Parser      *parser,
sl@0:                     const char  *element_name,
sl@0:                     GError     **error)
sl@0: {
sl@0:   g_return_val_if_fail (error == NULL || *error == NULL, FALSE);
sl@0: 
sl@0:   if (ELEMENT_IS ("interface"))
sl@0:     {
sl@0:       parser->interface = NULL;
sl@0:     }
sl@0:   else if (ELEMENT_IS ("method"))
sl@0:     {
sl@0:       parser->method = NULL;
sl@0:     }
sl@0:   else if (ELEMENT_IS ("signal"))
sl@0:     {
sl@0:       parser->signal = NULL;
sl@0:     }
sl@0:   else if (ELEMENT_IS ("property"))
sl@0:     {
sl@0:       parser->property = NULL;
sl@0:     }
sl@0:   else if (ELEMENT_IS ("arg"))
sl@0:     {
sl@0:       parser->arg = NULL;
sl@0:     }
sl@0:   else if (ELEMENT_IS ("annotation"))
sl@0:     {
sl@0:       parser->in_annotation = FALSE;
sl@0:     }
sl@0:   else if (ELEMENT_IS ("node"))
sl@0:     {
sl@0:       NodeInfo *top;
sl@0: 
sl@0:       g_assert (parser->node_stack != NULL);
sl@0:       top = parser->node_stack->data;
sl@0: 
sl@0:       parser->node_stack = g_slist_remove (parser->node_stack,
sl@0:                                            top);
sl@0: 
sl@0:       if (parser->node_stack == NULL)
sl@0:         parser->result = top; /* We are done, store the result */      
sl@0:     }
sl@0:   else
sl@0:     g_assert_not_reached (); /* should have had an error on start_element */
sl@0:   
sl@0:   return TRUE;
sl@0: }
sl@0: 
sl@0: gboolean
sl@0: parser_content (Parser      *parser,
sl@0:                 const char  *content,
sl@0:                 int          len,
sl@0:                 GError     **error)
sl@0: {
sl@0:   g_return_val_if_fail (error == NULL || *error == NULL, FALSE);
sl@0: 
sl@0:   /* FIXME check that it's all whitespace */
sl@0:   
sl@0:   return TRUE;
sl@0: }
sl@0: 
sl@0: gboolean
sl@0: parser_finished (Parser      *parser,
sl@0:                  GError     **error)
sl@0: {
sl@0:   g_return_val_if_fail (error == NULL || *error == NULL, FALSE);
sl@0: 
sl@0:   return TRUE;
sl@0: }
sl@0: 
sl@0: NodeInfo*
sl@0: parser_get_nodes (Parser *parser)
sl@0: {
sl@0:   return parser->result;
sl@0: }
sl@0: 
sl@0: #endif /* DOXYGEN_SHOULD_SKIP_THIS */