Pileus Git - ~andy/gtk/blob - gtk/queryimmodules.c

   1 /* GTK+
   2  * querymodules.c:
   3  *
   4  * Copyright (C) 2000-2010 Red Hat Software
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Library General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Library General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Library General Public
  17  * License along with this library; if not, write to the
  18  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  19  * Boston, MA 02111-1307, USA.
  20  */
  21
  22 #include "config.h"
  23
  24 #include <glib.h>
  25 #include <glib/gprintf.h>
  26 #include <gmodule.h>
  27
  28 #include <errno.h>
  29 #include <string.h>
  30 #ifdef HAVE_UNISTD_H
  31 #include <unistd.h>
  32 #endif
  33
  34 #ifdef USE_LA_MODULES
  35 #define SOEXT ".la"
  36 #else
  37 #define SOEXT ("." G_MODULE_SUFFIX)
  38 #endif
  39
  40 #include "gtk/gtkrc.h"
  41 #include "gtk/gtkimmodule.h"
  42 #include "gtk/gtkversion.h"
  43
  44 static char *
  45 escape_string (const char *str)
  46 {
  47   GString *result = g_string_new (NULL);
  48
  49   while (TRUE)
  50     {
  51       char c = *str++;
  52
  53       switch (c)
  54         {
  55         case '\0':
  56           goto done;
  57         case '\n':
  58           g_string_append (result, "\\n");
  59           break;
  60         case '\"':
  61           g_string_append (result, "\\\"");
  62           break;
  63 #ifdef G_OS_WIN32
  64                 /* Replace backslashes in path with forward slashes, so that
  65                  * it reads in without problems.
  66                  */
  67         case '\\':
  68           g_string_append (result, "/");
  69           break;
  70 #endif
  71         default:
  72           g_string_append_c (result, c);
  73         }
  74     }
  75
  76  done:
  77   return g_string_free (result, FALSE);
  78 }
  79
  80 static void
  81 print_escaped (const char *str)
  82 {
  83   char *tmp = escape_string (str);
  84   g_printf ("\"%s\" ", tmp);
  85   g_free (tmp);
  86 }
  87
  88 static gboolean
  89 query_module (const char *dir, const char *name)
  90 {
  91   void          (*list)   (const GtkIMContextInfo ***contexts,
  92                            guint                    *n_contexts);
  93   void          (*init)   (GTypeModule              *type_module);
  94   void          (*exit)   (void);
  95   GtkIMContext *(*create) (const gchar             *context_id);
  96
  97   gpointer list_ptr;
  98   gpointer init_ptr;
  99   gpointer exit_ptr;
 100   gpointer create_ptr;
 101
 102   GModule *module;
 103   gchar *path;
 104   gboolean error = FALSE;
 105
 106   if (g_path_is_absolute (name))
 107     path = g_strdup (name);
 108   else
 109     path = g_build_filename (dir, name, NULL);
 110
 111   module = g_module_open (path, 0);
 112
 113   if (!module)
 114     {
 115       g_fprintf (stderr, "Cannot load module %s: %s\n", path, g_module_error());
 116       error = TRUE;
 117     }
 118
 119   if (module &&
 120       g_module_symbol (module, "im_module_list", &list_ptr) &&
 121       g_module_symbol (module, "im_module_init", &init_ptr) &&
 122       g_module_symbol (module, "im_module_exit", &exit_ptr) &&
 123       g_module_symbol (module, "im_module_create", &create_ptr))
 124     {
 125       const GtkIMContextInfo **contexts;
 126       guint n_contexts;
 127       int i;
 128
 129       list = list_ptr;
 130       init = init_ptr;
 131       exit = exit_ptr;
 132       create = create_ptr;
 133
 134       print_escaped (path);
 135       fputs ("\n", stdout);
 136
 137       (*list) (&contexts, &n_contexts);
 138
 139       for (i=0; i<n_contexts; i++)
 140         {
 141           print_escaped (contexts[i]->context_id);
 142           print_escaped (contexts[i]->context_name);
 143           print_escaped (contexts[i]->domain);
 144           print_escaped (contexts[i]->domain_dirname);
 145           print_escaped (contexts[i]->default_locales);
 146           fputs ("\n", stdout);
 147         }
 148       fputs ("\n", stdout);
 149     }
 150   else
 151     {
 152       g_fprintf (stderr, "%s does not export GTK+ IM module API: %s\n", path,
 153                  g_module_error ());
 154       error = TRUE;
 155     }
 156
 157   g_free (path);
 158   if (module)
 159     g_module_close (module);
 160
 161   return error;
 162 }
 163
 164 int main (int argc, char **argv)
 165 {
 166   char *cwd;
 167   int i;
 168   char *path;
 169   gboolean error = FALSE;
 170
 171   g_printf ("# GTK+ Input Method Modules file\n"
 172             "# Automatically generated file, do not edit\n"
 173             "# Created by %s from gtk+-%d.%d.%d\n"
 174             "#\n",
 175             argv[0],
 176             GTK_MAJOR_VERSION, GTK_MINOR_VERSION, GTK_MICRO_VERSION);
 177
 178
 179   if (argc == 1)                /* No arguments given */
 180     {
 181       char **dirs;
 182       int i;
 183       GHashTable *dirs_done;
 184
 185       path = gtk_rc_get_im_module_path ();
 186
 187       g_printf ("# ModulesPath = %s\n#\n", path);
 188
 189       dirs = pango_split_file_list (path);
 190       dirs_done = g_hash_table_new_full (g_str_hash, g_str_equal, NULL, NULL);
 191
 192       for (i = 0; dirs[i]; i++)
 193         if (!g_hash_table_lookup (dirs_done, dirs[i]))
 194           {
 195             GDir *dir = g_dir_open (dirs[i], 0, NULL);
 196             if (dir)
 197               {
 198                 const char *dent;
 199
 200                 while ((dent = g_dir_read_name (dir)))
 201                   {
 202                     if (g_str_has_suffix (dent, SOEXT))
 203                       error |= query_module (dirs[i], dent);
 204                   }
 205
 206                 g_dir_close (dir);
 207               }
 208
 209             g_hash_table_insert (dirs_done, dirs[i], GUINT_TO_POINTER (TRUE));
 210           }
 211
 212       g_hash_table_destroy (dirs_done);
 213     }
 214   else
 215     {
 216       cwd = g_get_current_dir ();
 217
 218       for (i = 1; i < argc; i++)
 219         error |= query_module (cwd, argv[i]);
 220
 221       g_free (cwd);
 222     }
 223
 224   return error ? 1 : 0;
 225 }