Upgrade to latest harfbuzz
[framework/uifw/harfbuzz.git] / src / hb-buffer.cc
index 800a34d..e2c34f1 100644 (file)
@@ -1,8 +1,9 @@
 /*
- * Copyright (C) 1998-2004  David Turner and Werner Lemberg
- * Copyright (C) 2004,2007,2009,2010  Red Hat, Inc.
+ * Copyright © 1998-2004  David Turner and Werner Lemberg
+ * Copyright © 2004,2007,2009,2010  Red Hat, Inc.
+ * Copyright © 2011  Google, Inc.
  *
- * This is part of HarfBuzz, a text shaping library.
+ *  This is part of HarfBuzz, a text shaping library.
  *
  * Permission is hereby granted, without written agreement and without
  * license or royalty fees, to use, copy, modify, and distribute this
  * PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
  *
  * Red Hat Author(s): Owen Taylor, Behdad Esfahbod
+ * Google Author(s): Behdad Esfahbod
  */
 
 #include "hb-buffer-private.hh"
 
 #include <string.h>
 
-HB_BEGIN_DECLS
 
 
-static hb_buffer_t _hb_buffer_nil = {
-  HB_REFERENCE_COUNT_INVALID, /* ref_count */
+#ifndef HB_DEBUG_BUFFER
+#define HB_DEBUG_BUFFER (HB_DEBUG+0)
+#endif
 
-  &_hb_unicode_funcs_nil  /* unicode */
-};
+#define _HB_BUFFER_UNICODE_FUNCS_DEFAULT (const_cast<hb_unicode_funcs_t *> (&_hb_unicode_funcs_default))
+#define _HB_BUFFER_PROPS_DEFAULT { HB_DIRECTION_INVALID, HB_SCRIPT_INVALID, HB_LANGUAGE_INVALID }
 
 /* Here is how the buffer works internally:
  *
@@ -45,463 +47,669 @@ static hb_buffer_t _hb_buffer_nil = {
  *
  * As an optimization, both info and out_info may point to the
  * same piece of memory, which is owned by info.  This remains the
- * case as long as out_len doesn't exceed len at any time.
- * In that case, swap() is no-op and the glyph operations operate
+ * case as long as out_len doesn't exceed i at any time.
+ * In that case, swap_buffers() is no-op and the glyph operations operate
  * mostly in-place.
  *
  * As soon as out_info gets longer than info, out_info is moved over
  * to an alternate buffer (which we reuse the pos buffer for!), and its
  * current contents (out_len entries) are copied to the new place.
- * This should all remain transparent to the user.  swap() then
+ * This should all remain transparent to the user.  swap_buffers() then
  * switches info and out_info.
  */
 
 
-static hb_bool_t
-_hb_buffer_enlarge (hb_buffer_t *buffer, unsigned int size)
+
+/* Internal API */
+
+bool
+hb_buffer_t::enlarge (unsigned int size)
 {
-  if (unlikely (buffer->in_error))
-    return FALSE;
+  if (unlikely (in_error))
+    return false;
 
-  unsigned int new_allocated = buffer->allocated;
-  hb_internal_glyph_position_t *new_pos;
-  hb_internal_glyph_info_t *new_info;
-  bool separate_out;
+  unsigned int new_allocated = allocated;
+  hb_glyph_position_t *new_pos = NULL;
+  hb_glyph_info_t *new_info = NULL;
+  bool separate_out = out_info != info;
 
-  separate_out = buffer->out_info != buffer->info;
+  if (unlikely (_hb_unsigned_int_mul_overflows (size, sizeof (info[0]))))
+    goto done;
 
   while (size > new_allocated)
-    new_allocated += (new_allocated >> 1) + 8;
+    new_allocated += (new_allocated >> 1) + 32;
+
+  ASSERT_STATIC (sizeof (info[0]) == sizeof (pos[0]));
+  if (unlikely (_hb_unsigned_int_mul_overflows (new_allocated, sizeof (info[0]))))
+    goto done;
 
-  new_pos = (hb_internal_glyph_position_t *) realloc (buffer->pos, new_allocated * sizeof (buffer->pos[0]));
-  new_info = (hb_internal_glyph_info_t *) realloc (buffer->info, new_allocated * sizeof (buffer->info[0]));
+  new_pos = (hb_glyph_position_t *) realloc (pos, new_allocated * sizeof (pos[0]));
+  new_info = (hb_glyph_info_t *) realloc (info, new_allocated * sizeof (info[0]));
 
+done:
   if (unlikely (!new_pos || !new_info))
-    buffer->in_error = TRUE;
+    in_error = true;
 
   if (likely (new_pos))
-    buffer->pos = new_pos;
+    pos = new_pos;
 
   if (likely (new_info))
-    buffer->info = new_info;
+    info = new_info;
 
-  buffer->out_info = separate_out ? (hb_internal_glyph_info_t *) buffer->pos : buffer->info;
-  if (likely (!buffer->in_error))
-    buffer->allocated = new_allocated;
-
-  return likely (!buffer->in_error);
-}
+  out_info = separate_out ? (hb_glyph_info_t *) pos : info;
+  if (likely (!in_error))
+    allocated = new_allocated;
 
-static inline hb_bool_t
-_hb_buffer_ensure (hb_buffer_t *buffer, unsigned int size)
-{
-  return likely (size <= buffer->allocated) ? TRUE : _hb_buffer_enlarge (buffer, size);
+  return likely (!in_error);
 }
 
-static inline hb_bool_t
-_hb_buffer_ensure_separate (hb_buffer_t *buffer, unsigned int size)
+bool
+hb_buffer_t::make_room_for (unsigned int num_in,
+                           unsigned int num_out)
 {
-  if (unlikely (!_hb_buffer_ensure (buffer, size))) return FALSE;
+  if (unlikely (!ensure (out_len + num_out))) return false;
 
-  if (buffer->out_info == buffer->info)
+  if (out_info == info &&
+      out_len + num_out > idx + num_in)
   {
-    assert (buffer->have_output);
+    assert (have_output);
 
-    buffer->out_info = (hb_internal_glyph_info_t *) buffer->pos;
-    memcpy (buffer->out_info, buffer->info, buffer->out_len * sizeof (buffer->out_info[0]));
+    out_info = (hb_glyph_info_t *) pos;
+    memcpy (out_info, info, out_len * sizeof (out_info[0]));
   }
 
-  return TRUE;
+  return true;
 }
 
+void *
+hb_buffer_t::get_scratch_buffer (unsigned int *size)
+{
+  have_output = false;
+  have_positions = false;
+  out_len = 0;
+  *size = allocated * sizeof (pos[0]);
+  return pos;
+}
 
-/* Public API */
 
-hb_buffer_t *
-hb_buffer_create (unsigned int pre_alloc_size)
+/* HarfBuzz-Internal API */
+
+void
+hb_buffer_t::reset (void)
 {
-  hb_buffer_t *buffer;
+  if (unlikely (hb_object_is_inert (this)))
+    return;
 
-  if (!HB_OBJECT_DO_CREATE (hb_buffer_t, buffer))
-    return &_hb_buffer_nil;
+  hb_unicode_funcs_destroy (unicode);
+  unicode = _HB_BUFFER_UNICODE_FUNCS_DEFAULT;
 
-  if (pre_alloc_size)
-    _hb_buffer_ensure (buffer, pre_alloc_size);
+  hb_segment_properties_t default_props = _HB_BUFFER_PROPS_DEFAULT;
+  props = default_props;
 
-  buffer->unicode = &_hb_unicode_funcs_nil;
+  in_error = false;
+  have_output = false;
+  have_positions = false;
 
-  return buffer;
+  idx = 0;
+  len = 0;
+  out_len = 0;
+
+  serial = 0;
+  memset (allocated_var_bytes, 0, sizeof allocated_var_bytes);
+  memset (allocated_var_owner, 0, sizeof allocated_var_owner);
+
+  out_info = info;
 }
 
-hb_buffer_t *
-hb_buffer_reference (hb_buffer_t *buffer)
+void
+hb_buffer_t::add (hb_codepoint_t  codepoint,
+                 hb_mask_t       mask,
+                 unsigned int    cluster)
 {
-  HB_OBJECT_DO_REFERENCE (buffer);
+  hb_glyph_info_t *glyph;
+
+  if (unlikely (!ensure (len + 1))) return;
+
+  glyph = &info[len];
+
+  memset (glyph, 0, sizeof (*glyph));
+  glyph->codepoint = codepoint;
+  glyph->mask = mask;
+  glyph->cluster = cluster;
+
+  len++;
 }
 
-unsigned int
-hb_buffer_get_reference_count (hb_buffer_t *buffer)
+void
+hb_buffer_t::clear_output (void)
 {
-  HB_OBJECT_DO_GET_REFERENCE_COUNT (buffer);
+  if (unlikely (hb_object_is_inert (this)))
+    return;
+
+  have_output = true;
+  have_positions = false;
+
+  out_len = 0;
+  out_info = info;
 }
 
 void
-hb_buffer_destroy (hb_buffer_t *buffer)
+hb_buffer_t::clear_positions (void)
 {
-  HB_OBJECT_DO_DESTROY (buffer);
-
-  hb_unicode_funcs_destroy (buffer->unicode);
+  if (unlikely (hb_object_is_inert (this)))
+    return;
 
-  free (buffer->info);
-  free (buffer->pos);
+  have_output = false;
+  have_positions = true;
 
-  free (buffer);
+  memset (pos, 0, sizeof (pos[0]) * len);
 }
 
-
 void
-hb_buffer_set_unicode_funcs (hb_buffer_t        *buffer,
-                            hb_unicode_funcs_t *unicode)
+hb_buffer_t::swap_buffers (void)
 {
-  if (!unicode)
-    unicode = &_hb_unicode_funcs_nil;
+  if (unlikely (in_error)) return;
 
-  hb_unicode_funcs_reference (unicode);
-  hb_unicode_funcs_destroy (buffer->unicode);
-  buffer->unicode = unicode;
+  assert (have_output);
+  have_output = false;
+
+  if (out_info != info)
+  {
+    hb_glyph_info_t *tmp_string;
+    tmp_string = info;
+    info = out_info;
+    out_info = tmp_string;
+    pos = (hb_glyph_position_t *) out_info;
+  }
+
+  unsigned int tmp;
+  tmp = len;
+  len = out_len;
+  out_len = tmp;
+
+  idx = 0;
 }
 
-hb_unicode_funcs_t *
-hb_buffer_get_unicode_funcs (hb_buffer_t        *buffer)
+void
+hb_buffer_t::replace_glyphs_be16 (unsigned int num_in,
+                                 unsigned int num_out,
+                                 const uint16_t *glyph_data_be)
 {
-  return buffer->unicode;
+  if (!make_room_for (num_in, num_out)) return;
+
+  hb_glyph_info_t orig_info = info[idx];
+  for (unsigned int i = 1; i < num_in; i++)
+  {
+    hb_glyph_info_t *inf = &info[idx + i];
+    orig_info.cluster = MIN (orig_info.cluster, inf->cluster);
+  }
+
+  hb_glyph_info_t *pinfo = &out_info[out_len];
+  for (unsigned int i = 0; i < num_out; i++)
+  {
+    *pinfo = orig_info;
+    pinfo->codepoint = hb_be_uint16 (glyph_data_be[i]);
+    pinfo++;
+  }
+
+  idx  += num_in;
+  out_len += num_out;
 }
 
 void
-hb_buffer_set_direction (hb_buffer_t    *buffer,
-                        hb_direction_t  direction)
-
+hb_buffer_t::replace_glyphs (unsigned int num_in,
+                            unsigned int num_out,
+                            const uint32_t *glyph_data)
 {
-  buffer->props.direction = direction;
+  if (!make_room_for (num_in, num_out)) return;
+
+  hb_glyph_info_t orig_info = info[idx];
+  for (unsigned int i = 1; i < num_in; i++)
+  {
+    hb_glyph_info_t *inf = &info[idx + i];
+    orig_info.cluster = MIN (orig_info.cluster, inf->cluster);
+  }
+
+  hb_glyph_info_t *pinfo = &out_info[out_len];
+  for (unsigned int i = 0; i < num_out; i++)
+  {
+    *pinfo = orig_info;
+    pinfo->codepoint = glyph_data[i];
+    pinfo++;
+  }
+
+  idx  += num_in;
+  out_len += num_out;
 }
 
-hb_direction_t
-hb_buffer_get_direction (hb_buffer_t    *buffer)
+void
+hb_buffer_t::output_glyph (hb_codepoint_t glyph_index)
 {
-  return buffer->props.direction;
+  if (!make_room_for (0, 1)) return;
+
+  out_info[out_len] = info[idx];
+  out_info[out_len].codepoint = glyph_index;
+
+  out_len++;
 }
 
 void
-hb_buffer_set_script (hb_buffer_t *buffer,
-                     hb_script_t  script)
+hb_buffer_t::copy_glyph (void)
 {
-  buffer->props.script = script;
+  if (!make_room_for (0, 1)) return;
+
+  out_info[out_len] = info[idx];
+
+  out_len++;
 }
 
-hb_script_t
-hb_buffer_get_script (hb_buffer_t *buffer)
+void
+hb_buffer_t::replace_glyph (hb_codepoint_t glyph_index)
 {
-  return buffer->props.script;
+  if (!make_room_for (1, 1)) return;
+
+  out_info[out_len] = info[idx];
+  out_info[out_len].codepoint = glyph_index;
+
+  idx++;
+  out_len++;
 }
 
 void
-hb_buffer_set_language (hb_buffer_t   *buffer,
-                       hb_language_t  language)
+hb_buffer_t::next_glyph (void)
 {
-  buffer->props.language = language;
+  if (have_output)
+  {
+    if (out_info != info)
+    {
+      if (unlikely (!ensure (out_len + 1))) return;
+      out_info[out_len] = info[idx];
+    }
+    else if (out_len != idx)
+      out_info[out_len] = info[idx];
+
+    out_len++;
+  }
+
+  idx++;
 }
 
-hb_language_t
-hb_buffer_get_language (hb_buffer_t *buffer)
+void
+hb_buffer_t::set_masks (hb_mask_t    value,
+                       hb_mask_t    mask,
+                       unsigned int cluster_start,
+                       unsigned int cluster_end)
 {
-  return buffer->props.language;
-}
+  hb_mask_t not_mask = ~mask;
+  value &= mask;
 
+  if (!mask)
+    return;
+
+  if (cluster_start == 0 && cluster_end == (unsigned int)-1) {
+    unsigned int count = len;
+    for (unsigned int i = 0; i < count; i++)
+      info[i].mask = (info[i].mask & not_mask) | value;
+    return;
+  }
+
+  unsigned int count = len;
+  for (unsigned int i = 0; i < count; i++)
+    if (cluster_start <= info[i].cluster && info[i].cluster < cluster_end)
+      info[i].mask = (info[i].mask & not_mask) | value;
+}
 
 void
-hb_buffer_clear (hb_buffer_t *buffer)
+hb_buffer_t::reverse_range (unsigned int start,
+                           unsigned int end)
 {
-  buffer->have_output = FALSE;
-  buffer->have_positions = FALSE;
-  buffer->in_error = FALSE;
-  buffer->len = 0;
-  buffer->out_len = 0;
-  buffer->i = 0;
-  buffer->out_info = buffer->info;
-  buffer->max_lig_id = 0;
+  unsigned int i, j;
+
+  if (start == end - 1)
+    return;
+
+  for (i = start, j = end - 1; i < j; i++, j--) {
+    hb_glyph_info_t t;
+
+    t = info[i];
+    info[i] = info[j];
+    info[j] = t;
+  }
+
+  if (pos) {
+    for (i = start, j = end - 1; i < j; i++, j--) {
+      hb_glyph_position_t t;
+
+      t = pos[i];
+      pos[i] = pos[j];
+      pos[j] = t;
+    }
+  }
 }
 
-hb_bool_t
-hb_buffer_ensure (hb_buffer_t *buffer, unsigned int size)
+void
+hb_buffer_t::reverse (void)
 {
-  return _hb_buffer_ensure (buffer, size);
+  if (unlikely (!len))
+    return;
+
+  reverse_range (0, len);
 }
 
 void
-hb_buffer_add_glyph (hb_buffer_t    *buffer,
-                    hb_codepoint_t  codepoint,
-                    hb_mask_t       mask,
-                    unsigned int    cluster)
+hb_buffer_t::reverse_clusters (void)
 {
-  hb_internal_glyph_info_t *glyph;
+  unsigned int i, start, count, last_cluster;
 
-  if (unlikely (!_hb_buffer_ensure (buffer, buffer->len + 1))) return;
+  if (unlikely (!len))
+    return;
 
-  glyph = &buffer->info[buffer->len];
-  glyph->codepoint = codepoint;
-  glyph->mask = mask;
-  glyph->cluster = cluster;
-  glyph->component = 0;
-  glyph->lig_id = 0;
-  glyph->gproperty = HB_BUFFER_GLYPH_PROPERTIES_UNKNOWN;
+  reverse ();
 
-  buffer->len++;
+  count = len;
+  start = 0;
+  last_cluster = info[0].cluster;
+  for (i = 1; i < count; i++) {
+    if (last_cluster != info[i].cluster) {
+      reverse_range (start, i);
+      start = i;
+      last_cluster = info[i].cluster;
+    }
+  }
+  reverse_range (start, i);
 }
 
 void
-hb_buffer_clear_positions (hb_buffer_t *buffer)
+hb_buffer_t::merge_clusters (unsigned int start,
+                            unsigned int end)
 {
-  _hb_buffer_clear_output (buffer);
-  buffer->have_output = FALSE;
-  buffer->have_positions = TRUE;
+  unsigned int cluster = this->info[start].cluster;
 
-  if (unlikely (!buffer->pos))
-  {
-    buffer->pos = (hb_internal_glyph_position_t *) calloc (buffer->allocated, sizeof (buffer->pos[0]));
-    return;
+  for (unsigned int i = start + 1; i < end; i++)
+    cluster = MIN (cluster, this->info[i].cluster);
+  for (unsigned int i = start; i < end; i++)
+    this->info[i].cluster = cluster;
+}
+void
+hb_buffer_t::merge_out_clusters (unsigned int start,
+                                unsigned int end)
+{
+  unsigned int cluster = this->out_info[start].cluster;
+
+  for (unsigned int i = start + 1; i < end; i++)
+    cluster = MIN (cluster, this->out_info[i].cluster);
+  for (unsigned int i = start; i < end; i++)
+    this->out_info[i].cluster = cluster;
+}
+
+void
+hb_buffer_t::guess_properties (void)
+{
+  /* If script is set to INVALID, guess from buffer contents */
+  if (props.script == HB_SCRIPT_INVALID) {
+    for (unsigned int i = 0; i < len; i++) {
+      hb_script_t script = hb_unicode_script (unicode, info[i].codepoint);
+      if (likely (script != HB_SCRIPT_COMMON &&
+                 script != HB_SCRIPT_INHERITED &&
+                 script != HB_SCRIPT_UNKNOWN)) {
+        props.script = script;
+        break;
+      }
+    }
   }
 
-  memset (buffer->pos, 0, sizeof (buffer->pos[0]) * buffer->len);
+  /* If direction is set to INVALID, guess from script */
+  if (props.direction == HB_DIRECTION_INVALID) {
+    props.direction = hb_script_get_horizontal_direction (props.script);
+  }
+
+  /* If language is not set, use default language from locale */
+  if (props.language == HB_LANGUAGE_INVALID) {
+    /* TODO get_default_for_script? using $LANGUAGE */
+    props.language = hb_language_get_default ();
+  }
 }
 
-/* HarfBuzz-Internal API */
 
-void
-_hb_buffer_clear_output (hb_buffer_t *buffer)
+static inline void
+dump_var_allocation (const hb_buffer_t *buffer)
 {
-  buffer->have_output = TRUE;
-  buffer->have_positions = FALSE;
-  buffer->out_len = 0;
-  buffer->out_info = buffer->info;
+  char buf[80];
+  for (unsigned int i = 0; i < 8; i++)
+    buf[i] = '0' + buffer->allocated_var_bytes[7 - i];
+  buf[8] = '\0';
+  DEBUG_MSG (BUFFER, buffer,
+            "Current var allocation: %s",
+            buf);
 }
 
-void
-_hb_buffer_swap (hb_buffer_t *buffer)
+void hb_buffer_t::allocate_var (unsigned int byte_i, unsigned int count, const char *owner)
 {
-  unsigned int tmp;
+  assert (byte_i < 8 && byte_i + count <= 8);
+
+  if (DEBUG (BUFFER))
+    dump_var_allocation (this);
+  DEBUG_MSG (BUFFER, this,
+            "Allocating var bytes %d..%d for %s",
+            byte_i, byte_i + count - 1, owner);
+
+  for (unsigned int i = byte_i; i < byte_i + count; i++) {
+    assert (!allocated_var_bytes[i]);
+    allocated_var_bytes[i]++;
+    allocated_var_owner[i] = owner;
+  }
+}
 
-  assert (buffer->have_output);
+void hb_buffer_t::deallocate_var (unsigned int byte_i, unsigned int count, const char *owner)
+{
+  if (DEBUG (BUFFER))
+    dump_var_allocation (this);
 
-  if (unlikely (buffer->in_error)) return;
+  DEBUG_MSG (BUFFER, this,
+            "Deallocating var bytes %d..%d for %s",
+            byte_i, byte_i + count - 1, owner);
 
-  if (buffer->out_info != buffer->info)
-  {
-    hb_internal_glyph_info_t *tmp_string;
-    tmp_string = buffer->info;
-    buffer->info = buffer->out_info;
-    buffer->out_info = tmp_string;
-    buffer->pos = (hb_internal_glyph_position_t *) buffer->out_info;
+  assert (byte_i < 8 && byte_i + count <= 8);
+  for (unsigned int i = byte_i; i < byte_i + count; i++) {
+    assert (allocated_var_bytes[i]);
+    assert (0 == strcmp (allocated_var_owner[i], owner));
+    allocated_var_bytes[i]--;
   }
+}
+
+void hb_buffer_t::deallocate_var_all (void)
+{
+  memset (allocated_var_bytes, 0, sizeof (allocated_var_bytes));
+  memset (allocated_var_owner, 0, sizeof (allocated_var_owner));
+}
+
+/* Public API */
+
+hb_buffer_t *
+hb_buffer_create ()
+{
+  hb_buffer_t *buffer;
+
+  if (!(buffer = hb_object_create<hb_buffer_t> ()))
+    return hb_buffer_get_empty ();
 
-  tmp = buffer->len;
-  buffer->len = buffer->out_len;
-  buffer->out_len = tmp;
+  buffer->reset ();
 
-  buffer->i = 0;
+  return buffer;
 }
 
-/* The following function copies `num_out' elements from `glyph_data'
-   to `buffer->out_info', advancing the in array pointer in the structure
-   by `num_in' elements, and the out array pointer by `num_out' elements.
-   Finally, it sets the `length' field of `out' equal to
-   `pos' of the `out' structure.
+hb_buffer_t *
+hb_buffer_get_empty (void)
+{
+  static const hb_buffer_t _hb_buffer_nil = {
+    HB_OBJECT_HEADER_STATIC,
 
-   If `component' is 0xFFFF, the component value from buffer->i
-   will copied `num_out' times, otherwise `component' itself will
-   be used to fill the `component' fields.
+    _HB_BUFFER_UNICODE_FUNCS_DEFAULT,
+    _HB_BUFFER_PROPS_DEFAULT,
 
-   If `lig_id' is 0xFFFF, the lig_id value from buffer->i
-   will copied `num_out' times, otherwise `lig_id' itself will
-   be used to fill the `lig_id' fields.
+    true, /* in_error */
+    true, /* have_output */
+    true  /* have_positions */
+  };
 
-   The mask for all replacement glyphs are taken
-   from the glyph at position `buffer->i'.
+  return const_cast<hb_buffer_t *> (&_hb_buffer_nil);
+}
 
-   The cluster value for the glyph at position buffer->i is used
-   for all replacement glyphs */
+hb_buffer_t *
+hb_buffer_reference (hb_buffer_t *buffer)
+{
+  return hb_object_reference (buffer);
+}
 
 void
-_hb_buffer_add_output_glyphs (hb_buffer_t *buffer,
-                             unsigned int num_in,
-                             unsigned int num_out,
-                             const hb_codepoint_t *glyph_data,
-                             unsigned short component,
-                             unsigned short lig_id)
-{
-  unsigned int i;
-  unsigned int mask;
-  unsigned int cluster;
-
-  if (buffer->out_info != buffer->info ||
-      buffer->out_len + num_out > buffer->i + num_in)
-  {
-    if (unlikely (!_hb_buffer_ensure_separate (buffer, buffer->out_len + num_out)))
-      return;
-  }
+hb_buffer_destroy (hb_buffer_t *buffer)
+{
+  if (!hb_object_destroy (buffer)) return;
 
-  mask = buffer->info[buffer->i].mask;
-  cluster = buffer->info[buffer->i].cluster;
-  if (component == 0xFFFF)
-    component = buffer->info[buffer->i].component;
-  if (lig_id == 0xFFFF)
-    lig_id = buffer->info[buffer->i].lig_id;
+  hb_unicode_funcs_destroy (buffer->unicode);
 
-  for (i = 0; i < num_out; i++)
-  {
-    hb_internal_glyph_info_t *info = &buffer->out_info[buffer->out_len + i];
-    info->codepoint = glyph_data[i];
-    info->mask = mask;
-    info->cluster = cluster;
-    info->component = component;
-    info->lig_id = lig_id;
-    info->gproperty = HB_BUFFER_GLYPH_PROPERTIES_UNKNOWN;
-  }
+  free (buffer->info);
+  free (buffer->pos);
+
+  free (buffer);
+}
+
+hb_bool_t
+hb_buffer_set_user_data (hb_buffer_t        *buffer,
+                        hb_user_data_key_t *key,
+                        void *              data,
+                        hb_destroy_func_t   destroy,
+                        hb_bool_t           replace)
+{
+  return hb_object_set_user_data (buffer, key, data, destroy, replace);
+}
 
-  buffer->i  += num_in;
-  buffer->out_len += num_out;
+void *
+hb_buffer_get_user_data (hb_buffer_t        *buffer,
+                        hb_user_data_key_t *key)
+{
+  return hb_object_get_user_data (buffer, key);
 }
 
+
 void
-_hb_buffer_add_output_glyphs_be16 (hb_buffer_t *buffer,
-                                  unsigned int num_in,
-                                  unsigned int num_out,
-                                  const uint16_t *glyph_data_be,
-                                  unsigned short component,
-                                  unsigned short lig_id)
-{
-  unsigned int i;
-  unsigned int mask;
-  unsigned int cluster;
-
-  if (buffer->out_info != buffer->info ||
-      buffer->out_len + num_out > buffer->i + num_in)
-  {
-    if (unlikely (!_hb_buffer_ensure_separate (buffer, buffer->out_len + num_out)))
-      return;
-  }
+hb_buffer_set_unicode_funcs (hb_buffer_t        *buffer,
+                            hb_unicode_funcs_t *unicode)
+{
+  if (unlikely (hb_object_is_inert (buffer)))
+    return;
 
-  mask = buffer->info[buffer->i].mask;
-  cluster = buffer->info[buffer->i].cluster;
-  if (component == 0xFFFF)
-    component = buffer->info[buffer->i].component;
-  if (lig_id == 0xFFFF)
-    lig_id = buffer->info[buffer->i].lig_id;
+  if (!unicode)
+    unicode = _HB_BUFFER_UNICODE_FUNCS_DEFAULT;
 
-  for (i = 0; i < num_out; i++)
-  {
-    hb_internal_glyph_info_t *info = &buffer->out_info[buffer->out_len + i];
-    info->codepoint = hb_be_uint16 (glyph_data_be[i]);
-    info->mask = mask;
-    info->cluster = cluster;
-    info->component = component;
-    info->lig_id = lig_id;
-    info->gproperty = HB_BUFFER_GLYPH_PROPERTIES_UNKNOWN;
-  }
+  hb_unicode_funcs_reference (unicode);
+  hb_unicode_funcs_destroy (buffer->unicode);
+  buffer->unicode = unicode;
+}
 
-  buffer->i  += num_in;
-  buffer->out_len += num_out;
+hb_unicode_funcs_t *
+hb_buffer_get_unicode_funcs (hb_buffer_t        *buffer)
+{
+  return buffer->unicode;
 }
 
 void
-_hb_buffer_add_output_glyph (hb_buffer_t *buffer,
-                            hb_codepoint_t glyph_index,
-                            unsigned short component,
-                            unsigned short lig_id)
-{
-  hb_internal_glyph_info_t *info;
+hb_buffer_set_direction (hb_buffer_t    *buffer,
+                        hb_direction_t  direction)
 
-  if (buffer->out_info != buffer->info)
-  {
-    if (unlikely (!_hb_buffer_ensure (buffer, buffer->out_len + 1))) return;
-    buffer->out_info[buffer->out_len] = buffer->info[buffer->i];
-  }
-  else if (buffer->out_len != buffer->i)
-    buffer->out_info[buffer->out_len] = buffer->info[buffer->i];
+{
+  if (unlikely (hb_object_is_inert (buffer)))
+    return;
 
-  info = &buffer->out_info[buffer->out_len];
-  info->codepoint = glyph_index;
-  if (component != 0xFFFF)
-    info->component = component;
-  if (lig_id != 0xFFFF)
-    info->lig_id = lig_id;
-  info->gproperty = HB_BUFFER_GLYPH_PROPERTIES_UNKNOWN;
+  buffer->props.direction = direction;
+}
 
-  buffer->i++;
-  buffer->out_len++;
+hb_direction_t
+hb_buffer_get_direction (hb_buffer_t    *buffer)
+{
+  return buffer->props.direction;
 }
 
 void
-_hb_buffer_next_glyph (hb_buffer_t *buffer)
+hb_buffer_set_script (hb_buffer_t *buffer,
+                     hb_script_t  script)
 {
-  if (buffer->have_output)
-  {
-    if (buffer->out_info != buffer->info)
-    {
-      if (unlikely (!_hb_buffer_ensure (buffer, buffer->out_len + 1))) return;
-      buffer->out_info[buffer->out_len] = buffer->info[buffer->i];
-    }
-    else if (buffer->out_len != buffer->i)
-      buffer->out_info[buffer->out_len] = buffer->info[buffer->i];
+  if (unlikely (hb_object_is_inert (buffer)))
+    return;
 
-    buffer->out_len++;
-  }
+  buffer->props.script = script;
+}
 
-  buffer->i++;
+hb_script_t
+hb_buffer_get_script (hb_buffer_t *buffer)
+{
+  return buffer->props.script;
 }
 
 void
-_hb_buffer_reset_masks (hb_buffer_t *buffer,
-                       hb_mask_t    mask)
+hb_buffer_set_language (hb_buffer_t   *buffer,
+                       hb_language_t  language)
 {
-  unsigned int count = buffer->len;
-  for (unsigned int i = 0; i < count; i++)
-    buffer->info[i].mask = 1;
+  if (unlikely (hb_object_is_inert (buffer)))
+    return;
+
+  buffer->props.language = language;
 }
 
+hb_language_t
+hb_buffer_get_language (hb_buffer_t *buffer)
+{
+  return buffer->props.language;
+}
+
+
 void
-_hb_buffer_add_masks (hb_buffer_t *buffer,
-                     hb_mask_t    value,
-                     hb_mask_t    mask,
-                     unsigned int cluster_start,
-                     unsigned int cluster_end)
+hb_buffer_reset (hb_buffer_t *buffer)
 {
-  hb_mask_t not_mask = ~mask;
+  buffer->reset ();
+}
 
-  if (cluster_start == 0 && cluster_end == (unsigned int)-1) {
-    unsigned int count = buffer->len;
-    for (unsigned int i = 0; i < count; i++)
-      buffer->info[i].mask = (buffer->info[i].mask & not_mask) | value;
-    return;
-  }
+hb_bool_t
+hb_buffer_pre_allocate (hb_buffer_t *buffer, unsigned int size)
+{
+  return buffer->ensure (size);
+}
 
-  /* XXX can't bsearch since .cluster may not be sorted. */
-  /* Binary search to find the start position and go from there. */
-  unsigned int min = 0, max = buffer->len;
-  while (min < max)
-  {
-    unsigned int mid = min + ((max - min) / 2);
-    if (buffer->info[mid].cluster < cluster_start)
-      min = mid + 1;
-    else
-      max = mid;
-  }
-  unsigned int count = buffer->len;
-  for (unsigned int i = min; i < count && buffer->info[i].cluster < cluster_end; i++)
-    buffer->info[i].mask = (buffer->info[i].mask & not_mask) | value;
+hb_bool_t
+hb_buffer_allocation_successful (hb_buffer_t  *buffer)
+{
+  return !buffer->in_error;
+}
+
+void
+hb_buffer_add (hb_buffer_t    *buffer,
+              hb_codepoint_t  codepoint,
+              hb_mask_t       mask,
+              unsigned int    cluster)
+{
+  buffer->add (codepoint, mask, cluster);
 }
 
+hb_bool_t
+hb_buffer_set_length (hb_buffer_t  *buffer,
+                     unsigned int  length)
+{
+  if (unlikely (hb_object_is_inert (buffer)))
+    return length == 0;
+
+  if (!buffer->ensure (length))
+    return false;
 
-/* Public API again */
+  /* Wipe the new space */
+  if (length > buffer->len) {
+    memset (buffer->info + buffer->len, 0, sizeof (buffer->info[0]) * (length - buffer->len));
+    if (buffer->have_positions)
+      memset (buffer->pos + buffer->len, 0, sizeof (buffer->pos[0]) * (length - buffer->len));
+  }
+
+  buffer->len = length;
+  return true;
+}
 
 unsigned int
 hb_buffer_get_length (hb_buffer_t *buffer)
@@ -511,90 +719,67 @@ hb_buffer_get_length (hb_buffer_t *buffer)
 
 /* Return value valid as long as buffer not modified */
 hb_glyph_info_t *
-hb_buffer_get_glyph_infos (hb_buffer_t *buffer)
+hb_buffer_get_glyph_infos (hb_buffer_t  *buffer,
+                           unsigned int *length)
 {
+  if (length)
+    *length = buffer->len;
+
   return (hb_glyph_info_t *) buffer->info;
 }
 
 /* Return value valid as long as buffer not modified */
 hb_glyph_position_t *
-hb_buffer_get_glyph_positions (hb_buffer_t *buffer)
+hb_buffer_get_glyph_positions (hb_buffer_t  *buffer,
+                               unsigned int *length)
 {
   if (!buffer->have_positions)
-    hb_buffer_clear_positions (buffer);
-
-  return (hb_glyph_position_t *) buffer->pos;
-}
-
-
-static void
-reverse_range (hb_buffer_t *buffer,
-              unsigned int start,
-              unsigned int end)
-{
-  unsigned int i, j;
-
-  for (i = start, j = end - 1; i < j; i++, j--) {
-    hb_internal_glyph_info_t t;
-
-    t = buffer->info[i];
-    buffer->info[i] = buffer->info[j];
-    buffer->info[j] = t;
-  }
+    buffer->clear_positions ();
 
-  if (buffer->pos) {
-    for (i = 0, j = end - 1; i < j; i++, j--) {
-      hb_internal_glyph_position_t t;
+  if (length)
+    *length = buffer->len;
 
-      t = buffer->pos[i];
-      buffer->pos[i] = buffer->pos[j];
-      buffer->pos[j] = t;
-    }
-  }
+  return (hb_glyph_position_t *) buffer->pos;
 }
 
 void
 hb_buffer_reverse (hb_buffer_t *buffer)
 {
-  if (unlikely (!buffer->len))
-    return;
-
-  reverse_range (buffer, 0, buffer->len);
+  buffer->reverse ();
 }
 
 void
 hb_buffer_reverse_clusters (hb_buffer_t *buffer)
 {
-  unsigned int i, start, count, last_cluster;
-
-  if (unlikely (!buffer->len))
-    return;
-
-  hb_buffer_reverse (buffer);
-
-  count = buffer->len;
-  start = 0;
-  last_cluster = buffer->info[0].cluster;
-  for (i = 1; i < count; i++) {
-    if (last_cluster != buffer->info[i].cluster) {
-      reverse_range (buffer, start, i);
-      start = i;
-      last_cluster = buffer->info[i].cluster;
-    }
-  }
-  reverse_range (buffer, start, i);
+  buffer->reverse_clusters ();
 }
 
+void
+hb_buffer_guess_properties (hb_buffer_t *buffer)
+{
+  buffer->guess_properties ();
+}
 
 #define ADD_UTF(T) \
        HB_STMT_START { \
+         if (text_length == -1) { \
+           text_length = 0; \
+           const T *p = (const T *) text; \
+           while (*p) { \
+             text_length++; \
+             p++; \
+           } \
+         } \
+         if (item_length == -1) \
+           item_length = text_length - item_offset; \
+         buffer->ensure (buffer->len + item_length * sizeof (T) / 4); \
          const T *next = (const T *) text + item_offset; \
          const T *end = next + item_length; \
          while (next < end) { \
            hb_codepoint_t u; \
            const T *old_next = next; \
            next = UTF_NEXT (next, end, u); \
-           hb_buffer_add_glyph (buffer, u, 1,  old_next - (const T *) text); \
+           hb_buffer_add (buffer, u, 1,  old_next - (const T *) text); \
          } \
        } HB_STMT_END
 
@@ -614,7 +799,7 @@ hb_utf8_next (const uint8_t *text,
   uint8_t c = *text;
   unsigned int mask, len;
 
-  /* TODO check for overlong sequences?  also: optimize? */
+  /* TODO check for overlong sequences? */
 
   UTF8_COMPUTE (c, mask, len);
   if (unlikely (!len || (unsigned int) (end - text) < len)) {
@@ -642,9 +827,9 @@ hb_utf8_next (const uint8_t *text,
 void
 hb_buffer_add_utf8 (hb_buffer_t  *buffer,
                    const char   *text,
-                   unsigned int  text_length HB_UNUSED,
+                   int           text_length,
                    unsigned int  item_offset,
-                   unsigned int  item_length)
+                   int           item_length)
 {
 #define UTF_NEXT(S, E, U)      hb_utf8_next (S, E, &(U))
   ADD_UTF (uint8_t);
@@ -661,7 +846,7 @@ hb_utf16_next (const uint16_t *text,
   if (unlikely (c >= 0xd800 && c < 0xdc00)) {
     /* high surrogate */
     uint16_t l;
-    if (text < end && ((l = *text), unlikely (l >= 0xdc00 && l < 0xe000))) {
+    if (text < end && ((l = *text), likely (l >= 0xdc00 && l < 0xe000))) {
       /* low surrogate */
       *unicode = ((hb_codepoint_t) ((c) - 0xd800) * 0x400 + (l) - 0xdc00 + 0x10000);
        text++;
@@ -676,9 +861,9 @@ hb_utf16_next (const uint16_t *text,
 void
 hb_buffer_add_utf16 (hb_buffer_t    *buffer,
                     const uint16_t *text,
-                    unsigned int    text_length HB_UNUSED,
+                    int             text_length,
                     unsigned int    item_offset,
-                    unsigned int    item_length)
+                    int            item_length)
 {
 #define UTF_NEXT(S, E, U)      hb_utf16_next (S, E, &(U))
   ADD_UTF (uint16_t);
@@ -688,9 +873,9 @@ hb_buffer_add_utf16 (hb_buffer_t    *buffer,
 void
 hb_buffer_add_utf32 (hb_buffer_t    *buffer,
                     const uint32_t *text,
-                    unsigned int    text_length HB_UNUSED,
+                    int             text_length,
                     unsigned int    item_offset,
-                    unsigned int    item_length)
+                    int             item_length)
 {
 #define UTF_NEXT(S, E, U)      ((U) = *(S), (S)+1)
   ADD_UTF (uint32_t);
@@ -698,4 +883,3 @@ hb_buffer_add_utf32 (hb_buffer_t    *buffer,
 }
 
 
-HB_END_DECLS