src/lib/engines/common/evas_font_ot.c

   1 #include "evas_font_ot.h"
   2
   3 #ifdef USE_HARFBUZZ
   4 # include <hb.h>
   5 # include <hb-ft.h>
   6 #endif
   7
   8 #include "evas_common.h"
   9
  10 #include <Eina.h>
  11 #include "evas_font_private.h"
  12
  13 #ifdef USE_HARFBUZZ
  14 static const hb_script_t
  15 _evas_script_to_harfbuzz[] =
  16 {
  17   HB_SCRIPT_COMMON,
  18   HB_SCRIPT_INHERITED,
  19   HB_SCRIPT_ARABIC,
  20   HB_SCRIPT_ARMENIAN,
  21   HB_SCRIPT_BENGALI,
  22   HB_SCRIPT_BOPOMOFO,
  23   HB_SCRIPT_CHEROKEE,
  24   HB_SCRIPT_COPTIC,
  25   HB_SCRIPT_CYRILLIC,
  26   HB_SCRIPT_DESERET,
  27   HB_SCRIPT_DEVANAGARI,
  28   HB_SCRIPT_ETHIOPIC,
  29   HB_SCRIPT_GEORGIAN,
  30   HB_SCRIPT_GOTHIC,
  31   HB_SCRIPT_GREEK,
  32   HB_SCRIPT_GUJARATI,
  33   HB_SCRIPT_GURMUKHI,
  34   HB_SCRIPT_HAN,
  35   HB_SCRIPT_HANGUL,
  36   HB_SCRIPT_HEBREW,
  37   HB_SCRIPT_HIRAGANA,
  38   HB_SCRIPT_KANNADA,
  39   HB_SCRIPT_KATAKANA,
  40   HB_SCRIPT_KHMER,
  41   HB_SCRIPT_LAO,
  42   HB_SCRIPT_LATIN,
  43   HB_SCRIPT_MALAYALAM,
  44   HB_SCRIPT_MONGOLIAN,
  45   HB_SCRIPT_MYANMAR,
  46   HB_SCRIPT_OGHAM,
  47   HB_SCRIPT_OLD_ITALIC,
  48   HB_SCRIPT_ORIYA,
  49   HB_SCRIPT_RUNIC,
  50   HB_SCRIPT_SINHALA,
  51   HB_SCRIPT_SYRIAC,
  52   HB_SCRIPT_TAMIL,
  53   HB_SCRIPT_TELUGU,
  54   HB_SCRIPT_THAANA,
  55   HB_SCRIPT_THAI,
  56   HB_SCRIPT_TIBETAN,
  57   HB_SCRIPT_CANADIAN_ABORIGINAL,
  58   HB_SCRIPT_YI,
  59   HB_SCRIPT_TAGALOG,
  60   HB_SCRIPT_HANUNOO,
  61   HB_SCRIPT_BUHID,
  62   HB_SCRIPT_TAGBANWA,
  63
  64   /* Unicode-4.0 additions */
  65   HB_SCRIPT_BRAILLE,
  66   HB_SCRIPT_CYPRIOT,
  67   HB_SCRIPT_LIMBU,
  68   HB_SCRIPT_OSMANYA,
  69   HB_SCRIPT_SHAVIAN,
  70   HB_SCRIPT_LINEAR_B,
  71   HB_SCRIPT_TAI_LE,
  72   HB_SCRIPT_UGARITIC,
  73
  74   /* Unicode-4.1 additions */
  75   HB_SCRIPT_NEW_TAI_LUE,
  76   HB_SCRIPT_BUGINESE,
  77   HB_SCRIPT_GLAGOLITIC,
  78   HB_SCRIPT_TIFINAGH,
  79   HB_SCRIPT_SYLOTI_NAGRI,
  80   HB_SCRIPT_OLD_PERSIAN,
  81   HB_SCRIPT_KHAROSHTHI,
  82
  83   /* Unicode-5.0 additions */
  84   HB_SCRIPT_UNKNOWN,
  85   HB_SCRIPT_BALINESE,
  86   HB_SCRIPT_CUNEIFORM,
  87   HB_SCRIPT_PHOENICIAN,
  88   HB_SCRIPT_PHAGS_PA,
  89   HB_SCRIPT_NKO,
  90
  91   /* Unicode-5.1 additions */
  92   HB_SCRIPT_KAYAH_LI,
  93   HB_SCRIPT_LEPCHA,
  94   HB_SCRIPT_REJANG,
  95   HB_SCRIPT_SUNDANESE,
  96   HB_SCRIPT_SAURASHTRA,
  97   HB_SCRIPT_CHAM,
  98   HB_SCRIPT_OL_CHIKI,
  99   HB_SCRIPT_VAI,
 100   HB_SCRIPT_CARIAN,
 101   HB_SCRIPT_LYCIAN,
 102   HB_SCRIPT_LYDIAN,
 103
 104   /* Unicode-5.2 additions */
 105   HB_SCRIPT_AVESTAN,
 106   HB_SCRIPT_BAMUM,
 107   HB_SCRIPT_EGYPTIAN_HIEROGLYPHS,
 108   HB_SCRIPT_IMPERIAL_ARAMAIC,
 109   HB_SCRIPT_INSCRIPTIONAL_PAHLAVI,
 110   HB_SCRIPT_INSCRIPTIONAL_PARTHIAN,
 111   HB_SCRIPT_JAVANESE,
 112   HB_SCRIPT_KAITHI,
 113   HB_SCRIPT_TAI_THAM,
 114   HB_SCRIPT_LISU,
 115   HB_SCRIPT_MEETEI_MAYEK,
 116   HB_SCRIPT_OLD_SOUTH_ARABIAN,
 117   HB_SCRIPT_OLD_TURKIC,
 118   HB_SCRIPT_SAMARITAN,
 119   HB_SCRIPT_TAI_VIET,
 120
 121   /* Unicode-6.0 additions */
 122   HB_SCRIPT_BATAK,
 123   HB_SCRIPT_BRAHMI,
 124   HB_SCRIPT_MANDAIC
 125 };
 126 #endif
 127
 128 #ifdef OT_SUPPORT
 129 /* FIXME: doc. returns #items */
 130 EAPI int
 131 evas_common_font_ot_cluster_size_get(const Evas_Text_Props *props, size_t char_index)
 132 {
 133    int i;
 134    int items;
 135    int left_bound, right_bound;
 136    size_t base_cluster;
 137    char_index += props->start;
 138    base_cluster = EVAS_FONT_OT_POS_GET(props->info->ot[char_index]);
 139    for (i = (int) char_index ;
 140          (i >= (int) props->start) &&
 141          (EVAS_FONT_OT_POS_GET(props->info->ot[i]) == base_cluster) ;
 142          i--)
 143      ;
 144    left_bound = i;
 145    for (i = (int) char_index + 1;
 146          (i < (int) (props->start + props->len)) &&
 147          (EVAS_FONT_OT_POS_GET(props->info->ot[i]) == base_cluster) ;
 148          i++)
 149      ;
 150    right_bound = i;
 151
 152    if (right_bound == left_bound)
 153      {
 154         items = 1;
 155      }
 156    else if (props->bidi.dir == EVAS_BIDI_DIRECTION_RTL)
 157      {
 158         if (left_bound < 0)
 159           {
 160              items = props->text_offset + props->text_len - base_cluster;
 161           }
 162         else
 163           {
 164              items = props->info->ot[left_bound].source_cluster - base_cluster;
 165           }
 166      }
 167    else
 168      {
 169         if (right_bound >= (int) (props->text_offset + props->text_len))
 170           {
 171              items = props->text_offset + props->text_len - base_cluster;
 172           }
 173         else
 174           {
 175              items = props->info->ot[right_bound].source_cluster - base_cluster;
 176           }
 177      }
 178    return (items > 0) ? items : 1;
 179 }
 180
 181 EAPI void
 182 evas_common_font_ot_load_face(void *_font)
 183 {
 184    RGBA_Font_Source *font = (RGBA_Font_Source *) _font;
 185    /* Unload the face if by any chance it's already loaded */
 186    evas_common_font_ot_unload_face(font);
 187    font->hb.face = hb_ft_face_create(font->ft.face, NULL);
 188 }
 189
 190 EAPI void
 191 evas_common_font_ot_unload_face(void *_font)
 192 {
 193    RGBA_Font_Source *font = (RGBA_Font_Source *) _font;
 194    if (!font->hb.face) return;
 195    hb_face_destroy(font->hb.face);
 196    font->hb.face = NULL;
 197 }
 198
 199 /* Harfbuzz font functions */
 200
 201 static void
 202 _evas_common_font_ot_hb_get_glyph_advance(hb_font_t *font,
 203       void *font_data, hb_codepoint_t glyph,
 204       hb_position_t *x_advance, hb_position_t *y_advance,
 205       void *user_data)
 206 {
 207    /* Use our cache*/
 208    RGBA_Font_Int *fi = (RGBA_Font_Int *) font_data;
 209    RGBA_Font_Glyph *fg;
 210    (void) font;
 211    (void) user_data;
 212    fg = evas_common_font_int_cache_glyph_get(fi, glyph);
 213    if (fg)
 214      {
 215         *x_advance = fg->glyph->advance.x >> 10;
 216         *y_advance = fg->glyph->advance.y >> 10;
 217      }
 218 }
 219
 220 static void
 221 _evas_common_font_ot_hb_get_kerning(hb_font_t *font, void *font_data,
 222    hb_codepoint_t first_glyph, hb_codepoint_t second_glyph,
 223    hb_position_t *x_kern, hb_position_t *y_kern, void *user_data)
 224 {
 225    RGBA_Font_Int *fi = (RGBA_Font_Int *) font_data;
 226    int kern;
 227    (void) font;
 228    (void) user_data;
 229    if (evas_common_font_query_kerning(fi, first_glyph, second_glyph, &kern))
 230         *x_kern = kern;
 231    else
 232       return;
 233    *y_kern = 0;
 234 }
 235
 236 /* End of harfbuzz font funcs */
 237
 238 static inline hb_font_funcs_t *
 239 _evas_common_font_ot_font_funcs_get(void)
 240 {
 241    static hb_font_funcs_t *font_funcs = NULL;
 242    if (!font_funcs)
 243      {
 244         font_funcs = hb_font_funcs_create();
 245         hb_font_funcs_set_glyph_advance_func(font_funcs,
 246             _evas_common_font_ot_hb_get_glyph_advance, NULL, NULL);
 247         hb_font_funcs_set_kerning_func(font_funcs,
 248             _evas_common_font_ot_hb_get_kerning, NULL, NULL);
 249      }
 250
 251    return font_funcs;
 252 }
 253
 254 static inline hb_unicode_funcs_t *
 255 _evas_common_font_ot_unicode_funcs_get(void)
 256 {
 257    static hb_unicode_funcs_t *unicode_funcs = NULL;
 258    if (!unicode_funcs)
 259      {
 260         unicode_funcs = hb_unicode_funcs_get_default();
 261      }
 262
 263    return unicode_funcs;
 264 }
 265
 266 static void
 267 _evas_common_font_ot_shape(hb_buffer_t *buffer, RGBA_Font_Int *fi)
 268 {
 269    hb_font_t   *hb_font, *hb_ft_font;
 270
 271    hb_ft_font = hb_ft_font_create(fi->src->ft.face, NULL);
 272    hb_font = hb_font_create_sub_font(hb_ft_font);
 273
 274    hb_font_set_funcs(hb_font, _evas_common_font_ot_font_funcs_get(), fi, NULL);
 275
 276    hb_shape(hb_font, buffer, NULL, 0);
 277
 278    hb_font_destroy(hb_font);
 279    hb_font_destroy(hb_ft_font);
 280 }
 281
 282 EAPI Eina_Bool
 283 evas_common_font_ot_populate_text_props(void *_fn, const Eina_Unicode *text,
 284       Evas_Text_Props *props, int len)
 285 {
 286    RGBA_Font *fn = (RGBA_Font *) _fn;
 287    RGBA_Font_Int *fi;
 288    hb_buffer_t *buffer;
 289    hb_glyph_position_t *positions;
 290    hb_glyph_info_t *infos;
 291    int slen;
 292    unsigned int i;
 293    Evas_Font_Glyph_Info *gl_itr;
 294    Evas_Font_OT_Info *ot_itr;
 295    Evas_Coord pen_x = 0;
 296
 297    fi = fn->fonts->data;
 298    /* Load the font needed for this script */
 299      {
 300         /* Skip common chars */
 301         const Eina_Unicode *tmp;
 302         for (tmp = text ;
 303               *tmp &&
 304               evas_common_language_char_script_get(*tmp) == EVAS_SCRIPT_COMMON ;
 305               tmp++)
 306           ;
 307         if (!*tmp && (tmp > text)) tmp--;
 308         evas_common_font_glyph_search(fn, &fi, *tmp);
 309      }
 310    evas_common_font_int_reload(fi);
 311    if (fi->src->current_size != fi->size)
 312      {
 313         FTLOCK();
 314         FT_Activate_Size(fi->ft.size);
 315         FTUNLOCK();
 316         fi->src->current_size = fi->size;
 317      }
 318
 319    if (len < 0)
 320      {
 321         slen = eina_unicode_strlen(text);
 322      }
 323    else
 324      {
 325         slen = len;
 326      }
 327
 328    buffer = hb_buffer_create(slen);
 329    hb_buffer_set_unicode_funcs(buffer, _evas_common_font_ot_unicode_funcs_get());
 330    hb_buffer_set_language(buffer, hb_language_from_string(
 331             evas_common_language_from_locale_get()));
 332    hb_buffer_set_script(buffer, _evas_script_to_harfbuzz[props->script]);
 333    hb_buffer_set_direction(buffer,
 334          (props->bidi.dir == EVAS_BIDI_DIRECTION_RTL) ?
 335          HB_DIRECTION_RTL : HB_DIRECTION_LTR);
 336    /* FIXME: add run-time conversions if needed, which is very unlikely */
 337    hb_buffer_add_utf32(buffer, (const uint32_t *) text, slen, 0, slen);
 338
 339    _evas_common_font_ot_shape(buffer, fi);
 340
 341    props->len = hb_buffer_get_length(buffer);
 342    props->info->ot = calloc(props->len,
 343          sizeof(Evas_Font_OT_Info));
 344    props->info->glyph = calloc(props->len,
 345               sizeof(Evas_Font_Glyph_Info));
 346    positions = hb_buffer_get_glyph_positions(buffer, NULL);
 347    infos = hb_buffer_get_glyph_infos(buffer, NULL);
 348    gl_itr = props->info->glyph;
 349    ot_itr = props->info->ot;
 350    for (i = 0 ; i < props->len ; i++)
 351      {
 352         Evas_Coord adv;
 353         ot_itr->source_cluster = infos->cluster;
 354         ot_itr->x_offset = positions->x_offset;
 355         ot_itr->y_offset = positions->y_offset;
 356         gl_itr->index = infos->codepoint;
 357         adv = positions->x_advance;
 358
 359         pen_x += adv;
 360         gl_itr->pen_after = EVAS_FONT_ROUND_26_6_TO_INT(pen_x);
 361
 362         ot_itr++;
 363         gl_itr++;
 364         infos++;
 365         positions++;
 366      }
 367
 368    hb_buffer_destroy(buffer);
 369    evas_common_font_int_use_trim();
 370
 371    return EINA_FALSE;
 372 }
 373
 374 #endif
 375