New public API:

2007-05-10  Behdad Esfahbod  <behdad@gnome.org>

        * pango/Makefile.am:
        * pango/pango-ot.h:
        * pango/pango-ot-tag.c (pango_ot_tag_from_script),
        (pango_ot_tag_to_script), (lang_compare_first_component),
        (pango_ot_tag_from_language), (pango_ot_tag_to_language):
        New public API:

                PANGO_OT_DEFAULT_SCRIPT
                pango_ot_tag_from_script()
                pango_ot_tag_to_script()
                pango_ot_tag_from_language()
                pango_ot_tag_to_language()

        * tests/Makefile.am:
        * tests/test-ot-tags.c:
        Test case for new functions.

        * pango/pangoft2.def:
        * docs/pango-docs.sgml:
        * docs/pango-sections.txt:
        * docs/tmpl/main.sgml:
        * docs/tmpl/opentype.sgml:
        Updated.


svn path=/trunk/; revision=2274

2 files changed, 135 insertions, 17 deletions

diff --git a/tests/Makefile.am b/tests/Makefile.am
index 549b89c4..d05667e3 100644
--- a/tests/Makefile.am
+++ b/tests/Makefile.am
@@ -44,29 +44,16 @@ check_PROGRAMS = testboundaries testcolor testscript
 if HAVE_CAIRO
 check_PROGRAMS += testiter
 endif
-
-gen_all_unicode_SOURCES = gen-all-unicode.c
-
-testboundaries_SOURCES = testboundaries.c
-
-testcolor_SOURCES = testcolor.c
-
-testiter_SOURCES = testiter.c
-
-testscript_SOURCES = testscript.c
-
-
-dump_boundaries_SOURCES = dump-boundaries.c
+if HAVE_FREETYPE
+check_PROGRAMS += test-ot-tags
+endif
 
 gen_all_unicode_LDADD = $(GLIB_LIBS)
-
 testboundaries_LDADD = ../pango/libpango-$(PANGO_API_VERSION).la
-
 testcolor_LDADD = ../pango/libpango-$(PANGO_API_VERSION).la
-
 testiter_LDADD = ../pango/libpango-$(PANGO_API_VERSION).la ../pango/libpangocairo-$(PANGO_API_VERSION).la 
-
 testscript_LDADD = ../pango/libpango-$(PANGO_API_VERSION).la
+test_ot_tags_LDADD = ../pango/libpango-$(PANGO_API_VERSION).la ../pango/libpangoft2-$(PANGO_API_VERSION).la 
 
 dump_boundaries_LDADD = ../pango/libpango-$(PANGO_API_VERSION).la
 
diff --git a/tests/test-ot-tags.c b/tests/test-ot-tags.c
new file mode 100644
index 00000000..dbfca369
--- /dev/null
+++ b/tests/test-ot-tags.c
@@ -0,0 +1,131 @@
+/* -*- 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.
+ */
+
+#define PANGO_ENABLE_ENGINE
+#include <pango/pango-ot.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
+
+static void
+test_script_tags (void)
+{
+  gunichar ch;
+  PangoScript i, max_script;
+
+  /* we need to know what the maximum script number is.  but we don't
+   * provide an api for that.  instead of looking into internal tables,
+   * we'll go over all chars and see what their script is, taking the max!
+   */
+
+  max_script = PANGO_SCRIPT_INVALID_CODE;
+  for (ch = 0; ch <= 0x10FFFF; ch++)
+    max_script = MAX (max_script, pango_script_for_unichar (ch));
+
+  for (i = PANGO_SCRIPT_COMMON; i <= max_script; i++)
+    {
+      PangoOTTag tag = pango_ot_tag_from_script (i);
+      PangoScript j  = pango_ot_tag_to_script (tag);
+
+      if (i <= PANGO_SCRIPT_INHERITED || i == PANGO_SCRIPT_UNKNOWN)
+        {
+	  ASSERT (tag == PANGO_OT_DEFAULT_SCRIPT);
+	  ASSERT (j == PANGO_SCRIPT_COMMON);
+        }
+      else if (tag == FT_MAKE_TAG ('k', 'a', 'n', 'a'))
+        {
+	  /* Hiragana and Katakana both map to tag 'kana' */
+	 ASSERT (i == PANGO_SCRIPT_HIRAGANA || i == PANGO_SCRIPT_KATAKANA);
+	 ASSERT (j == PANGO_SCRIPT_HIRAGANA || j == PANGO_SCRIPT_KATAKANA);
+	}
+      else
+        {
+	  if (j != i)
+	    g_error ("Got back %d for script %d (OT tag '%c%c%c%c')", j, i,
+		     tag>>24, (tag>>16)&255, (tag>>8)&255, tag&255);
+	}
+    }
+
+  ASSERT (pango_ot_tag_to_script (FT_MAKE_TAG ('X', 'Y', 'Z', ' ')) == PANGO_SCRIPT_UNKNOWN);
+}
+
+static void
+test_language_tags (void)
+{
+  /* just test it for a few known languages to make sure it's working */
+  const char languages[][6] = {
+    "xy", /* hopefully nonexistent */
+    "aa",
+    "az_IR",
+    "en",
+    "en_US",
+    "fa",
+    "fa_IR",
+    "fr",
+    "zh_CN",
+    "zu"
+  };
+  unsigned int i;
+
+  for (i = 0; i < G_N_ELEMENTS (languages); i++)
+    {
+      PangoLanguage *l = pango_language_from_string (languages[i]);
+      PangoOTTag tag   = pango_ot_tag_from_language (l);
+      PangoLanguage *m = pango_ot_tag_to_language (tag);
+
+      if (i == 0)
+        {
+	  ASSERT (tag == PANGO_OT_DEFAULT_LANGUAGE);
+	  ASSERT (strcmp (pango_language_to_string (m), "xx") == 0);
+	}
+      else
+        {
+	  if (tag == PANGO_OT_DEFAULT_LANGUAGE)
+	    g_error ("Got PANGO_OT_DEFAULT_LANGUAGE for language '%s'", pango_language_to_string (l));
+
+	  if (!pango_language_matches (l, pango_language_to_string (m)))
+	    g_error ("Got back %s for language %s (OT tag '%c%c%c%c')",
+		     pango_language_to_string (m), pango_language_to_string (l),
+		     tag>>24, (tag>>16)&255, (tag>>8)&255, tag&255);
+	}
+    }
+}
+
+int
+main (int argc, char **argv)
+{
+  g_setenv ("PANGO_RC_FILE", "./pangorc", TRUE);
+
+  test_script_tags ();
+  test_language_tags ();
+
+  return 0;
+}