sl@0: /* -*- mode: C; c-file-style: "gnu" -*- */
sl@0: /* dbus-gsignature.c Mapping from dbus type signatures to GType
sl@0:  *
sl@0:  * Copyright (C) 2005 Red Hat, Inc.
sl@0:  *
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.h"
sl@0: #include "dbus-gtest.h"
sl@0: #include "dbus-gsignature.h"
sl@0: #include "dbus-gvalue-utils.h"
sl@0: #include <string.h>
sl@0: #include <glib.h>
sl@0: 
sl@0: #define MAP_BASIC(d_t, g_t)                     \
sl@0:     case DBUS_TYPE_##d_t:                       \
sl@0:       return G_TYPE_##g_t;
sl@0: static GType
sl@0: typecode_to_gtype (int type)
sl@0: {
sl@0:   switch (type)
sl@0:     {
sl@0:       MAP_BASIC (BOOLEAN, BOOLEAN);
sl@0:       MAP_BASIC (BYTE,    UCHAR);
sl@0:       MAP_BASIC (INT16,   INT);
sl@0:       MAP_BASIC (INT32,   INT);
sl@0:       MAP_BASIC (UINT16,  UINT);
sl@0:       MAP_BASIC (UINT32,  UINT);
sl@0:       MAP_BASIC (INT64,   INT64);
sl@0:       MAP_BASIC (UINT64,  UINT64);
sl@0:       MAP_BASIC (DOUBLE,  DOUBLE);
sl@0:       MAP_BASIC (STRING,  STRING);
sl@0:     default:
sl@0:       return G_TYPE_INVALID;
sl@0:     }
sl@0: }
sl@0: #undef MAP_BASIC
sl@0: 
sl@0: static gboolean
sl@0: dbus_typecode_maps_to_basic (int typecode)
sl@0: {
sl@0:   return typecode_to_gtype (typecode) != G_TYPE_INVALID;
sl@0: }
sl@0: 
sl@0: GType
sl@0: _dbus_gtype_from_basic_typecode (int typecode)
sl@0: {
sl@0:   g_assert (dbus_type_is_basic (typecode));
sl@0:   g_assert (dbus_typecode_maps_to_basic (typecode));
sl@0:   return typecode_to_gtype (typecode);
sl@0: }
sl@0: 
sl@0: static GType
sl@0: signature_iter_to_g_type_dict (const DBusSignatureIter *subiter, gboolean is_client)
sl@0: {
sl@0:   DBusSignatureIter iter;
sl@0:   GType key_gtype;
sl@0:   GType value_gtype;
sl@0: 
sl@0:   g_assert (dbus_signature_iter_get_current_type (subiter) == DBUS_TYPE_DICT_ENTRY);
sl@0: 
sl@0:   dbus_signature_iter_recurse (subiter, &iter);
sl@0: 
sl@0:   key_gtype = _dbus_gtype_from_signature_iter (&iter, is_client); 
sl@0:   if (key_gtype == G_TYPE_INVALID)
sl@0:     return G_TYPE_INVALID;
sl@0: 
sl@0:   dbus_signature_iter_next (&iter);
sl@0:   value_gtype = _dbus_gtype_from_signature_iter (&iter, is_client);
sl@0:   if (value_gtype == G_TYPE_INVALID)
sl@0:     return G_TYPE_INVALID;
sl@0: 
sl@0:   if (!_dbus_gtype_is_valid_hash_key (key_gtype)
sl@0:       || !_dbus_gtype_is_valid_hash_value (value_gtype))
sl@0:     /* Later we need to return DBUS_TYPE_G_VALUE */
sl@0:     return G_TYPE_INVALID; 
sl@0: 
sl@0:   return dbus_g_type_get_map ("GHashTable", key_gtype, value_gtype);
sl@0: }
sl@0: 
sl@0: static GType
sl@0: signature_iter_to_g_type_array (DBusSignatureIter *iter, gboolean is_client)
sl@0: {
sl@0:   GType elt_gtype;
sl@0: 
sl@0:   elt_gtype = _dbus_gtype_from_signature_iter (iter, is_client);
sl@0:   if (elt_gtype == G_TYPE_INVALID)
sl@0:     return G_TYPE_INVALID;
sl@0: 
sl@0:   if (elt_gtype == G_TYPE_OBJECT)
sl@0:     return DBUS_TYPE_G_OBJECT_ARRAY;
sl@0:   if (elt_gtype == G_TYPE_STRING)
sl@0:     return G_TYPE_STRV;
sl@0:   if (_dbus_g_type_is_fixed (elt_gtype))
sl@0:     return dbus_g_type_get_collection ("GArray", elt_gtype);
sl@0:   else if (g_type_is_a (elt_gtype, G_TYPE_OBJECT)
sl@0: 	   || g_type_is_a (elt_gtype, G_TYPE_BOXED))
sl@0:     return dbus_g_type_get_collection ("GPtrArray", elt_gtype);
sl@0: 
sl@0:   /* Later we need to return DBUS_TYPE_G_VALUE */
sl@0:   return G_TYPE_INVALID; 
sl@0: }
sl@0: 
sl@0: static GType
sl@0: signature_iter_to_g_type_struct (DBusSignatureIter *iter, gboolean is_client)
sl@0: {
sl@0:   GArray *types;
sl@0:   GType ret;
sl@0:   types = g_array_new (FALSE, FALSE, sizeof (GType));
sl@0:   do
sl@0:     {
sl@0:       GType curtype;
sl@0:       curtype = _dbus_gtype_from_signature_iter (iter, is_client);
sl@0:       g_array_append_val (types, curtype);
sl@0:     }
sl@0:   while (dbus_signature_iter_next (iter));
sl@0: 
sl@0:   ret = dbus_g_type_get_structv ("GValueArray", types->len, (GType*) types->data);
sl@0:   g_array_free (types, TRUE);
sl@0:   return ret;
sl@0: }
sl@0: 
sl@0: GType
sl@0: _dbus_gtype_from_signature_iter (DBusSignatureIter *iter, gboolean is_client)
sl@0: {
sl@0:   int current_type;
sl@0: 
sl@0:   current_type = dbus_signature_iter_get_current_type (iter);
sl@0:   /* TODO: handle type 0? */
sl@0:   if (dbus_typecode_maps_to_basic (current_type))
sl@0:     return _dbus_gtype_from_basic_typecode (current_type);
sl@0:   else if (current_type == DBUS_TYPE_OBJECT_PATH)
sl@0:     return DBUS_TYPE_G_OBJECT_PATH;
sl@0:   else
sl@0:     {
sl@0:       DBusSignatureIter subiter;
sl@0: 
sl@0:       g_assert (dbus_type_is_container (current_type));
sl@0: 
sl@0:       if (current_type == DBUS_TYPE_VARIANT)
sl@0: 	return G_TYPE_VALUE;
sl@0:       
sl@0:       dbus_signature_iter_recurse (iter, &subiter);
sl@0: 
sl@0:       if (current_type == DBUS_TYPE_ARRAY)
sl@0: 	{
sl@0: 	  int elt_type = dbus_signature_iter_get_current_type (&subiter);
sl@0: 	  if (elt_type == DBUS_TYPE_DICT_ENTRY)
sl@0: 	    return signature_iter_to_g_type_dict (&subiter, is_client);
sl@0: 	  else 
sl@0: 	    return signature_iter_to_g_type_array (&subiter, is_client);
sl@0: 	}
sl@0:       else if (current_type == DBUS_TYPE_STRUCT)
sl@0:         {
sl@0:           return signature_iter_to_g_type_struct (&subiter, is_client);
sl@0:         }
sl@0:       else
sl@0: 	{
sl@0: 	  g_assert_not_reached ();
sl@0: 	  return G_TYPE_INVALID;
sl@0: 	}
sl@0:     }
sl@0: }
sl@0: 
sl@0: GType
sl@0: _dbus_gtype_from_signature (const char *signature, gboolean is_client)
sl@0: {
sl@0:   DBusSignatureIter iter;
sl@0: 
sl@0:   dbus_signature_iter_init (&iter, signature);
sl@0: 
sl@0:   return _dbus_gtype_from_signature_iter (&iter, is_client);
sl@0: }
sl@0: 
sl@0: GArray *
sl@0: _dbus_gtypes_from_arg_signature (const char *argsig, gboolean is_client)
sl@0: {
sl@0:   GArray *ret;
sl@0:   int current_type;
sl@0:   DBusSignatureIter sigiter;
sl@0: 
sl@0:   ret = g_array_new (FALSE, FALSE, sizeof (GType));
sl@0: 
sl@0:   dbus_signature_iter_init (&sigiter, argsig);
sl@0:   while ((current_type = dbus_signature_iter_get_current_type (&sigiter)) != DBUS_TYPE_INVALID)
sl@0:     {
sl@0:       GType curtype;
sl@0: 
sl@0:       curtype = _dbus_gtype_from_signature_iter (&sigiter, is_client);
sl@0:       g_array_append_val (ret, curtype);
sl@0:       dbus_signature_iter_next (&sigiter);
sl@0:     }
sl@0:   return ret;
sl@0: }