1/*
2 * Copyright �� 2011,2014  Google, Inc.
3 *
4 *  This is part of HarfBuzz, a text shaping library.
5 *
6 * Permission is hereby granted, without written agreement and without
7 * license or royalty fees, to use, copy, modify, and distribute this
8 * software and its documentation for any purpose, provided that the
9 * above copyright notice and the following two paragraphs appear in
10 * all copies of this software.
11 *
12 * IN NO EVENT SHALL THE COPYRIGHT HOLDER BE LIABLE TO ANY PARTY FOR
13 * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
14 * ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN
15 * IF THE COPYRIGHT HOLDER HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
16 * DAMAGE.
17 *
18 * THE COPYRIGHT HOLDER SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING,
19 * BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
20 * FITNESS FOR A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS
21 * ON AN "AS IS" BASIS, AND THE COPYRIGHT HOLDER HAS NO OBLIGATION TO
22 * PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
23 *
24 * Google Author(s): Behdad Esfahbod, Roozbeh Pournader
25 */
26
27#include "hb-private.hh"
28
29#include "hb-ot.h"
30
31#include "hb-font-private.hh"
32
33#include "hb-ot-cmap-table.hh"
34#include "hb-ot-cbdt-table.hh"
35#include "hb-ot-glyf-table.hh"
36#include "hb-ot-head-table.hh"
37#include "hb-ot-hhea-table.hh"
38#include "hb-ot-hmtx-table.hh"
39#include "hb-ot-os2-table.hh"
40//#include "hb-ot-post-table.hh"
41
42
43struct hb_ot_face_metrics_accelerator_t
44{
45  unsigned int num_metrics;
46  unsigned int num_advances;
47  unsigned int default_advance;
48  unsigned short ascender;
49  unsigned short descender;
50  unsigned short line_gap;
51  bool has_font_extents;
52
53  const OT::_mtx *table;
54  hb_blob_t *blob;
55
56  inline void init (hb_face_t *face,
57                    hb_tag_t _hea_tag,
58                    hb_tag_t _mtx_tag,
59                    hb_tag_t os2_tag,
60                    unsigned int default_advance = 0)
61  {
62    this->default_advance = default_advance ? default_advance : face->get_upem ();
63
64    bool got_font_extents = false;
65    if (os2_tag)
66    {
67      hb_blob_t *os2_blob = OT::Sanitizer<OT::os2>::sanitize (face->reference_table (os2_tag));
68      const OT::os2 *os2 = OT::Sanitizer<OT::os2>::lock_instance (os2_blob);
69#define USE_TYPO_METRICS (1u<<7)
70      if (0 != (os2->fsSelection & USE_TYPO_METRICS))
71      {
72        this->ascender = os2->sTypoAscender;
73        this->descender = os2->sTypoDescender;
74        this->line_gap = os2->sTypoLineGap;
75        got_font_extents = (this->ascender | this->descender) != 0;
76      }
77      hb_blob_destroy (os2_blob);
78    }
79
80    hb_blob_t *_hea_blob = OT::Sanitizer<OT::_hea>::sanitize (face->reference_table (_hea_tag));
81    const OT::_hea *_hea = OT::Sanitizer<OT::_hea>::lock_instance (_hea_blob);
82    this->num_advances = _hea->numberOfLongMetrics;
83    if (!got_font_extents)
84    {
85      this->ascender = _hea->ascender;
86      this->descender = _hea->descender;
87      this->line_gap = _hea->lineGap;
88      got_font_extents = (this->ascender | this->descender) != 0;
89    }
90    hb_blob_destroy (_hea_blob);
91
92    this->has_font_extents = got_font_extents;
93
94    this->blob = OT::Sanitizer<OT::_mtx>::sanitize (face->reference_table (_mtx_tag));
95
96    /* Cap num_metrics() and num_advances() based on table length. */
97    unsigned int len = hb_blob_get_length (this->blob);
98    if (unlikely (this->num_advances * 4 > len))
99      this->num_advances = len / 4;
100    this->num_metrics = this->num_advances + (len - 4 * this->num_advances) / 2;
101
102    /* We MUST set num_metrics to zero if num_advances is zero.
103     * Our get_advance() depends on that. */
104    if (unlikely (!this->num_advances))
105    {
106      this->num_metrics = this->num_advances = 0;
107      hb_blob_destroy (this->blob);
108      this->blob = hb_blob_get_empty ();
109    }
110    this->table = OT::Sanitizer<OT::_mtx>::lock_instance (this->blob);
111  }
112
113  inline void fini (void)
114  {
115    hb_blob_destroy (this->blob);
116  }
117
118  inline unsigned int get_advance (hb_codepoint_t glyph) const
119  {
120    if (unlikely (glyph >= this->num_metrics))
121    {
122      /* If this->num_metrics is zero, it means we don't have the metrics table
123       * for this direction: return default advance.  Otherwise, it means that the
124       * glyph index is out of bound: return zero. */
125      if (this->num_metrics)
126        return 0;
127      else
128        return this->default_advance;
129    }
130
131    if (glyph >= this->num_advances)
132      glyph = this->num_advances - 1;
133
134    return this->table->longMetric[glyph].advance;
135  }
136};
137
138struct hb_ot_face_glyf_accelerator_t
139{
140  bool short_offset;
141  unsigned int num_glyphs;
142  const OT::loca *loca;
143  const OT::glyf *glyf;
144  hb_blob_t *loca_blob;
145  hb_blob_t *glyf_blob;
146  unsigned int glyf_len;
147
148  inline void init (hb_face_t *face)
149  {
150    hb_blob_t *head_blob = OT::Sanitizer<OT::head>::sanitize (face->reference_table (HB_OT_TAG_head));
151    const OT::head *head = OT::Sanitizer<OT::head>::lock_instance (head_blob);
152    if ((unsigned int) head->indexToLocFormat > 1 || head->glyphDataFormat != 0)
153    {
154      /* Unknown format.  Leave num_glyphs=0, that takes care of disabling us. */
155      hb_blob_destroy (head_blob);
156      return;
157    }
158    this->short_offset = 0 == head->indexToLocFormat;
159    hb_blob_destroy (head_blob);
160
161    this->loca_blob = OT::Sanitizer<OT::loca>::sanitize (face->reference_table (HB_OT_TAG_loca));
162    this->loca = OT::Sanitizer<OT::loca>::lock_instance (this->loca_blob);
163    this->glyf_blob = OT::Sanitizer<OT::glyf>::sanitize (face->reference_table (HB_OT_TAG_glyf));
164    this->glyf = OT::Sanitizer<OT::glyf>::lock_instance (this->glyf_blob);
165
166    this->num_glyphs = MAX (1u, hb_blob_get_length (this->loca_blob) / (this->short_offset ? 2 : 4)) - 1;
167    this->glyf_len = hb_blob_get_length (this->glyf_blob);
168  }
169
170  inline void fini (void)
171  {
172    hb_blob_destroy (this->loca_blob);
173    hb_blob_destroy (this->glyf_blob);
174  }
175
176  inline bool get_extents (hb_codepoint_t glyph,
177                           hb_glyph_extents_t *extents) const
178  {
179    if (unlikely (glyph >= this->num_glyphs))
180      return false;
181
182    unsigned int start_offset, end_offset;
183    if (this->short_offset)
184    {
185      start_offset = 2 * this->loca->u.shortsZ[glyph];
186      end_offset   = 2 * this->loca->u.shortsZ[glyph + 1];
187    }
188    else
189    {
190      start_offset = this->loca->u.longsZ[glyph];
191      end_offset   = this->loca->u.longsZ[glyph + 1];
192    }
193
194    if (start_offset > end_offset || end_offset > this->glyf_len)
195      return false;
196
197    if (end_offset - start_offset < OT::glyfGlyphHeader::static_size)
198      return true; /* Empty glyph; zero extents. */
199
200    const OT::glyfGlyphHeader &glyph_header = OT::StructAtOffset<OT::glyfGlyphHeader> (this->glyf, start_offset);
201
202    extents->x_bearing = MIN (glyph_header.xMin, glyph_header.xMax);
203    extents->y_bearing = MAX (glyph_header.yMin, glyph_header.yMax);
204    extents->width     = MAX (glyph_header.xMin, glyph_header.xMax) - extents->x_bearing;
205    extents->height    = MIN (glyph_header.yMin, glyph_header.yMax) - extents->y_bearing;
206
207    return true;
208  }
209};
210
211struct hb_ot_face_cbdt_accelerator_t
212{
213  hb_blob_t *cblc_blob;
214  hb_blob_t *cbdt_blob;
215  const OT::CBLC *cblc;
216  const OT::CBDT *cbdt;
217
218  unsigned int cbdt_len;
219  float upem;
220
221  inline void init (hb_face_t *face)
222  {
223    upem = face->get_upem();
224
225    cblc_blob = OT::Sanitizer<OT::CBLC>::sanitize (face->reference_table (HB_OT_TAG_CBLC));
226    cbdt_blob = OT::Sanitizer<OT::CBDT>::sanitize (face->reference_table (HB_OT_TAG_CBDT));
227    cbdt_len = hb_blob_get_length (cbdt_blob);
228
229    if (hb_blob_get_length (cblc_blob) == 0) {
230      cblc = NULL;
231      cbdt = NULL;
232      return;  /* Not a bitmap font. */
233    }
234    cblc = OT::Sanitizer<OT::CBLC>::lock_instance (cblc_blob);
235    cbdt = OT::Sanitizer<OT::CBDT>::lock_instance (cbdt_blob);
236
237  }
238
239  inline void fini (void)
240  {
241    hb_blob_destroy (this->cblc_blob);
242    hb_blob_destroy (this->cbdt_blob);
243  }
244
245  inline bool get_extents (hb_codepoint_t glyph, hb_glyph_extents_t *extents) const
246  {
247    unsigned int x_ppem = upem, y_ppem = upem; /* TODO Use font ppem if available. */
248
249    if (cblc == NULL)
250      return false;  // Not a color bitmap font.
251
252    const OT::IndexSubtableRecord *subtable_record = this->cblc->find_table(glyph, &x_ppem, &y_ppem);
253    if (subtable_record == NULL)
254      return false;
255
256    if (subtable_record->get_extents (extents))
257      return true;
258
259    unsigned int image_offset = 0, image_length = 0, image_format = 0;
260    if (!subtable_record->get_image_data (glyph, &image_offset, &image_length, &image_format))
261      return false;
262
263    {
264      /* TODO Move the following into CBDT struct when adding more formats. */
265
266      if (unlikely (image_offset > cbdt_len || cbdt_len - image_offset < image_length))
267        return false;
268
269      switch (image_format)
270      {
271        case 17: {
272          if (unlikely (image_length < OT::GlyphBitmapDataFormat17::min_size))
273            return false;
274
275          const OT::GlyphBitmapDataFormat17& glyphFormat17 =
276              OT::StructAtOffset<OT::GlyphBitmapDataFormat17> (this->cbdt, image_offset);
277          glyphFormat17.glyphMetrics.get_extents (extents);
278        }
279        break;
280        default:
281          // TODO: Support other image formats.
282          return false;
283      }
284    }
285
286    /* Convert to the font units. */
287    extents->x_bearing *= upem / (float) x_ppem;
288    extents->y_bearing *= upem / (float) y_ppem;
289    extents->width *= upem / (float) x_ppem;
290    extents->height *= upem / (float) y_ppem;
291
292    return true;
293  }
294};
295
296typedef bool (*hb_cmap_get_glyph_func_t) (const void *obj,
297                                          hb_codepoint_t codepoint,
298                                          hb_codepoint_t *glyph);
299
300template <typename Type>
301static inline bool get_glyph_from (const void *obj,
302                                   hb_codepoint_t codepoint,
303                                   hb_codepoint_t *glyph)
304{
305  const Type *typed_obj = (const Type *) obj;
306  return typed_obj->get_glyph (codepoint, glyph);
307}
308
309template <typename Type>
310static inline bool get_glyph_from_symbol (const void *obj,
311                                          hb_codepoint_t codepoint,
312                                          hb_codepoint_t *glyph)
313{
314  const Type *typed_obj = (const Type *) obj;
315  if (likely (typed_obj->get_glyph (codepoint, glyph)))
316    return true;
317
318  if (codepoint <= 0x00FFu)
319  {
320    /* For symbol-encoded OpenType fonts, we duplicate the
321     * U+F000..F0FF range at U+0000..U+00FF.  That's what
322     * Windows seems to do, and that's hinted about at:
323     * http://www.microsoft.com/typography/otspec/recom.htm
324     * under "Non-Standard (Symbol) Fonts". */
325    return typed_obj->get_glyph (0xF000u + codepoint, glyph);
326  }
327
328  return false;
329}
330
331struct hb_ot_face_cmap_accelerator_t
332{
333  hb_cmap_get_glyph_func_t get_glyph_func;
334  const void *get_glyph_data;
335  OT::CmapSubtableFormat4::accelerator_t format4_accel;
336
337  const OT::CmapSubtableFormat14 *uvs_table;
338  hb_blob_t *blob;
339
340  inline void init (hb_face_t *face)
341  {
342    this->blob = OT::Sanitizer<OT::cmap>::sanitize (face->reference_table (HB_OT_TAG_cmap));
343    const OT::cmap *cmap = OT::Sanitizer<OT::cmap>::lock_instance (this->blob);
344    const OT::CmapSubtable *subtable = NULL;
345    const OT::CmapSubtableFormat14 *subtable_uvs = NULL;
346
347    bool symbol = false;
348    /* 32-bit subtables. */
349    if (!subtable) subtable = cmap->find_subtable (3, 10);
350    if (!subtable) subtable = cmap->find_subtable (0, 6);
351    if (!subtable) subtable = cmap->find_subtable (0, 4);
352    /* 16-bit subtables. */
353    if (!subtable) subtable = cmap->find_subtable (3, 1);
354    if (!subtable) subtable = cmap->find_subtable (0, 3);
355    if (!subtable) subtable = cmap->find_subtable (0, 2);
356    if (!subtable) subtable = cmap->find_subtable (0, 1);
357    if (!subtable) subtable = cmap->find_subtable (0, 0);
358    if (!subtable)
359    {
360      subtable = cmap->find_subtable (3, 0);
361      if (subtable) symbol = true;
362    }
363    /* Meh. */
364    if (!subtable) subtable = &OT::Null(OT::CmapSubtable);
365
366    /* UVS subtable. */
367    if (!subtable_uvs)
368    {
369      const OT::CmapSubtable *st = cmap->find_subtable (0, 5);
370      if (st && st->u.format == 14)
371        subtable_uvs = &st->u.format14;
372    }
373    /* Meh. */
374    if (!subtable_uvs) subtable_uvs = &OT::Null(OT::CmapSubtableFormat14);
375
376    this->uvs_table = subtable_uvs;
377
378    this->get_glyph_data = subtable;
379    if (unlikely (symbol))
380      this->get_glyph_func = get_glyph_from_symbol<OT::CmapSubtable>;
381    else
382      switch (subtable->u.format) {
383      /* Accelerate format 4 and format 12. */
384      default: this->get_glyph_func = get_glyph_from<OT::CmapSubtable>;         break;
385      case 12: this->get_glyph_func = get_glyph_from<OT::CmapSubtableFormat12>; break;
386      case  4:
387        {
388          this->format4_accel.init (&subtable->u.format4);
389          this->get_glyph_data = &this->format4_accel;
390          this->get_glyph_func = this->format4_accel.get_glyph_func;
391        }
392        break;
393      }
394  }
395
396  inline void fini (void)
397  {
398    hb_blob_destroy (this->blob);
399  }
400
401  inline bool get_nominal_glyph (hb_codepoint_t  unicode,
402                                 hb_codepoint_t *glyph) const
403  {
404    return this->get_glyph_func (this->get_glyph_data, unicode, glyph);
405  }
406
407  inline bool get_variation_glyph (hb_codepoint_t  unicode,
408                                   hb_codepoint_t  variation_selector,
409                                   hb_codepoint_t *glyph) const
410  {
411    switch (this->uvs_table->get_glyph_variant (unicode,
412                                                variation_selector,
413                                                glyph))
414    {
415      case OT::GLYPH_VARIANT_NOT_FOUND:         return false;
416      case OT::GLYPH_VARIANT_FOUND:             return true;
417      case OT::GLYPH_VARIANT_USE_DEFAULT:       break;
418    }
419
420    return get_nominal_glyph (unicode, glyph);
421  }
422};
423
424template <typename T>
425struct hb_lazy_loader_t
426{
427  inline void init (hb_face_t *face_)
428  {
429    face = face_;
430    instance = NULL;
431  }
432
433  inline void fini (void)
434  {
435    if (instance && instance != &OT::Null(T))
436    {
437      instance->fini();
438      free (instance);
439    }
440  }
441
442  inline const T* operator-> (void) const
443  {
444  retry:
445    T *p = (T *) hb_atomic_ptr_get (&instance);
446    if (unlikely (!p))
447    {
448      p = (T *) calloc (1, sizeof (T));
449      if (unlikely (!p))
450        return &OT::Null(T);
451      p->init (face);
452      if (unlikely (!hb_atomic_ptr_cmpexch (const_cast<T **>(&instance), NULL, p)))
453      {
454        p->fini ();
455        goto retry;
456      }
457    }
458    return p;
459  }
460
461  private:
462  hb_face_t *face;
463  T *instance;
464};
465
466struct hb_ot_font_t
467{
468  hb_ot_face_cmap_accelerator_t cmap;
469  hb_ot_face_metrics_accelerator_t h_metrics;
470  hb_ot_face_metrics_accelerator_t v_metrics;
471  hb_lazy_loader_t<hb_ot_face_glyf_accelerator_t> glyf;
472  hb_lazy_loader_t<hb_ot_face_cbdt_accelerator_t> cbdt;
473};
474
475
476static hb_ot_font_t *
477_hb_ot_font_create (hb_face_t *face)
478{
479  hb_ot_font_t *ot_font = (hb_ot_font_t *) calloc (1, sizeof (hb_ot_font_t));
480
481  if (unlikely (!ot_font))
482    return NULL;
483
484  ot_font->cmap.init (face);
485  ot_font->h_metrics.init (face, HB_OT_TAG_hhea, HB_OT_TAG_hmtx, HB_OT_TAG_os2);
486  ot_font->v_metrics.init (face, HB_OT_TAG_vhea, HB_OT_TAG_vmtx, HB_TAG_NONE,
487                           ot_font->h_metrics.ascender - ot_font->h_metrics.descender); /* TODO Can we do this lazily? */
488  ot_font->glyf.init (face);
489  ot_font->cbdt.init (face);
490
491  return ot_font;
492}
493
494static void
495_hb_ot_font_destroy (hb_ot_font_t *ot_font)
496{
497  ot_font->cmap.fini ();
498  ot_font->h_metrics.fini ();
499  ot_font->v_metrics.fini ();
500  ot_font->glyf.fini ();
501  ot_font->cbdt.fini ();
502
503  free (ot_font);
504}
505
506
507static hb_bool_t
508hb_ot_get_nominal_glyph (hb_font_t *font HB_UNUSED,
509                         void *font_data,
510                         hb_codepoint_t unicode,
511                         hb_codepoint_t *glyph,
512                         void *user_data HB_UNUSED)
513
514{
515  const hb_ot_font_t *ot_font = (const hb_ot_font_t *) font_data;
516  return ot_font->cmap.get_nominal_glyph (unicode, glyph);
517}
518
519static hb_bool_t
520hb_ot_get_variation_glyph (hb_font_t *font HB_UNUSED,
521                           void *font_data,
522                           hb_codepoint_t unicode,
523                           hb_codepoint_t variation_selector,
524                           hb_codepoint_t *glyph,
525                           void *user_data HB_UNUSED)
526{
527  const hb_ot_font_t *ot_font = (const hb_ot_font_t *) font_data;
528  return ot_font->cmap.get_variation_glyph (unicode, variation_selector, glyph);
529}
530
531static hb_position_t
532hb_ot_get_glyph_h_advance (hb_font_t *font HB_UNUSED,
533                           void *font_data,
534                           hb_codepoint_t glyph,
535                           void *user_data HB_UNUSED)
536{
537  const hb_ot_font_t *ot_font = (const hb_ot_font_t *) font_data;
538  return font->em_scale_x (ot_font->h_metrics.get_advance (glyph));
539}
540
541static hb_position_t
542hb_ot_get_glyph_v_advance (hb_font_t *font HB_UNUSED,
543                           void *font_data,
544                           hb_codepoint_t glyph,
545                           void *user_data HB_UNUSED)
546{
547  const hb_ot_font_t *ot_font = (const hb_ot_font_t *) font_data;
548  return font->em_scale_y (-(int) ot_font->v_metrics.get_advance (glyph));
549}
550
551static hb_bool_t
552hb_ot_get_glyph_extents (hb_font_t *font HB_UNUSED,
553                         void *font_data,
554                         hb_codepoint_t glyph,
555                         hb_glyph_extents_t *extents,
556                         void *user_data HB_UNUSED)
557{
558  const hb_ot_font_t *ot_font = (const hb_ot_font_t *) font_data;
559  bool ret = ot_font->glyf->get_extents (glyph, extents);
560  if (!ret)
561    ret = ot_font->cbdt->get_extents (glyph, extents);
562  extents->x_bearing = font->em_scale_x (extents->x_bearing);
563  extents->y_bearing = font->em_scale_y (extents->y_bearing);
564  extents->width     = font->em_scale_x (extents->width);
565  extents->height    = font->em_scale_y (extents->height);
566  return ret;
567}
568
569static hb_bool_t
570hb_ot_get_font_h_extents (hb_font_t *font HB_UNUSED,
571                          void *font_data,
572                          hb_font_extents_t *metrics,
573                          void *user_data HB_UNUSED)
574{
575  const hb_ot_font_t *ot_font = (const hb_ot_font_t *) font_data;
576  metrics->ascender = font->em_scale_y (ot_font->h_metrics.ascender);
577  metrics->descender = font->em_scale_y (ot_font->h_metrics.descender);
578  metrics->line_gap = font->em_scale_y (ot_font->h_metrics.line_gap);
579  return ot_font->h_metrics.has_font_extents;
580}
581
582static hb_bool_t
583hb_ot_get_font_v_extents (hb_font_t *font HB_UNUSED,
584                          void *font_data,
585                          hb_font_extents_t *metrics,
586                          void *user_data HB_UNUSED)
587{
588  const hb_ot_font_t *ot_font = (const hb_ot_font_t *) font_data;
589  metrics->ascender = font->em_scale_x (ot_font->v_metrics.ascender);
590  metrics->descender = font->em_scale_x (ot_font->v_metrics.descender);
591  metrics->line_gap = font->em_scale_x (ot_font->v_metrics.line_gap);
592  return ot_font->v_metrics.has_font_extents;
593}
594
595static hb_font_funcs_t *static_ot_funcs = NULL;
596
597#ifdef HB_USE_ATEXIT
598static
599void free_static_ot_funcs (void)
600{
601  hb_font_funcs_destroy (static_ot_funcs);
602}
603#endif
604
605static hb_font_funcs_t *
606_hb_ot_get_font_funcs (void)
607{
608retry:
609  hb_font_funcs_t *funcs = (hb_font_funcs_t *) hb_atomic_ptr_get (&static_ot_funcs);
610
611  if (unlikely (!funcs))
612  {
613    funcs = hb_font_funcs_create ();
614
615    hb_font_funcs_set_font_h_extents_func (funcs, hb_ot_get_font_h_extents, NULL, NULL);
616    hb_font_funcs_set_font_v_extents_func (funcs, hb_ot_get_font_v_extents, NULL, NULL);
617    hb_font_funcs_set_nominal_glyph_func (funcs, hb_ot_get_nominal_glyph, NULL, NULL);
618    hb_font_funcs_set_variation_glyph_func (funcs, hb_ot_get_variation_glyph, NULL, NULL);
619    hb_font_funcs_set_glyph_h_advance_func (funcs, hb_ot_get_glyph_h_advance, NULL, NULL);
620    hb_font_funcs_set_glyph_v_advance_func (funcs, hb_ot_get_glyph_v_advance, NULL, NULL);
621    //hb_font_funcs_set_glyph_h_origin_func (funcs, hb_ot_get_glyph_h_origin, NULL, NULL);
622    //hb_font_funcs_set_glyph_v_origin_func (funcs, hb_ot_get_glyph_v_origin, NULL, NULL);
623    //hb_font_funcs_set_glyph_h_kerning_func (funcs, hb_ot_get_glyph_h_kerning, NULL, NULL); TODO
624    //hb_font_funcs_set_glyph_v_kerning_func (funcs, hb_ot_get_glyph_v_kerning, NULL, NULL);
625    hb_font_funcs_set_glyph_extents_func (funcs, hb_ot_get_glyph_extents, NULL, NULL);
626    //hb_font_funcs_set_glyph_contour_point_func (funcs, hb_ot_get_glyph_contour_point, NULL, NULL); TODO
627    //hb_font_funcs_set_glyph_name_func (funcs, hb_ot_get_glyph_name, NULL, NULL); TODO
628    //hb_font_funcs_set_glyph_from_name_func (funcs, hb_ot_get_glyph_from_name, NULL, NULL); TODO
629
630    hb_font_funcs_make_immutable (funcs);
631
632    if (!hb_atomic_ptr_cmpexch (&static_ot_funcs, NULL, funcs)) {
633      hb_font_funcs_destroy (funcs);
634      goto retry;
635    }
636
637#ifdef HB_USE_ATEXIT
638    atexit (free_static_ot_funcs); /* First person registers atexit() callback. */
639#endif
640  };
641
642  return funcs;
643}
644
645
646/**
647 * hb_ot_font_set_funcs:
648 *
649 * Since: 0.9.28
650 **/
651void
652hb_ot_font_set_funcs (hb_font_t *font)
653{
654  hb_ot_font_t *ot_font = _hb_ot_font_create (font->face);
655  if (unlikely (!ot_font))
656    return;
657
658  hb_font_set_funcs (font,
659                     _hb_ot_get_font_funcs (),
660                     ot_font,
661                     (hb_destroy_func_t) _hb_ot_font_destroy);
662}
663