Make PangoEngine{,Lang,Shape} GObjects, and use a GTypeModule-based

Sat Aug  2 23:19:16 2003  Owen Taylor  <otaylor@redhat.com>

        * pango/pango-engine.[ch] modules/*/*-{fc,win32,x}.c
        pango/modules.c pango/break.c pango/pango-context.c
        pango/pango-layout.c pango/pango-modules.h
        pango/querymodules.c pango/shape.c: Make
        PangoEngine{,Lang,Shape} GObjects, and use a
        GTypeModule-based module-loading system closely based
        on the one used for GtkIMContext and GtkThemeEngine.

        * pango/pango-impl-utils.h: OK, I'm tired of typing
        in get_type() functions.

        * pango/pango-script.[ch] pango/pango-script-table.h
        tests/testscript.c tools/gen-script-table.pl: Add port
        of script-range code from ICU in preparation for future
        use. (#91542)

        * tools/gen-script-for-lang.c: Utility program to determine
        the script for each fontconfig .orth file.

        * docs/tmpl/{scripts.sgml,pango-engine-lang.sgml,
        pango-engine-shape.sgml} docs/pango-sections.txt docs/pango-docs.sgml:
        Redo to go along with the above changes.

        * configure.in: chmod +x tests/runtests.sh

3 files changed, 260 insertions, 1 deletions

diff --git a/tests/.cvsignore b/tests/.cvsignore
index 29920694..d6cd9e30 100644
--- a/tests/.cvsignore
+++ b/tests/.cvsignore
@@ -3,6 +3,7 @@
 runtests.sh
 runtests.log
 testboundaries
+testscript
 dump-boundaries
 gen-all-unicode
 all-unicode.txt
diff --git a/tests/Makefile.am b/tests/Makefile.am
index 8c0982f5..ef1ea433 100644
--- a/tests/Makefile.am
+++ b/tests/Makefile.am
@@ -27,7 +27,7 @@ TESTS=runtests.sh
 
 noinst_PROGRAMS = gen-all-unicode dump-boundaries
 
-check_PROGRAMS = testboundaries testcolor
+check_PROGRAMS = testboundaries testcolor testscript
 
 gen_all_unicode_SOURCES = gen-all-unicode.c
 
@@ -35,6 +35,8 @@ testboundaries_SOURCES = testboundaries.c
 
 testcolor_SOURCES = testcolor.c
 
+testscript_SOURCES = testscript.c
+
 dump_boundaries_SOURCES = dump-boundaries.c
 
 gen_all_unicode_LDADD = $(GLIB_LIBS)
@@ -43,6 +45,8 @@ testboundaries_LDADD = ../pango/libpango-$(PANGO_API_VERSION).la
 
 testcolor_LDADD = ../pango/libpango-$(PANGO_API_VERSION).la
 
+testscript_LDADD = ../pango/libpango-$(PANGO_API_VERSION).la
+
 dump_boundaries_LDADD = ../pango/libpango-$(PANGO_API_VERSION).la
 
 if HAVE_CXX
diff --git a/tests/testscript.c b/tests/testscript.c
new file mode 100644
index 00000000..5ef39384
--- /dev/null
+++ b/tests/testscript.c
@@ -0,0 +1,254 @@
+/* -*- mode: C; c-file-style: "gnu" -*- */
+/* Pango
+ * testscript.c: Test cases for PangoScriptIter
+ *
+ * Copyright (C) 2002 Red Hat Software
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library 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
+ * Library General Public License for more details.
+ *
+ * You should have received a copy of the GNU Library 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.
+ *
+ * The test strings here come from ICU:
+ *
+ *  icu/sources/test/cintltst/cucdtst.c
+ *
+ ********************************************************************
+ * COPYRIGHT:
+ * Copyright (c) 1997-2001, International Business Machines Corporation and
+ * others. All Rights Reserved.
+ ********************************************************************
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a
+ * copy of this software and associated documentation files (the
+ * "Software"), to deal in the Software without restriction, including
+ * without limitation the rights to use, copy, modify, merge, publish,
+ * distribute, and/or sell copies of the Software, and to permit persons
+ * to whom the Software is furnished to do so, provided that the above
+ * copyright notice(s) and this permission notice appear in all copies of
+ * the Software and that both the above copyright notice(s) and this
+ * permission notice appear in supporting documentation.
+ * 
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
+ * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+ * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT
+ * OF THIRD PARTY RIGHTS. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR
+ * HOLDERS INCLUDED IN THIS NOTICE BE LIABLE FOR ANY CLAIM, OR ANY SPECIAL
+ * INDIRECT OR CONSEQUENTIAL DAMAGES, OR ANY DAMAGES WHATSOEVER RESULTING
+ * FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
+ * NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
+ * WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ * 
+ * Except as contained in this notice, the name of a copyright holder
+ * shall not be used in advertising or otherwise to promote the sale, use
+ * or other dealings in this Software without prior written authorization
+ * of the copyright holder.
+ */
+
+#include <stdlib.h>
+#include <string.h>
+
+#include "pango/pango-script.h"
+#include "pango/pango-script-table.h"
+
+#undef VERBOSE
+
+#define ASSERT(stmt) G_STMT_START {					\
+    if (stmt) { }							\
+    else								\
+      {									\
+        g_warning ("%s:%d (%s): assertion '%s' failed",			\
+		 __FILE__, __LINE__, G_GNUC_PRETTY_FUNCTION, #stmt);	\
+        exit (1);							\
+      }									\
+} G_STMT_END
+
+typedef struct
+{
+  const char *run_text_escaped;
+  char *run_text;
+  PangoScript run_code;
+} RunTestData;
+
+static gchar *
+unescape (const char *text)
+{
+  gboolean escaped = FALSE;
+  GString *result = g_string_new (NULL);
+  const gchar *p;
+
+  for (p = text; *p; p = g_utf8_next_char (p))
+    {
+      gunichar ch = g_utf8_get_char (p);
+      
+      if (escaped)
+	{
+	  if (ch == 'u' || ch == 'U')
+	    {
+	      int n_chars = ch == 'u' ? 4 : 8;
+	      int i;
+	      
+	      ch = 0;
+	      for (i = 0; i < n_chars; i++)
+		{
+		  p++;
+		  ch <<= 4;
+		  if (*p <= '9' && *p >= '0')
+		    ch += *p - '0';
+		  else if (*p <= 'F' && *p >= 'A')
+		    ch += 10 + *p - 'A';
+		  else if (*p <= 'f' && *p >= 'a')
+		    ch += 10 + *p - 'a';
+		  else
+		    g_assert_not_reached ();
+		}
+	    }
+	  else if (ch == '\\')
+	    {
+	      ch = '\\';
+	    }
+	  else
+	    {
+	      g_assert_not_reached ();
+	    }
+
+	  escaped = FALSE;
+	}
+      else
+	{
+	  if (ch == '\\')
+	    {
+	      escaped = TRUE;
+	      continue;
+	    }
+	}
+
+      g_string_append_unichar (result, ch);
+    }
+
+  return g_string_free (result, FALSE);
+}
+
+static void
+test_script_lookup ()
+{
+  gunichar ch = 0;
+  int i, j;
+
+  for (i = 0; i < G_N_ELEMENTS (pango_script_table); i++)
+    {
+      while (ch < pango_script_table[i].start)
+	{
+	  ASSERT (pango_script_for_unichar (ch) == PANGO_SCRIPT_COMMON);
+	  ch++;
+	}
+
+      for (j = 0; j < pango_script_table[i].chars; j++)
+	{
+	  ASSERT (pango_script_for_unichar (ch) == pango_script_table[i].script);
+	  ch++;
+	}
+    }
+
+  ASSERT (pango_script_for_unichar (ch) == PANGO_SCRIPT_COMMON);
+}
+
+static void
+test_script_iter (void)
+{
+  static RunTestData test_data[] = {
+    { "\\u0020\\u0946\\u0939\\u093F\\u0928\\u094D\\u0926\\u0940\\u0020", NULL, PANGO_SCRIPT_DEVANAGARI },
+    { "\\u0627\\u0644\\u0639\\u0631\\u0628\\u064A\\u0629\\u0020", NULL, PANGO_SCRIPT_ARABIC },
+    { "\\u0420\\u0443\\u0441\\u0441\\u043A\\u0438\\u0439\\u0020", NULL, PANGO_SCRIPT_CYRILLIC },
+    { "English (", NULL, PANGO_SCRIPT_LATIN },
+    { "\\u0E44\\u0E17\\u0E22", NULL, PANGO_SCRIPT_THAI },
+    { ") ", NULL, PANGO_SCRIPT_LATIN },
+    { "\\u6F22\\u5B75", NULL, PANGO_SCRIPT_HAN },
+    { "\\u3068\\u3072\\u3089\\u304C\\u306A\\u3068", NULL, PANGO_SCRIPT_HIRAGANA },
+    { "\\u30AB\\u30BF\\u30AB\\u30CA", NULL, PANGO_SCRIPT_KATAKANA },
+    { "\\U00010400\\U00010401\\U00010402\\U00010403", NULL, PANGO_SCRIPT_DESERET }
+  };
+
+  PangoScriptIter *iter;
+  GString *all = g_string_new (FALSE);
+  char *pos;
+  const char *start;
+  const char *end;
+  PangoScript script;
+  int i;
+    
+  for (i = 0; i < G_N_ELEMENTS(test_data); i++)
+    {
+      test_data[i].run_text = unescape (test_data[i].run_text_escaped);
+      g_string_append (all, test_data[i].run_text);
+    }
+
+  iter = pango_script_iter_new (all->str, -1);
+
+#ifdef VERBOSE
+  g_print ("Total length: %d\n", all->len);
+#endif      
+
+  pos = all->str;
+  for (i = 0; i < G_N_ELEMENTS(test_data); i++)
+    {
+      char *next_pos = pos + strlen (test_data[i].run_text);
+      gboolean result;
+      
+      pango_script_iter_get_range (iter, &start, &end, &script);
+#ifdef VERBOSE
+      g_print ("Range: %d-%d: %d\n", start - all->str, end - all->str, script);
+#endif      
+
+      ASSERT (start == pos);
+      ASSERT (end == next_pos);
+      ASSERT (script == test_data[i].run_code);
+
+      result = pango_script_iter_next (iter);
+      ASSERT (result == (i != G_N_ELEMENTS (test_data) - 1));
+
+      pos = next_pos;
+    }
+
+  pango_script_iter_free (iter);
+
+  /*
+   * Test an empty string.
+   */
+  iter = pango_script_iter_new (all->str, 0);
+  
+  pango_script_iter_get_range (iter, &start, &end, &script);
+  
+  ASSERT (start == all->str);
+  ASSERT (end == all->str);
+  ASSERT (script == PANGO_SCRIPT_COMMON);
+  ASSERT (!pango_script_iter_next (iter));
+  
+  pango_script_iter_free (iter);
+
+  /* Cleanup */
+  
+  for (i = 0; i < G_N_ELEMENTS (test_data); i++)
+    g_free (test_data[i].run_text);
+
+  g_string_free (all, TRUE);
+}
+
+int
+main (int argc, char **argv)
+{
+  test_script_lookup ();
+  test_script_iter ();
+
+  return 0;
+}