annotate lisp/language/tibet-util.el @ 29191:3977c8167022

(handle_invisible_prop): Don't try to skip over invisible text if end of text is already reached.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 25 May 2000 15:53:05 +0000
parents 60eb71a9f901
children 1ebd8db9c3dc
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
17315
a3ca5e15c82a Fix the format of the first line.
Kenichi Handa <handa@m17n.org>
parents: 17301
diff changeset
1 ;;; tibet-util.el --- Support for inputting Tibetan characters
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
18377
8b4a66c66dd6 Change copyright notice.
Richard M. Stallman <rms@gnu.org>
parents: 18309
diff changeset
4 ;; Licensed to the Free Software Foundation.
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
6 ;; Keywords: multilingual, Tibetan
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
7
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
9
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
13 ;; any later version.
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
14
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
19
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23 ;; Boston, MA 02111-1307, USA.
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
24
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25 ;; Author: Toru TOMABECHI, <Toru.Tomabechi@orient.unil.ch>
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
26
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27 ;; Created: Feb. 17. 1997
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
28
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29 ;; History:
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30 ;; 1997.03.13 Modification in treatment of text properties;
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
31 ;; Support for some special signs and punctuations.
26896
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
32 ;; 1999.10.25 Modification for a new composition way by K.Handa.
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34 ;;; Code:
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17776
diff changeset
36 ;;;###autoload
26896
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
37 (defun tibetan-char-p (ch)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
38 "Check if char CH is Tibetan character.
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
39 Returns non-nil if CH is Tibetan. Otherwise, returns nil."
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
40 (memq (char-charset ch) '(tibetan tibetan-1-column)))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
41
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
42 ;;; Functions for Tibetan <-> Tibetan-transcription.
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
43
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
44 ;;;###autoload
26896
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
45 (defun tibetan-tibetan-to-transcription (str)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
46 "Transcribe Tibetan string STR and return the corresponding Roman string."
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
47 (let (;; Accumulate transcriptions here in reverse order.
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
48 (trans nil)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
49 (len (length str))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
50 (i 0)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
51 ch this-trans)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
52 (while (< i len)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
53 (let ((idx (string-match tibetan-precomposition-rule-alist str i)))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
54 (if (eq idx i)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
55 ;; Ith character and the followings matches precomposable
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
56 ;; Tibetan sequence.
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
57 (setq i (match-end 0)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
58 this-trans
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
59 (car (rassoc
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
60 (cdr (assoc (match-string 0 str)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
61 tibetan-precomposition-rule-alist))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
62 tibetan-precomposed-transcription-alist)))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
63 (setq ch (substring str i (1+ i))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
64 i (1+ i)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
65 this-trans
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
66 (car (or (rassoc ch tibetan-consonant-transcription-alist)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
67 (rassoc ch tibetan-vowel-transcription-alist)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
68 (rassoc ch tibetan-subjoined-transcription-alist)))))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
69 (setq trans (cons this-trans trans))))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
70 (apply 'concat (nreverse trans))))
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
71
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
72 ;;;###autoload
26896
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
73 (defun tibetan-transcription-to-tibetan (str)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
74 "Convert Tibetan Roman string STR to Tibetan character string.
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
75 The returned string has no composition information."
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
76 (let (;; Case is significant.
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
77 (case-fold-search nil)
26896
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
78 (idx 0)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
79 ;; Accumulate Tibetan strings here in reverse order.
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
80 (t-str-list nil)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
81 i subtrans)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
82 (while (setq i (string-match tibetan-regexp str idx))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
83 (if (< idx i)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
84 ;; STR contains a pattern that doesn't match Tibetan
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
85 ;; transcription. Include the pattern as is.
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
86 (setq t-str-list (cons (substring str idx i) t-str-list)))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
87 (setq subtrans (match-string 0 str)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
88 idx (match-end 0))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
89 (let ((t-char (cdr (assoc subtrans
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
90 tibetan-precomposed-transcription-alist))))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
91 (if t-char
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
92 ;; SUBTRANS corresponds to a transcription for
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
93 ;; precomposable Tibetan sequence.
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
94 (setq t-char (car (rassoc t-char
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
95 tibetan-precomposition-rule-alist)))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
96 (setq t-char
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
97 (cdr
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
98 (or (assoc subtrans tibetan-consonant-transcription-alist)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
99 (assoc subtrans tibetan-vowel-transcription-alist)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
100 (assoc subtrans tibetan-modifier-transcription-alist)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
101 (assoc subtrans tibetan-subjoined-transcription-alist)))))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
102 (setq t-str-list (cons t-char t-str-list))))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
103 (if (< idx (length str))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
104 (setq t-str-list (cons (substring str idx) t-str-list)))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
105 (apply 'concat (nreverse t-str-list))))
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
106
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
107 ;;;
26896
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
108 ;;; Functions for composing/decomposing Tibetan sequence.
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
109 ;;;
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
110 ;;; A Tibetan syllable is typically structured as follows:
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
111 ;;;
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
112 ;;; [Prefix] C [C+] V [M] [Suffix [Post suffix]]
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
113 ;;;
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
114 ;;; where C's are all vertically stacked, V appears below or above
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
115 ;;; consonant cluster and M is always put above the C[C+]V combination.
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
116 ;;; (Sanskrit visarga, though it is a vowel modifier, is considered
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
117 ;;; to be a punctuation.)
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
118 ;;;
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
119 ;;; Here are examples of the words "bsgrubs" and "h'uM"
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
120 ;;;
28478
55576e0788b1 Fix encoding of the file.
Kenichi Handa <handa@m17n.org>
parents: 26896
diff changeset
121 ;;; 4$(7"70"714%qx!"U0"G###C"U14"70"714"G0"G1(B 4$(7"Hx!#Ax!"Ur'"_0"H"A"U"_1(B
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
122 ;;;
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
123 ;;; M
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
124 ;;; b s b s h
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
125 ;;; g '
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
126 ;;; r u
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
127 ;;; u
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
128 ;;;
26896
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
129 ;;; Consonants `'' ($(7"A(B), `w' ($(7">(B), `y' ($(7"B(B), `r' ($(7"C(B) take special
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
130 ;;; forms when they are used as subjoined consonant. Consonant `r'
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
131 ;;; takes another special form when used as superjoined in such a case
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
132 ;;; as "rka", while it does not change its form when conjoined with
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
133 ;;; subjoined `'', `w' or `y' as in "rwa", "rya".
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
134
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
135 ;; Append a proper composition rule and glyph to COMPONENTS to compose
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
136 ;; CHAR with a composition that has COMPONENTS.
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
137
26896
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
138 (defun tibetan-add-components (components char)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
139 (let ((last (last components))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
140 (stack-upper '(tc . bc))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
141 (stack-under '(bc . tc))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
142 rule)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
143 ;; Special treatment for 'a chung.
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
144 ;; If 'a follows a consonant, turn it into the subjoined form.
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
145 (if (and (= char ?$(7"A(B)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
146 (aref (char-category-set (car last)) ?0))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
147 (setq char ?$(7#A(B))
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
148
26896
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
149 (cond
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
150 ;; Compose upper vowel sign vertically over.
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
151 ((aref (char-category-set char) ?2)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
152 (setq rule stack-upper))
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
153
26896
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
154 ;; Compose lower vowel sign vertically under.
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
155 ((aref (char-category-set char) ?3)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
156 (setq rule stack-under))
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
157
26896
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
158 ;; Transform ra-mgo (superscribed r) if followed by a subjoined
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
159 ;; consonant other than w, ', y, r.
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
160 ((and (= (car last) ?$(7"C(B)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
161 (not (memq char '(?$(7#>(B ?$(7#A(B ?$(7#B(B ?$(7#C(B))))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
162 (setcar last ?$(7#P(B)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
163 (setq rule stack-under))
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
164
26896
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
165 ;; Transform initial base consonant if followed by a subjoined
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
166 ;; consonant but 'a.
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
167 (t
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
168 (let ((laststr (char-to-string (car last))))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
169 (if (and (/= char ?$(7#A(B)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
170 (string-match "[$(7"!(B-$(7"="?"@"D(B-$(7"J(B]" laststr))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
171 (setcar last (string-to-char
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
172 (cdr (assoc (char-to-string (car last))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
173 tibetan-base-to-subjoined-alist)))))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
174 (setq rule stack-under))))
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
175
26896
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
176 (setcdr last (list rule char))))
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
177
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
178 ;;;###autoload
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
179 (defun tibetan-compose-string (str)
26896
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
180 "Compose Tibetan string STR."
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
181 (let ((idx 0))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
182 ;; `$(7"A(B' is included in the pattern for subjoined consonants
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
183 ;; because we treat it specially in tibetan-add-components.
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
184 (while (setq idx (string-match tibetan-composable-pattern str idx))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
185 (let ((from idx)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
186 (to (match-end 0))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
187 components)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
188 (if (eq (string-match tibetan-precomposition-rule-regexp str idx) idx)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
189 (setq idx (match-end 0)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
190 components
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
191 (list (string-to-char
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
192 (cdr
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
193 (assoc (match-string 0 str)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
194 tibetan-precomposition-rule-alist)))))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
195 (setq components (list (aref str idx))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
196 idx (1+ idx)))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
197 (while (< idx to)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
198 (tibetan-add-components components (aref str idx))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
199 (setq idx (1+ idx)))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
200 (compose-string str from to components))))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
201 str)
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
202
19553
e63ba5228950 (tibetan-composition): Add autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 19366
diff changeset
203 ;;;###autoload
26896
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
204 (defun tibetan-compose-region (beg end)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
205 "Compose Tibetan text the region BEG and END."
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
206 (interactive "r")
26896
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
207 (let (str result chars)
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
208 (save-excursion
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
209 (save-restriction
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
210 (narrow-to-region beg end)
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
211 (goto-char (point-min))
26896
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
212 ;; `$(7"A(B' is included in the pattern for subjoined consonants
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
213 ;; because we treat it specially in tibetan-add-components.
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
214 (while (re-search-forward tibetan-composable-pattern nil t)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
215 (let ((from (match-beginning 0))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
216 (to (match-end 0))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
217 components)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
218 (goto-char from)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
219 (if (looking-at tibetan-precomposition-rule-regexp)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
220 (progn
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
221 (setq components
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
222 (list (string-to-char
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
223 (cdr
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
224 (assoc (match-string 0)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
225 tibetan-precomposition-rule-alist)))))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
226 (goto-char (match-end 0)))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
227 (setq components (list (char-after from)))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
228 (forward-char 1))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
229 (while (< (point) to)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
230 (tibetan-add-components components (following-char))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
231 (forward-char 1))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
232 (compose-region from to components)))))))
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
233
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
234 ;;;###autoload
26896
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
235 (defalias 'tibetan-decompose-region 'decompose-region)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
236 ;;;###autoload
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
237 (defalias 'tibetan-decompose-string 'decompose-string)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
238
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
239 ;;;###autoload
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
240 (defun tibetan-composition-function (from to pattern &optional string)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
241 (if string
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
242 (tibetan-compose-string string)
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
243 (tibetan-compose-region from to))
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
244 (- to from))
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
245
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
246 ;;;
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
247 ;;; This variable is used to avoid repeated decomposition.
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
248 ;;;
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
249 (setq-default tibetan-decomposed nil)
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
250
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
251 ;;;###autoload
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
252 (defun tibetan-decompose-buffer ()
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
253 "Decomposes Tibetan characters in the buffer into their components.
26896
d48416a42048 Most functions rewritten.
Kenichi Handa <handa@m17n.org>
parents: 24159
diff changeset
254 See also the documentation of the function `tibetan-decompose-region'."
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
255 (interactive)
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
256 (make-local-variable 'tibetan-decomposed)
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
257 (cond ((not tibetan-decomposed)
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
258 (tibetan-decompose-region (point-min) (point-max))
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
259 (setq tibetan-decomposed t))))
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
260
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
261 ;;;###autoload
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
262 (defun tibetan-compose-buffer ()
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
263 "Composes Tibetan character components in the buffer.
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
264 See also docstring of the function tibetan-compose-region."
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
265 (interactive)
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
266 (make-local-variable 'tibetan-decomposed)
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
267 (tibetan-compose-region (point-min) (point-max))
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
268 (setq tibetan-decomposed nil))
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
269
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
270 ;;;###autoload
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
271 (defun tibetan-post-read-conversion (len)
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
272 (save-excursion
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
273 (save-restriction
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
274 (let ((buffer-modified-p (buffer-modified-p)))
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
275 (narrow-to-region (point) (+ (point) len))
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
276 (tibetan-compose-region (point-min) (point-max))
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
277 (set-buffer-modified-p buffer-modified-p)
20107
4595a463b105 (tibetan-post-read-conversion): Return
Kenichi Handa <handa@m17n.org>
parents: 19553
diff changeset
278 (make-local-variable 'tibetan-decomposed)
4595a463b105 (tibetan-post-read-conversion): Return
Kenichi Handa <handa@m17n.org>
parents: 19553
diff changeset
279 (setq tibetan-decomposed nil)
4595a463b105 (tibetan-post-read-conversion): Return
Kenichi Handa <handa@m17n.org>
parents: 19553
diff changeset
280 (- (point-max) (point-min))))))
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
281
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
282
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
283 ;;;###autoload
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
284 (defun tibetan-pre-write-conversion (from to)
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
285 (setq tibetan-decomposed-temp tibetan-decomposed)
23522
0f86fe9632e0 (tibetan-pre-write-conversion): Use with-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
286 (let ((old-buf (current-buffer)))
23545
0d25c6f765ab (tibetan-pre-write-conversion): Cancel previous
Kenichi Handa <handa@m17n.org>
parents: 23522
diff changeset
287 (set-buffer (generate-new-buffer " *temp*"))
0d25c6f765ab (tibetan-pre-write-conversion): Cancel previous
Kenichi Handa <handa@m17n.org>
parents: 23522
diff changeset
288 (if (stringp from)
0d25c6f765ab (tibetan-pre-write-conversion): Cancel previous
Kenichi Handa <handa@m17n.org>
parents: 23522
diff changeset
289 (insert from)
0d25c6f765ab (tibetan-pre-write-conversion): Cancel previous
Kenichi Handa <handa@m17n.org>
parents: 23522
diff changeset
290 (insert-buffer-substring old-buf from to))
0d25c6f765ab (tibetan-pre-write-conversion): Cancel previous
Kenichi Handa <handa@m17n.org>
parents: 23522
diff changeset
291 (if (not tibetan-decomposed-temp)
0d25c6f765ab (tibetan-pre-write-conversion): Cancel previous
Kenichi Handa <handa@m17n.org>
parents: 23522
diff changeset
292 (tibetan-decompose-region (point-min) (point-max)))
17776
ece62fdeeebb (tibetan-pre-write-conversion): Make it work
Kenichi Handa <handa@m17n.org>
parents: 17315
diff changeset
293 ;; Should return nil as annotations.
ece62fdeeebb (tibetan-pre-write-conversion): Make it work
Kenichi Handa <handa@m17n.org>
parents: 17315
diff changeset
294 nil))
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
295
18309
bd8b521f5218 Provide XXX-util instead of
Kenichi Handa <handa@m17n.org>
parents: 17993
diff changeset
296 (provide 'tibet-util)
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
297
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
298 ;;; language/tibet-util.el ends here.