Upgrade to latest harfbuzz
[framework/uifw/harfbuzz.git] / src / hb-shape.cc
index df49e60..163a5bf 100644 (file)
@@ -1,5 +1,5 @@
 /*
- * Copyright (C) 2009  Red Hat, Inc.
+ * Copyright © 2009  Red Hat, Inc.
  *
  *  This is part of HarfBuzz, a text shaping library.
  *
  * Red Hat Author(s): Behdad Esfahbod
  */
 
-#include "hb-private.h"
+#include "hb-private.hh"
 
 #include "hb-shape.h"
 
 #include "hb-buffer-private.hh"
 
-#include "hb-ot-shape-private.hh"
-
-
-/* Prepare */
-
-static inline hb_bool_t
-is_variation_selector (hb_codepoint_t unicode)
+#ifdef HAVE_GRAPHITE
+#include "hb-graphite2-private.hh"
+#endif
+#ifdef HAVE_UNISCRIBE
+# include "hb-uniscribe-private.hh"
+#endif
+#ifdef HAVE_OT
+# include "hb-ot-shape-private.hh"
+#endif
+#include "hb-fallback-shape-private.hh"
+
+typedef hb_bool_t (*hb_shape_func_t) (hb_font_t          *font,
+                                     hb_buffer_t        *buffer,
+                                     const hb_feature_t *features,
+                                     unsigned int        num_features);
+
+#define HB_SHAPER_IMPLEMENT(name) {#name, _hb_##name##_shape}
+static const struct hb_shaper_pair_t {
+  char name[16];
+  hb_shape_func_t func;
+} all_shapers[] = {
+  /* v--- Add new shapers in the right place here */
+#ifdef HAVE_GRAPHITE
+  HB_SHAPER_IMPLEMENT (graphite2),
+#endif
+#ifdef HAVE_UNISCRIBE
+  HB_SHAPER_IMPLEMENT (uniscribe),
+#endif
+#ifdef HAVE_OT
+  HB_SHAPER_IMPLEMENT (ot),
+#endif
+  HB_SHAPER_IMPLEMENT (fallback) /* should be last */
+};
+#undef HB_SHAPER_IMPLEMENT
+
+
+/* Thread-safe, lock-free, shapers */
+
+static hb_shaper_pair_t *static_shapers;
+
+static
+void free_static_shapers (void)
 {
-  return unlikely ((unicode >=  0x180B && unicode <=  0x180D) || /* MONGOLIAN FREE VARIATION SELECTOR ONE..THREE */
-                  (unicode >=  0xFE00 && unicode <=  0xFE0F) || /* VARIATION SELECTOR-1..16 */
-                  (unicode >= 0xE0100 && unicode <= 0xE01EF));  /* VARIATION SELECTOR-17..256 */
-}
-
-static void
-hb_form_clusters (hb_buffer_t *buffer)
-{
-  unsigned int count;
-
-  count = buffer->in_length;
-  for (buffer->in_pos = 1; buffer->in_pos < count; buffer->in_pos++)
-    if (buffer->unicode->get_general_category (IN_CURGLYPH()) == HB_CATEGORY_NON_SPACING_MARK)
-      buffer->in_string[buffer->in_pos].cluster = buffer->in_string[buffer->in_pos - 1].cluster;
+  if (unlikely (static_shapers != all_shapers))
+    free (static_shapers);
 }
 
-static hb_direction_t
-hb_ensure_native_direction (hb_buffer_t *buffer)
+static const hb_shaper_pair_t *
+get_shapers (void)
 {
-  hb_direction_t original_direction = buffer->direction;
+retry:
+  hb_shaper_pair_t *shapers = (hb_shaper_pair_t *) hb_atomic_ptr_get (&static_shapers);
 
-  /* TODO vertical */
-  if (HB_DIRECTION_IS_HORIZONTAL (original_direction) &&
-      original_direction != _hb_script_get_horizontal_direction (buffer->script))
+  if (unlikely (!shapers))
   {
-    hb_buffer_reverse_clusters (buffer);
-    buffer->direction = HB_DIRECTION_REVERSE (buffer->direction);
-  }
-
-  return original_direction;
-}
-
-
-/* Substitute */
+    char *env = getenv ("HB_SHAPER_LIST");
+    if (!env || !*env) {
+      hb_atomic_ptr_cmpexch (&static_shapers, NULL, (const hb_shaper_pair_t *) all_shapers);
+      return (const hb_shaper_pair_t *) all_shapers;
+    }
 
-static void
-hb_mirror_chars (hb_buffer_t *buffer)
-{
-  unsigned int count;
-  hb_unicode_get_mirroring_func_t get_mirroring = buffer->unicode->get_mirroring;
+    /* Not found; allocate one. */
+    shapers = (hb_shaper_pair_t *) malloc (sizeof (all_shapers));
+    if (unlikely (!shapers))
+      return (const hb_shaper_pair_t *) all_shapers;
+     memcpy (shapers, all_shapers, sizeof (all_shapers));
+
+     /* Reorder shaper list to prefer requested shapers. */
+    unsigned int i = 0;
+    char *end, *p = env;
+    for (;;) {
+      end = strchr (p, ',');
+      if (!end)
+       end = p + strlen (p);
+
+      for (unsigned int j = i; j < ARRAY_LENGTH (all_shapers); j++)
+       if (end - p == (int) strlen (shapers[j].name) &&
+           0 == strncmp (shapers[j].name, p, end - p))
+       {
+         /* Reorder this shaper to position i */
+        struct hb_shaper_pair_t t = shapers[j];
+        memmove (&shapers[i + 1], &shapers[i], sizeof (shapers[i]) * (j - i));
+        shapers[i] = t;
+        i++;
+       }
+
+      if (!*end)
+       break;
+      else
+       p = end + 1;
+    }
 
-  if (HB_DIRECTION_IS_FORWARD (buffer->direction))
-    return;
+    if (!hb_atomic_ptr_cmpexch (&static_shapers, NULL, shapers)) {
+      free (shapers);
+      goto retry;
+    }
 
-  count = buffer->in_length;
-  for (buffer->in_pos = 0; buffer->in_pos < count; buffer->in_pos++) {
-      IN_CURGLYPH() = get_mirroring (IN_CURGLYPH());
+#ifdef HAVE_ATEXIT
+    atexit (free_static_shapers); /* First person registers atexit() callback. */
+#endif
   }
-}
 
-static void
-hb_map_glyphs (hb_font_t    *font,
-              hb_face_t    *face,
-              hb_buffer_t  *buffer)
-{
-  unsigned int count;
-
-  if (unlikely (!buffer->in_length))
-    return;
-  count = buffer->in_length - 1;
-  for (buffer->in_pos = 0; buffer->in_pos < count; buffer->in_pos++) {
-    if (unlikely (is_variation_selector (buffer->in_string[buffer->in_pos + 1].codepoint))) {
-      IN_CURGLYPH() = hb_font_get_glyph (font, face, IN_CURGLYPH(), buffer->in_string[buffer->in_pos + 1].codepoint);
-      buffer->in_pos++;
-    } else {
-      IN_CURGLYPH() = hb_font_get_glyph (font, face, IN_CURGLYPH(), 0);
-    }
-  }
-  IN_CURGLYPH() = hb_font_get_glyph (font, face, IN_CURGLYPH(), 0);
+  return shapers;
 }
 
-static void
-hb_substitute_default (hb_font_t    *font,
-                      hb_face_t    *face,
-                      hb_buffer_t  *buffer,
-                      hb_feature_t *features HB_UNUSED,
-                      unsigned int  num_features HB_UNUSED)
-{
-  hb_mirror_chars (buffer);
-  hb_map_glyphs (font, face, buffer);
-}
 
-static hb_bool_t
-hb_substitute_complex (hb_font_t    *font,
-                      hb_face_t    *face,
-                      hb_buffer_t  *buffer,
-                      hb_feature_t *features,
-                      unsigned int  num_features)
-{
-  return _hb_ot_substitute_complex (font, face, buffer, features, num_features);
-}
+static const char **static_shaper_list;
 
-static void
-hb_substitute_fallback (hb_font_t    *font HB_UNUSED,
-                       hb_face_t    *face HB_UNUSED,
-                       hb_buffer_t  *buffer HB_UNUSED,
-                       hb_feature_t *features HB_UNUSED,
-                       unsigned int  num_features HB_UNUSED)
+static
+void free_static_shaper_list (void)
 {
-  /* TODO Arabic */
+  free (static_shaper_list);
 }
 
+const char **
+hb_shape_list_shapers (void)
+{
+retry:
+  const char **shaper_list = (const char **) hb_atomic_ptr_get (&static_shaper_list);
 
-/* Position */
+  if (unlikely (!shaper_list))
+  {
+    /* Not found; allocate one. */
+    shaper_list = (const char **) calloc (1 + ARRAY_LENGTH (all_shapers), sizeof (const char *));
+    if (unlikely (!shaper_list)) {
+      static const char *nil_shaper_list[] = {NULL};
+      return nil_shaper_list;
+    }
 
-static void
-hb_position_default (hb_font_t    *font,
-                    hb_face_t    *face,
-                    hb_buffer_t  *buffer,
-                    hb_feature_t *features HB_UNUSED,
-                    unsigned int  num_features HB_UNUSED)
-{
-  unsigned int count;
+    const hb_shaper_pair_t *shapers = get_shapers ();
+    unsigned int i;
+    for (i = 0; i < ARRAY_LENGTH (all_shapers); i++)
+      shaper_list[i] = shapers[i].name;
+    shaper_list[i] = NULL;
 
-  hb_buffer_clear_positions (buffer);
+    if (!hb_atomic_ptr_cmpexch (&static_shaper_list, NULL, shaper_list)) {
+      free (shaper_list);
+      goto retry;
+    }
 
-  count = buffer->in_length;
-  for (buffer->in_pos = 0; buffer->in_pos < count; buffer->in_pos++) {
-    hb_glyph_metrics_t metrics;
-    hb_font_get_glyph_metrics (font, face, IN_CURGLYPH(), &metrics);
-    buffer->positions[buffer->in_pos].x_advance = metrics.x_advance;
-    buffer->positions[buffer->in_pos].y_advance = metrics.y_advance;
+#ifdef HAVE_ATEXIT
+    atexit (free_static_shaper_list); /* First person registers atexit() callback. */
+#endif
   }
-}
 
-static hb_bool_t
-hb_position_complex (hb_font_t    *font,
-                    hb_face_t    *face,
-                    hb_buffer_t  *buffer,
-                    hb_feature_t *features,
-                    unsigned int  num_features)
-{
-  return _hb_ot_position_complex (font, face, buffer, features, num_features);
+  return shaper_list;
 }
 
-static void
-hb_position_fallback (hb_font_t    *font HB_UNUSED,
-                     hb_face_t    *face HB_UNUSED,
-                     hb_buffer_t  *buffer HB_UNUSED,
-                     hb_feature_t *features HB_UNUSED,
-                     unsigned int  num_features HB_UNUSED)
-{
-  /* TODO Mark pos */
-}
 
-static void
-hb_truetype_kern (hb_font_t    *font,
-                 hb_face_t    *face,
-                 hb_buffer_t  *buffer,
-                 hb_feature_t *features HB_UNUSED,
-                 unsigned int  num_features HB_UNUSED)
+hb_bool_t
+hb_shape_full (hb_font_t          *font,
+              hb_buffer_t        *buffer,
+              const hb_feature_t *features,
+              unsigned int        num_features,
+              const char * const *shaper_list)
 {
-  unsigned int count;
-
-  /* TODO Check for kern=0 */
-  count = buffer->in_length;
-  for (buffer->in_pos = 1; buffer->in_pos < count; buffer->in_pos++) {
-    hb_position_t kern, kern1, kern2;
-    kern = hb_font_get_kerning (font, face, buffer->in_string[buffer->in_pos - 1].codepoint, IN_CURGLYPH());
-    kern1 = kern >> 1;
-    kern2 = kern - kern1;
-    buffer->positions[buffer->in_pos - 1].x_advance += kern1;
-    buffer->positions[buffer->in_pos].x_advance += kern2;
-    buffer->positions[buffer->in_pos].x_offset += kern2;
+  hb_font_make_immutable (font); /* So we can safely cache stuff on it */
+
+  if (likely (!shaper_list)) {
+    const hb_shaper_pair_t *shapers = get_shapers ();
+    for (unsigned int i = 0; i < ARRAY_LENGTH (all_shapers); i++)
+      if (likely (shapers[i].func (font, buffer, features, num_features)))
+        return true;
+  } else {
+    while (*shaper_list) {
+      for (unsigned int i = 0; i < ARRAY_LENGTH (all_shapers); i++)
+       if (0 == strcmp (*shaper_list, all_shapers[i].name)) {
+         if (likely (all_shapers[i].func (font, buffer, features, num_features)))
+           return true;
+         break;
+       }
+      shaper_list++;
+    }
   }
+  return false;
 }
 
-static void
-hb_position_fallback_visual (hb_font_t    *font,
-                            hb_face_t    *face,
-                            hb_buffer_t  *buffer,
-                            hb_feature_t *features,
-                            unsigned int  num_features)
-{
-  hb_truetype_kern (font, face, buffer, features, num_features);
-}
-
-
-/* Shape */
-
 void
-hb_shape (hb_font_t    *font,
-         hb_face_t    *face,
-         hb_buffer_t  *buffer,
-         hb_feature_t *features,
-         unsigned int  num_features)
+hb_shape (hb_font_t           *font,
+         hb_buffer_t         *buffer,
+         const hb_feature_t  *features,
+         unsigned int         num_features)
 {
-  hb_direction_t original_direction;
-  hb_bool_t substitute_fallback, position_fallback;
-
-  hb_form_clusters (buffer);
-
-  hb_substitute_default (font, face, buffer, features, num_features);
-
-  /* We do this after substitute_default because mirroring needs to
-   * see the original direction. */
-  original_direction = hb_ensure_native_direction (buffer);
-
-  substitute_fallback = !hb_substitute_complex (font, face, buffer, features, num_features);
-
-  if (substitute_fallback)
-    hb_substitute_fallback (font, face, buffer, features, num_features);
-
-  hb_position_default (font, face, buffer, features, num_features);
-
-  position_fallback = !hb_position_complex (font, face, buffer, features, num_features);
-
-  if (position_fallback)
-    hb_position_fallback (font, face, buffer, features, num_features);
-
-  if (HB_DIRECTION_IS_BACKWARD (buffer->direction))
-    hb_buffer_reverse (buffer);
-
-  if (position_fallback)
-    hb_position_fallback_visual (font, face, buffer, features, num_features);
-
-  buffer->direction = original_direction;
+  hb_shape_full (font, buffer, features, num_features, NULL);
 }