1 /*
   2  * Copyright © 2012  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
  25  */
  26 
  27 #include "hb-private.hh"
  28 #include "hb-shaper-private.hh"
  29 #include "hb-atomic-private.hh"
  30 
  31 
  32 static const hb_shaper_pair_t all_shapers[] = {
  33 #define HB_SHAPER_IMPLEMENT(name) {#name, _hb_##name##_shape},
  34 #include "hb-shaper-list.hh"
  35 #undef HB_SHAPER_IMPLEMENT
  36 };
  37 
  38 
  39 /* Thread-safe, lock-free, shapers */
  40 
  41 static const hb_shaper_pair_t *static_shapers;
  42 
  43 #ifdef HB_USE_ATEXIT
  44 static
  45 void free_static_shapers (void)
  46 {
  47   if (unlikely (static_shapers != all_shapers))
  48     free ((void *) static_shapers);
  49 }
  50 #endif
  51 
  52 const hb_shaper_pair_t *
  53 _hb_shapers_get (void)
  54 {
  55 retry:
  56   hb_shaper_pair_t *shapers = (hb_shaper_pair_t *) hb_atomic_ptr_get (&static_shapers);
  57 
  58   if (unlikely (!shapers))
  59   {
  60     char *env = getenv ("HB_SHAPER_LIST");
  61     if (!env || !*env) {
  62       (void) hb_atomic_ptr_cmpexch (&static_shapers, NULL, &all_shapers[0]);
  63       return (const hb_shaper_pair_t *) all_shapers;
  64     }
  65 
  66     /* Not found; allocate one. */
  67     shapers = (hb_shaper_pair_t *) calloc (1, sizeof (all_shapers));
  68     if (unlikely (!shapers)) {
  69       (void) hb_atomic_ptr_cmpexch (&static_shapers, NULL, &all_shapers[0]);
  70       return (const hb_shaper_pair_t *) all_shapers;
  71     }
  72 
  73     memcpy (shapers, all_shapers, sizeof (all_shapers));
  74 
  75      /* Reorder shaper list to prefer requested shapers. */
  76     unsigned int i = 0;
  77     char *end, *p = env;
  78     for (;;) {
  79       end = strchr (p, ',');
  80       if (!end)
  81         end = p + strlen (p);
  82 
  83       for (unsigned int j = i; j < ARRAY_LENGTH (all_shapers); j++)
  84         if (end - p == (int) strlen (shapers[j].name) &&
  85             0 == strncmp (shapers[j].name, p, end - p))
  86         {
  87           /* Reorder this shaper to position i */
  88          struct hb_shaper_pair_t t = shapers[j];
  89          memmove (&shapers[i + 1], &shapers[i], sizeof (shapers[i]) * (j - i));
  90          shapers[i] = t;
  91          i++;
  92         }
  93 
  94       if (!*end)
  95         break;
  96       else
  97         p = end + 1;
  98     }
  99 
 100     if (!hb_atomic_ptr_cmpexch (&static_shapers, NULL, shapers)) {
 101       free (shapers);
 102       goto retry;
 103     }
 104 
 105 #ifdef HB_USE_ATEXIT
 106     atexit (free_static_shapers); /* First person registers atexit() callback. */
 107 #endif
 108   }
 109 
 110   return shapers;
 111 }