sl@0: /* -*- mode: C; c-file-style: "gnu" -*- */
sl@0: /* dbus-glib-tool.c Tool used by apps using glib bindings
sl@0:  *
sl@0:  * Copyright (C) 2003, 2004 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:  #ifdef __SYMBIAN32__
sl@0:  #define VERSION "1.0.2"
sl@0:  #endif
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-gidl.h"
sl@0: #include "dbus-gparser.h"
sl@0: #include "dbus-gutils.h"
sl@0: #include "dbus-glib-tool.h"
sl@0: #include "dbus-binding-tool-glib.h"
sl@0: #include <locale.h>
sl@0: #ifndef __SYMBIAN32__
sl@0: #include <libintl.h>
sl@0: #define _(x) dgettext (GETTEXT_PACKAGE, x)
sl@0: #define N_(x) x
sl@0: #else
sl@0: #define _(x)  x
sl@0: #define N_(x) x
sl@0: #endif
sl@0: #include <stdio.h>
sl@0: #include <stdlib.h>
sl@0: #include <errno.h>
sl@0: #include <sys/stat.h>
sl@0: #include <string.h>
sl@0: #include <time.h>
sl@0: 
sl@0: #ifdef DBUS_BUILD_TESTS
sl@0: static void run_all_tests (const char *test_data_dir);
sl@0: #endif
sl@0: 
sl@0: typedef enum {
sl@0:   DBUS_BINDING_OUTPUT_NONE,
sl@0:   DBUS_BINDING_OUTPUT_PRETTY,
sl@0:   DBUS_BINDING_OUTPUT_GLIB_SERVER,
sl@0:   DBUS_BINDING_OUTPUT_GLIB_CLIENT
sl@0: } DBusBindingOutputMode;
sl@0: 
sl@0: static void
sl@0: indent (int depth)
sl@0: {
sl@0:   depth *= 2; /* 2-space indent */
sl@0:   
sl@0:   while (depth > 0)
sl@0:     {
sl@0:       putc (' ', stdout);
sl@0:       --depth;
sl@0:     }
sl@0: }
sl@0: 
sl@0: static void pretty_print (BaseInfo *base,
sl@0:                           int       depth);
sl@0: 
sl@0: static void
sl@0: pretty_print_list (GSList *list,
sl@0:                    int     depth)
sl@0: {
sl@0:   GSList *tmp;
sl@0:   
sl@0:   tmp = list;
sl@0:   while (tmp != NULL)
sl@0:     {
sl@0:       pretty_print (tmp->data, depth);
sl@0:       tmp = tmp->next;
sl@0:     }
sl@0: }
sl@0: 
sl@0: static void
sl@0: pretty_print (BaseInfo *base,
sl@0:               int       depth)
sl@0: {
sl@0:   InfoType t;
sl@0:   const char *name;
sl@0: 
sl@0:   t = base_info_get_type (base);
sl@0:   name = base_info_get_name (base);
sl@0: 
sl@0:   indent (depth);
sl@0:   
sl@0:   switch (t)
sl@0:     {
sl@0:     case INFO_TYPE_NODE:
sl@0:       {
sl@0:         NodeInfo *n = (NodeInfo*) base;
sl@0:         
sl@0:         if (name == NULL)
sl@0:           printf (_("<anonymous node> {\n"));
sl@0:         else
sl@0:           printf (_("node \"%s\" {\n"), name);
sl@0: 
sl@0:         pretty_print_list (node_info_get_interfaces (n), depth + 1);
sl@0:         pretty_print_list (node_info_get_nodes (n), depth + 1);
sl@0: 
sl@0:         indent (depth);
sl@0:         printf ("}\n");
sl@0:       }
sl@0:       break;
sl@0:     case INFO_TYPE_INTERFACE:
sl@0:       {
sl@0:         InterfaceInfo *i = (InterfaceInfo*) base;
sl@0: 	GSList *annotations, *elt;
sl@0: 
sl@0:         g_assert (name != NULL);
sl@0: 
sl@0:         printf (_("interface \"%s\" {\n"), name);
sl@0: 
sl@0: 	annotations = interface_info_get_annotations (i);
sl@0: 	for (elt = annotations; elt; elt = elt->next)
sl@0: 	  {
sl@0: 	    const char *name = elt->data;
sl@0: 	    const char *value = interface_info_get_annotation (i, name);
sl@0: 
sl@0: 	    printf (_(" (binding \"%s\": \"%s\") "),
sl@0: 		    name, value);
sl@0: 	  }
sl@0: 	g_slist_free (annotations);
sl@0: 
sl@0:         pretty_print_list (interface_info_get_methods (i), depth + 1);
sl@0:         pretty_print_list (interface_info_get_signals (i), depth + 1);
sl@0:         pretty_print_list (interface_info_get_properties (i), depth + 1);
sl@0: 
sl@0:         indent (depth);
sl@0:         printf ("}\n");
sl@0:       }
sl@0:       break;
sl@0:     case INFO_TYPE_METHOD:
sl@0:       {
sl@0:         MethodInfo *m = (MethodInfo*) base;
sl@0: 	GSList *annotations, *elt;
sl@0: 
sl@0:         g_assert (name != NULL);
sl@0: 
sl@0: 	annotations = method_info_get_annotations (m);
sl@0:         printf (_("method \"%s\""), name);
sl@0: 	for (elt = annotations; elt; elt = elt->next)
sl@0: 	  {
sl@0: 	    const char *name = elt->data;
sl@0: 	    const char *value = method_info_get_annotation (m, name);
sl@0: 
sl@0: 	    printf (_(" (annotation \"%s\": \"%s\") "),
sl@0: 		    name, value);
sl@0: 	  }
sl@0: 	g_slist_free (annotations);
sl@0: 
sl@0:         pretty_print_list (method_info_get_args (m), depth + 1);
sl@0: 
sl@0:         indent (depth);
sl@0:         printf (")\n");
sl@0:       }
sl@0:       break;
sl@0:     case INFO_TYPE_SIGNAL:
sl@0:       {
sl@0:         SignalInfo *s = (SignalInfo*) base;
sl@0: 
sl@0:         g_assert (name != NULL);
sl@0: 
sl@0:         printf (_("signal \"%s\" (\n"), name);
sl@0: 
sl@0:         pretty_print_list (signal_info_get_args (s), depth + 1);
sl@0: 
sl@0:         indent (depth);
sl@0:         printf (")\n");
sl@0:       }
sl@0:       break;
sl@0:     case INFO_TYPE_PROPERTY:
sl@0:       {
sl@0:         PropertyInfo *a = (PropertyInfo*) base;
sl@0:         const char *pt = property_info_get_type (a);
sl@0:         PropertyAccessFlags acc = property_info_get_access (a);
sl@0: 
sl@0:         printf ("%s%s %s",
sl@0:                 acc & PROPERTY_READ ? "read" : "",
sl@0:                 acc & PROPERTY_WRITE ? "write" : "",
sl@0:                 pt);
sl@0:         if (name)
sl@0:           printf (" %s\n", name);
sl@0:         else
sl@0:           printf ("\n");
sl@0:       }
sl@0:       break;
sl@0:     case INFO_TYPE_ARG:
sl@0:       {
sl@0:         ArgInfo *a = (ArgInfo*) base;
sl@0:         const char *at = arg_info_get_type (a);
sl@0:         ArgDirection d = arg_info_get_direction (a);
sl@0: 
sl@0:         printf ("%s %s",
sl@0:                 d == ARG_IN ? "in" : "out",
sl@0:                 at);
sl@0:         if (name)
sl@0:           printf (" %s\n", name);
sl@0:         else
sl@0:           printf ("\n");
sl@0:       }
sl@0:       break;
sl@0:     }
sl@0: }
sl@0: 
sl@0: GQuark
sl@0: dbus_binding_tool_error_quark (void)
sl@0: {
sl@0:   static GQuark quark = 0;
sl@0:   if (!quark)
sl@0:     quark = g_quark_from_static_string ("dbus_binding_tool_error");
sl@0: 
sl@0:   return quark;
sl@0: }
sl@0: 
sl@0: static void lose (const char *fmt, ...) G_GNUC_NORETURN G_GNUC_PRINTF (1, 2);
sl@0: static void lose_gerror (const char *prefix, GError *error) G_GNUC_NORETURN;
sl@0: 
sl@0: static void
sl@0: lose (const char *str, ...)
sl@0: {
sl@0:   va_list args;
sl@0: 
sl@0:   va_start (args, str);
sl@0: 
sl@0:   vfprintf (stderr, str, args);
sl@0:   fputc ('\n', stderr);
sl@0: 
sl@0:   va_end (args);
sl@0: 
sl@0:   exit (1);
sl@0: }
sl@0: 
sl@0: static void
sl@0: lose_gerror (const char *prefix, GError *error) 
sl@0: {
sl@0:   lose ("%s: %s", prefix, error->message);
sl@0: }
sl@0: 
sl@0: static void
sl@0: usage (int ecode)
sl@0: {
sl@0:   fprintf (stderr, "dbus-binding-tool [--version] [--help]\n");
sl@0:   fprintf (stderr, "dbus-binding-tool --mode=[pretty|glib-server|glib-client] [--prefix=SYMBOL_PREFIX] [--ignore-unsupported] [--force] [--output=FILE] [\n");
sl@0:   fprintf (stderr, "dbus-binding-tool --mode=glib-server --prefix=SYMBOL_PREFIX [--ignore-unsupported] [--force] [--output=FILE] [\n");
sl@0:   exit (ecode);
sl@0: }
sl@0: 
sl@0: static void
sl@0: version (void)
sl@0: {
sl@0:   printf ("D-BUS Binding Tool %s\n"
sl@0:           "Copyright (C) 2003-2005 Red Hat, Inc.\n"
sl@0:           "This is free software; see the source for copying conditions.\n"
sl@0:           "There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n",
sl@0:           VERSION
sl@0:           );
sl@0:   exit (0);
sl@0: }
sl@0: 
sl@0: int
sl@0: main (int argc, char **argv)
sl@0: {
sl@0:   const char *output_file;
sl@0:   const char *prefix;
sl@0:   char *output_file_tmp;
sl@0:   int i;
sl@0:   GSList *files;
sl@0:   DBusBindingOutputMode outputmode;
sl@0:   gboolean end_of_args;
sl@0:   GSList *tmp;
sl@0:   GIOChannel *channel;
sl@0:   GError *error;
sl@0:   time_t newest_src;
sl@0:   struct stat srcbuf;
sl@0:   struct stat targetbuf;
sl@0:   gboolean force;
sl@0:   gboolean ignore_unsupported;
sl@0:   gboolean has_prefix = FALSE;
sl@0:   
sl@0:   #ifndef TODO
sl@0:   setlocale (LC_ALL, "");
sl@0:   bindtextdomain (GETTEXT_PACKAGE, DBUS_LOCALEDIR);
sl@0:   bind_textdomain_codeset (GETTEXT_PACKAGE, "UTF-8");
sl@0:   textdomain (GETTEXT_PACKAGE); 
sl@0:   #endif
sl@0:   g_type_init ();
sl@0: 
sl@0:   outputmode = DBUS_BINDING_OUTPUT_NONE;
sl@0:   end_of_args = FALSE;
sl@0:   files = NULL;
sl@0:   output_file = NULL;
sl@0:   prefix = "";
sl@0:   ignore_unsupported = FALSE;
sl@0:   force = FALSE;
sl@0:   i = 1;
sl@0:   while (i < argc)
sl@0:     {
sl@0:       const char *arg = argv[i];
sl@0: 
sl@0:       if (!end_of_args)
sl@0:         {
sl@0:           if (strcmp (arg, "--help") == 0 ||
sl@0:               strcmp (arg, "-h") == 0 ||
sl@0:               strcmp (arg, "-?") == 0)
sl@0:             usage (0);
sl@0:           else if (strcmp (arg, "--version") == 0)
sl@0:             version ();
sl@0:           else if (strcmp (arg, "--force") == 0)
sl@0:             force = TRUE;
sl@0: #ifdef DBUS_BUILD_TESTS
sl@0:           else if (strcmp (arg, "--self-test") == 0)
sl@0:             run_all_tests (NULL);
sl@0: #endif /* DBUS_BUILD_TESTS */
sl@0:           else if (strncmp (arg, "--mode=", 7) == 0)
sl@0:             {
sl@0: 	      const char *mode = arg + 7;
sl@0: 	      if (!strcmp (mode, "pretty"))
sl@0: 		outputmode = DBUS_BINDING_OUTPUT_PRETTY;
sl@0: 	      else if (!strcmp (mode, "glib-server"))
sl@0: 		outputmode = DBUS_BINDING_OUTPUT_GLIB_SERVER;
sl@0: 	      else if (!strcmp (mode, "glib-client"))
sl@0: 		outputmode = DBUS_BINDING_OUTPUT_GLIB_CLIENT;
sl@0: 	      else
sl@0: 		usage (1);
sl@0: 	    }
sl@0:           else if (strcmp (arg, "--ignore-unsupported") == 0)
sl@0:             ignore_unsupported = TRUE;
sl@0: 	  else if (strncmp (arg, "--output=", 9) == 0)
sl@0: 	    {
sl@0: 	      output_file = arg + 9;
sl@0: 	    }
sl@0:           else if (strncmp (arg, "--prefix=", 9) == 0)
sl@0:             {
sl@0:               has_prefix = TRUE;
sl@0:               prefix = arg + 9;
sl@0:             }
sl@0:           else if (arg[0] == '-' &&
sl@0:                    arg[1] == '-' &&
sl@0:                    arg[2] == '\0')
sl@0:             end_of_args = TRUE;
sl@0:           else if (arg[0] == '-')
sl@0:             {
sl@0:               usage (1);
sl@0:             }
sl@0:           else
sl@0:             {
sl@0:               files = g_slist_prepend (files, (char*) arg);
sl@0:             }
sl@0:         }
sl@0:       else
sl@0:         files = g_slist_prepend (files, (char*) arg);
sl@0:       
sl@0:       ++i;
sl@0:     }
sl@0: 
sl@0:   if (outputmode == DBUS_BINDING_OUTPUT_GLIB_SERVER && !has_prefix)
sl@0:     usage (1);
sl@0: 
sl@0:   error = NULL;
sl@0: 
sl@0:   files = g_slist_reverse (files);
sl@0: 
sl@0:   if (output_file && !force)
sl@0:     {
sl@0:       newest_src = 0;
sl@0:       for (tmp = files; tmp != NULL; tmp = tmp->next)
sl@0: 	{
sl@0: 	  const char *filename;
sl@0: 
sl@0: 	  filename = tmp->data;
sl@0: 	  if (stat (filename, &srcbuf) < 0)
sl@0: 	    lose ("Couldn't stat %s: %s", filename, g_strerror (errno));
sl@0: 
sl@0: 	  if (srcbuf.st_mtime > newest_src)
sl@0: 	    newest_src = srcbuf.st_mtime;
sl@0: 	}
sl@0: 
sl@0:       if (stat (output_file, &targetbuf) > 0
sl@0: 	  && targetbuf.st_mtime >= newest_src)
sl@0: 	exit (0);
sl@0:     }
sl@0:   
sl@0:   if (output_file)
sl@0:     {
sl@0:       output_file_tmp = g_strconcat (output_file, ".tmp", NULL);
sl@0: 
sl@0:       if (!(channel = g_io_channel_new_file (output_file_tmp, "w", &error)))
sl@0: 	lose_gerror (_("Couldn't open temporary file"), error);
sl@0:     }
sl@0:   else
sl@0:     {
sl@0:       channel = g_io_channel_unix_new (fileno (stdout));
sl@0:       output_file_tmp = NULL; /* silence gcc */
sl@0:     }
sl@0:   if (!g_io_channel_set_encoding (channel, NULL, &error))
sl@0:     lose_gerror (_("Couldn't set channel encoding to NULL"), error);
sl@0: 
sl@0: 
sl@0:   for (tmp = files; tmp != NULL; tmp = tmp->next)
sl@0:     {
sl@0:       NodeInfo *node;
sl@0:       GError *error;
sl@0:       const char *filename;
sl@0: 
sl@0:       filename = tmp->data;
sl@0: 
sl@0:       error = NULL;
sl@0:       node = description_load_from_file (filename,
sl@0:                                          &error);
sl@0:       if (node == NULL)
sl@0:         {
sl@0: 	  lose_gerror (_("Unable to load \"%s\""), error);
sl@0:         }
sl@0:       else
sl@0: 	{
sl@0: 	  switch (outputmode)
sl@0: 	    {
sl@0: 	    case DBUS_BINDING_OUTPUT_PRETTY:
sl@0: 	      pretty_print ((BaseInfo*) node, 0);
sl@0: 	      break;
sl@0: 	    case DBUS_BINDING_OUTPUT_GLIB_SERVER:
sl@0: 	      if (!dbus_binding_tool_output_glib_server ((BaseInfo *) node, channel, prefix, &error))
sl@0: 		lose_gerror (_("Compilation failed"), error);
sl@0: 	      break;
sl@0: 	    case DBUS_BINDING_OUTPUT_GLIB_CLIENT:
sl@0: 	      if (!dbus_binding_tool_output_glib_client ((BaseInfo *) node, channel, ignore_unsupported, &error))
sl@0: 		lose_gerror (_("Compilation failed"), error);
sl@0: 	      break;
sl@0: 	    case DBUS_BINDING_OUTPUT_NONE:
sl@0: 	      break;
sl@0: 	    }
sl@0: 	}
sl@0: 
sl@0:       if (node)
sl@0:         node_info_unref (node);
sl@0:     }
sl@0: 
sl@0:   if (g_io_channel_shutdown (channel, TRUE, &error) != G_IO_STATUS_NORMAL)
sl@0:     lose_gerror (_("Failed to shutdown IO channel"), error);
sl@0:   g_io_channel_unref (channel);
sl@0: 
sl@0:   if (output_file)
sl@0:     {
sl@0:       if (rename (output_file_tmp, output_file) < 0)
sl@0: 	lose ("Failed to rename %s to %s: %s", output_file_tmp, output_file,
sl@0: 	      g_strerror (errno));
sl@0:       g_free (output_file_tmp);
sl@0:     }
sl@0: 
sl@0:   return 0;
sl@0: }
sl@0: 
sl@0: 
sl@0: #ifdef DBUS_BUILD_TESTS
sl@0: static void
sl@0: test_die (const char *failure)
sl@0: {
sl@0:   lose ("Unit test failed: %s", failure);
sl@0: }
sl@0: 
sl@0: /**
sl@0:  * @ingroup DBusGTool
sl@0:  * Unit test for GLib utility tool
sl@0:  * Returns: #TRUE on success.
sl@0:  */
sl@0: static gboolean
sl@0: _dbus_gtool_test (const char *test_data_dir)
sl@0: {
sl@0: 
sl@0:   return TRUE;
sl@0: }
sl@0: 
sl@0: static void
sl@0: run_all_tests (const char *test_data_dir)
sl@0: {
sl@0:   if (test_data_dir == NULL)
sl@0:     test_data_dir = g_getenv ("DBUS_TEST_DATA");
sl@0: 
sl@0:   if (test_data_dir != NULL)
sl@0:     printf ("Test data in %s\n", test_data_dir);
sl@0:   else
sl@0:     printf ("No test data!\n");
sl@0: 
sl@0:   printf ("%s: running binding tests\n", "dbus-binding-tool");
sl@0:   if (!_dbus_gtool_test (test_data_dir))
sl@0:     test_die ("gtool");
sl@0: 
sl@0:   printf ("%s: completed successfully\n", "dbus-binding-tool");
sl@0: }
sl@0: 
sl@0: #endif /* DBUS_BUILD_TESTS */