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 
  43 struct 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 
 138 struct 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 
 211 struct 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 
 296 typedef bool (*hb_cmap_get_glyph_func_t) (const void *obj,
 297                                           hb_codepoint_t codepoint,
 298                                           hb_codepoint_t *glyph);
 299 
 300 template <typename Type>
 301 static 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 
 309 template <typename Type>
 310 static 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 
 331 struct 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 
 424 template <typename T>
 425 struct 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 
 466 struct 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 
 476 static 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 
 494 static 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 
 507 static hb_bool_t
 508 hb_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 
 519 static hb_bool_t
 520 hb_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 
 531 static hb_position_t
 532 hb_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 
 541 static hb_position_t
 542 hb_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 
 551 static hb_bool_t
 552 hb_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 
 569 static hb_bool_t
 570 hb_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 
 582 static hb_bool_t
 583 hb_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 
 595 static hb_font_funcs_t *static_ot_funcs = NULL;
 596 
 597 #ifdef HB_USE_ATEXIT
 598 static
 599 void free_static_ot_funcs (void)
 600 {
 601   hb_font_funcs_destroy (static_ot_funcs);
 602 }
 603 #endif
 604 
 605 static hb_font_funcs_t *
 606 _hb_ot_get_font_funcs (void)
 607 {
 608 retry:
 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  **/
 651 void
 652 hb_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 }