moving from https://github.com/perberos/mate-desktop-environment

1 files changed, 256 insertions, 0 deletions

diff --git a/capplets/common/gtkrc-utils.c b/capplets/common/gtkrc-utils.c
new file mode 100644
index 00000000..be03faa5
--- /dev/null
+++ b/capplets/common/gtkrc-utils.c
@@ -0,0 +1,256 @@
+/*
+ * Copyright (C) 2007 The MATE Foundation
+ * Written by Thomas Wood <[email protected]>
+ *            Jens Granseuer <[email protected]>
+ * All Rights Reserved
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program 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 General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License along
+ * with this program; if not, write to the Free Software Foundation, Inc.,
+ * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+ */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include <string.h>
+#include <unistd.h>
+#include <glib.h>
+#include <glib/gstdio.h>
+#include <fcntl.h>
+#include <gtk/gtk.h>
+
+#define INCLUDE_SYMBOL ((gpointer) 1)
+#define ENGINE_SYMBOL ((gpointer) 2)
+#define COLOR_SCHEME_SYMBOL ((gpointer) 3)
+
+gchar* gtkrc_find_named(const gchar* name)
+{
+	/* find the gtkrc of the named theme
+	 * taken from gtkrc.c (gtk_rc_parse_named)
+	 */
+	gchar* path = NULL;
+	const gchar* home_dir;
+	const gchar* subpath = "gtk-2.0" G_DIR_SEPARATOR_S "gtkrc";
+
+	/* First look in the users home directory
+	*/
+	home_dir = g_get_home_dir();
+	
+	if (home_dir)
+	{
+		path = g_build_filename(home_dir, ".themes", name, subpath, NULL);
+		
+		if (!g_file_test (path, G_FILE_TEST_EXISTS))
+		{
+			g_free (path);
+			path = NULL;
+		}
+	}
+
+	if (!path)
+	{
+		gchar* theme_dir = gtk_rc_get_theme_dir();
+		path = g_build_filename(theme_dir, name, subpath, NULL);
+		g_free(theme_dir);
+
+		if (!g_file_test(path, G_FILE_TEST_EXISTS))
+		{
+			g_free (path);
+			path = NULL;
+		}
+	}
+
+	return path;
+
+}
+
+void gtkrc_get_details(gchar* filename, GSList** engines, GSList** symbolic_colors)
+{
+	gint file = -1;
+	GSList* files = NULL;
+	GSList* read_files = NULL;
+	GTokenType token;
+	GScanner *scanner = g_scanner_new (NULL);
+
+	g_scanner_scope_add_symbol (scanner, 0, "include", INCLUDE_SYMBOL);
+
+	if (engines != NULL)
+	{
+		g_scanner_scope_add_symbol (scanner, 0, "engine", ENGINE_SYMBOL);
+	}
+
+	files = g_slist_prepend (files, g_strdup (filename));
+	
+	while (files != NULL)
+	{
+		filename = files->data;
+		files = g_slist_delete_link (files, files);
+
+		if (filename == NULL)
+			continue;
+
+		if (g_slist_find_custom (read_files, filename, (GCompareFunc) strcmp))
+		{
+			g_warning ("Recursion in the gtkrc detected!");
+			g_free (filename);
+			continue; /* skip this file since we've done it before... */
+		}
+
+		read_files = g_slist_prepend (read_files, filename);
+
+		file = g_open (filename, O_RDONLY);
+		if (file == -1)
+		{
+			g_warning ("Could not open file \"%s\"", filename);
+		}
+		else
+		{
+			g_scanner_input_file (scanner, file);
+			while ((token = g_scanner_get_next_token (scanner)) != G_TOKEN_EOF)
+			{
+				GTokenType string_token;
+				if (token == '@')
+				{
+					if (symbolic_colors == NULL)
+						continue;
+					token = g_scanner_get_next_token (scanner);
+					if (token != G_TOKEN_IDENTIFIER)
+						continue;
+					if (!g_slist_find_custom (*symbolic_colors, scanner->value.v_identifier, (GCompareFunc) strcmp))
+						*symbolic_colors = g_slist_append (*symbolic_colors, g_strdup (scanner->value.v_identifier));
+					continue;
+				}
+
+				if (token != G_TOKEN_SYMBOL)
+					continue;
+
+				if (scanner->value.v_symbol == INCLUDE_SYMBOL)
+				{
+					string_token = g_scanner_get_next_token (scanner);
+					if (string_token != G_TOKEN_STRING)
+						continue;
+					if (g_path_is_absolute (scanner->value.v_string))
+					{
+						files = g_slist_prepend (files, g_strdup (scanner->value.v_string));
+					}
+					else
+					{
+						gchar *basedir = g_path_get_dirname (filename);
+						files = g_slist_prepend (files, g_build_path (G_DIR_SEPARATOR_S, basedir, scanner->value.v_string, NULL));
+						g_free (basedir);
+					}
+				}
+				else if (scanner->value.v_symbol == ENGINE_SYMBOL)
+				{
+					string_token = g_scanner_get_next_token (scanner);
+					if (string_token != G_TOKEN_STRING || scanner->value.v_string[0] == '\0')
+						continue;
+					if (!g_slist_find_custom (*engines, scanner->value.v_string, (GCompareFunc) strcmp))
+						*engines = g_slist_append (*engines, g_strdup (scanner->value.v_string));
+				}
+
+			}
+			close (file);
+		}
+	}
+
+	g_slist_foreach (read_files, (GFunc) g_free, NULL);
+	g_slist_free (read_files);
+
+	g_scanner_destroy (scanner);
+}
+
+
+gchar *
+gtkrc_get_color_scheme (const gchar *gtkrc_file)
+{
+	gint file = -1;
+	gchar *result = NULL;
+	GSList *files = NULL;
+	GSList *read_files = NULL;
+	GTokenType token;
+	GScanner *scanner = gtk_rc_scanner_new ();
+
+	g_scanner_scope_add_symbol (scanner, 0, "include", INCLUDE_SYMBOL);
+	g_scanner_scope_add_symbol (scanner, 0, "gtk_color_scheme", COLOR_SCHEME_SYMBOL);
+	g_scanner_scope_add_symbol (scanner, 0, "gtk-color-scheme", COLOR_SCHEME_SYMBOL);
+
+	files = g_slist_prepend (files, g_strdup (gtkrc_file));
+	while (files != NULL)
+	{
+		gchar *filename = files->data;
+		files = g_slist_delete_link (files, files);
+
+		if (filename == NULL)
+			continue;
+
+		if (g_slist_find_custom (read_files, filename, (GCompareFunc) strcmp))
+		{
+			g_warning ("Recursion in the gtkrc detected!");
+			g_free (filename);
+			continue; /* skip this file since we've done it before... */
+		}
+
+		read_files = g_slist_prepend (read_files, filename);
+
+		file = g_open (filename, O_RDONLY);
+		if (file == -1)
+		{
+			g_warning ("Could not open file \"%s\"", filename);
+		}
+		else
+		{
+			g_scanner_input_file (scanner, file);
+			while ((token = g_scanner_get_next_token (scanner)) != G_TOKEN_EOF)
+			{
+				if (GINT_TO_POINTER (token) == COLOR_SCHEME_SYMBOL)
+				{
+					if (g_scanner_get_next_token (scanner) == '=')
+					{
+						token = g_scanner_get_next_token (scanner);
+						if (token == G_TOKEN_STRING)
+						{
+							g_free (result);
+							result = g_strdup (scanner->value.v_string);
+						}
+					}
+				}
+			}
+			close (file);
+		}
+	}
+
+	g_slist_foreach (read_files, (GFunc) g_free, NULL);
+	g_slist_free (read_files);
+
+	g_scanner_destroy (scanner);
+	return result;
+}
+
+gchar* gtkrc_get_color_scheme_for_theme(const gchar* theme_name)
+{
+	/* try to find the color scheme from the gtkrc */
+	gchar* gtkrc_file;
+	gchar* scheme = NULL;
+
+	gtkrc_file = gtkrc_find_named(theme_name);
+
+	if (gtkrc_file)
+	{
+		scheme = gtkrc_get_color_scheme(gtkrc_file);
+		g_free(gtkrc_file);
+	}
+
+	return scheme;
+}