diff options
| -rw-r--r-- | pango/meson.build | 5 | ||||
| -rw-r--r-- | pango/pangocoretext-private.h | 9 | ||||
| -rw-r--r-- | pango/pangocoretext-shape.c | 554 | ||||
| -rw-r--r-- | pango/pangowin32-private.h | 10 | ||||
| -rw-r--r-- | pango/pangowin32-shape.c | 775 |
5 files changed, 0 insertions, 1353 deletions
diff --git a/pango/meson.build b/pango/meson.build index cfbf8a9a..1327ca39 100644 --- a/pango/meson.build +++ b/pango/meson.build @@ -340,14 +340,10 @@ if host_system == 'windows' 'pangowin32.c', 'pangowin32-fontcache.c', 'pangowin32-fontmap.c', - 'pangowin32-shape.c', ] - # usp10 needs to be before gdi32 - # see https://bugzilla.gnome.org/show_bug.cgi?id=795045#c0 pangowin32_deps = pango_deps + [ libpango_dep, - cc.find_library('usp10'), cc.find_library('gdi32'), ] @@ -441,7 +437,6 @@ if cairo_dep.found() pangocairo_sources += [ 'pangocoretext.c', 'pangocoretext-fontmap.c', - 'pangocoretext-shape.c', 'pangocairo-coretextfont.c', 'pangocairo-coretextfontmap.c', ] diff --git a/pango/pangocoretext-private.h b/pango/pangocoretext-private.h index a652f520..57d26937 100644 --- a/pango/pangocoretext-private.h +++ b/pango/pangocoretext-private.h @@ -155,15 +155,6 @@ PangoGravity pango_core_text_font_key_get_gravity (const Pango _PANGO_EXTERN CTFontDescriptorRef pango_core_text_font_key_get_ctfontdescriptor (const PangoCoreTextFontKey *key); -void -_pango_core_text_shape (PangoFont *font, - const char *text, - gint length, - const PangoAnalysis *analysis, - PangoGlyphString *glyphs, - const char *paragraph_text G_GNUC_UNUSED, - unsigned int paragraph_length G_GNUC_UNUSED); - G_END_DECLS #endif /* __PANGOCORETEXT_PRIVATE_H__ */ diff --git a/pango/pangocoretext-shape.c b/pango/pangocoretext-shape.c deleted file mode 100644 index 061279a9..00000000 --- a/pango/pangocoretext-shape.c +++ /dev/null @@ -1,554 +0,0 @@ -/* Pango - * pangocoretext-shape.c - * - * Copyright (C) 2005 Imendio AB - * Copyright (C) 2010 Kristian Rietveld <kris@gtk.org> - * Copyright (C) 2012 Kristian Rietveld <kris@lanedo.com> - * - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - */ - -#include "config.h" -#include <glib.h> -#include <string.h> -#include <Carbon/Carbon.h> -#include "pango-utils.h" -#include "pangocoretext-private.h" -#include "pango-impl-utils.h" - -#if defined(MAC_OS_X_VERSION_MAX_ALLOWED) && MAC_OS_X_VERSION_MAX_ALLOWED < 1060 -CF_INLINE Boolean CFStringIsSurrogateHighCharacter(UniChar character) { - return ((character >= 0xD800UL) && (character <= 0xDBFFUL) ? true : false); -} - -CF_INLINE Boolean CFStringIsSurrogateLowCharacter(UniChar character) { - return ((character >= 0xDC00UL) && (character <= 0xDFFFUL) ? true : false); -} - -CF_INLINE UTF32Char CFStringGetLongCharacterForSurrogatePair(UniChar surrogateHigh, UniChar surrogateLow) { - return ((surrogateHigh - 0xD800UL) << 10) + (surrogateLow - 0xDC00UL) + 0x0010000UL; -} -#endif - -static void -set_glyph (PangoFont *font, - PangoGlyphString *glyphs, - int i, - int offset, - PangoGlyph glyph) -{ - PangoRectangle logical_rect; - - glyphs->glyphs[i].glyph = glyph; - - glyphs->glyphs[i].geometry.x_offset = 0; - glyphs->glyphs[i].geometry.y_offset = 0; - - glyphs->log_clusters[i] = offset; - pango_font_get_glyph_extents (font, glyphs->glyphs[i].glyph, NULL, &logical_rect); - glyphs->glyphs[i].geometry.width = logical_rect.width; -} - - -/* The "RunIterator" helps us to iterate over the array of runs that is obtained from - * the CoreText type setter. Even though Pango considers the string that is passed to - * the shape function a single run, CoreText might consider it to consist out of - * multiple runs. Because of this, we have an interface around the CoreText array of - * runs that works like iterating a single array, which makes our job in the shape - * function easier. - */ - -struct RunIterator -{ - CTLineRef line; - CFStringRef cstr; - CFArrayRef runs; - CFIndex glyph_count; - - CFIndex total_ct_i; - CFIndex ct_i; - - CFIndex *chr_idx_lut; - - int current_run_number; - CTRunRef current_run; - CFIndex *current_indices; - const CGGlyph *current_cgglyphs; - CGGlyph *current_cgglyphs_buffer; - CTRunStatus current_run_status; -}; - -static void -run_iterator_free_current_run (struct RunIterator *iter) -{ - iter->current_run_number = -1; - iter->current_run = NULL; - iter->current_cgglyphs = NULL; - if (iter->current_cgglyphs_buffer) - free (iter->current_cgglyphs_buffer); - iter->current_cgglyphs_buffer = NULL; - if (iter->current_indices) - free (iter->current_indices); - iter->current_indices = NULL; -} - -static void -run_iterator_set_current_run (struct RunIterator *iter, - const int run_number) -{ - CFIndex ct_glyph_count; - - run_iterator_free_current_run (iter); - - iter->current_run_number = run_number; - iter->current_run = CFArrayGetValueAtIndex (iter->runs, run_number); - ct_glyph_count = CTRunGetGlyphCount (iter->current_run); - - iter->current_run_status = CTRunGetStatus (iter->current_run); - iter->current_cgglyphs = CTRunGetGlyphsPtr (iter->current_run); - if (!iter->current_cgglyphs) - { - iter->current_cgglyphs_buffer = (CGGlyph *)malloc (sizeof (CGGlyph) * ct_glyph_count); - CTRunGetGlyphs (iter->current_run, CFRangeMake (0, ct_glyph_count), - iter->current_cgglyphs_buffer); - iter->current_cgglyphs = iter->current_cgglyphs_buffer; - } - - iter->current_indices = malloc (sizeof (CFIndex) * ct_glyph_count); - CTRunGetStringIndices (iter->current_run, CFRangeMake (0, ct_glyph_count), - iter->current_indices); - - iter->ct_i = 0; -} - -static CFIndex -run_iterator_get_glyph_count (struct RunIterator *iter) -{ - CFIndex accumulator = 0; - CFIndex i; - - for (i = 0; i < CFArrayGetCount (iter->runs); i++) - accumulator += CTRunGetGlyphCount (CFArrayGetValueAtIndex (iter->runs, i)); - - return accumulator; -} - -/* This function generates a lookup table to match string indices of glyphs to - * actual unicode character indices. This also takes unicode characters into - * account that are encoded using 2 UTF16 code points in CFStrings. We use the - * unicode character index to match up with the unicode characters in the UTF8 - * string provided by Pango. - */ -static CFIndex * -run_iterator_get_chr_idx_lut (CFStringRef cstr) -{ - CFIndex cstr_length = CFStringGetLength (cstr); - CFIndex *chr_idx_lut = malloc (sizeof (CFIndex) * cstr_length); - CFIndex i; - CFIndex current_value = 0; - - for (i = 0; i < cstr_length; i++) - { - chr_idx_lut[i] = current_value; - - if (CFStringIsSurrogateHighCharacter (CFStringGetCharacterAtIndex (cstr, i)) && - i + 1 < cstr_length && - CFStringIsSurrogateLowCharacter (CFStringGetCharacterAtIndex (cstr, i + 1))) - continue; - - current_value++; - } - - return chr_idx_lut; -} - -/* These functions are commented out to silence the compiler, but - * kept around because they might be of use when fixing the more - * intricate issues noted in the comment in the function - * pangocoretext_shape() below. - */ -#if 0 -static gboolean -run_iterator_is_rtl (struct RunIterator *iter) -{ - /* Assume run status is equal for all runs? */ - CTRunStatus run_status = CTRunGetStatus (CFArrayGetValueAtIndex (iter->runs, 0)); - - return run_status & kCTRunStatusRightToLeft; -} - -static gboolean -run_iterator_run_is_non_monotonic (struct RunIterator *iter) -{ - CTRunStatus run_status = CTRunGetStatus (iter->current_run); - - return run_status & kCTRunStatusNonMonotonic; -} -#endif - -static gunichar -run_iterator_get_character (struct RunIterator *iter) -{ - UniChar ch = CFStringGetCharacterAtIndex (iter->cstr, iter->current_indices[iter->ct_i]); - - if (CFStringIsSurrogateHighCharacter (ch) && - iter->current_indices[iter->ct_i] + 1 < CFStringGetLength (iter->cstr)) - { - UniChar ch2 = CFStringGetCharacterAtIndex (iter->cstr, iter->current_indices[iter->ct_i]+1); - - if (CFStringIsSurrogateLowCharacter (ch2)) - return CFStringGetLongCharacterForSurrogatePair (ch, ch2); - } - - return ch; -} - -static CGGlyph -run_iterator_get_cgglyph (struct RunIterator *iter) -{ - return iter->current_cgglyphs[iter->ct_i]; -} - -static CFIndex -run_iterator_get_index (struct RunIterator *iter) -{ - return iter->chr_idx_lut[iter->current_indices[iter->ct_i]]; -} - -static gboolean -run_iterator_create (struct RunIterator *iter, - const char *text, - const gint length, - CTFontRef ctfont) -{ - char *copy; - CFDictionaryRef attributes; - CFAttributedStringRef attstr; - - CFTypeRef keys[] = { - (CFTypeRef) kCTFontAttributeName - }; - - CFTypeRef values[] = { - ctfont - }; - - /* Initialize RunIterator structure */ - iter->current_run_number = -1; - iter->current_run = NULL; - iter->current_indices = NULL; - iter->chr_idx_lut = NULL; - iter->current_cgglyphs = NULL; - iter->current_cgglyphs_buffer = NULL; - - /* Create CTLine */ - attributes = CFDictionaryCreate (kCFAllocatorDefault, - (const void **)keys, - (const void **)values, - 1, - &kCFCopyStringDictionaryKeyCallBacks, - &kCFTypeDictionaryValueCallBacks); - - copy = g_strndup (text, length + 1); - copy[length] = 0; - - iter->cstr = CFStringCreateWithCString (kCFAllocatorDefault, copy, - kCFStringEncodingUTF8); - g_free (copy); - - if (!iter->cstr) - /* Creating a CFString can fail if the input string does not - * adhere to the specified encoding (i.e. it contains invalid UTF8). - */ - return FALSE; - - attstr = CFAttributedStringCreate (kCFAllocatorDefault, - iter->cstr, - attributes); - - iter->line = CTLineCreateWithAttributedString (attstr); - iter->runs = CTLineGetGlyphRuns (iter->line); - - CFRelease (attstr); - CFRelease (attributes); - - iter->chr_idx_lut = run_iterator_get_chr_idx_lut (iter->cstr); - - iter->total_ct_i = 0; - iter->glyph_count = run_iterator_get_glyph_count (iter); - - /* If CoreText did not render any glyphs for this string (can happen, - * e.g. a run solely consisting of a BOM), glyph_count will be zero and - * we immediately set the iterator variable to indicate end of glyph list. - */ - if (iter->glyph_count > 0) - run_iterator_set_current_run (iter, 0); - else - iter->total_ct_i = -1; - - return TRUE; -} - -static void -run_iterator_free (struct RunIterator *iter) -{ - run_iterator_free_current_run (iter); - - free (iter->chr_idx_lut); - - CFRelease (iter->line); - CFRelease (iter->cstr); -} - -static gboolean -run_iterator_at_end (struct RunIterator *iter) -{ - if (iter->total_ct_i == -1) - return TRUE; - - return FALSE; -} - -static void -run_iterator_advance (struct RunIterator *iter) -{ - if (iter->total_ct_i >= iter->glyph_count - 1) - { - run_iterator_free_current_run (iter); - iter->ct_i = iter->total_ct_i = -1; - } - else - { - iter->total_ct_i++; - iter->ct_i++; - - if (iter->total_ct_i < iter->glyph_count && - iter->ct_i >= CTRunGetGlyphCount (iter->current_run)) - { - iter->current_run_number++; - run_iterator_set_current_run (iter, iter->current_run_number); - } - } -} - - - -struct GlyphInfo -{ - CFIndex index; - CGGlyph cgglyph; - gunichar wc; -}; - -static gint -glyph_info_compare_func (gconstpointer a, gconstpointer b) -{ - const struct GlyphInfo *gi_a = a; - const struct GlyphInfo *gi_b = b; - - if (gi_a->index < gi_b->index) - return -1; - else if (gi_a->index > gi_b->index) - return 1; - /* else */ - return 0; -} - -static void -glyph_info_free (gpointer data, gpointer user_data) -{ - g_slice_free (struct GlyphInfo, data); -} - -static GSList * -create_core_text_glyph_list (const char *text, - gint length, - CTFontRef ctfont) -{ - GSList *glyph_list = NULL; - struct RunIterator riter; - - if (!run_iterator_create (&riter, text, length, ctfont)) - return NULL; - - while (!run_iterator_at_end (&riter)) - { - struct GlyphInfo *gi; - - gi = g_slice_new (struct GlyphInfo); - gi->index = run_iterator_get_index (&riter); - gi->cgglyph = run_iterator_get_cgglyph (&riter); - gi->wc = run_iterator_get_character (&riter); - - glyph_list = g_slist_prepend (glyph_list, gi); - - run_iterator_advance (&riter); - } - - glyph_list = g_slist_sort (glyph_list, glyph_info_compare_func); - - run_iterator_free (&riter); - - return glyph_list; -} - - -void -_pango_core_text_shape (PangoFont *font, - const char *text, - gint length, - const PangoAnalysis *analysis, - PangoGlyphString *glyphs, - const char *paragraph_text G_GNUC_UNUSED, - unsigned int paragraph_length G_GNUC_UNUSED) -{ - const char *p; - gulong n_chars, gs_i, gs_prev_i; - PangoCoreTextFont *cfont = PANGO_CORE_TEXT_FONT (font); - PangoCoverage *coverage; - GSList *glyph_list; - GSList *glyph_iter; - - /* We first fully iterate over the glyph sequence generated by CoreText and - * store this into a list, which is sorted after the iteration. We make a pass - * over the sorted linked list to build up the PangoGlyphString. - * - * We have to do this in order to properly handle a bunch of characteristics of the - * glyph sequence generated by the CoreText typesetter: - * # E.g. zero-width spaces do not end up in the CoreText glyph sequence. We have - * to manually account for the gap in the character indices. - * # Sometimes, CoreText generates two glyph for the same character index. We - * currently handle this "properly" as in we do not crash or corrupt memory, - * but that's about it. - * # Due to mismatches in size, the CoreText glyph sequence can either be longer or - * shorter than the PangoGlyphString. Note that the size of the PangoGlyphString - * should match the number of characters in "text". - * - * If performance becomes a problem, it is certainly possible to use a faster code - * that only does a single iteration over the string for "simple cases". Simple cases - * could include these that only consist out of one run (simple Latin text), which - * don't have gaps in the glyph sequence and which are monotonically - * increasing/decreasing. - * - * FIXME items for future fixing: - * # We currently don't bother about LTR, Pango core appears to fix this up for us. - * (Even when we cared warnings were generated that strings were in the wrong - * order, this should be investigated). - * # When CoreText generates two glyphs for one character, only one is stored. - * This breaks the example strings for e.g. Georgian and Gothic. - */ - - glyph_list = create_core_text_glyph_list (text, length, - pango_core_text_font_get_ctfont (cfont)); - if (!glyph_list) - return; - - /* Set up for translation of the glyph list to a PangoGlyphString. */ - n_chars = pango_utf8_strlen (text, length); - pango_glyph_string_set_size (glyphs, n_chars); - - glyph_iter = glyph_list; - - coverage = pango_font_get_coverage (PANGO_FONT (cfont), - analysis->language); - - /* gs_i is the index into the Pango glyph string. gi is the iterator into - * the (CoreText) glyph list, gi->index is the index into the CFString. - * In matching, we want gs_i and gi->index to match up. - */ - for (gs_prev_i = -1, gs_i = 0, p = text; gs_i < n_chars; - gs_prev_i = gs_i, gs_i++, p = g_utf8_next_char (p)) - { - struct GlyphInfo *gi = glyph_iter != NULL ? glyph_iter->data : NULL; - - if (gi == NULL || gi->index > gs_i) - { - /* The glyph string is behind, insert an empty glyph to catch - * up with the CoreText glyph list. This occurs for instance when - * CoreText inserts a ligature that covers two characters. - */ - set_glyph (font, glyphs, gs_i, p - text, PANGO_GLYPH_EMPTY); - continue; - } - else if (gi->index < gs_i) - { - /* The CoreText glyph list is behind, fast forward the iterator - * to catch up. This can happen when CoreText emits two glyphs - * for once character, which is (as noted in the FIXME) above - * not handled by us yet. - */ - while (gi && gi->index < gs_i) - { - glyph_iter = g_slist_next (glyph_iter); - if (glyph_iter) - gi = glyph_iter->data; - else - gi = NULL; - } - } - - if (gi != NULL && gi->index == gs_i) - { - gunichar mirrored_ch; - PangoCoverageLevel result; - - if (analysis->level % 2) - if (g_unichar_get_mirror_char (gi->wc, &mirrored_ch)) - gi->wc = mirrored_ch; - - if (gi->wc == 0xa0) /* non-break-space */ - gi->wc = 0x20; - - result = pango_coverage_get (coverage, gi->wc); - - if (result != PANGO_COVERAGE_NONE) - { - set_glyph (font, glyphs, gs_i, p - text, gi->cgglyph); - - if (g_unichar_type (gi->wc) == G_UNICODE_NON_SPACING_MARK) - { - if (gi->index > 0) - { - PangoRectangle logical_rect, ink_rect; - - glyphs->glyphs[gs_i].geometry.width = MAX (glyphs->glyphs[gs_prev_i].geometry.width, - glyphs->glyphs[gs_i].geometry.width); - glyphs->glyphs[gs_prev_i].geometry.width = 0; - glyphs->log_clusters[gs_i] = glyphs->log_clusters[gs_prev_i]; - - /* Some heuristics to try to guess how overstrike glyphs are - * done and compensate - */ - pango_font_get_glyph_extents (font, glyphs->glyphs[gs_i].glyph, &ink_rect, &logical_rect); - if (logical_rect.width == 0 && ink_rect.x == 0) - glyphs->glyphs[gs_i].geometry.x_offset = (glyphs->glyphs[gs_i].geometry.width - ink_rect.width) / 2; - } - } - } - else - set_glyph (font, glyphs, gs_i, p - text, PANGO_GET_UNKNOWN_GLYPH (gi->wc)); - - glyph_iter = g_slist_next (glyph_iter); - } - } - - pango_coverage_unref (coverage); - g_slist_foreach (glyph_list, glyph_info_free, NULL); - g_slist_free (glyph_list); - - if (analysis->level & 1) - pango_glyph_string_reverse_range (glyphs, 0, glyphs->num_glyphs); -} diff --git a/pango/pangowin32-private.h b/pango/pangowin32-private.h index fd102413..65f9de05 100644 --- a/pango/pangowin32-private.h +++ b/pango/pangowin32-private.h @@ -284,16 +284,6 @@ gboolean _pango_win32_get_name_record (HDC hdc, _PANGO_EXTERN HFONT _pango_win32_font_get_hfont (PangoFont *font); -_PANGO_EXTERN -void -_pango_win32_shape (PangoFont *font, - const char *text, - unsigned int length, - const PangoAnalysis *analysis, - PangoGlyphString *glyphs, - const char *paragraph_text G_GNUC_UNUSED, - unsigned int paragraph_length G_GNUC_UNUSED); - extern HDC _pango_win32_hdc; extern OSVERSIONINFO _pango_win32_os_version_info; extern gboolean _pango_win32_debug; diff --git a/pango/pangowin32-shape.c b/pango/pangowin32-shape.c deleted file mode 100644 index aad0243e..00000000 --- a/pango/pangowin32-shape.c +++ /dev/null @@ -1,775 +0,0 @@ -/* Pango - * pangowin32-shape.c: - * - * Copyright (C) 1999 Red Hat Software - * Copyright (C) 2001 Alexander Larsson - * - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Library General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - */ - -#include "config.h" - -/*#define BASIC_WIN32_DEBUGGING */ - -#include <math.h> -#include <stdlib.h> - -#include <glib.h> - -#include "pangowin32-private.h" - -#include "pango-utils.h" -#include "pango-impl-utils.h" - -static gboolean pango_win32_debug = FALSE; - -#include <usp10.h> - -static PangoGlyph -find_char (PangoFont *font, - gunichar wc) -{ - return pango_win32_font_get_glyph_index (font, wc); -} - -static void -set_glyph (PangoFont *font, - PangoGlyphString *glyphs, - int i, - int offset, - PangoGlyph glyph) -{ - PangoRectangle logical_rect; - - glyphs->glyphs[i].glyph = glyph; - - glyphs->glyphs[i].geometry.x_offset = 0; - glyphs->glyphs[i].geometry.y_offset = 0; - - glyphs->log_clusters[i] = offset; - - pango_font_get_glyph_extents (font, glyphs->glyphs[i].glyph, NULL, &logical_rect); - glyphs->glyphs[i].geometry.width = logical_rect.width; -} - -static void -swap_range (PangoGlyphString *glyphs, - int start, - int end) -{ - int i, j; - - for (i = start, j = end - 1; i < j; i++, j--) - { - PangoGlyphInfo glyph_info; - gint log_cluster; - - glyph_info = glyphs->glyphs[i]; - glyphs->glyphs[i] = glyphs->glyphs[j]; - glyphs->glyphs[j] = glyph_info; - - log_cluster = glyphs->log_clusters[i]; - glyphs->log_clusters[i] = glyphs->log_clusters[j]; - glyphs->log_clusters[j] = log_cluster; - } -} - -#ifdef BASIC_WIN32_DEBUGGING - -static char * -lang_name (int lang) -{ - LCID lcid = MAKELCID (lang, SORT_DEFAULT); - static char retval[10]; - - if (!GetLocaleInfo (lcid, LOCALE_SISO639LANGNAME, retval, G_N_ELEMENTS (retval))) - sprintf (retval, "%#02x", lang); - - return retval; -} - -#endif /* BASIC_WIN32_DEBUGGING */ - -static WORD -make_langid (PangoLanguage *lang) -{ -#define CASE(t,p,s) if (pango_language_matches (lang, t)) return MAKELANGID (LANG_##p, SUBLANG_##p##_##s) -#define CASEN(t,p) if (pango_language_matches (lang, t)) return MAKELANGID (LANG_##p, SUBLANG_NEUTRAL) - - /* Languages that most probably don't affect Uniscribe have been - * left out. Uniscribe is documented to use - * SCRIPT_CONTROL::uDefaultLanguage only to select digit shapes, so - * just leave languages with own digits. - */ - - CASEN ("ar", ARABIC); - CASEN ("hy", ARMENIAN); - CASEN ("as", ASSAMESE); - CASEN ("az", AZERI); - CASEN ("bn", BENGALI); - CASE ("zh-tw", CHINESE, TRADITIONAL); - CASE ("zh-cn", CHINESE, SIMPLIFIED); - CASE ("zh-hk", CHINESE, HONGKONG); - CASE ("zh-sg", CHINESE, SINGAPORE); - CASE ("zh-mo", CHINESE, MACAU); - CASEN ("dib", DIVEHI); - CASEN ("fa", FARSI); - CASEN ("ka", GEORGIAN); - CASEN ("gu", GUJARATI); - CASEN ("he", HEBREW); - CASEN ("hi", HINDI); - CASEN ("ja", JAPANESE); - CASEN ("kn", KANNADA); - CASE ("ks-in", KASHMIRI, INDIA); - CASEN ("ks", KASHMIRI); - CASEN ("kk", KAZAK); - CASEN ("kok", KONKANI); - CASEN ("ko", KOREAN); - CASEN ("ky", KYRGYZ); - CASEN ("ml", MALAYALAM); - CASEN ("mni", MANIPURI); - CASEN ("mr", MARATHI); - CASEN ("mn", MONGOLIAN); - CASE ("ne-in", NEPALI, INDIA); - CASEN ("ne", NEPALI); - CASEN ("or", ORIYA); - CASEN ("pa", PUNJABI); - CASEN ("sa", SANSKRIT); - CASEN ("sd", SINDHI); - CASEN ("syr", SYRIAC); - CASEN ("ta", TAMIL); - CASEN ("tt", TATAR); - CASEN ("te", TELUGU); - CASEN ("th", THAI); - CASE ("ur-pk", URDU, PAKISTAN); - CASE ("ur-in", URDU, INDIA); - CASEN ("ur", URDU); - CASEN ("uz", UZBEK); - -#undef CASE -#undef CASEN - - return MAKELANGID (LANG_NEUTRAL, SUBLANG_NEUTRAL); -} - -#ifdef BASIC_WIN32_DEBUGGING - -static void -dump_glyphs_and_log_clusters (gboolean rtl, - int itemlen, - int charix0, - WORD *log_clusters, - WORD *iglyphs, - int nglyphs) -{ - if (pango_win32_debug) - { - int j, k, nclusters, clusterix, charix, ng; - - g_print (" ScriptShape: nglyphs=%d: ", nglyphs); - - for (j = 0; j < nglyphs; j++) - g_print ("%d%s", iglyphs[j], (j < nglyphs-1) ? "," : ""); - g_print ("\n"); - - g_print (" log_clusters: "); - for (j = 0; j < itemlen; j++) - g_print ("%d ", log_clusters[j]); - g_print ("\n"); - nclusters = 0; - for (j = 0; j < itemlen; j++) - { - if (j == 0 || log_clusters[j-1] != log_clusters[j]) - nclusters++; - } - g_print (" %d clusters:\n", nclusters); - - /* If RTL, first char is the last in the run, otherwise the - * first. - */ - clusterix = 0; - if (rtl) - { - int firstglyphix = 0; - for (j = itemlen - 1, charix = charix0 + j; j >= 0; j--, charix--) - { - if (j == itemlen - 1 || log_clusters[j] != log_clusters[j+1]) - g_print (" Cluster %d: chars %d--", - clusterix, charix); - if (j == 0 || log_clusters[j-1] != log_clusters[j]) - { - ng = log_clusters[j] - firstglyphix + 1; - g_print ("%d: %d glyphs: ", - charix, ng); - for (k = firstglyphix; k <= log_clusters[j]; k++) - { - g_print ("%d", iglyphs[k]); - if (k < log_clusters[j]) - g_print (","); - } - firstglyphix = log_clusters[j] + 1; - clusterix++; - g_print ("\n"); - } - } - } - else - { - for (j = 0, charix = charix0; j < itemlen; j++, charix++) - { - if (j == 0 || log_clusters[j-1] != log_clusters[j]) - g_print (" Cluster %d: wchar_t %d--", - clusterix, charix); - if (j == itemlen - 1 || log_clusters[j] != log_clusters[j+1]) - { - int klim = ((j == itemlen-1) ? nglyphs : log_clusters[j+1]); - ng = klim - log_clusters[j]; - g_print ("%d: %d glyphs: ", - charix, ng); - for (k = log_clusters[j]; k < klim; k++) - { - g_print ("%d", iglyphs[k]); - if (k != klim - 1) - g_print (","); - } - clusterix++; - g_print ("\n"); - } - } - } - } -} - -#endif /* BASIC_WIN32_DEBUGGING */ - -static void -set_up_pango_log_clusters (wchar_t *wtext, - gboolean rtl, - int itemlen, - WORD *usp_log_clusters, - int nglyphs, - gint *pango_log_clusters, - int char_offset) -{ - int j, k; - int first_char_in_cluster; - - if (rtl) - { - /* RTL. Walk Uniscribe log_clusters array backwards, build Pango - * log_clusters array forwards. - */ - int glyph0 = 0; - first_char_in_cluster = itemlen - 1; - for (j = itemlen - 1; j >= 0; j--) - { - if (j < itemlen - 1 && usp_log_clusters[j+1] != usp_log_clusters[j]) - { - /* Cluster starts */ - first_char_in_cluster = j; - } - if (j == 0) - { - /* First char, cluster ends */ - for (k = glyph0; k < nglyphs; k++) - pango_log_clusters[k] = first_char_in_cluster + char_offset; - } - else if (usp_log_clusters[j-1] == usp_log_clusters[j]) - { - /* Cluster continues */ - first_char_in_cluster = j-1; - } - else - { - /* Cluster ends */ - for (k = glyph0; k <= usp_log_clusters[j]; k++) - pango_log_clusters[k] = first_char_in_cluster + char_offset; - glyph0 = usp_log_clusters[j] + 1; - } - } - } - else - { - /* LTR. Walk Uniscribe log_clusters array forwards, build Pango - * log_clusters array also forwards. - */ - first_char_in_cluster = 0; - for (j = 0; j < itemlen; j++) - { - if (j > 0 && usp_log_clusters[j-1] != usp_log_clusters[j]) - { - /* Cluster starts */ - first_char_in_cluster = j; - } - if (j == itemlen - 1) - { - /* Last char, cluster ends */ - for (k = usp_log_clusters[j]; k < nglyphs; k++) - pango_log_clusters[k] = first_char_in_cluster + char_offset; - } - else if (usp_log_clusters[j] == usp_log_clusters[j+1]) - { - /* Cluster continues */ - } - else - { - /* Cluster ends */ - for (k = usp_log_clusters[j]; k < usp_log_clusters[j+1]; k++) - pango_log_clusters[k] = first_char_in_cluster + char_offset; - } - } - } -} - -static void -convert_log_clusters_to_byte_offsets (const char *text, - gint length, - PangoGlyphString *glyphs, - gint utf16_len) -{ - const char *p; - int charix, glyphix; - int *byte_offset = g_new (int, utf16_len); - - p = text; - charix = 0; - while (p < text + length) - { - byte_offset[charix] = p - text; - charix++; - if (g_utf8_get_char (p) > 0xFFFF) - { - byte_offset[charix] = p - text; - charix++; - } - p = g_utf8_next_char (p); - } - g_assert (charix <= utf16_len); - - /* Convert utf16 indexes in the log_clusters array to byte offsets. - */ - for (glyphix = 0; glyphix < glyphs->num_glyphs; glyphix++) - { - g_assert (glyphs->log_clusters[glyphix] < utf16_len); - glyphs->log_clusters[glyphix] = byte_offset[glyphs->log_clusters[glyphix]]; - } - - g_free (byte_offset); -} - -typedef struct { - HFONT hfont; - gint32 script; -} script_cache_key; - -static guint -script_cache_key_hash_func (script_cache_key *key) -{ - return g_direct_hash (key->hfont) ^ g_int_hash (&(key->script)); -} - -static gboolean -script_cache_key_equal_func (script_cache_key *a, - script_cache_key *b) -{ - return (a->hfont == b->hfont) && (a->script == b->script); -} - -static gboolean -itemize_shape_and_place (PangoFont *font, - HDC hdc, - wchar_t *wtext, - int wlen, - const PangoAnalysis *analysis, - PangoGlyphString *glyphs) -{ - int i; - int item, nitems, item_step; - int itemlen, glyphix, nglyphs; - SCRIPT_CONTROL control; - SCRIPT_STATE state; - SCRIPT_ITEM items[100]; - double scale = pango_win32_font_get_metrics_factor (font); - HFONT hfont = _pango_win32_font_get_hfont (font); - static GHashTable *script_cache_hash = NULL; - - if (!script_cache_hash) - script_cache_hash = g_hash_table_new ((GHashFunc)script_cache_key_hash_func, - (GEqualFunc)script_cache_key_equal_func); - - memset (&control, 0, sizeof (control)); - memset (&state, 0, sizeof (state)); - - control.uDefaultLanguage = make_langid (analysis->language); - state.uBidiLevel = analysis->level; - -#ifdef BASIC_WIN32_DEBUGGING - if (pango_win32_debug) - g_print (G_STRLOC ": ScriptItemize: uDefaultLanguage:%04x uBidiLevel:%d\n", - control.uDefaultLanguage, state.uBidiLevel); -#endif - if (ScriptItemize (wtext, wlen, G_N_ELEMENTS (items), &control, NULL, - items, &nitems)) - { -#ifdef BASIC_WIN32_DEBUGGING - if (pango_win32_debug) - g_print ("ScriptItemize failed\n"); -#endif - return FALSE; - } - -#ifdef BASIC_WIN32_DEBUGGING - if (pango_win32_debug) - g_print ("%d items:\n", nitems); -#endif - - if (analysis->level % 2) - { - item = nitems - 1; - item_step = -1; - } - else - { - item = 0; - item_step = 1; - } - - for (i = 0; i < nitems; i++, item += item_step) - { - WORD iglyphs[1000]; - WORD log_clusters[1000]; - SCRIPT_VISATTR visattrs[1000]; - int advances[1000]; - GOFFSET offsets[1000]; - ABC abc; - gint32 script = items[item].a.eScript; - int ng; - int char_offset; - SCRIPT_CACHE *script_cache; - script_cache_key font_and_script_key; - - memset (advances, 0, sizeof (advances)); - memset (offsets, 0, sizeof (offsets)); - memset (&abc, 0, sizeof (abc)); - - /* Note that itemlen is number of wchar_t's i.e. surrogate pairs - * count as two! - */ - itemlen = items[item+1].iCharPos - items[item].iCharPos; - char_offset = items[item].iCharPos; - -#ifdef BASIC_WIN32_DEBUGGING - if (pango_win32_debug) - { - static const SCRIPT_PROPERTIES **scripts; - static int nscripts; - if (!nscripts) - ScriptGetProperties (&scripts, &nscripts); - g_print (" Item %d: iCharPos=%d eScript=%d (%s) %s%s%s%s%s%s%s wchar_t %d--%d (%d)\n", - item, items[item].iCharPos, script, - lang_name (scripts[script]->langid), - scripts[script]->fComplex ? "complex" : "simple", - items[item].a.fRTL ? " fRTL" : "", - items[item].a.fLayoutRTL ? " fLayoutRTL" : "", - items[item].a.fLinkBefore ? " fLinkBefore" : "", - items[item].a.fLinkAfter ? " fLinkAfter" : "", - items[item].a.fLogicalOrder ? " fLogicalOrder" : "", - items[item].a.fNoGlyphIndex ? " fNoGlyphIndex" : "", - items[item].iCharPos, items[item+1].iCharPos-1, itemlen); -#endif - /* Create a hash key based on hfont and script engine */ - font_and_script_key.hfont = hfont; - font_and_script_key.script = script; - - /* Get the script cache for this hfont and script */ - script_cache = g_hash_table_lookup (script_cache_hash, &font_and_script_key); - if (!script_cache) - { - script_cache_key *key_n; - SCRIPT_CACHE *new_script_cache; - - key_n = g_new (script_cache_key, 1); - *key_n = font_and_script_key; - - new_script_cache = g_new0 (SCRIPT_CACHE, 1); - script_cache = new_script_cache; - - /* Insert the new value */ - g_hash_table_insert (script_cache_hash, key_n, new_script_cache); - -#ifdef BASIC_WIN32_DEBUGGING - if (pango_win32_debug) - g_print (" New SCRIPT_CACHE for font %p and script %d\n", hfont, script); -#endif - } - - items[item].a.fRTL = analysis->level % 2; - if (ScriptShape (hdc, script_cache, - wtext + items[item].iCharPos, itemlen, - G_N_ELEMENTS (iglyphs), - &items[item].a, - iglyphs, - log_clusters, - visattrs, - &nglyphs)) - { -#ifdef BASIC_WIN32_DEBUGGING - if (pango_win32_debug) - g_print ("pangowin32-shape: ScriptShape failed\n"); -#endif - return FALSE; - } - -#ifdef BASIC_WIN32_DEBUGGING - dump_glyphs_and_log_clusters (items[item].a.fRTL, itemlen, - items[item].iCharPos, log_clusters, - iglyphs, nglyphs); -#endif - - ng = glyphs->num_glyphs; - pango_glyph_string_set_size (glyphs, ng + nglyphs); - - set_up_pango_log_clusters (wtext + items[item].iCharPos, - items[item].a.fRTL, itemlen, log_clusters, - nglyphs, glyphs->log_clusters + ng, - char_offset); - - if (ScriptPlace (hdc, script_cache, iglyphs, nglyphs, - visattrs, &items[item].a, - advances, offsets, &abc)) - { -#ifdef BASIC_WIN32_DEBUGGING - if (pango_win32_debug) - g_print ("pangowin32-shape: ScriptPlace failed\n"); -#endif - return FALSE; - } - - for (glyphix = 0; glyphix < nglyphs; glyphix++) - { - if (iglyphs[glyphix] != 0) - { - glyphs->glyphs[ng+glyphix].glyph = iglyphs[glyphix]; - glyphs->glyphs[ng+glyphix].geometry.width = floor (0.5 + scale * advances[glyphix]); - glyphs->glyphs[ng+glyphix].geometry.x_offset = floor (0.5 + scale * offsets[glyphix].du); - glyphs->glyphs[ng+glyphix].geometry.y_offset = -floor (0.5 + scale * offsets[glyphix].dv); - } - else - { - PangoRectangle logical_rect; - /* Should pass actual char that was not found to - * PANGO_GET_UNKNOWN_GLYPH(), but a bit hard to - * find out that at this point, so cheat and use 0. - */ - PangoGlyph unk = PANGO_GET_UNKNOWN_GLYPH (0); - - glyphs->glyphs[ng+glyphix].glyph = unk; - pango_font_get_glyph_extents (font, unk, NULL, &logical_rect); - glyphs->glyphs[ng+glyphix].geometry.width = logical_rect.width; - glyphs->glyphs[ng+glyphix].geometry.x_offset = 0; - glyphs->glyphs[ng+glyphix].geometry.y_offset = 0; - } - } - } - -#ifdef BASIC_WIN32_DEBUGGING - if (pango_win32_debug) - { - g_print (" Pango log_clusters (level:%d), char index:", analysis->level); - for (glyphix = 0; glyphix < glyphs->num_glyphs; glyphix++) - g_print ("%d ", glyphs->log_clusters[glyphix]); - g_print ("\n"); - } -#endif - - return TRUE; -} - -static gboolean -uniscribe_shape (PangoFont *font, - const char *text, - gint length, - const PangoAnalysis *analysis, - PangoGlyphString *glyphs) -{ - wchar_t *wtext; - long wlen; - HDC hdc = _pango_win32_hdc; - gboolean retval = TRUE; - - if (!pango_win32_font_select_font (font, hdc)) - return FALSE; - - wtext = g_utf8_to_utf16 (text, length, NULL, &wlen, NULL); - if (wtext == NULL) - retval = FALSE; - - if (retval) - { - retval = itemize_shape_and_place (font, hdc, wtext, wlen, analysis, glyphs); - } - - if (retval) - { - convert_log_clusters_to_byte_offsets (text, length, glyphs, wlen); -#ifdef BASIC_WIN32_DEBUGGING - if (pango_win32_debug) - { - int glyphix; - - g_print (" Pango log_clusters, byte offsets:"); - for (glyphix = 0; glyphix < glyphs->num_glyphs; glyphix++) - g_print ("%d ", glyphs->log_clusters[glyphix]); - g_print ("\n"); - } -#endif - } - - pango_win32_font_done_font (font); - - g_free (wtext); - - return retval && glyphs->num_glyphs > 0; -} - -static gboolean -text_is_simple (const char *text, - gint length) -{ - gboolean retval; - wchar_t *wtext; - long wlen; - - wtext = (wchar_t *) g_utf8_to_utf16 (text, length, NULL, &wlen, NULL); - if (wtext == NULL) - return TRUE; - - retval = (ScriptIsComplex (wtext, wlen, SIC_COMPLEX) == S_FALSE); - - g_free (wtext); - -#ifdef BASIC_WIN32_DEBUGGING - if (pango_win32_debug) - g_print ("text_is_simple: %.*s (%ld wchar_t): %s\n", - MIN (length, 10), text, wlen, retval ? "YES" : "NO"); -#endif - - return retval; -} - -void -_pango_win32_shape (PangoFont *font, - const char *text, - unsigned int length, - const PangoAnalysis *analysis, - PangoGlyphString *glyphs, - const char *paragraph_text G_GNUC_UNUSED, - unsigned int paragraph_length G_GNUC_UNUSED) -{ - int n_chars; - int i; - const char *p; - - g_return_if_fail (font != NULL); - g_return_if_fail (text != NULL); - g_return_if_fail (length >= 0); - g_return_if_fail (analysis != NULL); - - if (!text_is_simple (text, length) && - uniscribe_shape (font, text, length, analysis, glyphs)) - return; - - n_chars = pango_utf8_strlen (text, length); - - pango_glyph_string_set_size (glyphs, n_chars); - - p = text; - for (i = 0; i < n_chars; i++) - { - gunichar wc; - gunichar mirrored_ch; - PangoGlyph index; - - wc = g_utf8_get_char (p); - - if (analysis->level % 2) - if (g_unichar_get_mirror_char (wc, &mirrored_ch)) - wc = mirrored_ch; - - if (wc == 0xa0) /* non-break-space */ - wc = 0x20; - - if (pango_is_zero_width (wc)) - { - set_glyph (font, glyphs, i, p - text, PANGO_GLYPH_EMPTY); - } - else - { - index = find_char (font, wc); - if (index) - { - set_glyph (font, glyphs, i, p - text, index); - - if (g_unichar_type (wc) == G_UNICODE_NON_SPACING_MARK) - { - if (i > 0) - { - PangoRectangle logical_rect, ink_rect; - - glyphs->glyphs[i].geometry.width = MAX (glyphs->glyphs[i-1].geometry.width, - glyphs->glyphs[i].geometry.width); - glyphs->glyphs[i-1].geometry.width = 0; - glyphs->log_clusters[i] = glyphs->log_clusters[i-1]; - - /* Some heuristics to try to guess how overstrike glyphs are - * done and compensate - */ - /* FIXME: (alex) Is this double call to get_glyph_extents really necessary? */ - pango_font_get_glyph_extents (font, glyphs->glyphs[i].glyph, &ink_rect, &logical_rect); - if (logical_rect.width == 0 && ink_rect.x == 0) - glyphs->glyphs[i].geometry.x_offset = (glyphs->glyphs[i].geometry.width - ink_rect.width) / 2; - } - } - } - else - set_glyph (font, glyphs, i, p - text, PANGO_GET_UNKNOWN_GLYPH (wc)); - } - - p = g_utf8_next_char (p); - } - - /* Simple bidi support... may have separate modules later */ - - if (analysis->level % 2) - { - int start, end; - - /* Swap all glyphs */ - swap_range (glyphs, 0, n_chars); - - /* Now reorder glyphs within each cluster back to LTR */ - for (start = 0; start < n_chars;) - { - end = start; - while (end < n_chars && - glyphs->log_clusters[end] == glyphs->log_clusters[start]) - end++; - - swap_range (glyphs, start, end); - start = end; - } - } -} |