sl@0: /* -*- mode: C; c-file-style: "gnu" -*- */
sl@0: /* dbus-binding-tool-glib.c: Output C glue
sl@0:  *
sl@0:  * Copyright (C) 2003, 2004, 2005 Red Hat, Inc.
sl@0:  * Copyright (C) 2005 Nokia
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: #ifndef __SYMBIAN32__
sl@0: #include <config.h>
sl@0: #else
sl@0: #include "config.h"
sl@0: #endif //__SYMBIAN32__
sl@0: #include "dbus/dbus-glib.h"
sl@0: #include "dbus-gidl.h"
sl@0: #include "dbus-gparser.h"
sl@0: #include "dbus-gutils.h"
sl@0: #include "dbus-gtype-specialized.h"
sl@0: #include "dbus-gsignature.h"
sl@0: #include "dbus-gvalue-utils.h"
sl@0: #include "dbus-glib-tool.h"
sl@0: #include "dbus-binding-tool-glib.h"
sl@0: 
sl@0: #ifndef __SYMBIAN32__
sl@0: #include <glib/gi18n.h>
sl@0: #include <libintl.h>
sl@0: #define _(x) dgettext (GETTEXT_PACKAGE, 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: #include <stdio.h>
sl@0: #include <stdlib.h>
sl@0: #include <string.h>
sl@0: #include <unistd.h>
sl@0: 
sl@0: #define MARSHAL_PREFIX "dbus_glib_marshal_"
sl@0: 
sl@0: typedef struct
sl@0: {
sl@0:   gboolean ignore_unsupported;
sl@0:   const char* prefix;
sl@0:   GIOChannel *channel;
sl@0:   
sl@0:   GError **error;
sl@0:   
sl@0:   GHashTable *generated;
sl@0:   GString *blob;
sl@0:   GString *signal_blob;
sl@0:   GString *property_blob;
sl@0:   guint count;
sl@0: } DBusBindingToolCData;
sl@0: 
sl@0: static gboolean gather_marshallers (BaseInfo *base, DBusBindingToolCData *data, GError **error);
sl@0: static gboolean generate_glue (BaseInfo *base, DBusBindingToolCData *data, GError **error);
sl@0: static gboolean generate_client_glue (BaseInfo *base, DBusBindingToolCData *data, GError **error);
sl@0: 
sl@0: static const char *
sl@0: dbus_g_type_get_marshal_name (GType gtype)
sl@0: {
sl@0:   switch (G_TYPE_FUNDAMENTAL (gtype))
sl@0:     {
sl@0:     case G_TYPE_NONE:
sl@0:       return "NONE";
sl@0:     case G_TYPE_BOOLEAN:
sl@0:       return "BOOLEAN";
sl@0:     case G_TYPE_UCHAR:
sl@0:       return "UCHAR";
sl@0:     case G_TYPE_INT:
sl@0:       return "INT";
sl@0:     case G_TYPE_UINT:
sl@0:       return "UINT";
sl@0:     case G_TYPE_INT64:
sl@0:       return "INT64";
sl@0:     case G_TYPE_UINT64:
sl@0:       return "UINT64";
sl@0:     case G_TYPE_DOUBLE:
sl@0:       return "DOUBLE";
sl@0:     case G_TYPE_STRING:
sl@0:       return "STRING";
sl@0:     case G_TYPE_POINTER:
sl@0:       return "POINTER";
sl@0:     case G_TYPE_BOXED:
sl@0:       return "BOXED";
sl@0:     case G_TYPE_OBJECT:
sl@0:       return "OBJECT";
sl@0:     default:
sl@0:       return NULL;
sl@0:     }
sl@0: }
sl@0: 
sl@0: /* This entire function is kind of...ugh. */
sl@0: static const char *
sl@0: dbus_g_type_get_c_name (GType gtype)
sl@0: {
sl@0:   GType subtype;
sl@0:   if (dbus_g_type_is_struct (gtype))
sl@0:     {
sl@0:       return "GValueArray";
sl@0:     }
sl@0:   if (dbus_g_type_is_collection (gtype))
sl@0:     {
sl@0:       subtype = dbus_g_type_get_collection_specialization(gtype);
sl@0:       if (_dbus_g_type_is_fixed (subtype))
sl@0:         return "GArray";
sl@0:       else
sl@0:         return "GPtrArray";
sl@0:     }
sl@0: 
sl@0:   if (dbus_g_type_is_map (gtype))
sl@0:     return "GHashTable";
sl@0: 
sl@0:   if (g_type_is_a (gtype, G_TYPE_STRING))
sl@0:     return "char *";
sl@0: 
sl@0:   /* This one is even more hacky...we get an extra *
sl@0:    * because G_TYPE_STRV is a G_TYPE_BOXED
sl@0:    */
sl@0:   if (g_type_is_a (gtype, G_TYPE_STRV))
sl@0:     return "char *";
sl@0: 
sl@0:   if (g_type_is_a (gtype, DBUS_TYPE_G_OBJECT_PATH))
sl@0:     return "char";
sl@0: 
sl@0:   return g_type_name (gtype);
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: compute_gsignature (MethodInfo *method, GType *rettype, GArray **params, GError **error)
sl@0: {
sl@0:   GSList *elt;
sl@0:   GType retval_type;
sl@0:   GArray *ret;
sl@0:   gboolean is_async;
sl@0:   const char *arg_type;
sl@0:   gboolean retval_signals_error;
sl@0:   
sl@0:   is_async = method_info_get_annotation (method, DBUS_GLIB_ANNOTATION_ASYNC) != NULL;
sl@0:   retval_signals_error = FALSE;
sl@0: 
sl@0:   ret = g_array_new (TRUE, TRUE, sizeof (GType));
sl@0: 
sl@0:   if (is_async)
sl@0:     retval_type = G_TYPE_NONE;
sl@0:   else
sl@0:     {
sl@0:       gboolean found_retval;
sl@0: 
sl@0:       /* Look for return value */
sl@0:       found_retval = FALSE;
sl@0:       for (elt = method_info_get_args (method); elt; elt = elt->next)
sl@0: 	{
sl@0: 	  ArgInfo *arg = elt->data;
sl@0: 	  const char *returnval_annotation;
sl@0:       
sl@0: 	  returnval_annotation = arg_info_get_annotation (arg, DBUS_GLIB_ANNOTATION_RETURNVAL);
sl@0: 	  if (returnval_annotation != NULL)
sl@0: 	    {
sl@0: 	      arg_type = arg_info_get_type (arg);
sl@0: 	      retval_type = _dbus_gtype_from_signature (arg_type, FALSE);
sl@0: 	      if (retval_type == G_TYPE_INVALID)
sl@0: 		goto invalid_type;
sl@0: 	      found_retval = TRUE;
sl@0: 	      if (!strcmp (returnval_annotation, "error"))
sl@0: 		retval_signals_error = TRUE;
sl@0: 	      break;
sl@0: 	    }
sl@0: 	}
sl@0:       if (!found_retval)
sl@0: 	{
sl@0: 	  retval_type = G_TYPE_BOOLEAN;
sl@0: 	  retval_signals_error = TRUE;
sl@0: 	}
sl@0:     }
sl@0: 
sl@0:   *rettype = retval_type;
sl@0: 
sl@0:   /* Handle all input arguments */
sl@0:   for (elt = method_info_get_args (method); elt; elt = elt->next)
sl@0:     {
sl@0:       ArgInfo *arg = elt->data;
sl@0:       if (arg_info_get_direction (arg) == ARG_IN)
sl@0: 	{
sl@0: 	  GType gtype;
sl@0: 	  
sl@0: 	  arg_type = arg_info_get_type (arg);
sl@0: 	  gtype = _dbus_gtype_from_signature (arg_type, FALSE);
sl@0: 	  if (gtype == G_TYPE_INVALID)
sl@0: 	    goto invalid_type;
sl@0: 	  
sl@0: 	  g_array_append_val (ret, gtype);
sl@0: 	}
sl@0:     }
sl@0: 
sl@0:   if (!is_async)
sl@0:     {
sl@0:       /* Append pointer for each out arg storage */
sl@0:       for (elt = method_info_get_args (method); elt; elt = elt->next)
sl@0: 	{
sl@0: 	  ArgInfo *arg = elt->data;
sl@0: 
sl@0: 	  /* Skip return value */
sl@0: 	  if (arg_info_get_annotation (arg, DBUS_GLIB_ANNOTATION_RETURNVAL) != NULL)
sl@0: 	    continue;
sl@0:       
sl@0: 	  if (arg_info_get_direction (arg) == ARG_OUT)
sl@0: 	    {
sl@0: 	      GType gtype;
sl@0: 	      arg_type = arg_info_get_type (arg);
sl@0: 	      gtype = _dbus_gtype_from_signature (arg_type, FALSE);
sl@0: 	      if (gtype == G_TYPE_INVALID)
sl@0: 		goto invalid_type;
sl@0: 	      /* We actually just need a pointer for the return value
sl@0: 		 storage */
sl@0: 	      gtype = G_TYPE_POINTER;
sl@0: 	      g_array_append_val (ret, gtype);
sl@0: 	    }
sl@0: 	}
sl@0: 
sl@0:       if (retval_signals_error)
sl@0: 	{
sl@0: 	  /* Final GError parameter */
sl@0: 	  GType gtype = G_TYPE_POINTER;
sl@0: 	  g_array_append_val (ret, gtype);
sl@0: 	}
sl@0:     }
sl@0:   else
sl@0:     {
sl@0:       /* Context pointer */
sl@0:       GType gtype = G_TYPE_POINTER;
sl@0:       g_array_append_val (ret, gtype);
sl@0:     }
sl@0: 
sl@0:   *params = ret;
sl@0:   return TRUE;
sl@0: 
sl@0:  invalid_type:
sl@0:   g_set_error (error,
sl@0: 	       DBUS_BINDING_TOOL_ERROR,
sl@0: 	       DBUS_BINDING_TOOL_ERROR_UNSUPPORTED_CONVERSION,
sl@0: 	       _("Unsupported conversion from D-BUS type %s to glib-genmarshal type"),
sl@0: 	       arg_type);
sl@0:   return FALSE;
sl@0: }
sl@0:   
sl@0: 
sl@0: static char *
sl@0: compute_marshaller (MethodInfo *method, GError **error)
sl@0: {
sl@0:   GArray *signature;
sl@0:   GType rettype;
sl@0:   const char *marshal_name;
sl@0:   GString *ret;
sl@0:   guint i;
sl@0: 
sl@0:   if (!compute_gsignature (method, &rettype, &signature, error))
sl@0:     return NULL;
sl@0: 
sl@0:   ret = g_string_new ("");
sl@0:   marshal_name = dbus_g_type_get_marshal_name (rettype);
sl@0:   g_assert (marshal_name != NULL);
sl@0:   g_string_append (ret, marshal_name);
sl@0:   g_string_append_c (ret, ':');
sl@0:   for (i = 0; i < signature->len; i++)
sl@0:     {
sl@0:       marshal_name = dbus_g_type_get_marshal_name (g_array_index (signature, GType, i));
sl@0:       g_assert (marshal_name != NULL);
sl@0:       g_string_append (ret, marshal_name);
sl@0:       if (i < signature->len - 1)
sl@0: 	g_string_append_c (ret, ',');
sl@0:     }
sl@0:   if (signature->len == 0)
sl@0:     {
sl@0:       marshal_name = dbus_g_type_get_marshal_name (G_TYPE_NONE);
sl@0:       g_assert (marshal_name != NULL);
sl@0:       g_string_append (ret, marshal_name);
sl@0:     }
sl@0:   g_array_free (signature, TRUE);
sl@0:   return g_string_free (ret, FALSE);
sl@0: }
sl@0: 
sl@0: static char *
sl@0: compute_marshaller_name (MethodInfo *method, const char *prefix, GError **error)
sl@0: {
sl@0:   GString *ret;
sl@0:   GArray *signature;
sl@0:   GType rettype;
sl@0:   const char *marshal_name;
sl@0:   guint i;
sl@0: 
sl@0:   if (!compute_gsignature (method, &rettype, &signature, error))
sl@0:     return NULL;
sl@0: 
sl@0:   ret = g_string_new (MARSHAL_PREFIX);
sl@0:   g_string_append (ret, prefix);
sl@0:   g_string_append_c (ret, '_');
sl@0: 
sl@0:   marshal_name = dbus_g_type_get_marshal_name (rettype);
sl@0:   g_assert (marshal_name != NULL);
sl@0:   g_string_append (ret, marshal_name);
sl@0:   g_string_append (ret, "__");
sl@0:   for (i = 0; i < signature->len; i++)
sl@0:     {
sl@0:       marshal_name = dbus_g_type_get_marshal_name (g_array_index (signature, GType, i));
sl@0:       g_assert (marshal_name != NULL);
sl@0:       g_string_append (ret, marshal_name);
sl@0:       if (i < signature->len - 1)
sl@0: 	g_string_append_c (ret, '_');
sl@0:     }
sl@0:   if (signature->len == 0)
sl@0:     {
sl@0:       marshal_name = dbus_g_type_get_marshal_name (G_TYPE_NONE);
sl@0:       g_assert (marshal_name != NULL);
sl@0:       g_string_append (ret, marshal_name);
sl@0:     }
sl@0:   g_array_free (signature, TRUE);
sl@0:   return g_string_free (ret, FALSE);
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: gather_marshallers_list (GSList *list, DBusBindingToolCData *data, GError **error)
sl@0: {
sl@0:   GSList *tmp;
sl@0: 
sl@0:   tmp = list;
sl@0:   while (tmp != NULL)
sl@0:     {
sl@0:       if (!gather_marshallers (tmp->data, data, error))
sl@0: 	return FALSE;
sl@0:       tmp = tmp->next;
sl@0:     }
sl@0:   return TRUE;
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: gather_marshallers (BaseInfo *base, DBusBindingToolCData *data, GError **error)
sl@0: {
sl@0:   if (base_info_get_type (base) == INFO_TYPE_NODE)
sl@0:     {
sl@0:       if (!gather_marshallers_list (node_info_get_nodes ((NodeInfo *) base),
sl@0: 				    data, error))
sl@0: 	return FALSE;
sl@0:       if (!gather_marshallers_list (node_info_get_interfaces ((NodeInfo *) base),
sl@0: 				    data, error))
sl@0: 	return FALSE;
sl@0:     }
sl@0:   else
sl@0:     {
sl@0:       InterfaceInfo *interface;
sl@0:       GSList *methods;
sl@0:       GSList *tmp;
sl@0:       const char *interface_c_name;
sl@0: 
sl@0:       interface = (InterfaceInfo *) base;
sl@0:       interface_c_name = interface_info_get_annotation (interface, DBUS_GLIB_ANNOTATION_C_SYMBOL);
sl@0:       if (interface_c_name == NULL)
sl@0:         {
sl@0: 	  if (!data->prefix)
sl@0: 	    return TRUE;
sl@0:         }
sl@0: 
sl@0:       methods = interface_info_get_methods (interface);
sl@0: 
sl@0:       /* Generate the necessary marshallers for the methods. */
sl@0: 
sl@0:       for (tmp = methods; tmp != NULL; tmp = g_slist_next (tmp))
sl@0:         {
sl@0:           MethodInfo *method;
sl@0:           char *marshaller_name;
sl@0: 
sl@0:           method = (MethodInfo *) tmp->data;
sl@0: 
sl@0:           marshaller_name = compute_marshaller (method, error);
sl@0: 	  if (!marshaller_name)
sl@0: 	    return FALSE;
sl@0: 
sl@0: 	  if (g_hash_table_lookup (data->generated, marshaller_name))
sl@0: 	    {
sl@0: 	      g_free (marshaller_name);
sl@0: 	      continue;
sl@0: 	    }
sl@0: 
sl@0: 	  g_hash_table_insert (data->generated, marshaller_name, NULL);
sl@0:         }
sl@0: 
sl@0:     }
sl@0:   return TRUE;
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: generate_glue_list (GSList *list, DBusBindingToolCData *data, GError **error)
sl@0: {
sl@0:   GSList *tmp;
sl@0: 
sl@0:   tmp = list;
sl@0:   while (tmp != NULL)
sl@0:     {
sl@0:       if (!generate_glue (tmp->data, data, error))
sl@0: 	return FALSE;
sl@0:       tmp = tmp->next;
sl@0:     }
sl@0:   return TRUE;
sl@0: }
sl@0: 
sl@0: #define WRITE_OR_LOSE(x) do { gsize bytes_written; if (!g_io_channel_write_chars (channel, x, -1, &bytes_written, error)) goto io_lose; } while (0)
sl@0: 
sl@0: static gboolean
sl@0: write_printf_to_iochannel (const char *fmt, GIOChannel *channel, GError **error, ...)
sl@0: {
sl@0:   char *str;
sl@0:   va_list args;
sl@0:   GIOStatus status;
sl@0:   gsize written;
sl@0:   gboolean ret;
sl@0: 
sl@0:   va_start (args, error);
sl@0: 
sl@0:   str = g_strdup_vprintf (fmt, args);
sl@0:   if ((status = g_io_channel_write_chars (channel, str, -1, &written, error)) == G_IO_STATUS_NORMAL)
sl@0:     ret = TRUE;
sl@0:   else
sl@0:     ret = FALSE;
sl@0: 
sl@0:   g_free (str);
sl@0: 
sl@0:   va_end (args);
sl@0: 
sl@0:   return ret;
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: write_quoted_string (GIOChannel *channel, GString *string, GError **error)
sl@0: {
sl@0:   guint i;
sl@0: 
sl@0:   WRITE_OR_LOSE ("\"");
sl@0:   for (i = 0; i < string->len; i++)
sl@0:     {
sl@0:       if (string->str[i] != '\0')
sl@0: 	{
sl@0: 	  if (!g_io_channel_write_chars (channel, string->str + i, 1, NULL, error))
sl@0: 	    return FALSE;
sl@0: 	}
sl@0:       else
sl@0: 	{
sl@0: 	  if (!g_io_channel_write_chars (channel, "\\0", -1, NULL, error))
sl@0: 	    return FALSE;
sl@0: 	}
sl@0:     }
sl@0:   WRITE_OR_LOSE ("\\0\"");
sl@0:   return TRUE;
sl@0:  io_lose:
sl@0:   return FALSE;
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: generate_glue (BaseInfo *base, DBusBindingToolCData *data, GError **error)
sl@0: {
sl@0:   if (base_info_get_type (base) == INFO_TYPE_NODE)
sl@0:     {
sl@0:       GString *object_introspection_data_blob;
sl@0:       GIOChannel *channel;
sl@0: 
sl@0:       channel = data->channel;
sl@0:       
sl@0:       object_introspection_data_blob = g_string_new_len ("", 0);
sl@0:       
sl@0:       data->blob = object_introspection_data_blob;
sl@0:       data->count = 0;
sl@0: 
sl@0:       data->signal_blob = g_string_new_len ("", 0);
sl@0:       data->property_blob = g_string_new_len ("", 0);
sl@0: 
sl@0:       if (!write_printf_to_iochannel ("static const DBusGMethodInfo dbus_glib_%s_methods[] = {\n", channel, error, data->prefix))
sl@0: 	goto io_lose;
sl@0: 
sl@0:       if (!generate_glue_list (node_info_get_nodes ((NodeInfo *) base),
sl@0: 			       data, error))
sl@0: 	return FALSE;
sl@0:       if (!generate_glue_list (node_info_get_interfaces ((NodeInfo *) base),
sl@0: 			       data, error))
sl@0: 	return FALSE;
sl@0: 
sl@0:       WRITE_OR_LOSE ("};\n\n");
sl@0: 
sl@0:       /* Information about the object. */
sl@0: 
sl@0:       if (!write_printf_to_iochannel ("const DBusGObjectInfo dbus_glib_%s_object_info = {\n",
sl@0: 				      channel, error, data->prefix))
sl@0: 	goto io_lose;
sl@0:       WRITE_OR_LOSE ("  0,\n");
sl@0:       if (!write_printf_to_iochannel ("  dbus_glib_%s_methods,\n", channel, error, data->prefix))
sl@0: 	goto io_lose;
sl@0:       if (!write_printf_to_iochannel ("  %d,\n", channel, error, data->count))
sl@0: 	goto io_lose;
sl@0: 
sl@0:       if (!write_quoted_string (channel, object_introspection_data_blob, error))
sl@0: 	goto io_lose;
sl@0:       WRITE_OR_LOSE (",\n");
sl@0:       if (!write_quoted_string (channel, data->signal_blob, error))
sl@0: 	goto io_lose;
sl@0:       WRITE_OR_LOSE (",\n");
sl@0:       if (!write_quoted_string (channel, data->property_blob, error))
sl@0: 	goto io_lose;
sl@0:       WRITE_OR_LOSE ("\n};\n\n");
sl@0: 
sl@0:       g_string_free (object_introspection_data_blob, TRUE);
sl@0:       g_string_free (data->signal_blob, TRUE);
sl@0:       g_string_free (data->property_blob, TRUE);
sl@0:     }
sl@0:   else
sl@0:     {
sl@0:       GIOChannel *channel;
sl@0:       InterfaceInfo *interface;
sl@0:       GSList *methods;
sl@0:       GSList *signals;
sl@0:       GSList *properties;
sl@0:       GSList *tmp;
sl@0:       const char *interface_c_name;
sl@0:       GString *object_introspection_data_blob;
sl@0: 
sl@0:       channel = data->channel;
sl@0:       object_introspection_data_blob = data->blob;
sl@0: 
sl@0:       interface = (InterfaceInfo *) base;
sl@0:       interface_c_name = interface_info_get_annotation (interface, DBUS_GLIB_ANNOTATION_C_SYMBOL);
sl@0:       if (interface_c_name == NULL)
sl@0:         {
sl@0: 	  if (data->prefix == NULL)
sl@0: 	    return TRUE;
sl@0: 	  interface_c_name = data->prefix;
sl@0:         }
sl@0: 
sl@0:       methods = interface_info_get_methods (interface);
sl@0: 
sl@0:       /* Table of marshalled methods. */
sl@0: 
sl@0:       for (tmp = methods; tmp != NULL; tmp = g_slist_next (tmp))
sl@0:         {
sl@0:           MethodInfo *method;
sl@0:           char *marshaller_name;
sl@0: 	  char *method_c_name;
sl@0:           gboolean async = FALSE;
sl@0: 	  GSList *args;
sl@0: 	  gboolean found_retval = FALSE;
sl@0: 
sl@0:           method = (MethodInfo *) tmp->data;
sl@0: 	  method_c_name = g_strdup (method_info_get_annotation (method, DBUS_GLIB_ANNOTATION_C_SYMBOL));
sl@0:           if (method_c_name == NULL)
sl@0: 	    {
sl@0: 	      char *method_name_uscored;
sl@0: 	      method_name_uscored = _dbus_gutils_wincaps_to_uscore (method_info_get_name (method));
sl@0:               method_c_name = g_strdup_printf ("%s_%s",
sl@0: 					       interface_c_name,
sl@0: 					       method_name_uscored);
sl@0: 	      g_free (method_name_uscored);
sl@0:             }
sl@0: 
sl@0:           if (!write_printf_to_iochannel ("  { (GCallback) %s, ", channel, error,
sl@0: 					  method_c_name))
sl@0: 	    goto io_lose;
sl@0: 
sl@0:           marshaller_name = compute_marshaller_name (method, data->prefix, error);
sl@0: 	  if (!marshaller_name)
sl@0: 	    goto io_lose;
sl@0: 
sl@0:           if (!write_printf_to_iochannel ("%s, %d },\n", channel, error,
sl@0: 					  marshaller_name,
sl@0: 					  object_introspection_data_blob->len))
sl@0: 	    {
sl@0: 	      g_free (marshaller_name);
sl@0: 	      goto io_lose;
sl@0: 	    }
sl@0: 
sl@0:           if (method_info_get_annotation (method, DBUS_GLIB_ANNOTATION_ASYNC) != NULL)
sl@0:             async = TRUE;
sl@0: 
sl@0: 	  /* Object method data blob format:
sl@0: 	   * <iface>\0<name>\0(<argname>\0<argdirection>\0<argtype>\0)*\0
sl@0: 	   */
sl@0: 
sl@0: 	  g_string_append (object_introspection_data_blob, interface_info_get_name (interface));
sl@0: 	  g_string_append_c (object_introspection_data_blob, '\0');
sl@0: 
sl@0: 	  g_string_append (object_introspection_data_blob, method_info_get_name (method));
sl@0: 	  g_string_append_c (object_introspection_data_blob, '\0');
sl@0: 
sl@0: 	  g_string_append_c (object_introspection_data_blob, async ? 'A' : 'S');
sl@0: 	  g_string_append_c (object_introspection_data_blob, '\0');
sl@0: 
sl@0: 	  for (args = method_info_get_args (method); args; args = args->next)
sl@0: 	    {
sl@0: 	      ArgInfo *arg;
sl@0: 	      char direction;
sl@0: 	      const char *returnval_annotation;
sl@0: 
sl@0: 	      arg = args->data;
sl@0: 
sl@0: 	      g_string_append (object_introspection_data_blob, arg_info_get_name (arg));
sl@0: 	      g_string_append_c (object_introspection_data_blob, '\0');
sl@0: 
sl@0: 	      switch (arg_info_get_direction (arg))
sl@0: 		{
sl@0: 		case ARG_IN:
sl@0: 		  direction = 'I';
sl@0: 		  break;
sl@0: 		case ARG_OUT:
sl@0: 		  direction = 'O';
sl@0: 		  break;
sl@0: 		case ARG_INVALID:
sl@0:                 default:
sl@0:                   g_assert_not_reached ();
sl@0:                   direction = 0; /* silence gcc */
sl@0: 		  break;
sl@0: 		}
sl@0: 	      g_string_append_c (object_introspection_data_blob, direction);
sl@0: 	      g_string_append_c (object_introspection_data_blob, '\0');
sl@0: 
sl@0: 	      if (arg_info_get_annotation (arg, DBUS_GLIB_ANNOTATION_CONST) != NULL)
sl@0: 		{
sl@0: 		  if (arg_info_get_direction (arg) == ARG_IN)
sl@0: 		    {
sl@0: 		      g_set_error (error,
sl@0: 				   DBUS_BINDING_TOOL_ERROR,
sl@0: 				   DBUS_BINDING_TOOL_ERROR_INVALID_ANNOTATION,
sl@0: 				   "Input argument \"%s\" cannot have const annotation in method \"%s\" of interface \"%s\"\n",
sl@0: 				   arg_info_get_name (arg),
sl@0: 				   method_info_get_name (method),
sl@0: 				   interface_info_get_name (interface));
sl@0: 		      return FALSE;
sl@0: 		    }
sl@0: 		  g_string_append_c (object_introspection_data_blob, 'C');
sl@0: 		  g_string_append_c (object_introspection_data_blob, '\0');
sl@0: 		}
sl@0: 	      else if (arg_info_get_direction (arg) == ARG_OUT)
sl@0: 		{
sl@0: 		  g_string_append_c (object_introspection_data_blob, 'F');
sl@0: 		  g_string_append_c (object_introspection_data_blob, '\0');
sl@0: 		}
sl@0: 
sl@0: 	      returnval_annotation = arg_info_get_annotation (arg, DBUS_GLIB_ANNOTATION_RETURNVAL);
sl@0: 	      if (returnval_annotation != NULL)
sl@0: 		{
sl@0: 		  GType gtype;
sl@0: 
sl@0: 		  if (found_retval)
sl@0: 		    {
sl@0: 		      g_set_error (error,
sl@0: 				   DBUS_BINDING_TOOL_ERROR,
sl@0: 				   DBUS_BINDING_TOOL_ERROR_INVALID_ANNOTATION,
sl@0: 				   "Multiple arguments with return value annotation in method \"%s\" of interface \"%s\"\n",
sl@0: 				   method_info_get_name (method),
sl@0: 				   interface_info_get_name (interface));
sl@0: 		      return FALSE;
sl@0: 		    }
sl@0: 		  found_retval = TRUE;
sl@0: 		  if (arg_info_get_direction (arg) == ARG_IN)
sl@0: 		    {
sl@0: 		      g_set_error (error,
sl@0: 				   DBUS_BINDING_TOOL_ERROR,
sl@0: 				   DBUS_BINDING_TOOL_ERROR_INVALID_ANNOTATION,
sl@0: 				   "Input argument \"%s\" cannot have return value annotation in method \"%s\" of interface \"%s\"\n",
sl@0: 				   arg_info_get_name (arg),
sl@0: 				   method_info_get_name (method),
sl@0: 				   interface_info_get_name (interface));
sl@0: 		      return FALSE;
sl@0: 		    }
sl@0: 		  if (!strcmp ("", returnval_annotation))
sl@0: 		    g_string_append_c (object_introspection_data_blob, 'R');
sl@0: 		  else if (!strcmp ("error", returnval_annotation))
sl@0: 		    {
sl@0: 		      gtype = _dbus_gtype_from_signature (arg_info_get_type (arg), TRUE);
sl@0: 		      if (!_dbus_gtype_can_signal_error (gtype))
sl@0: 			{
sl@0: 			  g_set_error (error,
sl@0: 				       DBUS_BINDING_TOOL_ERROR,
sl@0: 				       DBUS_BINDING_TOOL_ERROR_INVALID_ANNOTATION,
sl@0: 				       "Output argument \"%s\" cannot signal error with type \"%s\" in method \"%s\" of interface \"%s\"\n",
sl@0: 				       arg_info_get_name (arg),
sl@0: 				       g_type_name (gtype),
sl@0: 				       method_info_get_name (method),
sl@0: 				       interface_info_get_name (interface));
sl@0: 			  return FALSE;
sl@0: 			}
sl@0: 		      g_string_append_c (object_introspection_data_blob, 'E');
sl@0: 		    }
sl@0: 		  else
sl@0: 		    {
sl@0: 		      g_set_error (error,
sl@0: 				   DBUS_BINDING_TOOL_ERROR,
sl@0: 				   DBUS_BINDING_TOOL_ERROR_INVALID_ANNOTATION,
sl@0: 				   "Invalid ReturnVal annotation for argument \"%s\" in method \"%s\" of interface \"%s\"\n",
sl@0: 				   arg_info_get_name (arg),
sl@0: 				   method_info_get_name (method),
sl@0: 				   interface_info_get_name (interface));
sl@0: 		      return FALSE;
sl@0: 		    }
sl@0: 		      
sl@0: 		  g_string_append_c (object_introspection_data_blob, '\0');
sl@0: 		}
sl@0: 	      else if (arg_info_get_direction (arg) == ARG_OUT)
sl@0: 		{
sl@0: 		  g_string_append_c (object_introspection_data_blob, 'N');
sl@0: 		  g_string_append_c (object_introspection_data_blob, '\0');
sl@0: 		}
sl@0: 
sl@0: 	      g_string_append (object_introspection_data_blob, arg_info_get_type (arg));
sl@0: 	      g_string_append_c (object_introspection_data_blob, '\0');
sl@0: 	    }
sl@0: 
sl@0: 	  g_string_append_c (object_introspection_data_blob, '\0');
sl@0: 
sl@0:           data->count++;
sl@0:         }
sl@0: 
sl@0:       signals = interface_info_get_signals (interface);
sl@0: 
sl@0:       for (tmp = signals; tmp != NULL; tmp = g_slist_next (tmp))
sl@0:         {
sl@0:           SignalInfo *sig;
sl@0: 	  
sl@0: 	  sig = tmp->data;
sl@0: 
sl@0: 	  g_string_append (data->signal_blob, interface_info_get_name (interface));
sl@0: 	  g_string_append_c (data->signal_blob, '\0');
sl@0: 	  g_string_append (data->signal_blob, signal_info_get_name (sig));
sl@0: 	  g_string_append_c (data->signal_blob, '\0');
sl@0: 	}
sl@0: 
sl@0:       properties = interface_info_get_properties (interface);
sl@0: 
sl@0:       for (tmp = properties; tmp != NULL; tmp = g_slist_next (tmp))
sl@0:         {
sl@0:           PropertyInfo *prop;
sl@0: 	  
sl@0: 	  prop = tmp->data;
sl@0: 
sl@0: 	  g_string_append (data->property_blob, interface_info_get_name (interface));
sl@0: 	  g_string_append_c (data->property_blob, '\0');
sl@0: 	  g_string_append (data->property_blob, property_info_get_name (prop));
sl@0: 	  g_string_append_c (data->property_blob, '\0');
sl@0: 	}
sl@0:     }
sl@0:   return TRUE;
sl@0:  io_lose:
sl@0:   return FALSE;
sl@0: }
sl@0: 
sl@0: static void
sl@0: write_marshaller (gpointer key, gpointer value, gpointer user_data)
sl@0: {
sl@0:   DBusBindingToolCData *data;
sl@0:   const char *marshaller;
sl@0:   gsize bytes_written;
sl@0: 
sl@0:   data = user_data;
sl@0:   marshaller = key;
sl@0: 
sl@0:   if (data->error && *data->error)
sl@0:     return;
sl@0: 
sl@0:   if (g_io_channel_write_chars (data->channel, marshaller, -1, &bytes_written, data->error) == G_IO_STATUS_NORMAL)
sl@0:     g_io_channel_write_chars (data->channel, "\n", -1, &bytes_written, data->error);
sl@0: }
sl@0: 
sl@0: gboolean
sl@0: dbus_binding_tool_output_glib_server (BaseInfo *info, GIOChannel *channel, const char *prefix, GError **error)
sl@0: {
sl@0:   gboolean ret;
sl@0:   GPtrArray *argv;
sl@0:   gint child_stdout;
sl@0:   GIOChannel *genmarshal_stdout;
sl@0:   GPid child_pid;
sl@0:   DBusBindingToolCData data;
sl@0:   char *tempfile_name;
sl@0:   gint tempfile_fd;
sl@0:   GIOStatus iostatus;
sl@0:   char buf[4096];
sl@0:   gsize bytes_read, bytes_written;
sl@0: 
sl@0:   memset (&data, 0, sizeof (data));
sl@0: 
sl@0:   dbus_g_type_specialized_init ();
sl@0:   _dbus_g_type_specialized_builtins_init ();
sl@0: 
sl@0:   data.prefix = prefix;
sl@0:   data.generated = g_hash_table_new_full (g_str_hash, g_str_equal, (GDestroyNotify) g_free, NULL);
sl@0:   data.error = error;
sl@0:   genmarshal_stdout = NULL;
sl@0:   tempfile_name = NULL;
sl@0: 
sl@0:   if (!gather_marshallers (info, &data, error))
sl@0:     goto io_lose;
sl@0: 
sl@0:   tempfile_fd = g_file_open_tmp ("dbus-binding-tool-c-marshallers.XXXXXX",
sl@0: 				 &tempfile_name, error);
sl@0:   if (tempfile_fd < 0)
sl@0:     goto io_lose;
sl@0: 
sl@0:   data.channel = g_io_channel_unix_new (tempfile_fd);
sl@0:   if (!g_io_channel_set_encoding (data.channel, NULL, error))
sl@0:     goto io_lose;
sl@0:   g_hash_table_foreach (data.generated, write_marshaller, &data); 
sl@0:   if (error && *error != NULL)
sl@0:     {
sl@0:       ret = FALSE;
sl@0:       g_io_channel_close (data.channel);
sl@0:       g_io_channel_unref (data.channel);
sl@0:       goto io_lose;
sl@0:     }
sl@0: 
sl@0:   g_io_channel_close (data.channel);
sl@0:   g_io_channel_unref (data.channel);
sl@0:   
sl@0:   /* Now spawn glib-genmarshal to insert all our required marshallers */
sl@0:   argv = g_ptr_array_new ();
sl@0:   g_ptr_array_add (argv, "glib-genmarshal");
sl@0:   g_ptr_array_add (argv, "--header");
sl@0:   g_ptr_array_add (argv, "--body");
sl@0:   g_ptr_array_add (argv, g_strdup_printf ("--prefix=%s%s", MARSHAL_PREFIX, prefix));
sl@0:   g_ptr_array_add (argv, tempfile_name);
sl@0:   g_ptr_array_add (argv, NULL);
sl@0:   if (!g_spawn_async_with_pipes (NULL, (char**)argv->pdata, NULL,
sl@0: 				 G_SPAWN_SEARCH_PATH,
sl@0: 				 NULL, NULL,
sl@0: 				 &child_pid,
sl@0: 				 NULL,
sl@0: 				 &child_stdout, NULL, error))
sl@0:     {
sl@0:       g_ptr_array_free (argv, TRUE);
sl@0:       goto io_lose;
sl@0:     }
sl@0:   g_ptr_array_free (argv, TRUE);
sl@0: 
sl@0:   genmarshal_stdout = g_io_channel_unix_new (child_stdout);
sl@0:   if (!g_io_channel_set_encoding (genmarshal_stdout, NULL, error))
sl@0:     goto io_lose;
sl@0: 
sl@0:   WRITE_OR_LOSE ("/* Generated by dbus-binding-tool; do not edit! */\n\n");
sl@0: 
sl@0:   while ((iostatus = g_io_channel_read_chars (genmarshal_stdout, buf, sizeof (buf),
sl@0: 					      &bytes_read, error)) == G_IO_STATUS_NORMAL)
sl@0:     if (g_io_channel_write_chars (channel, buf, bytes_read, &bytes_written, error) != G_IO_STATUS_NORMAL)
sl@0:       goto io_lose;
sl@0:   if (iostatus != G_IO_STATUS_EOF)
sl@0:     goto io_lose;
sl@0: 
sl@0:   g_io_channel_close (genmarshal_stdout);
sl@0: 
sl@0:   WRITE_OR_LOSE ("#include <dbus/dbus-glib.h>\n");
sl@0: 
sl@0:   data.channel = channel;
sl@0:   g_io_channel_ref (data.channel);
sl@0:   if (!generate_glue (info, &data, error))
sl@0:     goto io_lose;
sl@0:   
sl@0:   ret = TRUE;
sl@0:  cleanup:
sl@0:   if (tempfile_name)
sl@0:     unlink (tempfile_name);
sl@0:   g_free (tempfile_name);
sl@0:   if (genmarshal_stdout)
sl@0:     g_io_channel_unref (genmarshal_stdout);
sl@0:   if (data.channel)
sl@0:     g_io_channel_unref (data.channel);
sl@0:   g_hash_table_destroy (data.generated);
sl@0: 
sl@0:   return ret;
sl@0:  io_lose:
sl@0:   ret = FALSE;
sl@0:   goto cleanup;
sl@0: }
sl@0: 
sl@0: static char *
sl@0: iface_to_c_prefix (const char *iface)
sl@0: {
sl@0:   char **components;
sl@0:   char **component;
sl@0:   GString *ret;
sl@0:   gboolean first;
sl@0:   
sl@0:   components = g_strsplit (iface, ".", 0);
sl@0: 
sl@0:   first = TRUE;
sl@0:   ret = g_string_new ("");
sl@0:   for (component = components; *component; component++)
sl@0:     {
sl@0:       if (!first)
sl@0: 	g_string_append_c (ret, '_');
sl@0:       else
sl@0: 	first = FALSE;
sl@0:       g_string_append (ret, *component);
sl@0:     }
sl@0:   g_strfreev (components);
sl@0:   return g_string_free (ret, FALSE);
sl@0: }
sl@0: 
sl@0: static char *
sl@0: compute_client_method_name (const char *iface_prefix, MethodInfo *method)
sl@0: {
sl@0:   char *method_name_uscored, *ret;
sl@0: 
sl@0:   method_name_uscored = _dbus_gutils_wincaps_to_uscore (method_info_get_name (method));
sl@0:   ret = g_strdup_printf ("%s_%s", iface_prefix, method_name_uscored);
sl@0:   g_free (method_name_uscored);
sl@0: 
sl@0:   return ret;
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: write_formal_parameters (InterfaceInfo *iface, MethodInfo *method, GIOChannel *channel, GError **error)
sl@0: {
sl@0:   GSList *args;
sl@0: 
sl@0:   for (args = method_info_get_args (method); args; args = args->next)
sl@0:     {
sl@0:       ArgInfo *arg;
sl@0:       const char *type_str;
sl@0:       const char *type_suffix;
sl@0:       GType gtype;
sl@0:       int direction;
sl@0: 
sl@0:       arg = args->data;
sl@0: 
sl@0:       WRITE_OR_LOSE (", ");
sl@0: 
sl@0:       direction = arg_info_get_direction (arg);
sl@0: 
sl@0:       gtype = _dbus_gtype_from_signature (arg_info_get_type (arg), TRUE);
sl@0:       if (gtype == G_TYPE_INVALID)
sl@0: 	{
sl@0: 	  g_set_error (error,
sl@0: 		       DBUS_BINDING_TOOL_ERROR,
sl@0: 		       DBUS_BINDING_TOOL_ERROR_UNSUPPORTED_CONVERSION,
sl@0: 		       _("Unsupported conversion from D-BUS type signature \"%s\" to glib C type in method \"%s\" of interface \"%s\""),
sl@0: 		       arg_info_get_type (arg),
sl@0: 		       method_info_get_name (method),
sl@0: 		       interface_info_get_name (iface));
sl@0: 	  return FALSE;
sl@0: 	}
sl@0:       type_str = dbus_g_type_get_c_name (gtype);
sl@0:       g_assert (type_str);
sl@0:       /* Variants are special...*/
sl@0:       if (gtype == G_TYPE_VALUE)
sl@0: 	{
sl@0: 	  if (direction == ARG_IN)
sl@0: 	    type_suffix = "*";
sl@0: 	  else
sl@0: 	    type_suffix = "";
sl@0: 	}
sl@0:       else if ((g_type_is_a (gtype, G_TYPE_BOXED)
sl@0: 	      || g_type_is_a (gtype, G_TYPE_OBJECT)
sl@0: 	   || g_type_is_a (gtype, G_TYPE_POINTER)))
sl@0: 	type_suffix = "*";
sl@0:       else
sl@0: 	type_suffix = "";
sl@0: 
sl@0: 
sl@0:       switch (direction)
sl@0: 	{
sl@0: 	case ARG_IN:
sl@0: 	  if (!write_printf_to_iochannel ("const %s%s IN_%s", channel, error,
sl@0: 					  type_str,
sl@0: 					  type_suffix,
sl@0: 					  arg_info_get_name (arg)))
sl@0: 	    goto io_lose;
sl@0: 	  break;
sl@0: 	case ARG_OUT:
sl@0: 	  if (!write_printf_to_iochannel ("%s%s* OUT_%s", channel, error,
sl@0: 					  type_str,
sl@0: 					  type_suffix,
sl@0: 					  arg_info_get_name (arg)))
sl@0: 	    goto io_lose;
sl@0: 	  break;
sl@0: 	case ARG_INVALID:
sl@0: 	  break;
sl@0: 	}
sl@0:     }
sl@0: 
sl@0:   return TRUE;
sl@0:  io_lose:
sl@0:   return FALSE;
sl@0: }
sl@0: 
sl@0: #define MAP_FUNDAMENTAL(NAME) \
sl@0:    case G_TYPE_ ## NAME: \
sl@0:      return g_strdup ("G_TYPE_" #NAME);
sl@0: #define MAP_KNOWN(NAME) \
sl@0:     if (gtype == NAME) \
sl@0:       return g_strdup (#NAME)
sl@0: static char *
sl@0: dbus_g_type_get_lookup_function (GType gtype)
sl@0: {
sl@0:   char *type_lookup;
sl@0:   switch (gtype)
sl@0:     {
sl@0:       MAP_FUNDAMENTAL(CHAR);
sl@0:       MAP_FUNDAMENTAL(UCHAR);
sl@0:       MAP_FUNDAMENTAL(BOOLEAN);
sl@0:       MAP_FUNDAMENTAL(LONG);
sl@0:       MAP_FUNDAMENTAL(ULONG);
sl@0:       MAP_FUNDAMENTAL(INT);
sl@0:       MAP_FUNDAMENTAL(UINT);
sl@0:       MAP_FUNDAMENTAL(INT64);
sl@0:       MAP_FUNDAMENTAL(UINT64);
sl@0:       MAP_FUNDAMENTAL(FLOAT);
sl@0:       MAP_FUNDAMENTAL(DOUBLE);
sl@0:       MAP_FUNDAMENTAL(STRING);
sl@0:     }
sl@0:   if (dbus_g_type_is_collection (gtype))
sl@0:     {
sl@0:       GType elt_gtype;
sl@0:       char *sublookup;
sl@0: 
sl@0:       elt_gtype = dbus_g_type_get_collection_specialization (gtype);
sl@0:       sublookup = dbus_g_type_get_lookup_function (elt_gtype);
sl@0:       g_assert (sublookup);
sl@0: 
sl@0:       if (_dbus_g_type_is_fixed (elt_gtype))
sl@0:         {
sl@0:           type_lookup = g_strdup_printf ("dbus_g_type_get_collection "
sl@0:               "(\"GArray\", %s)", sublookup);
sl@0:         }
sl@0:       else
sl@0:         {
sl@0:           type_lookup = g_strdup_printf ("dbus_g_type_get_collection "
sl@0:               "(\"GPtrArray\", %s)", sublookup);
sl@0:         }
sl@0: 
sl@0:       g_free (sublookup);
sl@0: 
sl@0:       return type_lookup;
sl@0:     }
sl@0:   else if (dbus_g_type_is_map (gtype))
sl@0:     {
sl@0:       GType key_gtype;
sl@0:       char *key_lookup;
sl@0:       GType value_gtype;
sl@0:       char *value_lookup;
sl@0:       
sl@0:       key_gtype = dbus_g_type_get_map_key_specialization (gtype);
sl@0:       value_gtype = dbus_g_type_get_map_value_specialization (gtype);
sl@0:       key_lookup = dbus_g_type_get_lookup_function (key_gtype);
sl@0:       g_assert (key_lookup);
sl@0:       value_lookup = dbus_g_type_get_lookup_function (value_gtype);
sl@0:       g_assert (value_lookup);
sl@0:       type_lookup = g_strdup_printf ("dbus_g_type_get_map (\"GHashTable\", %s, %s)",
sl@0: 				     key_lookup, value_lookup);
sl@0:       g_free (key_lookup);
sl@0:       g_free (value_lookup);
sl@0:       return type_lookup;
sl@0:     }
sl@0:   else if (dbus_g_type_is_struct (gtype))
sl@0:     {
sl@0:       GType value_gtype;
sl@0:       GString *string;
sl@0:       char *value_lookup = NULL;
sl@0:       guint size, i;
sl@0: 
sl@0:       string = g_string_new ("dbus_g_type_get_struct (\"GValueArray\"");
sl@0: 
sl@0:       size = dbus_g_type_get_struct_size (gtype);
sl@0:       for (i=0; i < size; i++)
sl@0:         {
sl@0:           value_gtype = dbus_g_type_get_struct_member_type(gtype, i);
sl@0:           value_lookup = dbus_g_type_get_lookup_function (value_gtype);
sl@0:           g_assert (value_lookup);
sl@0:           g_string_append_printf (string, ", %s", value_lookup);
sl@0:           g_free (value_lookup);
sl@0:         }
sl@0:       g_string_append (string, ", G_TYPE_INVALID)");
sl@0:       return g_string_free (string, FALSE);
sl@0:     }
sl@0: 
sl@0:   MAP_KNOWN(G_TYPE_VALUE);
sl@0:   MAP_KNOWN(G_TYPE_STRV);
sl@0:   MAP_KNOWN(G_TYPE_VALUE_ARRAY);
sl@0:   MAP_KNOWN(DBUS_TYPE_G_PROXY);
sl@0:   MAP_KNOWN(DBUS_TYPE_G_OBJECT_PATH);
sl@0:   return NULL;
sl@0: }
sl@0: #undef MAP_FUNDAMENTAL
sl@0: #undef MAP_KNOWN
sl@0: 
sl@0: static gboolean
sl@0: write_args_for_direction (InterfaceInfo *iface, MethodInfo *method, GIOChannel *channel, int direction, GError **error)
sl@0: {
sl@0:   GSList *args;
sl@0: 
sl@0:   for (args = method_info_get_args (method); args; args = args->next)
sl@0:     {
sl@0:       ArgInfo *arg;
sl@0:       GType gtype;
sl@0:       char *type_lookup;
sl@0: 
sl@0:       arg = args->data;
sl@0: 
sl@0:       if (direction != arg_info_get_direction (arg))
sl@0: 	continue;
sl@0: 
sl@0:       gtype = _dbus_gtype_from_signature (arg_info_get_type (arg), TRUE);
sl@0:       g_assert (gtype != G_TYPE_INVALID);
sl@0:       type_lookup = dbus_g_type_get_lookup_function (gtype);
sl@0:       g_assert (type_lookup != NULL);
sl@0: 
sl@0:       switch (direction)
sl@0: 	{
sl@0: 
sl@0: 	case ARG_IN:
sl@0: 	  if (!write_printf_to_iochannel ("%s, IN_%s, ", channel, error,
sl@0: 					  type_lookup,
sl@0: 					  arg_info_get_name (arg)))
sl@0: 	    goto io_lose;
sl@0: 	  break;
sl@0: 	case ARG_OUT:
sl@0: 	  if (!write_printf_to_iochannel ("%s, OUT_%s, ", channel, error,
sl@0: 					  type_lookup,
sl@0: 					  arg_info_get_name (arg)))
sl@0: 	    goto io_lose;
sl@0: 	  break;
sl@0: 	case ARG_INVALID:
sl@0: 	  break;
sl@0: 	}
sl@0:       g_free (type_lookup);
sl@0:     }
sl@0: 
sl@0:   return TRUE;
sl@0:  io_lose:
sl@0:   return FALSE;
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: check_supported_parameters (MethodInfo *method)
sl@0: {
sl@0:   GSList *args;
sl@0: 
sl@0:   for (args = method_info_get_args (method); args; args = args->next)
sl@0:     {
sl@0:       ArgInfo *arg;
sl@0:       GType gtype;
sl@0: 
sl@0:       arg = args->data;
sl@0:       gtype = _dbus_gtype_from_signature (arg_info_get_type (arg), TRUE);
sl@0:       if (gtype == G_TYPE_INVALID)
sl@0: 	return FALSE;
sl@0:     }
sl@0:   return TRUE;
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: write_untyped_out_args (InterfaceInfo *iface, MethodInfo *method, GIOChannel *channel, GError **error)
sl@0: {
sl@0:   GSList *args;
sl@0: 
sl@0:   for (args = method_info_get_args (method); args; args = args->next)
sl@0:     {
sl@0:       ArgInfo *arg;
sl@0: 
sl@0:       arg = args->data;
sl@0:       if (arg_info_get_direction (arg) != ARG_OUT)
sl@0:         continue;
sl@0:             
sl@0:       if (!write_printf_to_iochannel ("OUT_%s, ", channel, error,
sl@0:                                       arg_info_get_name (arg)))
sl@0:         goto io_lose;
sl@0:      }
sl@0: 
sl@0:    return TRUE;
sl@0:  io_lose:
sl@0:   return FALSE;
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: write_formal_declarations_for_direction (InterfaceInfo *iface, MethodInfo *method, GIOChannel *channel, const int direction, GError **error)
sl@0:  {
sl@0:    GSList *args;
sl@0:  
sl@0:    for (args = method_info_get_args (method); args; args = args->next)
sl@0:      {
sl@0:        ArgInfo *arg;
sl@0:       GType gtype;
sl@0:       const char *type_str, *type_suffix;
sl@0:       int dir;
sl@0: 
sl@0:        arg = args->data;
sl@0: 
sl@0:       dir = arg_info_get_direction (arg);
sl@0: 
sl@0:       gtype = _dbus_gtype_from_signature (arg_info_get_type (arg), TRUE);
sl@0:       type_str = dbus_g_type_get_c_name (gtype);
sl@0: 
sl@0:       if (!type_str)
sl@0:        {
sl@0:          g_set_error (error,
sl@0:                       DBUS_BINDING_TOOL_ERROR,
sl@0:                       DBUS_BINDING_TOOL_ERROR_UNSUPPORTED_CONVERSION,
sl@0:                       _("Unsupported conversion from D-BUS type signature \"%s\" to glib C type in method \"%s\" of interface \"%s\""),
sl@0:                       arg_info_get_type (arg),
sl@0:                       method_info_get_name (method),
sl@0:                       interface_info_get_name (iface));
sl@0:          return FALSE;
sl@0:        }
sl@0: 
sl@0:       /* Variants are special...*/
sl@0:       if (gtype == G_TYPE_VALUE)
sl@0: 	{
sl@0: 	  if (direction == ARG_IN)
sl@0: 	    type_suffix = "*";
sl@0: 	  else
sl@0: 	    type_suffix = "";
sl@0: 	}
sl@0:       else if ((g_type_is_a (gtype, G_TYPE_BOXED)
sl@0: 	      || g_type_is_a (gtype, G_TYPE_OBJECT)
sl@0: 	   || g_type_is_a (gtype, G_TYPE_POINTER)))
sl@0: 	type_suffix = "*";
sl@0:       else
sl@0: 	type_suffix = "";
sl@0: 
sl@0:       if (direction != dir)
sl@0:         continue;
sl@0: 
sl@0:           switch (dir)
sl@0:        {
sl@0:        case ARG_IN:
sl@0:          if (!write_printf_to_iochannel ("  %s%s IN_%s;\n", channel, error,
sl@0:                                          type_str, type_suffix,
sl@0:                                          arg_info_get_name (arg)))
sl@0:            goto io_lose;
sl@0:          break;
sl@0:        case ARG_OUT:
sl@0:          if (!write_printf_to_iochannel ("  %s%s OUT_%s;\n", channel, error,
sl@0:                                          type_str, type_suffix,
sl@0:                                          arg_info_get_name (arg)))
sl@0:            goto io_lose;
sl@0:          break;
sl@0:        case ARG_INVALID:
sl@0:          break;
sl@0:        }
sl@0:      }
sl@0:    return TRUE;
sl@0:  io_lose:
sl@0:   return FALSE;
sl@0:  }
sl@0: 
sl@0: static gboolean
sl@0: write_formal_parameters_for_direction (InterfaceInfo *iface, MethodInfo *method, int dir, GIOChannel *channel, GError **error)
sl@0: {
sl@0:   GSList *args;
sl@0: 
sl@0:   for (args = method_info_get_args (method); args; args = args->next)
sl@0:     {
sl@0:       ArgInfo *arg;
sl@0:       const char *type_str;
sl@0:       const char *type_suffix;
sl@0:       GType gtype;
sl@0:       int direction;
sl@0: 
sl@0:       arg = args->data;
sl@0: 
sl@0:       direction = arg_info_get_direction (arg);
sl@0:       if (dir != direction) continue;
sl@0:       
sl@0:       WRITE_OR_LOSE (", ");
sl@0: 
sl@0:       gtype = _dbus_gtype_from_signature (arg_info_get_type (arg), TRUE);
sl@0:       type_str = dbus_g_type_get_c_name (gtype);
sl@0:       /* Variants are special...*/
sl@0:       if (gtype == G_TYPE_VALUE)
sl@0: 	{
sl@0: 	  if (direction == ARG_IN)
sl@0: 	    type_suffix = "*";
sl@0: 	  else
sl@0: 	    type_suffix = "";
sl@0: 	}
sl@0:       else if ((g_type_is_a (gtype, G_TYPE_BOXED)
sl@0: 	      || g_type_is_a (gtype, G_TYPE_OBJECT)
sl@0: 	   || g_type_is_a (gtype, G_TYPE_POINTER)))
sl@0: 	type_suffix = "*";
sl@0:       else
sl@0: 	type_suffix = "";
sl@0: 
sl@0:       if (!type_str)
sl@0: 	{
sl@0: 	  g_set_error (error,
sl@0: 		       DBUS_BINDING_TOOL_ERROR,
sl@0: 		       DBUS_BINDING_TOOL_ERROR_UNSUPPORTED_CONVERSION,
sl@0: 		       _("Unsupported conversion from D-BUS type signature \"%s\" to glib C type in method \"%s\" of interface \"%s\""),
sl@0: 		       arg_info_get_type (arg),
sl@0: 		       method_info_get_name (method),
sl@0: 		       interface_info_get_name (iface));
sl@0: 	  return FALSE;
sl@0: 	}
sl@0:  
sl@0:        switch (direction)
sl@0:  	{
sl@0:  	case ARG_IN:
sl@0: 	  if (!write_printf_to_iochannel ("const %s%s IN_%s", channel, error,
sl@0: 					  type_str,
sl@0: 					  type_suffix,
sl@0: 					  arg_info_get_name (arg)))
sl@0:  	    goto io_lose;
sl@0:  	  break;
sl@0:  	case ARG_OUT:
sl@0: 	  if (!write_printf_to_iochannel ("%s%s* OUT_%s", channel, error,
sl@0: 					  type_str,
sl@0: 					  type_suffix,
sl@0: 					  arg_info_get_name (arg)))
sl@0:  	    goto io_lose;
sl@0:  	  break;
sl@0:  	case ARG_INVALID:
sl@0: 	  break;
sl@0: 	}
sl@0:     }
sl@0:   return TRUE;
sl@0:  io_lose:
sl@0:   return FALSE;
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: write_typed_args_for_direction (InterfaceInfo *iface, MethodInfo *method, GIOChannel *channel, const int direction, GError **error)
sl@0:  {
sl@0:   GSList *args;
sl@0:   
sl@0:   for (args = method_info_get_args (method); args; args = args->next)
sl@0:     {
sl@0:       ArgInfo *arg;
sl@0:       int dir;
sl@0:       GType gtype;
sl@0:       const char *type_lookup;
sl@0:       
sl@0:       arg = args->data;
sl@0: 
sl@0:       dir = arg_info_get_direction (arg);
sl@0: 
sl@0:       if (dir != direction)
sl@0:         continue;
sl@0: 
sl@0:       gtype = _dbus_gtype_from_signature (arg_info_get_type (arg), TRUE);
sl@0:       type_lookup = dbus_g_type_get_lookup_function (gtype);
sl@0: 
sl@0:       if (!write_printf_to_iochannel ("%s, &%s_%s, ", channel, error, type_lookup, direction == ARG_IN ? "IN" : "OUT", arg_info_get_name (arg)))
sl@0:           goto io_lose;
sl@0:     }
sl@0:   return TRUE;
sl@0:  io_lose:
sl@0:   return FALSE;
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: write_async_method_client (GIOChannel *channel, InterfaceInfo *interface, MethodInfo *method, GError **error)
sl@0: {
sl@0:   char *method_name, *iface_prefix;
sl@0:   const char *interface_c_name;
sl@0: 
sl@0:   iface_prefix = iface_to_c_prefix (interface_info_get_name (interface));
sl@0:   interface_c_name = interface_info_get_annotation (interface, DBUS_GLIB_ANNOTATION_CLIENT_C_SYMBOL);
sl@0:   if (interface_c_name == NULL)
sl@0:     {
sl@0:       interface_c_name = (const char *) iface_prefix;
sl@0:     }
sl@0: 
sl@0:   method_name = g_strdup (method_info_get_annotation (method, DBUS_GLIB_ANNOTATION_CLIENT_C_SYMBOL));
sl@0:   if (method_name == NULL)
sl@0:     {
sl@0:       method_name = compute_client_method_name (interface_c_name, method);
sl@0:     }
sl@0:   g_free(iface_prefix);
sl@0: 
sl@0:   /* Write the typedef for the client callback */
sl@0:   if (!write_printf_to_iochannel ("typedef void (*%s_reply) (DBusGProxy *proxy, ", channel, error, method_name))
sl@0:     goto io_lose;
sl@0:   {
sl@0:     GSList *args;
sl@0:     for (args = method_info_get_args (method); args; args = args->next)
sl@0:       {
sl@0: 	ArgInfo *arg;
sl@0: 	const char *type_suffix, *type_str;
sl@0: 	GType gtype;
sl@0: 	
sl@0: 	arg = args->data;
sl@0: 	
sl@0: 	if (arg_info_get_direction (arg) != ARG_OUT)
sl@0: 	  continue;
sl@0: 	gtype = _dbus_gtype_from_signature (arg_info_get_type (arg), TRUE);
sl@0: 	if (gtype != G_TYPE_VALUE && (g_type_is_a (gtype, G_TYPE_BOXED)
sl@0: 	     || g_type_is_a (gtype, G_TYPE_OBJECT)
sl@0: 	     || g_type_is_a (gtype, G_TYPE_POINTER)))
sl@0: 	  type_suffix = "*";
sl@0: 	else
sl@0: 	  type_suffix = "";
sl@0: 	type_str = dbus_g_type_get_c_name (_dbus_gtype_from_signature (arg_info_get_type (arg), TRUE));
sl@0: 	if (!write_printf_to_iochannel ("%s %sOUT_%s, ", channel, error, type_str, type_suffix, arg_info_get_name (arg)))
sl@0: 	  goto io_lose;
sl@0:       }
sl@0:   }
sl@0:   WRITE_OR_LOSE ("GError *error, gpointer userdata);\n\n");
sl@0:   
sl@0:   
sl@0:   /* Write the callback when the call returns */
sl@0:   WRITE_OR_LOSE ("static void\n");
sl@0:   if (!write_printf_to_iochannel ("%s_async_callback (DBusGProxy *proxy, DBusGProxyCall *call, void *user_data)\n", channel, error, method_name))
sl@0:     goto io_lose;
sl@0:   WRITE_OR_LOSE ("{\n");
sl@0:   WRITE_OR_LOSE ("  DBusGAsyncData *data = (DBusGAsyncData*) user_data;\n  GError *error = NULL;\n");
sl@0:   if (!write_formal_declarations_for_direction (interface, method, channel, ARG_OUT, error))
sl@0:     goto io_lose;
sl@0:   /* TODO: handle return boolean of end_call */
sl@0:   WRITE_OR_LOSE ("  dbus_g_proxy_end_call (proxy, call, &error, ");
sl@0:   if (!write_typed_args_for_direction (interface, method, channel, ARG_OUT, error))
sl@0:     goto io_lose;
sl@0:   WRITE_OR_LOSE("G_TYPE_INVALID);\n");
sl@0:   if (!write_printf_to_iochannel ("  (*(%s_reply)data->cb) (proxy, ", channel, error, method_name))
sl@0:     goto io_lose;
sl@0:   if (!write_untyped_out_args (interface, method, channel, error))
sl@0:     goto io_lose;
sl@0:   WRITE_OR_LOSE ("error, data->userdata);\n");
sl@0:   WRITE_OR_LOSE ("  return;\n}\n\n");
sl@0:   
sl@0: 
sl@0:   /* Write the main wrapper function */
sl@0:   WRITE_OR_LOSE ("static\n#ifdef G_HAVE_INLINE\ninline\n#endif\nDBusGProxyCall*\n");
sl@0:   if (!write_printf_to_iochannel ("%s_async (DBusGProxy *proxy", channel, error,
sl@0:                                   method_name))
sl@0:     goto io_lose;
sl@0:   if (!write_formal_parameters_for_direction (interface, method, ARG_IN, channel, error))
sl@0:     goto io_lose;
sl@0:   
sl@0:   if (!write_printf_to_iochannel (", %s_reply callback, gpointer userdata)\n\n", channel, error, method_name))
sl@0:     goto io_lose;
sl@0:   
sl@0:   WRITE_OR_LOSE ("{\n");
sl@0:   WRITE_OR_LOSE ("  DBusGAsyncData *stuff;\n  stuff = g_new (DBusGAsyncData, 1);\n  stuff->cb = G_CALLBACK (callback);\n  stuff->userdata = userdata;\n");
sl@0:   if (!write_printf_to_iochannel ("  return dbus_g_proxy_begin_call (proxy, \"%s\", %s_async_callback, stuff, g_free, ", channel, error, method_info_get_name (method), method_name))
sl@0:     goto io_lose;
sl@0:   if (!write_args_for_direction (interface, method, channel, ARG_IN, error))
sl@0:     goto io_lose;
sl@0:   WRITE_OR_LOSE ("G_TYPE_INVALID);\n}\n");
sl@0: 
sl@0:   g_free (method_name);
sl@0:   return TRUE;
sl@0:  io_lose:
sl@0:   g_free (method_name);
sl@0:   return FALSE;
sl@0:  }
sl@0: 
sl@0: static gboolean
sl@0: generate_client_glue_list (GSList *list, DBusBindingToolCData *data, GError **error)
sl@0: {
sl@0:   GSList *tmp;
sl@0: 
sl@0:   tmp = list;
sl@0:   while (tmp != NULL)
sl@0:     {
sl@0:       if (!generate_client_glue (tmp->data, data, error))
sl@0: 	return FALSE;
sl@0:       tmp = tmp->next;
sl@0:     }
sl@0:   return TRUE;
sl@0: }
sl@0: 
sl@0: static gboolean
sl@0: generate_client_glue (BaseInfo *base, DBusBindingToolCData *data, GError **error)
sl@0: {
sl@0:   if (base_info_get_type (base) == INFO_TYPE_NODE)
sl@0:     {
sl@0:       if (!generate_client_glue_list (node_info_get_nodes ((NodeInfo *) base),
sl@0: 				      data, error))
sl@0: 	return FALSE;
sl@0:       if (!generate_client_glue_list (node_info_get_interfaces ((NodeInfo *) base),
sl@0: 				      data, error))
sl@0: 	return FALSE;
sl@0:     }
sl@0:   else
sl@0:     {
sl@0:       GIOChannel *channel;
sl@0:       InterfaceInfo *interface;
sl@0:       GSList *methods;
sl@0:       GSList *tmp;
sl@0:       char *iface_prefix;
sl@0:       const char *interface_c_name;
sl@0: 
sl@0:       channel = data->channel;
sl@0: 
sl@0:       interface = (InterfaceInfo *) base;
sl@0: 
sl@0:       methods = interface_info_get_methods (interface);
sl@0: 
sl@0:       iface_prefix = iface_to_c_prefix (interface_info_get_name (interface));
sl@0:       interface_c_name = interface_info_get_annotation (interface, DBUS_GLIB_ANNOTATION_CLIENT_C_SYMBOL);
sl@0:       if (interface_c_name == NULL)
sl@0:       {
sl@0:           interface_c_name = (const char *) iface_prefix;
sl@0:       }
sl@0: 
sl@0:       if (!write_printf_to_iochannel ("#ifndef DBUS_GLIB_CLIENT_WRAPPERS_%s\n"
sl@0: 				      "#define DBUS_GLIB_CLIENT_WRAPPERS_%s\n\n",
sl@0: 				      channel, error,
sl@0: 				      iface_prefix, iface_prefix))
sl@0: 	{
sl@0: 	  g_free (iface_prefix);
sl@0: 	  goto io_lose;
sl@0: 	}
sl@0: 
sl@0:       for (tmp = methods; tmp != NULL; tmp = g_slist_next (tmp))
sl@0:         {
sl@0: 	  MethodInfo *method;
sl@0: 	  char *method_c_name;
sl@0: 	  gboolean is_noreply;
sl@0: 
sl@0:           method = (MethodInfo *) tmp->data;
sl@0: 	  method_c_name = g_strdup (method_info_get_annotation (method, DBUS_GLIB_ANNOTATION_CLIENT_C_SYMBOL));
sl@0:           if (method_c_name == NULL)
sl@0: 	    {
sl@0:               method_c_name = compute_client_method_name (interface_c_name, method);
sl@0:             }
sl@0: 
sl@0: 	  is_noreply = method_info_get_annotation (method, DBUS_GLIB_ANNOTATION_NOREPLY) != NULL;
sl@0: 
sl@0: 	  if (data->ignore_unsupported && !check_supported_parameters (method))
sl@0: 	    {
sl@0: 	      g_warning ("Ignoring unsupported signature in method \"%s\" of interface \"%s\"\n",
sl@0: 			 method_info_get_name (method),
sl@0: 			 interface_info_get_name (interface));
sl@0: 	      continue;
sl@0: 	    }
sl@0: 
sl@0: 
sl@0: 	  WRITE_OR_LOSE ("static\n#ifdef G_HAVE_INLINE\ninline\n#endif\ngboolean\n");
sl@0: 	  if (!write_printf_to_iochannel ("%s (DBusGProxy *proxy", channel, error,
sl@0: 					  method_c_name))
sl@0: 	    goto io_lose;
sl@0: 	  g_free (method_c_name);
sl@0: 
sl@0: 	  if (!write_formal_parameters (interface, method, channel, error))
sl@0: 	    goto io_lose;
sl@0: 
sl@0: 	  WRITE_OR_LOSE (", GError **error)\n\n");
sl@0: 	  
sl@0: 	  WRITE_OR_LOSE ("{\n");
sl@0: 
sl@0: 	  if (is_noreply) {
sl@0: 	    if (!write_printf_to_iochannel ("  dbus_g_proxy_call_no_reply (proxy, \"%s\", ", channel, error,
sl@0: 					    method_info_get_name (method)))
sl@0: 	      goto io_lose;
sl@0: 	    
sl@0: 	    if (!write_args_for_direction (interface, method, channel, ARG_IN, error))
sl@0: 	      goto io_lose;
sl@0: 	    
sl@0: 	    WRITE_OR_LOSE ("G_TYPE_INVALID, ");
sl@0: 	    
sl@0: 	    if (!write_args_for_direction (interface, method, channel, ARG_OUT, error))
sl@0: 	      goto io_lose;
sl@0: 	    
sl@0: 	    WRITE_OR_LOSE ("G_TYPE_INVALID);\n");
sl@0: 	    
sl@0: 	    WRITE_OR_LOSE ("  return TRUE;\n}\n\n");
sl@0: 	  } else {
sl@0: 	    if (!write_printf_to_iochannel ("  return dbus_g_proxy_call (proxy, \"%s\", ", channel, error,
sl@0: 					    method_info_get_name (method)))
sl@0: 	      goto io_lose;
sl@0: 	    
sl@0: 	    WRITE_OR_LOSE ("error, ");
sl@0: 	    
sl@0: 	    if (!write_args_for_direction (interface, method, channel, ARG_IN, error))
sl@0: 	      goto io_lose;
sl@0: 	    
sl@0: 	    WRITE_OR_LOSE ("G_TYPE_INVALID, ");
sl@0: 	    
sl@0: 	    if (!write_args_for_direction (interface, method, channel, ARG_OUT, error))
sl@0: 	      goto io_lose;
sl@0: 	    
sl@0: 	    WRITE_OR_LOSE ("G_TYPE_INVALID);\n}\n\n");
sl@0: 	  }
sl@0: 
sl@0: 	  write_async_method_client (channel, interface, method, error);
sl@0: 	}
sl@0: 
sl@0:       if (!write_printf_to_iochannel ("#endif /* defined DBUS_GLIB_CLIENT_WRAPPERS_%s */\n\n", channel, error, iface_prefix))
sl@0: 	{
sl@0: 	  g_free (iface_prefix);
sl@0: 	  goto io_lose;
sl@0: 	}
sl@0: 
sl@0:       g_free (iface_prefix);
sl@0:     }
sl@0:   return TRUE;
sl@0:  io_lose:
sl@0:   return FALSE;
sl@0: }
sl@0: 
sl@0: 
sl@0: gboolean
sl@0: dbus_binding_tool_output_glib_client (BaseInfo *info, GIOChannel *channel, gboolean ignore_unsupported, GError **error)
sl@0: {
sl@0:   DBusBindingToolCData data;
sl@0:   gboolean ret;
sl@0: 
sl@0:   memset (&data, 0, sizeof (data));
sl@0:   
sl@0:   data.channel = channel;
sl@0:   data.ignore_unsupported = ignore_unsupported;
sl@0: 
sl@0:   dbus_g_type_specialized_init ();
sl@0:   _dbus_g_type_specialized_builtins_init ();
sl@0: 
sl@0:   WRITE_OR_LOSE ("/* Generated by dbus-binding-tool; do not edit! */\n\n");
sl@0:   WRITE_OR_LOSE ("#include <glib/gtypes.h>\n");
sl@0:   WRITE_OR_LOSE ("#include <glib/gerror.h>\n");
sl@0:   WRITE_OR_LOSE ("#include <dbus/dbus-glib.h>\n\n");
sl@0:   WRITE_OR_LOSE ("G_BEGIN_DECLS\n\n");
sl@0: 
sl@0:   ret = generate_client_glue (info, &data, error);
sl@0:   if (!ret)
sl@0:     goto io_lose;
sl@0:   
sl@0:   WRITE_OR_LOSE ("G_END_DECLS\n");
sl@0: 
sl@0:   return ret;
sl@0:  io_lose:
sl@0:   return FALSE;
sl@0: }