renaming from gedit to pluma

1 files changed, 439 insertions, 0 deletions

diff --git a/plugins/spell/pluma-spell-checker-language.c b/plugins/spell/pluma-spell-checker-language.c
new file mode 100755
index 00000000..042e7706
--- /dev/null
+++ b/plugins/spell/pluma-spell-checker-language.c
@@ -0,0 +1,439 @@
+/* vim: set sw=8: -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
+/*
+ * pluma-spell-checker-language.c
+ * This file is part of pluma
+ *
+ * Copyright (C) 2006 Paolo Maggi 
+ *
+ * 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., 59 Temple Place, Suite 330, 
+ * Boston, MA 02111-1307, USA. 
+ */
+ 
+/*
+ * Modified by the pluma Team, 2006. See the AUTHORS file for a 
+ * list of people on the pluma Team.  
+ * See the ChangeLog files for a list of changes. 
+ */
+
+/* Part of the code taked from Epiphany.
+ *
+ * Copyright (C) 2003, 2004 Christian Persch
+ */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include <string.h>
+
+#include <enchant.h>
+
+#include <glib/gi18n.h>
+#include <libxml/xmlreader.h>
+
+#include "pluma-spell-checker-language.h"
+
+#include <pluma/pluma-debug.h>
+
+#define ISO_639_DOMAIN	"iso_639"
+#define ISO_3166_DOMAIN	"iso_3166"
+
+#define ISOCODESLOCALEDIR	ISO_CODES_PREFIX "/share/locale"
+
+struct _PlumaSpellCheckerLanguage 
+{
+	gchar *abrev;
+	gchar *name;	
+};
+
+static gboolean available_languages_initialized = FALSE;
+static GSList *available_languages = NULL;
+
+static GHashTable *iso_639_table = NULL;
+static GHashTable *iso_3166_table = NULL;
+
+static void
+bind_iso_domains (void)
+{
+	static gboolean bound = FALSE;
+
+	if (bound == FALSE)
+	{
+	        bindtextdomain (ISO_639_DOMAIN, ISOCODESLOCALEDIR);
+	        bind_textdomain_codeset (ISO_639_DOMAIN, "UTF-8");
+
+	        bindtextdomain(ISO_3166_DOMAIN, ISOCODESLOCALEDIR);
+	        bind_textdomain_codeset (ISO_3166_DOMAIN, "UTF-8");
+
+		bound = TRUE;
+	}
+}
+
+static void
+read_iso_639_entry (xmlTextReaderPtr reader,
+		    GHashTable *table)
+{
+	xmlChar *code, *name;
+
+	code = xmlTextReaderGetAttribute (reader, (const xmlChar *) "iso_639_1_code");
+	name = xmlTextReaderGetAttribute (reader, (const xmlChar *) "name");
+
+	/* Get iso-639-2 code */
+	if (code == NULL || code[0] == '\0')
+	{
+		xmlFree (code);
+		/* FIXME: use the 2T or 2B code? */
+		code = xmlTextReaderGetAttribute (reader, (const xmlChar *) "iso_639_2T_code");
+	}
+
+	if (code != NULL && code[0] != '\0' && name != NULL && name[0] != '\0')
+	{
+		g_hash_table_insert (table, code, name);
+	}
+	else
+	{
+		xmlFree (code);
+		xmlFree (name);
+	}
+}
+
+static void
+read_iso_3166_entry (xmlTextReaderPtr reader,
+		     GHashTable *table)
+{
+	xmlChar *code, *name;
+
+	code = xmlTextReaderGetAttribute (reader, (const xmlChar *) "alpha_2_code");
+	name = xmlTextReaderGetAttribute (reader, (const xmlChar *) "name");
+
+	if (code != NULL && code[0] != '\0' && name != NULL && name[0] != '\0')
+	{
+		char *lcode;
+
+		lcode = g_ascii_strdown ((char *) code, -1);
+		xmlFree (code);
+
+		/* g_print ("%s -> %s\n", lcode, name); */
+		
+		g_hash_table_insert (table, lcode, name);
+	}
+	else
+	{
+		xmlFree (code);
+		xmlFree (name);
+	}
+}
+
+typedef enum
+{
+	STATE_START,
+	STATE_STOP,
+	STATE_ENTRIES,
+} ParserState;
+
+static void
+load_iso_entries (int iso,
+		  GFunc read_entry_func,
+		  gpointer user_data)
+{
+	xmlTextReaderPtr reader;
+	ParserState state = STATE_START;
+	xmlChar iso_entries[32], iso_entry[32];
+	char *filename;
+	int ret = -1;
+
+	pluma_debug_message (DEBUG_PLUGINS, "Loading ISO-%d codes", iso);
+
+	filename = g_strdup_printf (ISO_CODES_PREFIX "/share/xml/iso-codes/iso_%d.xml", iso);
+	reader = xmlNewTextReaderFilename (filename);
+	if (reader == NULL) goto out;
+
+	xmlStrPrintf (iso_entries, sizeof (iso_entries), (const xmlChar *)"iso_%d_entries", iso);
+	xmlStrPrintf (iso_entry, sizeof (iso_entry), (const xmlChar *)"iso_%d_entry", iso);
+
+	ret = xmlTextReaderRead (reader);
+
+	while (ret == 1)
+	{
+		const xmlChar *tag;
+		xmlReaderTypes type;
+
+		tag = xmlTextReaderConstName (reader);
+		type = xmlTextReaderNodeType (reader);
+
+		if (state == STATE_ENTRIES &&
+		    type == XML_READER_TYPE_ELEMENT &&
+		    xmlStrEqual (tag, iso_entry))
+		{
+			read_entry_func (reader, user_data);
+		}
+		else if (state == STATE_START &&
+			 type == XML_READER_TYPE_ELEMENT &&
+			 xmlStrEqual (tag, iso_entries))
+		{
+			state = STATE_ENTRIES;
+		}
+		else if (state == STATE_ENTRIES &&
+			 type == XML_READER_TYPE_END_ELEMENT &&
+			 xmlStrEqual (tag, iso_entries))
+		{
+			state = STATE_STOP;
+		}
+		else if (type == XML_READER_TYPE_SIGNIFICANT_WHITESPACE ||
+			 type == XML_READER_TYPE_WHITESPACE ||
+			 type == XML_READER_TYPE_TEXT ||
+			 type == XML_READER_TYPE_COMMENT)
+		{
+			/* eat it */
+		}
+		else
+		{
+			/* ignore it */
+		}
+
+		ret = xmlTextReaderRead (reader);
+	}
+
+	xmlFreeTextReader (reader);
+
+out:
+	if (ret < 0 || state != STATE_STOP)
+	{
+		g_warning ("Failed to load ISO-%d codes from %s!\n",
+			   iso, filename);
+	}
+
+	g_free (filename);
+}
+
+static GHashTable *
+create_iso_639_table (void)
+{
+	GHashTable *table;
+
+	bind_iso_domains ();
+	table = g_hash_table_new_full (g_str_hash, g_str_equal,
+				       (GDestroyNotify) xmlFree,
+				       (GDestroyNotify) xmlFree);
+
+	load_iso_entries (639, (GFunc) read_iso_639_entry, table);
+
+	return table;
+}
+
+static GHashTable *
+create_iso_3166_table (void)
+{
+	GHashTable *table;
+
+	bind_iso_domains ();
+	table = g_hash_table_new_full (g_str_hash, g_str_equal,
+				       (GDestroyNotify) g_free,
+				       (GDestroyNotify) xmlFree);
+	
+	load_iso_entries (3166, (GFunc) read_iso_3166_entry, table);
+
+	return table;
+}
+
+static char *
+create_name_for_language (const char *code)
+{
+	char **str;
+	char *name = NULL;
+	const char *langname, *localename;
+	int len;
+
+	g_return_val_if_fail (iso_639_table != NULL, NULL);
+	g_return_val_if_fail (iso_3166_table != NULL, NULL);
+		
+	str = g_strsplit (code, "_", -1);
+	len = g_strv_length (str);
+	g_return_val_if_fail (len != 0, NULL);
+
+	langname = (const char *) g_hash_table_lookup (iso_639_table, str[0]);
+
+	if (len == 1 && langname != NULL)
+	{
+		name = g_strdup (dgettext (ISO_639_DOMAIN, langname));
+	}
+	else if (len == 2 && langname != NULL)
+	{
+		gchar *locale_code = g_ascii_strdown (str[1], -1);
+		
+		localename = (const char *) g_hash_table_lookup (iso_3166_table, locale_code);
+		g_free (locale_code);
+		
+		if (localename != NULL)
+		{
+			/* Translators: the first %s is the language name, and
+			 * the second %s is the locale name. Example:
+			 * "French (France)"
+			 */
+			name = g_strdup_printf (C_("language", "%s (%s)"),
+						dgettext (ISO_639_DOMAIN, langname),
+						dgettext (ISO_3166_DOMAIN, localename));
+		}
+		else
+		{
+			name = g_strdup_printf (C_("language", "%s (%s)"),
+						dgettext (ISO_639_DOMAIN, langname), str[1]);
+		}
+	}
+	else
+	{
+		/* Translators: this refers to an unknown language code
+		 * (one which isn't in our built-in list).
+		 */
+		name = g_strdup_printf (C_("language", "Unknown (%s)"), code);
+	}
+
+	g_strfreev (str);
+
+	return name;
+}
+
+static void
+enumerate_dicts (const char * const lang_tag,
+		 const char * const provider_name,
+		 const char * const provider_desc,
+		 const char * const provider_file,
+		 void * user_data)
+{
+	gchar *lang_name;
+	
+	GTree *dicts = (GTree *)user_data;
+	
+	lang_name = create_name_for_language (lang_tag);
+	g_return_if_fail (lang_name != NULL);
+	
+	/* g_print ("%s - %s\n", lang_tag, lang_name); */
+	
+	g_tree_replace (dicts, g_strdup (lang_tag), lang_name);
+}
+
+static gint
+key_cmp (gconstpointer a, gconstpointer b, gpointer user_data)
+{
+	return strcmp (a, b);
+}
+
+static gint
+lang_cmp (const PlumaSpellCheckerLanguage *a,
+          const PlumaSpellCheckerLanguage *b)
+{
+	return g_utf8_collate (a->name, b->name);
+}
+
+static gboolean
+build_langs_list (const gchar *key, 
+		  const gchar *value, 
+		  gpointer     data)
+{
+	PlumaSpellCheckerLanguage *lang = g_new (PlumaSpellCheckerLanguage, 1);
+	
+	lang->abrev = g_strdup (key);
+	lang->name = g_strdup (value);
+	
+	available_languages = g_slist_insert_sorted (available_languages,
+						     lang,
+						     (GCompareFunc)lang_cmp);
+
+	return FALSE;
+}
+
+const GSList *
+pluma_spell_checker_get_available_languages (void)
+{
+	EnchantBroker *broker;
+	GTree *dicts;
+
+	if (available_languages_initialized)
+		return available_languages;
+
+	g_return_val_if_fail (available_languages == NULL, NULL);
+			
+	available_languages_initialized = TRUE;
+	
+	broker = enchant_broker_init ();
+	g_return_val_if_fail (broker != NULL, NULL);
+	
+	/* Use a GTree to efficiently remove duplicates while building the list */
+	dicts = g_tree_new_full (key_cmp,
+				 NULL,
+				 (GDestroyNotify)g_free,
+				 (GDestroyNotify)g_free);
+
+	iso_639_table = create_iso_639_table ();
+	iso_3166_table = create_iso_3166_table ();
+	
+	enchant_broker_list_dicts (broker, enumerate_dicts, dicts);
+
+	enchant_broker_free (broker);
+	
+	g_hash_table_destroy (iso_639_table);
+	g_hash_table_destroy (iso_3166_table);
+	
+	iso_639_table = NULL;
+	iso_3166_table = NULL;
+	
+	g_tree_foreach (dicts, (GTraverseFunc)build_langs_list, NULL);
+	
+	g_tree_destroy (dicts);
+	
+	return available_languages;
+}
+
+const gchar *
+pluma_spell_checker_language_to_string (const PlumaSpellCheckerLanguage *lang)
+{
+	if (lang == NULL)
+		/* Translators: this refers the Default language used by the
+		 * spell checker
+		 */
+		return C_("language", "Default");
+
+	return lang->name;
+}
+
+const gchar *
+pluma_spell_checker_language_to_key (const PlumaSpellCheckerLanguage *lang)
+{
+	g_return_val_if_fail (lang != NULL, NULL);
+	
+	return lang->abrev;
+}
+
+const PlumaSpellCheckerLanguage *
+pluma_spell_checker_language_from_key (const gchar *key)
+{
+	const GSList *langs;
+
+	g_return_val_if_fail (key != NULL, NULL);
+
+	langs = pluma_spell_checker_get_available_languages ();
+
+	while (langs != NULL)
+	{
+		const PlumaSpellCheckerLanguage *l = (const PlumaSpellCheckerLanguage *)langs->data;
+
+		if (g_ascii_strcasecmp (key, l->abrev) == 0)
+			return l;
+
+		langs = g_slist_next (langs);
+	}
+
+	return NULL;
+}