Mercurial > emacs
view lisp/language/mlm-util.el @ 54341:80dfe07a1d65
New file (image.c) for Image consolidation:
(COLOR_TABLE_SUPPORT): New define to control whether
color table support is available (X only).
(Bitmap_Record): Common name for x_bitmap_record,
w32_bitmap_record, and mac_bitmap_record.
(XImagePtr): Common name for pointer to XImage or equivalent.
(XImagePtr_or_DC): New type to simplify code sharing; equivalent
to XImagePtr on X+MAC, and to HDC on W32.
(GET_PIXEL): Wrapper for XGetPixel or equivalent.
(NO_PIXMAP): Common name for "None" or equivalent.
(PNG_BG_COLOR_SHIFT): Bits to shift PNG background colors.
(RGB_PIXEL_COLOR): Common type for an integer "pixel color" value.
(PIX_MASK_RETAIN, PIX_MASK_DRAW): Portability macros (from macfns.c).
(FRAME_X_VISUAL, x_defined_color, DefaultDepthOfScreen): Define
with suitable equivalents on W32 and MAC for code sharing.
(XDrawLine): Define on MAC for code sharing.
(Destroy_Image, Free_Pixmap): Wrappers for code sharing.
(IF_LIB_AVAILABLE): Macro to simplify code sharing.
(Vx_bitmap_file_path, Vimage_cache_eviction_delay)
(x_bitmap_height, x_bitmap_width, x_bitmap_pixmap)
(x_reference_bitmap, x_create_bitmap_from_data)
(x_create_bitmap_from_file, x_destroy_bitmap)
(x_destroy_all_bitmaps, x_create_bitmap_mask)
(XGetImage, XPutPixel, XGetPixel, XDestroyImage)
(QCascent, QCmargin, QCrelief, QCconversion, QCcolor_symbols)
(QCheuristic_mask, QCindex, QCmatrix, QCcolor_adjustment, QCmask)
(Qlaplace, Qemboss, Qedge_detection, Qheuristic, Qcenter)
(define_image_type, lookup_image_type, valid_image_p)
(image_error, enum image_value_type, struct image_keyword)
(parse_image_spec, image_spec_value, Fimage_size, Fimage_mask_p)
(make_image, free_image, prepare_image_for_display, image_ascent)
(four_corners_best, image_background, image_background_transparent)
(x_clear_image_1, x_clear_image, x_alloc_image_color)
(make_image_cache, free_image_cache, clear_image_cache)
(Fclear_image_cache, postprocess_image, lookup_image, cache_image)
(forall_images_in_image_cache, x_create_x_image_and_pixmap)
(x_destroy_x_image, x_put_x_image, x_find_image_file, slurp_file)
(find_image_fsspec, image_load_qt_1, image_load_quicktime)
(init_image_func_pointer, image_load_quartz2d)
(struct ct_color, init_color_table, free_color_table)
(lookup_rgb_color, lookup_pixel_color, colors_in_color_table)
(cross_disabled_images, x_to_xcolors, x_from_xcolors)
(x_detect_edges, x_emboss, x_laplace, x_edge_detection)
(x_disable_image, x_build_heuristic_mask)
(XBM support, XPM support, PBM support, PNG support, JPEG support)
(TIFF support, GIF support, Ghostscript support): Consolidate image
code from xfns.c, w32fns.c, and macfns.c.
(syms_of_image): Consolidate image related symbol setup here.
(init_image): Consolidate image related initializations here.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Thu, 11 Mar 2004 00:28:24 +0000 |
parents | 88807cd5407c |
children | 18a818a2ee7c |
line wrap: on
line source
;;; mlm-util.el --- support for composing malayalam characters -*-coding: iso-2022-7bit;-*- ;; Copyright (C) 2003 Free Software Foundation, Inc. ;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> ;; Keywords: multilingual, Malayalam ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; GNU Emacs 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 General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;; Created: Feb. 11. 2003 ;;; Commentary: ;; This file provides character(Unicode) to glyph(CDAC) conversion and ;; composition of Malayalam script characters. ;;; Code: ;; Malayalam Composable Pattern ;; C .. Consonants ;; V .. Vowel ;; H .. Halant ;; M .. Matra ;; V .. Vowel ;; A .. Anuswar ;; D .. Chandrabindu ;; (N .. Zerowidth Non Joiner) ;; (J .. Zerowidth Joiner. ) ;; 1. vowel ;; V(A|visargam)? ;; 2. syllable : maximum of 5 consecutive consonants. (e.g. kartsnya) ;; ((CH)?(CH)?(CH)?CH)?C(H|M?(A|D)?)? (defconst malayalam-consonant "[$,1@5(B-$,1@Y(B]") (defconst malayalam-composable-pattern (concat "\\([$,1@%(B-$,1@4(B][$,1@"(B]?\\)\\|$,1@#(B" "\\|\\(" "\\(?:\\(?:[$,1@5(B-$,1@Y(B]$,1@m(B\\)?\\(?:[$,1@5(B-$,1@Y(B]$,1@m(B\\)?\\(?:[$,1@5(B-$,1@Y(B]$,1@m(B\\)?[$,1@5(B-$,1@Y(B]$,1@m(B\\)?" "[$,1@5(B-$,1@Y(B]\\(?:$,1@m(B\\|[$,1@^(B-$,1@c@f@g@h@j@j@k@l(B]?[$,1@"@m(B]?\\)?" "\\)") "Regexp matching a composable sequence of Malayalam characters.") ;;;###autoload (defun malayalam-compose-region (from to) (interactive "r") (save-excursion (save-restriction (narrow-to-region from to) (goto-char (point-min)) (while (re-search-forward malayalam-composable-pattern nil t) (malayalam-compose-syllable-region (match-beginning 0) (match-end 0)))))) (defun malayalam-compose-string (string) (with-temp-buffer (insert (decompose-string string)) (malayalam-compose-region (point-min) (point-max)) (buffer-string))) ;;;###autoload (defun malayalam-post-read-conversion (len) (save-excursion (save-restriction (let ((buffer-modified-p (buffer-modified-p))) (narrow-to-region (point) (+ (point) len)) (malayalam-compose-region (point-min) (point-max)) (set-buffer-modified-p buffer-modified-p) (- (point-max) (point-min)))))) (defun malayalam-range (from to) "Make the list of the integers of range FROM to TO." (let (result) (while (<= from to) (setq result (cons to result) to (1- to))) result)) (defun malayalam-regexp-of-hashtbl-keys (hashtbl) "Return a regular expression that matches all keys in hashtable HASHTBL." (let ((max-specpdl-size 1000)) (regexp-opt (sort (let (dummy) (maphash (function (lambda (key val) (setq dummy (cons key dummy)))) hashtbl) dummy) (function (lambda (x y) (> (length x) (length y)))))))) ;;;###autoload (defun malayalam-composition-function (from to pattern &optional string) "Compose Malayalam characters in REGION, or STRING if specified. Assume that the REGION or STRING must fully match the composable PATTERN regexp." (if string (malayalam-compose-syllable-string string) (malayalam-compose-syllable-region from to)) (- to from)) ;; Register a function to compose Malayalam characters. (mapc (function (lambda (ucs) (aset composition-function-table (decode-char 'ucs ucs) (list (cons malayalam-composable-pattern 'malayalam-composition-function))))) (nconc '(#x0d02 #x0d03) (malayalam-range #x0d05 #x0d39))) ;; Notes on conversion steps. ;; 1. chars to glyphs ;; ;; Simple replacement of characters to glyphs is done. ;; 2. glyphs reordering. ;; ;; Two special reordering rule takes place. ;; a. following "$,46[(B" goes to the front. ;; b. following "$,46S6S(B", "$,46S(B" or "$,46T(B" goes to the front. ;; This reordering occurs only to the last cluster of consonants. ;; Preceding consonants with halant characters are not affected. ;; 3. Composition. ;; ;; left modifiers will be attached at the left. ;; others will be attached right. (defvar mlm-char-glyph '(;; various signs ("$,1@"(B" . "$,46W(B") ("$,1@#(B" . "$,46X(B") ;; Independent Vowels ("$,1@%(B" . "$,46!(B") ("$,1@&(B" . "$,46"(B") ("$,1@'(B" . "$,46#(B") ("$,1@((B" . "$,46#6U(B") ("$,1@)(B" . "$,46$(B") ("$,1@*(B" . "$,46$6U(B") ("$,1@+(B" . "$,46%(B") ("$,1@,(B" . "nil") ;; not in present use, not supported. ("$,1@.(B" . "$,46&(B") ("$,1@/(B" . "$,46'(B") ("$,1@0(B" . "$,46S6&(B") ("$,1@2(B" . "$,46((B") ("$,1@3(B" . "$,46(6M(B") ("$,1@4(B" . "$,46(6U(B") ;; Consonants ("$,1@5(B" . "$,46)(B") ("$,1@5@m@5(B" . "$,47!(B") ("$,1@5@m@S(B" . "$,47"(B") ("$,1@5@m@W(B" . "$,47#(B") ("$,1@5@m@?(B" . "$,47N(B") ("$,1@5@m@D(B" . "$,47`(B") ("$,1@5@a(B" . "$,47f(B") ("$,1@5@m@5@a(B" . "$,47g(B") ("$,1@5@a(B" . "$,47f(B") ("$,1@5@m@5@a(B" . "$,47g(B") ("$,1@6(B" . "$,46*(B") ("$,1@7(B" . "$,46+(B") ("$,1@7@m@7(B" . "$,47$(B") ("$,1@7@m@R(B" . "$,47%(B") ("$,1@7@m@N(B" . "$,47\(B") ("$,1@7@m@H(B" . "$,47a(B") ("$,1@8(B" . "$,46,(B") ("$,1@9(B" . "$,46-(B") ("$,1@9@m@5(B" . "$,47&(B") ("$,1@9@m@9(B" . "$,47'(B") ("$,1@9@m@5@a(B" . "$,47h(B") ("$,1@:(B" . "$,46.(B") ("$,1@:@m@:(B" . "$,47((B") ;; duplicate ("$,1@:@m@;(B" . "$,47Q(B") ("$,1@;(B" . "$,46/(B") ("$,1@<(B" . "$,460(B") ("$,1@<@m@<(B" . "$,47V(B") ("$,1@<@m@>(B" . "$,47Z(B") ("$,1@=(B" . "$,461(B") ("$,1@>(B" . "$,462(B") ("$,1@>@m@:(B" . "$,47)(B") ("$,1@>@m@>(B" . "$,47*(B") ("$,1@?(B" . "$,463(B") ("$,1@?@m@?(B" . "$,47+(B") ("$,1@@(B" . "$,464(B") ("$,1@A(B" . "$,465(B") ("$,1@A@m@A(B" . "$,47M(B") ("$,1@B(B" . "$,466(B") ("$,1@C(B" . "$,467(B") ("$,1@C@a@m(B" . "$,47,(B") ;; half consonant ("$,1@C@m@?(B" . "$,47-(B") ("$,1@C@m@C(B" . "$,47.(B") ("$,1@C@m@N(B" . "$,47W(B") ("$,1@C@m@A(B" . "$,47^(B") ("$,1@C@a(B" . "$,47i(B") ("$,1@D(B" . "$,468(B") ("$,1@D@m@D(B" . "$,47/(B") ("$,1@D@m@E(B" . "$,470(B") ("$,1@D@m@X(B" . "$,47U(B") ("$,1@D@m@M(B" . "$,47[(B") ("$,1@D@m@N(B" . "$,47_(B") ("$,1@E(B" . "$,469(B") ("$,1@F(B" . "$,46:(B") ("$,1@F@m@F(B" . "$,471(B") ("$,1@F@m@G(B" . "$,472(B") ("$,1@G(B" . "$,46;(B") ("$,1@H(B" . "$,46<(B") ("$,1@H@a@m(B" . "$,473(B") ;; half consonant ("$,1@H@m@D(B" . "$,474(B") ("$,1@H@m@F(B" . "$,475(B") ("$,1@H@m@H(B" . "$,476(B") ("$,1@H@m@N(B" . "$,477(B") ("$,1@H@m@G(B" . "$,47T(B") ("$,1@H@m@E(B" . "$,47Y(B") ("$,1@H@m@Q(B" . "$,47b(B") ("$,1@H@a(B" . "$,47k(B") ("$,1@H@m@H@a(B" . "$,47l(B") ("$,1@J(B" . "$,46=(B") ("$,1@J@m@J(B" . "$,478(B") ;; duplicate ("$,1@J@m@R(B" . "$,479(B") ;; lakar ("$,1@K(B" . "$,46>(B") ("$,1@L(B" . "$,46?(B") ("$,1@L@m@L(B" . "$,47:(B") ;; duplicate ("$,1@L@m@R(B" . "$,47;(B") ;; lakar ("$,1@L@m@G(B" . "$,47O(B") ("$,1@L@m@F(B" . "$,47P(B") ("$,1@M(B" . "$,46@(B") ("$,1@N(B" . "$,46A(B") ("$,1@N@m@J(B" . "$,47<(B") ("$,1@N@m@N(B" . "$,47=(B") ("$,1@N@m@R(B" . "$,47>(B") ;; lakar ("$,1@O(B" . "$,46B(B") ("$,1@O@m@O(B" . "$,47?(B") ;; duplicate ("$,1@O@m@5@m@5(B" . "$,47m(B") ("$,1@P(B" . "$,46C(B") ("$,1@P@a@m(B" . "$,47@(B") ("$,1@P@a(B" . "$,47j(B") ("$,1@Q(B" . "$,46D(B") ("$,1@Q@m(B" . "$,47@(B") ;; same glyph as "$,1@P@m(B" ("$,1@Q@a@m(B" . "$,47@(B") ;; same glyph as "$,1@P@m(B" ;;("$,1@Q@m@Q(B" . "$,47A(B") ("$,1@Q@m@Q(B" . "$,47d(B") ("$,1@R(B" . "$,46E(B") ("$,1@R@a@m(B" . "$,47B(B") ("$,1@R@m@R(B" . "$,47C(B") ;; lakar ("$,1@R@m@J(B" . "$,47e(B") ("$,1@S(B" . "$,46F(B") ("$,1@S@a@m(B" . "$,47D(B") ("$,1@S@m@S(B" . "$,47E(B") ("$,1@T(B" . "$,46G(B") ("$,1@U(B" . "$,46H(B") ("$,1@U@m@U(B" . "$,47F(B") ("$,1@V(B" . "$,46I(B") ("$,1@V@m@R(B" . "$,47G(B") ("$,1@V@m@V(B" . "$,47H(B") ("$,1@V@m@:(B" . "$,47](B") ("$,1@W(B" . "$,46J(B") ("$,1@W@m@?(B" . "$,47c(B") ("$,1@X(B" . "$,46K(B") ("$,1@X@m@R(B" . "$,47I(B") ("$,1@X@m@X(B" . "$,47J(B") ("$,1@X@m@Q@m@Q(B" . "$,47L(B") ("$,1@X@m@E(B" . "$,47X(B") ("$,1@Y(B" . "$,46L(B") ("$,1@Y@m@R(B" . "$,47K(B") ("$,1@Y@m@N(B" . "$,47R(B") ("$,1@Y@m@H(B" . "$,47S(B") ;; Dependent vowel signs ("$,1@^(B" . "$,46M(B") ("$,1@_(B" . "$,46N(B") ("$,1@`(B" . "$,46O(B") ("$,1@a(B" . "$,46P(B") ("$,1@b(B" . "$,46Q(B") ("$,1@c(B" . "$,46R(B") ("$,1@f(B" . "$,46S(B") ("$,1@g(B" . "$,46T(B") ("$,1@h(B" . "$,46S6S(B") ("$,1@j(B" . "$,46S6M(B") ("$,1@k(B" . "$,46T6M(B") ("$,1@l(B" . "$,46U(B") ;; Various signs ("$,1@m(B" . "$,46V(B") ("$,1@m@O(B" . "$,46Y(B") ;; yakar ("$,1@m@O@a(B" . "$,46\(B") ;; yakar + u ("$,1@m@O@b(B" . "$,46](B") ;; yakar + uu ("$,1@m@U(B" . "$,46Z(B") ;; vakar modifier ("$,1@m@P(B" . "$,46[(B") ;; rakar modifier is the same to rra modifier. ("$,1@m@P@m(B" . "$,46R(B") ;; halant + rakar + halant ("$,1@m@Q(B" . "$,46[(B") ;; rrakar modifier ("$,1@m@Q@m(B" . "$,46R(B") ;; halant + rrakar + halant ("$,1@m@m(B" . "$,46V(B") ;; double omission sign to stop forming half consonant. ("$,1@w(B" . "$,46U(B") ;; not in present use, already at 0D4C. )) (defvar mlm-char-glyph-hash (let* ((hash (make-hash-table :test 'equal))) (mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) mlm-char-glyph) hash)) (defvar mlm-char-glyph-regexp (malayalam-regexp-of-hashtbl-keys mlm-char-glyph-hash)) ;; Malayalam languages needed to be reordered in a complex mannar. (defvar mlm-consonants (concat "$,46)6*6+6,6-6.6/606162636465666768696:6;6<6=6>6?6@6A6B6C6D6E6F6G6H6I6J6K6L(B" "$,47!7"7#7$7%7&7'7(7)7*7+7,7-7.7/707172737475767778797:7;7<7=7>7?7@7A7B7C7D7E7F7G7H7I7J7K7L7M7N7O7P7Q7R7S7T7U7V7W7X7Y7Z7[7\7]7^7_7`7a7b7c7d7e(B" )) (defvar mlm-consonants-regexp (concat "\\($,46[(B?[" mlm-consonants "][$,46Y6Z(B]?\\)")) (defvar mlm-glyph-reorder-key-glyphs "[$,46[6S6T(B]") (defvar mlm-glyph-reordering-regexp-list `((,(concat "\\([" mlm-consonants "][$,46Y6Z(B]?\\)$,46[(B") . "$,46[(B\\1") (,(concat mlm-consonants-regexp "$,46S6S(B") . "$,46S6S(B\\1") (,(concat mlm-consonants-regexp "$,46S(B") . "$,46S(B\\1") (,(concat mlm-consonants-regexp "$,46T(B") . "$,46T(B\\1"))) (defun malayalam-compose-syllable-string (string) (with-temp-buffer (insert (decompose-string string)) (malayalam-compose-syllable-region (point-min) (point-max)) (buffer-string))) (defun malayalam-compose-syllable-region (from to) "Compose malayalam syllable in region FROM to TO." (let (glyph-str match-str glyph-reorder-regexps glyph-reorder-replace glyph-reorder-regexp) (save-excursion (save-restriction (narrow-to-region from to) (goto-char (point-min)) ;; char-glyph-conversion (while (re-search-forward mlm-char-glyph-regexp nil t) (setq match-str (match-string 0)) (setq glyph-str (concat glyph-str (gethash match-str mlm-char-glyph-hash)))) (when (string-match mlm-glyph-reorder-key-glyphs glyph-str) ;; glyph reordering (setq glyph-reorder-regexps mlm-glyph-reordering-regexp-list) (while glyph-reorder-regexps (setq glyph-reorder-regexp (caar glyph-reorder-regexps)) (setq glyph-reorder-replace (cdar glyph-reorder-regexps)) (setq glyph-reorder-regexps (cdr glyph-reorder-regexps)) (if (string-match glyph-reorder-regexp glyph-str) (setq glyph-str (replace-match glyph-reorder-replace nil nil glyph-str))))) ;; concatenate and attach reference-points. (setq glyph-str (cdr (apply 'nconc (mapcar (function (lambda (x) (list '(5 . 3) x))) ;; default ref. point. glyph-str)))) (compose-region from to glyph-str))))) (provide 'mlm-util) ;;; arch-tag: 7f25ee67-8f9d-49f2-837b-35c412c00eba ;;; devan-util.el ends here