4 * Copyright (C) 2000-2010 Red Hat Software
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.
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.
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.
25 #include <glib/gprintf.h>
37 #define SOEXT ("." G_MODULE_SUFFIX)
40 #include "gtk/gtkimmodule.h"
41 #include "gtk/gtkversion.h"
44 #undef GDK_DEPRECATED_FOR
45 #define GDK_DEPRECATED
46 #define GDK_DEPRECATED_FOR(f)
47 #undef GTK_DISABLE_DEPRECATED
49 #include "gtk/deprecated/gtkrc.h"
52 escape_string (GString *contents, const char *str)
63 g_string_append (contents, "\\n");
66 g_string_append (contents, "\\\"");
69 /* Replace backslashes in path with forward slashes, so that
70 * it reads in without problems.
73 g_string_append (contents, "/");
77 g_string_append_c (contents, c);
85 print_escaped (GString *contents, const char *str)
87 g_string_append_c (contents, '"');
88 escape_string (contents, str);
89 g_string_append_c (contents, '"');
90 g_string_append_c (contents, ' ');
94 query_module (const char *dir, const char *name, GString *contents)
96 void (*list) (const GtkIMContextInfo ***contexts,
106 gboolean error = FALSE;
108 if (g_path_is_absolute (name))
109 path = g_strdup (name);
111 path = g_build_filename (dir, name, NULL);
113 module = g_module_open (path, 0);
117 g_fprintf (stderr, "Cannot load module %s: %s\n", path, g_module_error());
122 g_module_symbol (module, "im_module_list", &list_ptr) &&
123 g_module_symbol (module, "im_module_init", &init_ptr) &&
124 g_module_symbol (module, "im_module_exit", &exit_ptr) &&
125 g_module_symbol (module, "im_module_create", &create_ptr))
127 const GtkIMContextInfo **contexts;
133 print_escaped (contents, path);
134 g_string_append_c (contents, '\n');
136 (*list) (&contexts, &n_contexts);
138 for (i = 0; i < n_contexts; i++)
140 print_escaped (contents, contexts[i]->context_id);
141 print_escaped (contents, contexts[i]->context_name);
142 print_escaped (contents, contexts[i]->domain);
143 print_escaped (contents, contexts[i]->domain_dirname);
144 print_escaped (contents, contexts[i]->default_locales);
145 g_string_append_c (contents, '\n');
147 g_string_append_c (contents, '\n');
151 g_fprintf (stderr, "%s does not export GTK+ IM module API: %s\n", path,
158 g_module_close (module);
163 int main (int argc, char **argv)
168 gboolean error = FALSE;
169 gchar *cache_file = NULL;
173 if (argc > 1 && strcmp (argv[1], "--update-cache") == 0)
175 cache_file = gtk_rc_get_im_module_file ();
179 contents = g_string_new ("");
180 g_string_append_printf (contents,
181 "# GTK+ Input Method Modules file\n"
182 "# Automatically generated file, do not edit\n"
183 "# Created by %s from gtk+-%d.%d.%d\n"
186 GTK_MAJOR_VERSION, GTK_MINOR_VERSION, GTK_MICRO_VERSION);
188 if (argc == first_file) /* No file arguments given */
192 GHashTable *dirs_done;
194 path = gtk_rc_get_im_module_path ();
196 g_string_append_printf (contents, "# ModulesPath = %s\n#\n", path);
198 dirs = pango_split_file_list (path);
199 dirs_done = g_hash_table_new_full (g_str_hash, g_str_equal, NULL, NULL);
201 for (i = 0; dirs[i]; i++)
202 if (!g_hash_table_lookup (dirs_done, dirs[i]))
204 GDir *dir = g_dir_open (dirs[i], 0, NULL);
209 while ((dent = g_dir_read_name (dir)))
211 if (g_str_has_suffix (dent, SOEXT))
212 error |= query_module (dirs[i], dent, contents);
218 g_hash_table_insert (dirs_done, dirs[i], GUINT_TO_POINTER (TRUE));
221 g_hash_table_destroy (dirs_done);
225 cwd = g_get_current_dir ();
227 for (i = first_file; i < argc; i++)
228 error |= query_module (cwd, argv[i], contents);
240 if (!g_file_set_contents (cache_file, contents->str, -1, &err))
242 g_fprintf (stderr, "%s\n", err->message);
247 g_print ("%s\n", contents->str);
250 return error ? 1 : 0;