/*
- * 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 (buffer->info[buffer->in_pos].codepoint) == HB_CATEGORY_NON_SPACING_MARK)
- buffer->info[buffer->in_pos].cluster = buffer->info[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++) {
- buffer->info[buffer->in_pos].codepoint = get_mirroring (buffer->info[buffer->in_pos].codepoint);
+#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->info[buffer->in_pos + 1].codepoint))) {
- buffer->info[buffer->in_pos].codepoint = hb_font_get_glyph (font, face, buffer->info[buffer->in_pos].codepoint, buffer->info[buffer->in_pos + 1].codepoint);
- buffer->in_pos++;
- } else {
- buffer->info[buffer->in_pos].codepoint = hb_font_get_glyph (font, face, buffer->info[buffer->in_pos].codepoint, 0);
- }
- }
- buffer->info[buffer->in_pos].codepoint = hb_font_get_glyph (font, face, buffer->info[buffer->in_pos].codepoint, 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, buffer->info[buffer->in_pos].codepoint, &metrics);
- buffer->pos[buffer->in_pos].x_advance = metrics.x_advance;
- buffer->pos[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->info[buffer->in_pos - 1].codepoint, buffer->info[buffer->in_pos].codepoint);
- kern1 = kern >> 1;
- kern2 = kern - kern1;
- buffer->pos[buffer->in_pos - 1].x_advance += kern1;
- buffer->pos[buffer->in_pos].x_advance += kern2;
- buffer->pos[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);
}