[glib] Add gio-querymodule program

[Alexander Larsson <alexl src gnome org>]

commit 57b771235e8e548ba3bb68a49ae4f016072ee89f
Author: Alexander Larsson <alexl redhat com>
Date:   Tue Jan 12 13:11:22 2010 +0100

    Add gio-querymodule program
    
    This can be used to update the giomodule.cache file in directories with
    giomodules in order to support lazy module loading.

 gio/Makefile.am        |   10 ++++
 gio/gio-querymodules.c |  133 ++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 143 insertions(+), 0 deletions(-)
---
diff --git a/gio/Makefile.am b/gio/Makefile.am
index 40d5fff..7ee9f6e 100644
--- a/gio/Makefile.am
+++ b/gio/Makefile.am
@@ -443,6 +443,16 @@ gioenumtypes.c: $(gio_headers) gioenumtypes.c.template
 gio-2.0.lib: libgio-2.0.la gio.def
 	lib -machine:@LIB_EXE_MACHINE_FLAG@ -name:libgio-2.0-$(LT_CURRENT_MINUS_AGE).dll -def:gio.def -out:$@
 
+bin_PROGRAMS = gio-querymodules
+gio_querymodules_SOURCES = gio-querymodules.c
+gio_querymodules_LDADD	 = \
+	$(top_builddir)/glib/libglib-2.0.la		\
+	$(top_builddir)/gobject/libgobject-2.0.la	\
+	$(top_builddir)/gmodule/libgmodule-2.0.la	\
+	libgio-2.0.la					\
+	$(NULL)
+
+
 if HAVE_GLIB_RUNTIME_LIBDIR
 install-data-hook:
 	mkdir -p $(DESTDIR)$(libdir)/$(GLIB_RUNTIME_LIBDIR)
diff --git a/gio/gio-querymodules.c b/gio/gio-querymodules.c
new file mode 100644
index 0000000..716a7b8
--- /dev/null
+++ b/gio/gio-querymodules.c
@@ -0,0 +1,133 @@
+/* GIO - GLib Input, Output and Streaming Library
+ *
+ * Copyright (C) 2006-2007 Red Hat, Inc.
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General
+ * Public License along with this library; if not, write to the
+ * Free Software Foundation, Inc., 59 Temple Place, Suite 330,
+ * Boston, MA 02111-1307, USA.
+ *
+ * Author: Alexander Larsson <alexl redhat com>
+ */
+
+#include "config.h"
+#include "giomodule.h"
+
+static gboolean
+is_valid_module_name (const gchar *basename)
+{
+#if !defined(G_OS_WIN32) && !defined(G_WITH_CYGWIN)
+  return
+    g_str_has_prefix (basename, "lib") &&
+    g_str_has_suffix (basename, ".so");
+#else
+  return g_str_has_suffix (basename, ".dll");
+#endif
+}
+
+static void
+query_dir (const char *dirname)
+{
+  GString *data;
+  GDir *dir;
+  const char *name;
+  char *cachename;
+  char **(* query)  (void);
+  GError *error;
+  int i;
+
+  if (!g_module_supported ())
+    return;
+
+  error = NULL;
+  dir = g_dir_open (dirname, 0, &error);
+  if (!dir)
+    {
+      g_printerr ("Unable to open directory %s: %s\n", dirname, error->message);
+      g_error_free (error);
+      return;
+    }
+
+  data = g_string_new ("");
+
+  while ((name = g_dir_read_name (dir)))
+    {
+      GModule *module;
+      gchar     *path;
+      char **extension_points;
+
+      if (!is_valid_module_name (name))
+	continue;
+
+      path = g_build_filename (dirname, name, NULL);
+      module = g_module_open (path, G_MODULE_BIND_LAZY | G_MODULE_BIND_LOCAL);
+      g_free (path);
+
+      if (module)
+	{
+	  g_module_symbol (module, "g_io_module_query", (gpointer) &query);
+
+	  if (query)
+	    {
+	      extension_points = query ();
+
+	      if (extension_points)
+		{
+		  g_string_append_printf (data, "%s: ", name);
+
+		  for (i = 0; extension_points[i] != NULL; i++)
+		    g_string_append_printf (data, "%s%s", i == 0 ? "" : ",", extension_points[i]);
+
+		  g_string_append (data, "\n");
+		  g_strfreev (extension_points);
+		}
+	    }
+
+	  g_module_close (module);
+	}
+    }
+
+  g_dir_close (dir);
+
+  cachename = g_build_filename (dirname, "giomodule.cache", NULL);
+
+  error = NULL;
+  if (!g_file_set_contents (cachename, data->str, data->len, &error))
+    {
+      g_printerr ("Unable to create %s: %s\n", cachename, error->message);
+      g_error_free (error);
+    }
+
+  g_string_free (data, TRUE);
+}
+
+int
+main (gint   argc,
+      gchar *argv[])
+{
+  int i;
+
+  g_type_init ();
+
+  if (argc == 1)
+    {
+      g_print ("Usage: gio-querymodules <directory1> [<directory2> ...]\n");
+      g_print ("Will update giomodule.cache in the listed directories\n");
+      return 1;
+    }
+
+  for (i = 1; i < argc; i++)
+    query_dir (argv[i]);
+
+  return 0;
+}