diff options
Diffstat (limited to 'modules/indic/devanagari-x.c')
-rw-r--r-- | modules/indic/devanagari-x.c | 361 |
1 files changed, 0 insertions, 361 deletions
diff --git a/modules/indic/devanagari-x.c b/modules/indic/devanagari-x.c deleted file mode 100644 index 865124e3..00000000 --- a/modules/indic/devanagari-x.c +++ /dev/null @@ -1,361 +0,0 @@ -/* Pango - Devanagari module - * - * Copyright (C) 2000 SuSE Linux Ltd - * Author: Robert Brady <robert@suse.co.uk> - * - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Lesser General Public - * Licence as published by the Free Software Foundation; either - * version 2.1 of the Licence, 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 - * Lesser General Public Licence for more details. - * - * You should have received a copy of the GNU Lesser General Public - * Licence along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - */ - -/* - * This is the renderer for the Devanagari script. - * - * This script is used to write many languages, including the - * following. - * - * awa Awadhi bh Bihari bra Braj Bhasa - * gon Gondhi hi Hindi kok Konkani - * mr Marathi new Newari ne Nepali - * sa Sanskrit sat Santali - * - * For a description of the rendering algorithm, see section 9.1 of - * /The Unicode Standard Version 3.0/. - */ - - -#include <glib.h> -#include <string.h> - -#include "pangox.h" -#include "pango-engine.h" - -#define RANGE_START 0x900 -#define RANGE_SIZE 0x80 - -#define ISCII_BASED -#define SCRIPT_STRING "Devanagari" -#define SCRIPT_ENGINE_NAME SCRIPT_STRING "ScriptEngineX" - -#include "pango-indic.h" -#include "pango-indic-script.h" - -static gboolean is_prefixing_vowel (gunichar i); -static gboolean is_vowel_sign (gunichar i); -static gunichar vowel_sign_to_matra (gunichar i); - -static PangoIndicScript script = -{ - SCRIPT_STRING, - &is_prefixing_vowel, - &is_vowel_sign, - &vowel_sign_to_matra, - NULL, /* no split vowels for Devanagari */ -}; - -#define INTERMEDIATE_HALF_FORM_OFFSET 0xf000 -#define FINAL_HALF_FORM_OFFSET 0xe000 - -#define RA_SUPERSCRIPT 0xc97f -#define RA_SUBSCRIPT 0xc97e - -static char *default_charset = "iso10646-dev"; - -static PangoEngineRange pango_indic_range[] = -{ - {RANGE_START, RANGE_END, "*"}, - {PANGO_ZERO_WIDTH_JOINER, PANGO_ZERO_WIDTH_JOINER, "*"}, -}; - -SCRIPT_ENGINE_DEFINITION - -static PangoCoverage * -pango_indic_engine_get_coverage (PangoFont * font, PangoLanguage *lang) -{ - gunichar i; - PangoCoverage *result = pango_coverage_new (); - PangoXSubfont subfont; - - int dev_font = pango_x_find_first_subfont (font, &default_charset, 1, &subfont); - - if (dev_font) - { - for (i = RANGE_START; i <= RANGE_END; i++) - pango_coverage_set (result, i, PANGO_COVERAGE_EXACT); - - pango_coverage_set (result, PANGO_ZERO_WIDTH_JOINER, PANGO_COVERAGE_EXACT); - } - - return result; -} - -static gboolean -is_vowel_sign (gunichar i) -{ - /* one that combines, whether or not it spaces */ - return (i >= 0x93E && i <= 0x94c) || (i >= 0x962 && i <= 0x963); -} - -static int -is_consonant (int i) -{ - return (i >= 0x915 && i <= 0x939) || (i >= 0x958 && i <= 0x95f); -} - -static int -is_ind_vowel (int i) -{ - return (i >= 0x905 && i <= 0x914); -} - -static gunichar -vowel_sign_to_matra (gunichar i) -{ - if (is_vowel_sign (i)) - return i + 0x905 - 0x93e; - return i; -} - -static gboolean -is_prefixing_vowel (gunichar i) -{ - return i == 0x93f; -} - -static void -dev_mini_shuffle (gunichar *s, gunichar *e) -{ - gunichar *dest = s; - while (s < e) - { - if (*s) - { - *dest = *s; - dest++; - } - s++; - } - while (dest < e) - { - *dest = 0; - dest++; - } -} - -static int -is_intermediate_form (int q) -{ - return (q >= 0xf000 && q <= 0xffff); -} - -static int -is_consonantal_form (int q) -{ - return (q == PANGO_ZERO_WIDTH_JOINER) || is_consonant (q) || (q >= 0xd000); -} - -static int -nominal_form (int q) -{ - return q - 0xf000; -} - -static int -half_form (int q) -{ - return (q & 0xfff) + 0xe000; -} - -static void -shuffle_one_along (gunichar *start, gunichar *end) -{ - end--; - if (*end != 0) - g_printerr ("pango devanagari error, please report. bad shuffle!\n"); - while (end > start) - { - end[0] = end[-1]; - end--; - } - start[0] = 0; -} - -static void -pango_indic_make_ligs (gunichar * start, gunichar * end) -{ - int num = end - start; - int i; - - for (i = 0; i < (end - start); i++) - { - gunichar t0 = pango_indic_get_char (start + i, end); - gunichar t1 = pango_indic_get_char (start + 1 + i, end); - - if (is_consonant (t0) && t1 == VIRAMA) - { - start[i+0] = t0 + INTERMEDIATE_HALF_FORM_OFFSET; - start[i+1] = 0; - } - } - - if (num > 2 && start[0] == INTERMEDIATE_HALF_FORM_OFFSET + RA) - { - for (i=1;i<num;i++) - start[i-1] = start[i]; - - start[num-1] = RA_SUPERSCRIPT; - } - - dev_mini_shuffle (start, end); - - for (i = 0; i < (end - start - 1); i++) - if (is_intermediate_form (start[i])) - { - if (start[i+1] == RA) - { - start[i] = nominal_form (start[i]); - start[i+1] = RA_SUBSCRIPT; - } - else if (start[i+1] == (RA + INTERMEDIATE_HALF_FORM_OFFSET)) - { - start[i] = nominal_form (start[i]); - start[i+1] = RA_SUBSCRIPT; - shuffle_one_along (start+2, end); - start[i+2] = VIRAMA; - } - } -} - -static void -pango_indic_engine_shape (PangoFont * font, - const char *text, - int length, - PangoAnalysis * analysis, - PangoGlyphString * glyphs) -{ - PangoXSubfont subfont; - - int n_chars, n_glyph; - int lvl; - int i; - gunichar *wc; - int sb; - int n_syls; - gunichar **syls = g_new (gunichar *, 2); - - g_return_if_fail (font != NULL); - g_return_if_fail (text != NULL); - g_return_if_fail (length >= 0); - g_return_if_fail (analysis != NULL); - - n_chars = n_glyph = g_utf8_strlen (text, length); - lvl = pango_x_find_first_subfont (font, &default_charset, 1, &subfont); - if (!lvl) - { - pango_x_fallback_shape (font, glyphs, text, n_chars); - return; - } - - pango_indic_split_out_characters (&script, text, n_chars, &wc, &n_glyph, - glyphs); - pango_indic_convert_vowels (&script, TRUE, &n_glyph, wc, - pango_x_has_glyph (font, - PANGO_X_MAKE_GLYPH(subfont, 0xc93e))); - - n_syls = 1; - syls[0] = wc; - sb = glyphs->log_clusters[0]; - for (i = 0; i < n_chars; i++) - { - if (i && (is_consonant (wc[i]) | is_ind_vowel (wc[i])) - && wc[i - 1] != VIRAMA) - { - syls = g_renew (gunichar *, syls, n_syls + 2); - syls[n_syls] = wc + i; - n_syls++; - sb = glyphs->log_clusters[i]; - } - glyphs->log_clusters[i] = sb; - } - syls[n_syls] = wc + i; - - for (i = 0; i < n_syls; i++) - { - pango_indic_make_ligs (syls[i], syls[i+1]); - pango_indic_shift_vowels (&script, syls[i], syls[i + 1]); - } - - pango_indic_compact (&script, &n_glyph, wc, glyphs->log_clusters); - pango_x_apply_ligatures (font, subfont, &wc, &n_glyph, &glyphs->log_clusters); - pango_indic_compact (&script, &n_glyph, wc, glyphs->log_clusters); - pango_glyph_string_set_size (glyphs, n_glyph); - - for (i = 0; i < n_glyph; i++) - { - PangoRectangle logical_rect; -#if 0 - if (i && (wc[i] == VIRAMA) && (wc[i-1] == RA_SUBSCRIPT)) - { - wc[i] = LOWER_VIRAMA_GLYPH; - } -#endif - if ((i != (n_glyph - 1)) && is_intermediate_form (wc[i]) && - is_consonantal_form (wc[i+1])) - { - wc[i] = half_form (wc[i]); - } - glyphs->glyphs[i].glyph = PANGO_X_MAKE_GLYPH (subfont, wc[i]); - pango_font_get_glyph_extents (font, glyphs->glyphs[i].glyph, - NULL, &logical_rect); - glyphs->glyphs[i].geometry.x_offset = 0; - glyphs->glyphs[i].geometry.y_offset = 0; - glyphs->glyphs[i].geometry.width = logical_rect.width; - } - g_free (syls); -} - -static PangoEngine * -pango_indic_engine_x_new () -{ - PangoEngineShape *result; - result = g_new (PangoEngineShape, 1); - result->engine.id = SCRIPT_ENGINE_NAME; - result->engine.type = PANGO_ENGINE_TYPE_SHAPE; - result->engine.length = sizeof (result); - result->script_shape = pango_indic_engine_shape; - result->get_coverage = pango_indic_engine_get_coverage; - return (PangoEngine *) result; -} - -void -PANGO_MODULE_ENTRY(list) (PangoEngineInfo **engines, - int *n_engines) -{ - *engines = script_engines; - *n_engines = n_script_engines; -} - -PangoEngine * -PANGO_MODULE_ENTRY(load) (const char *id) -{ - if (!strcmp (id, SCRIPT_ENGINE_NAME)) - return pango_indic_engine_x_new (); - else - return NULL; -} - -void -PANGO_MODULE_ENTRY(unload) (PangoEngine *engine) -{ -} |