[bpt/emacs.git] / lisp / language / thai-util.el

;;; thai-util.el --- utilities for Thai -*- coding: iso-2022-7bit; -*-

;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
;;   2005, 2006, 2007, 2008
;;   National Institute of Advanced Industrial Science and Technology (AIST)
;;   Registration Number H14PRO021
;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
;;   Free Software Foundation, Inc.

;; Keywords: mule, multilingual, Thai, i18n

;; 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 3, 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., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Commentary:

;;; Code:

(defvar thai-auto-composition-mode)

;; Setting information of Thai characters.

(defconst thai-category-table (make-category-table))
(define-category ?c "Thai consonant" thai-category-table)
(define-category ?v "Thai upper/lower vowel" thai-category-table)
(define-category ?t "Thai tone mark" thai-category-table)
(define-category ?u "Thai tone mark and upper sign" thai-category-table)
(define-category ?I "THAI CHARACTER SARA I" thai-category-table)
(define-category ?U "THAI CHARACTER THANTHAKHAT" thai-category-table)

;; The general composing rules are as follows:
;;
;;                          T
;;       V        U         V                  U
;; CV -> C, CU -> C, CVT -> C, Cv -> C, CvU -> C
;;                                   v         v
;;
;; where C: consonant, V: vowel upper, v: vowel lower,
;;       T: tone mark, U: tone mark and upper sign.
;; Special rule: The sign `\e,Tl\e(B' can be put on the vowel `\e,TT\e(B'.


(defvar thai-composition-pattern
  "\\cc\\(\\cu\\|\\cI\\cU\\|\\cv\\ct?\\)\\|\\cv\\ct\\|\\cI\\cU"
  "Regular expression matching a Thai composite sequence.")

(let ((l '((?\e,T!\e(B consonant "LETTER KO KAI")				; 0xA1
	   (?\e,T"\e(B consonant "LETTER KHO KHAI")				; 0xA2
	   (?\e,T#\e(B consonant "LETTER KHO KHUAT")				; 0xA3
	   (?\e,T$\e(B consonant "LETTER KHO KHWAI")				; 0xA4
	   (?\e,T%\e(B consonant "LETTER KHO KHON")				; 0xA5
	   (?\e,T&\e(B consonant "LETTER KHO RAKHANG")				; 0xA6
	   (?\e,T'\e(B consonant "LETTER NGO NGU")				; 0xA7
	   (?\e,T(\e(B consonant "LETTER CHO CHAN")				; 0xA8
	   (?\e,T)\e(B consonant "LETTER CHO CHING")				; 0xA9
	   (?\e,T*\e(B consonant "LETTER CHO CHANG")				; 0xAA
	   (?\e,T+\e(B consonant "LETTER SO SO")				; 0xAB
	   (?\e,T,\e(B consonant "LETTER CHO CHOE")				; 0xAC
	   (?\e,T-\e(B consonant "LETTER YO YING")				; 0xAD
	   (?\e,T.\e(B consonant "LETTER DO CHADA")				; 0xAE
	   (?\e,T/\e(B consonant "LETTER TO PATAK")				; 0xAF
	   (?\e,T0\e(B consonant "LETTER THO THAN")				; 0xB0
	   (?\e,T1\e(B consonant "LETTER THO NANGMONTHO")			; 0xB1
	   (?\e,T2\e(B consonant "LETTER THO PHUTHAO")				; 0xB2
	   (?\e,T3\e(B consonant "LETTER NO NEN")				; 0xB3
	   (?\e,T4\e(B consonant "LETTER DO DEK")				; 0xB4
	   (?\e,T5\e(B consonant "LETTER TO TAO")				; 0xB5
	   (?\e,T6\e(B consonant "LETTER THO THUNG")				; 0xB6
	   (?\e,T7\e(B consonant "LETTER THO THAHAN")				; 0xB7
	   (?\e,T8\e(B consonant "LETTER THO THONG")				; 0xB8
	   (?\e,T9\e(B consonant "LETTER NO NU")				; 0xB9
	   (?\e,T:\e(B consonant "LETTER BO BAIMAI")				; 0xBA
	   (?\e,T;\e(B consonant "LETTER PO PLA")				; 0xBB
	   (?\e,T<\e(B consonant "LETTER PHO PHUNG")				; 0xBC
	   (?\e,T=\e(B consonant "LETTER FO FA")				; 0xBD
	   (?\e,T>\e(B consonant "LETTER PHO PHAN")				; 0xBE
	   (?\e,T?\e(B consonant "LETTER FO FAN")				; 0xBF
	   (?\e,T@\e(B consonant "LETTER PHO SAMPHAO")				; 0xC0
	   (?\e,TA\e(B consonant "LETTER MO MA")				; 0xC1
	   (?\e,TB\e(B consonant "LETTER YO YAK")				; 0xC2
	   (?\e,TC\e(B consonant "LETTER RO RUA")				; 0xC3
	   (?\e,TD\e(B vowel-base "LETTER RU (Pali vowel letter)")		; 0xC4
	   (?\e,TE\e(B consonant "LETTER LO LING")				; 0xC5
	   (?\e,TF\e(B vowel-base "LETTER LU (Pali vowel letter)")		; 0xC6
	   (?\e,TG\e(B consonant "LETTER WO WAEN")				; 0xC7
	   (?\e,TH\e(B consonant "LETTER SO SALA")				; 0xC8
	   (?\e,TI\e(B consonant "LETTER SO RUSI")				; 0xC9
	   (?\e,TJ\e(B consonant "LETTER SO SUA")				; 0xCA
	   (?\e,TK\e(B consonant "LETTER HO HIP")				; 0xCB
	   (?\e,TL\e(B consonant "LETTER LO CHULA")				; 0xCC
	   (?\e,TM\e(B consonant "LETTER O ANG")				; 0xCD
	   (?\e,TN\e(B consonant "LETTER HO NOK HUK")				; 0xCE
	   (?\e,TO\e(B special "PAI YAN NOI (abbreviation)")			; 0xCF
	   (?\e,TP\e(B vowel-base "VOWEL SIGN SARA A")				; 0xD0
	   (?\e,TQ\e(B vowel-upper "VOWEL SIGN MAI HAN-AKAT N/S-T")		; 0xD1
	   (?\e,TR\e(B vowel-base "VOWEL SIGN SARA AA")				; 0xD2
	   (?\e,TS\e(B vowel-base "VOWEL SIGN SARA AM")				; 0xD3
	   (?\e,TT\e(B vowel-upper "VOWEL SIGN SARA I N/S-T")			; 0xD4
	   (?\e,TU\e(B vowel-upper "VOWEL SIGN SARA II N/S-T")			; 0xD5
	   (?\e,TV\e(B vowel-upper "VOWEL SIGN SARA UE N/S-T")			; 0xD6
	   (?\e,TW\e(B vowel-upper "VOWEL SIGN SARA UEE N/S-T")			; 0xD7
	   (?\e,TX\e(B vowel-lower "VOWEL SIGN SARA U N/S-B")			; 0xD8
	   (?\e,TY\e(B vowel-lower "VOWEL SIGN SARA UU N/S-B")			; 0xD9
	   (?\e,TZ\e(B vowel-lower "VOWEL SIGN PHINTHU N/S-B (Pali virama)")	; 0xDA
	   (?\e,T[\e(B invalid nil)						; 0xDA
	   (?\e,T\\e(B invalid nil)						; 0xDC
	   (?\e,T]\e(B invalid nil)						; 0xDC
	   (?\e,T^\e(B invalid nil)						; 0xDC
	   (?\e,T_\e(B special "BAHT SIGN (currency symbol)")			; 0xDF
	   (?\e,T`\e(B vowel-base "VOWEL SIGN SARA E")				; 0xE0
	   (?\e,Ta\e(B vowel-base "VOWEL SIGN SARA AE")				; 0xE1
	   (?\e,Tb\e(B vowel-base "VOWEL SIGN SARA O")				; 0xE2
	   (?\e,Tc\e(B vowel-base "VOWEL SIGN SARA MAI MUAN")			; 0xE3
	   (?\e,Td\e(B vowel-base "VOWEL SIGN SARA MAI MALAI")			; 0xE4
	   (?\e,Te\e(B vowel-base "LAK KHANG YAO")				; 0xE5
	   (?\e,Tf\e(B special "MAI YAMOK (repetion)")				; 0xE6
	   (?\e,Tg\e(B sign-upper "VOWEL SIGN MAI TAI KHU N/S-T")		; 0xE7
	   (?\e,Th\e(B tone "TONE MAI EK N/S-T")				; 0xE8
	   (?\e,Ti\e(B tone "TONE MAI THO N/S-T")				; 0xE9
	   (?\e,Tj\e(B tone "TONE MAI TRI N/S-T")				; 0xEA
	   (?\e,Tk\e(B tone "TONE MAI CHATTAWA N/S-T")				; 0xEB
	   (?\e,Tl\e(B sign-upper "THANTHAKHAT N/S-T (cancellation mark)")	; 0xEC
	   (?\e,Tm\e(B sign-upper "NIKKHAHIT N/S-T (final nasal)")		; 0xED
	   (?\e,Tn\e(B sign-upper "YAMAKKAN N/S-T")				; 0xEE
	   (?\e,To\e(B special "FONRMAN")					; 0xEF
	   (?\e,Tp\e(B special "DIGIT ZERO")					; 0xF0
	   (?\e,Tq\e(B special "DIGIT ONE")					; 0xF1
	   (?\e,Tr\e(B special "DIGIT TWO")					; 0xF2
	   (?\e,Ts\e(B special "DIGIT THREE")					; 0xF3
	   (?\e,Tt\e(B special "DIGIT FOUR")					; 0xF4
	   (?\e,Tu\e(B special "DIGIT FIVE")					; 0xF5
	   (?\e,Tv\e(B special "DIGIT SIX")					; 0xF6
	   (?\e,Tw\e(B special "DIGIT SEVEN")					; 0xF7
	   (?\e,Tx\e(B special "DIGIT EIGHT")					; 0xF8
	   (?\e,Ty\e(B special "DIGIT NINE")					; 0xF9
	   (?\e,Tz\e(B special "ANGKHANKHU (ellipsis)")				; 0xFA
	   (?\e,T{\e(B special "KHOMUT (beginning of religious texts)")		; 0xFB
	   (?\e,T|\e(B invalid nil)						; 0xFC
	   (?\e,T}\e(B invalid nil)						; 0xFD
	   (?\e,T~\e(B invalid nil)						; 0xFE
	   ))
      elm)
  (while l
    (setq elm (car l) l (cdr l))
    (let ((char (car elm))
	  (ptype (nth 1 elm)))
      (put-char-code-property char 'phonetic-type ptype)
      (cond ((eq ptype 'consonant)
	     (modify-category-entry char ?c thai-category-table))
	    ((memq ptype '(vowel-upper vowel-lower))
	     (modify-category-entry char ?v thai-category-table)
	     (if (= char ?\e,TT\e(B)
		 ;; Give category `I' to "SARA I".
		 (modify-category-entry char ?I thai-category-table)))
	    ((eq ptype 'tone)
	     (modify-category-entry char ?t thai-category-table)
	     (modify-category-entry char ?u thai-category-table))
	    ((eq ptype 'sign-upper)
	     (modify-category-entry char ?u thai-category-table)
	     (if (= char ?\e,Tl\e(B)
		 ;; Give category `U' to "THANTHAKHAT".
		 (modify-category-entry char ?U thai-category-table))))
      (put-char-code-property char 'name (nth 2 elm)))))

(defun thai-compose-syllable (beg end &optional category-set string)
  (or category-set
      (setq category-set
	    (char-category-set (if string (aref string beg) (char-after beg)))))
  (if (aref category-set ?c)
      ;; Starting with a consonant.  We do relative composition.
      (if string
	  (compose-string string beg end)
	(compose-region beg end))
    ;; Vowel tone sequence.
    (if string
	(compose-string string beg end (list (aref string beg) '(Bc . Bc)
					     (aref string (1+ beg))))
      (compose-region beg end (list (char-after beg) '(Bc . Bc)
				    (char-after (1+ beg))))))
  (- end beg))

;;;###autoload
(defun thai-compose-region (beg end)
  "Compose Thai characters in the region.
When called from a program, expects two arguments,
positions (integers or markers) specifying the region."
  (interactive "r")
  (let ((pos (point)))
    (save-restriction
      (narrow-to-region beg end)
      (goto-char (point-min))
      (with-category-table thai-category-table
	(while (re-search-forward thai-composition-pattern nil t)
	  (setq beg (match-beginning 0) end (match-end 0))
	  (if (and (> pos beg) (< pos end))
	      (setq pos end))
	  (thai-compose-syllable beg end
				 (char-category-set (char-after beg))))))
    (goto-char pos)))

;;;###autoload
(defun thai-compose-string (string)
  "Compose Thai characters in STRING and return the resulting string."
  (with-category-table thai-category-table
    (let ((idx 0))
      (while (setq idx (string-match thai-composition-pattern string idx))
	(thai-compose-syllable idx (match-end 0) nil string)
	(setq idx (match-end 0)))))
  string)

;;;###autoload
(defun thai-compose-buffer ()
  "Compose Thai characters in the current buffer."
  (interactive)
  (thai-compose-region (point-min) (point-max)))

;;;###autoload
(defun thai-composition-function (pos to font-object string)
  (setq pos (1- pos))
  (with-category-table thai-category-table
    (if string
	(if (and (>= pos 0)
		 (eq (string-match thai-composition-pattern string pos) pos))
	    (prog1 (match-end 0)
	      (thai-compose-syllable pos (match-end 0) nil string)))
      (if (>= pos (point-min))
	  (progn
	    (goto-char pos)
	    (if (looking-at thai-composition-pattern)
		(prog1 (match-end 0)
		  (thai-compose-syllable pos (match-end 0)))))))))

;; Thai-word-mode requires functions in the feature `thai-word'.
(require 'thai-word)

(defvar thai-word-mode-map
  (let ((map (make-sparse-keymap)))
    (define-key map [remap forward-word] 'thai-forward-word)
    (define-key map [remap backward-word] 'thai-backward-word)
    (define-key map [remap kill-word] 'thai-kill-word)
    (define-key map [remap backward-kill-word] 'thai-backward-kill-word)
    (define-key map [remap transpose-words] 'thai-transpose-words)
    map)
  "Keymap for `thai-word-mode'.")

(define-minor-mode thai-word-mode
  "Minor mode to make word-oriented commands aware of Thai words.
The commands affected are \\[forward-word], \\[backward-word], \\[kill-word], \\[backward-kill-word], \\[transpose-words], and \\[fill-paragraph]."
  :global t :group 'mule
  (cond (thai-word-mode
	 ;; This enables linebreak between Thai characters.
	 (modify-category-entry (make-char 'thai-tis620) ?|)
	 ;; This enables linebreak at a Thai word boundary.
	 (put-charset-property 'thai-tis620 'fill-find-break-point-function
			       'thai-fill-find-break-point))
	(t
	 (modify-category-entry (make-char 'thai-tis620) ?| nil t)
	 (put-charset-property 'thai-tis620 'fill-find-break-point-function
			       nil))))

;; Function to call on entering the Thai language environment.
(defun setup-thai-language-environment-internal ()
  (thai-word-mode 1))

;; Function to call on exiting the Thai language environment.
(defun exit-thai-language-environment-internal ()
  (thai-word-mode -1))

;;
(provide 'thai-util)

;; arch-tag: 59425d6a-8cf9-4e06-a6ab-8ab7dc7a7a97
;;; thai-util.el ends here
Commit	Line	Data
64fd2bb1	1	;;; thai-util.el --- utilities for Thai -- coding: iso-2022-7bit; --
4ed46869	2
7976eda0	3	;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
38141d20	4	;; 2005, 2006, 2007, 2008
8f924df7	5	;; National Institute of Advanced Industrial Science and Technology (AIST)
8f9eda28	6	;; Registration Number H14PRO021
38141d20	7	;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
d4877ac1	8	;; Free Software Foundation, Inc.
4ed46869	9
ffdc0bca	10	;; Keywords: mule, multilingual, Thai, i18n
4ed46869 KH	11
	12	;; This file is part of GNU Emacs.
	13
	14	;; GNU Emacs is free software; you can redistribute it and/or modify
	15	;; it under the terms of the GNU General Public License as published by
d7142f3e	16	;; the Free Software Foundation; either version 3, or (at your option)
4ed46869 KH	17	;; any later version.
	18
	19	;; GNU Emacs is distributed in the hope that it will be useful,
	20	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	21	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	22	;; GNU General Public License for more details.
	23
	24	;; You should have received a copy of the GNU General Public License
369314dc	25	;; along with GNU Emacs; see the file COPYING. If not, write to the
3a35cf56 LK	26	;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
3a35cf56 LK	27	;; Boston, MA 02110-1301, USA.
4ed46869	28
60370d40 PJ	29	;;; Commentary:
60370d40 PJ	30
4ed46869 KH	31	;;; Code:
4ed46869 KH	32
6978c919 JB	33	(defvar thai-auto-composition-mode)
6978c919 JB	34
4ed46869 KH	35	;; Setting information of Thai characters.
4ed46869 KH	36
c595d888 KH	37	(defconst thai-category-table (make-category-table))
	38	(define-category ?c "Thai consonant" thai-category-table)
	39	(define-category ?v "Thai upper/lower vowel" thai-category-table)
8f9eda28 KH	40	(define-category ?t "Thai tone mark" thai-category-table)
	41	(define-category ?u "Thai tone mark and upper sign" thai-category-table)
	42	(define-category ?I "THAI CHARACTER SARA I" thai-category-table)
	43	(define-category ?U "THAI CHARACTER THANTHAKHAT" thai-category-table)
c595d888 KH	44
	45	;; The general composing rules are as follows:
	46	;;
	47	;; T
8f9eda28 KH	48	;; V U V U
8f9eda28 KH	49	;; CV -> C, CU -> C, CVT -> C, Cv -> C, CvU -> C
c595d888 KH	50	;; v v
c595d888 KH	51	;;
8f9eda28 KH	52	;; where C: consonant, V: vowel upper, v: vowel lower,
	53	;; T: tone mark, U: tone mark and upper sign.
	54	;; Special rule: The sign `\e,Tl\e(B' can be put on the vowel `\e,TT\e(B'.
c595d888	55
8f9eda28 KH	56
	57	(defvar thai-composition-pattern
	58	"\\cc\\(\\cu\\\|\\cI\\cU\\\|\\cv\\ct?\\)\\\|\\cv\\ct\\\|\\cI\\cU"
c595d888	59	"Regular expression matching a Thai composite sequence.")
3de54645	60
4ed46869 KH	61	(let ((l '((?\e,T!\e(B consonant "LETTER KO KAI") ; 0xA1
	62	(?\e,T"\e(B consonant "LETTER KHO KHAI") ; 0xA2
	63	(?\e,T#\e(B consonant "LETTER KHO KHUAT") ; 0xA3
	64	(?\e,T$\e(B consonant "LETTER KHO KHWAI") ; 0xA4
	65	(?\e,T%\e(B consonant "LETTER KHO KHON") ; 0xA5
	66	(?\e,T&\e(B consonant "LETTER KHO RAKHANG") ; 0xA6
	67	(?\e,T'\e(B consonant "LETTER NGO NGU") ; 0xA7
	68	(?\e,T(\e(B consonant "LETTER CHO CHAN") ; 0xA8
	69	(?\e,T)\e(B consonant "LETTER CHO CHING") ; 0xA9
	70	(?\e,T*\e(B consonant "LETTER CHO CHANG") ; 0xAA
	71	(?\e,T+\e(B consonant "LETTER SO SO") ; 0xAB
	72	(?\e,T,\e(B consonant "LETTER CHO CHOE") ; 0xAC
	73	(?\e,T-\e(B consonant "LETTER YO YING") ; 0xAD
	74	(?\e,T.\e(B consonant "LETTER DO CHADA") ; 0xAE
	75	(?\e,T/\e(B consonant "LETTER TO PATAK") ; 0xAF
	76	(?\e,T0\e(B consonant "LETTER THO THAN") ; 0xB0
	77	(?\e,T1\e(B consonant "LETTER THO NANGMONTHO") ; 0xB1
	78	(?\e,T2\e(B consonant "LETTER THO PHUTHAO") ; 0xB2
	79	(?\e,T3\e(B consonant "LETTER NO NEN") ; 0xB3
	80	(?\e,T4\e(B consonant "LETTER DO DEK") ; 0xB4
	81	(?\e,T5\e(B consonant "LETTER TO TAO") ; 0xB5
	82	(?\e,T6\e(B consonant "LETTER THO THUNG") ; 0xB6
	83	(?\e,T7\e(B consonant "LETTER THO THAHAN") ; 0xB7
	84	(?\e,T8\e(B consonant "LETTER THO THONG") ; 0xB8
	85	(?\e,T9\e(B consonant "LETTER NO NU") ; 0xB9
	86	(?\e,T:\e(B consonant "LETTER BO BAIMAI") ; 0xBA
	87	(?\e,T;\e(B consonant "LETTER PO PLA") ; 0xBB
	88	(?\e,T<\e(B consonant "LETTER PHO PHUNG") ; 0xBC
	89	(?\e,T=\e(B consonant "LETTER FO FA") ; 0xBD
	90	(?\e,T>\e(B consonant "LETTER PHO PHAN") ; 0xBE
	91	(?\e,T?\e(B consonant "LETTER FO FAN") ; 0xBF
	92	(?\e,T@\e(B consonant "LETTER PHO SAMPHAO") ; 0xC0
	93	(?\e,TA\e(B consonant "LETTER MO MA") ; 0xC1
	94	(?\e,TB\e(B consonant "LETTER YO YAK") ; 0xC2
	95	(?\e,TC\e(B consonant "LETTER RO RUA") ; 0xC3
	96	(?\e,TD\e(B vowel-base "LETTER RU (Pali vowel letter)") ; 0xC4
	97	(?\e,TE\e(B consonant "LETTER LO LING") ; 0xC5
	98	(?\e,TF\e(B vowel-base "LETTER LU (Pali vowel letter)") ; 0xC6
	99	(?\e,TG\e(B consonant "LETTER WO WAEN") ; 0xC7
	100	(?\e,TH\e(B consonant "LETTER SO SALA") ; 0xC8
	101	(?\e,TI\e(B consonant "LETTER SO RUSI") ; 0xC9
	102	(?\e,TJ\e(B consonant "LETTER SO SUA") ; 0xCA
	103	(?\e,TK\e(B consonant "LETTER HO HIP") ; 0xCB
	104	(?\e,TL\e(B consonant "LETTER LO CHULA") ; 0xCC
	105	(?\e,TM\e(B consonant "LETTER O ANG") ; 0xCD
	106	(?\e,TN\e(B consonant "LETTER HO NOK HUK") ; 0xCE
	107	(?\e,TO\e(B special "PAI YAN NOI (abbreviation)") ; 0xCF
	108	(?\e,TP\e(B vowel-base "VOWEL SIGN SARA A") ; 0xD0
	109	(?\e,TQ\e(B vowel-upper "VOWEL SIGN MAI HAN-AKAT N/S-T") ; 0xD1
	110	(?\e,TR\e(B vowel-base "VOWEL SIGN SARA AA") ; 0xD2
	111	(?\e,TS\e(B vowel-base "VOWEL SIGN SARA AM") ; 0xD3
	112	(?\e,TT\e(B vowel-upper "VOWEL SIGN SARA I N/S-T") ; 0xD4
	113	(?\e,TU\e(B vowel-upper "VOWEL SIGN SARA II N/S-T") ; 0xD5
	114	(?\e,TV\e(B vowel-upper "VOWEL SIGN SARA UE N/S-T") ; 0xD6
	115	(?\e,TW\e(B vowel-upper "VOWEL SIGN SARA UEE N/S-T") ; 0xD7
	116	(?\e,TX\e(B vowel-lower "VOWEL SIGN SARA U N/S-B") ; 0xD8
	117	(?\e,TY\e(B vowel-lower "VOWEL SIGN SARA UU N/S-B") ; 0xD9
	118	(?\e,TZ\e(B vowel-lower "VOWEL SIGN PHINTHU N/S-B (Pali virama)") ; 0xDA
	119	(?\e,T[\e(B invalid nil) ; 0xDA
	120	(?\e,T\\e(B invalid nil) ; 0xDC
	121	(?\e,T]\e(B invalid nil) ; 0xDC
	122	(?\e,T^\e(B invalid nil) ; 0xDC
	123	(?\e,T_\e(B special "BAHT SIGN (currency symbol)") ; 0xDF
	124	(?\e,T`\e(B vowel-base "VOWEL SIGN SARA E") ; 0xE0
125	(?\e,Ta\e(B vowel-base "VOWEL SIGN SARA AE") ; 0xE1
126	(?\e,Tb\e(B vowel-base "VOWEL SIGN SARA O") ; 0xE2
127	(?\e,Tc\e(B vowel-base "VOWEL SIGN SARA MAI MUAN") ; 0xE3
128	(?\e,Td\e(B vowel-base "VOWEL SIGN SARA MAI MALAI") ; 0xE4
129	(?\e,Te\e(B vowel-base "LAK KHANG YAO") ; 0xE5
130	(?\e,Tf\e(B special "MAI YAMOK (repetion)") ; 0xE6
8f9eda28	131	(?\e,Tg\e(B sign-upper "VOWEL SIGN MAI TAI KHU N/S-T") ; 0xE7
4ed46869 KH	132	(?\e,Th\e(B tone "TONE MAI EK N/S-T") ; 0xE8
	133	(?\e,Ti\e(B tone "TONE MAI THO N/S-T") ; 0xE9
	134	(?\e,Tj\e(B tone "TONE MAI TRI N/S-T") ; 0xEA
	135	(?\e,Tk\e(B tone "TONE MAI CHATTAWA N/S-T") ; 0xEB
8f9eda28 KH	136	(?\e,Tl\e(B sign-upper "THANTHAKHAT N/S-T (cancellation mark)") ; 0xEC
	137	(?\e,Tm\e(B sign-upper "NIKKHAHIT N/S-T (final nasal)") ; 0xED
	138	(?\e,Tn\e(B sign-upper "YAMAKKAN N/S-T") ; 0xEE
4ed46869 KH	139	(?\e,To\e(B special "FONRMAN") ; 0xEF
	140	(?\e,Tp\e(B special "DIGIT ZERO") ; 0xF0
	141	(?\e,Tq\e(B special "DIGIT ONE") ; 0xF1
	142	(?\e,Tr\e(B special "DIGIT TWO") ; 0xF2
	143	(?\e,Ts\e(B special "DIGIT THREE") ; 0xF3
	144	(?\e,Tt\e(B special "DIGIT FOUR") ; 0xF4
	145	(?\e,Tu\e(B special "DIGIT FIVE") ; 0xF5
	146	(?\e,Tv\e(B special "DIGIT SIX") ; 0xF6
	147	(?\e,Tw\e(B special "DIGIT SEVEN") ; 0xF7
	148	(?\e,Tx\e(B special "DIGIT EIGHT") ; 0xF8
	149	(?\e,Ty\e(B special "DIGIT NINE") ; 0xF9
	150	(?\e,Tz\e(B special "ANGKHANKHU (ellipsis)") ; 0xFA
	151	(?\e,T{\e(B special "KHOMUT (beginning of religious texts)") ; 0xFB
	152	(?\e,T\|\e(B invalid nil) ; 0xFC
	153	(?\e,T}\e(B invalid nil) ; 0xFD
	154	(?\e,T~\e(B invalid nil) ; 0xFE
	155	))
	156	elm)
	157	(while l
c595d888 KH	158	(setq elm (car l) l (cdr l))
	159	(let ((char (car elm))
	160	(ptype (nth 1 elm)))
	161	(put-char-code-property char 'phonetic-type ptype)
	162	(cond ((eq ptype 'consonant)
36cacb1f	163	(modify-category-entry char ?c thai-category-table))
c595d888	164	((memq ptype '(vowel-upper vowel-lower))
8f9eda28	165	(modify-category-entry char ?v thai-category-table)
e8d0ae6b	166	(if (= char ?\e,TT\e(B)
8f9eda28	167	;; Give category `I' to "SARA I".
e8d0ae6b	168	(modify-category-entry char ?I thai-category-table)))
c595d888	169	((eq ptype 'tone)
8f9eda28	170	(modify-category-entry char ?t thai-category-table)
e8d0ae6b	171	(modify-category-entry char ?u thai-category-table))
8f9eda28 KH	172	((eq ptype 'sign-upper)
8f9eda28 KH	173	(modify-category-entry char ?u thai-category-table)
e8d0ae6b	174	(if (= char ?\e,Tl\e(B)
8f9eda28	175	;; Give category `U' to "THANTHAKHAT".
e8d0ae6b	176	(modify-category-entry char ?U thai-category-table))))
c595d888	177	(put-char-code-property char 'name (nth 2 elm)))))
3de54645	178
8f9eda28 KH	179	(defun thai-compose-syllable (beg end &optional category-set string)
8f9eda28 KH	180	(or category-set
c92164e1	181	(setq category-set
8f9eda28 KH	182	(char-category-set (if string (aref string beg) (char-after beg)))))
	183	(if (aref category-set ?c)
	184	;; Starting with a consonant. We do relative composition.
	185	(if string
	186	(compose-string string beg end)
	187	(compose-region beg end))
	188	;; Vowel tone sequence.
	189	(if string
c92164e1	190	(compose-string string beg end (list (aref string beg) '(Bc . Bc)
8f9eda28	191	(aref string (1+ beg))))
c92164e1	192	(compose-region beg end (list (char-after beg) '(Bc . Bc)
8f9eda28 KH	193	(char-after (1+ beg))))))
	194	(- end beg))
	195
4ed46869 KH	196	;;;###autoload
	197	(defun thai-compose-region (beg end)
	198	"Compose Thai characters in the region.
	199	When called from a program, expects two arguments,
	200	positions (integers or markers) specifying the region."
	201	(interactive "r")
8f9eda28 KH	202	(let ((pos (point)))
	203	(save-restriction
	204	(narrow-to-region beg end)
	205	(goto-char (point-min))
	206	(with-category-table thai-category-table
	207	(while (re-search-forward thai-composition-pattern nil t)
	208	(setq beg (match-beginning 0) end (match-end 0))
	209	(if (and (> pos beg) (< pos end))
	210	(setq pos end))
	211	(thai-compose-syllable beg end
	212	(char-category-set (char-after beg))))))
	213	(goto-char pos)))
4ed46869	214
0a57cf51 KH	215	;;;###autoload
	216	(defun thai-compose-string (string)
	217	"Compose Thai characters in STRING and return the resulting string."
c595d888 KH	218	(with-category-table thai-category-table
	219	(let ((idx 0))
	220	(while (setq idx (string-match thai-composition-pattern string idx))
8f9eda28	221	(thai-compose-syllable idx (match-end 0) nil string)
c595d888 KH	222	(setq idx (match-end 0)))))
c595d888 KH	223	string)
a1506d29	224
4ed46869 KH	225	;;;###autoload
	226	(defun thai-compose-buffer ()
	227	"Compose Thai characters in the current buffer."
	228	(interactive)
	229	(thai-compose-region (point-min) (point-max)))
	230
	231	;;;###autoload
32695324	232	(defun thai-composition-function (pos to font-object string)
ed011460	233	(setq pos (1- pos))
e8d0ae6b	234	(with-category-table thai-category-table
ed011460 KH	235	(if string
ed011460 KH	236	(if (and (>= pos 0)
e8d0ae6b	237	(eq (string-match thai-composition-pattern string pos) pos))
ed011460	238	(prog1 (match-end 0)
e8d0ae6b	239	(thai-compose-syllable pos (match-end 0) nil string)))
ed011460 KH	240	(if (>= pos (point-min))
	241	(progn
	242	(goto-char pos)
e8d0ae6b	243	(if (looking-at thai-composition-pattern)
ed011460	244	(prog1 (match-end 0)
e8d0ae6b	245	(thai-compose-syllable pos (match-end 0)))))))))
4ed46869	246
1085b551 KH	247	;; Thai-word-mode requires functions in the feature `thai-word'.
	248	(require 'thai-word)
	249
	250	(defvar thai-word-mode-map
	251	(let ((map (make-sparse-keymap)))
	252	(define-key map [remap forward-word] 'thai-forward-word)
	253	(define-key map [remap backward-word] 'thai-backward-word)
	254	(define-key map [remap kill-word] 'thai-kill-word)
	255	(define-key map [remap backward-kill-word] 'thai-backward-kill-word)
	256	(define-key map [remap transpose-words] 'thai-transpose-words)
	257	map)
	258	"Keymap for `thai-word-mode'.")
	259
	260	(define-minor-mode thai-word-mode
	261	"Minor mode to make word-oriented commands aware of Thai words.
	262	The commands affected are \\[forward-word], \\[backward-word], \\[kill-word], \\[backward-kill-word], \\[transpose-words], and \\[fill-paragraph]."
c92164e1	263	:global t :group 'mule
1085b551 KH	264	(cond (thai-word-mode
	265	;; This enables linebreak between Thai characters.
	266	(modify-category-entry (make-char 'thai-tis620) ?\|)
	267	;; This enables linebreak at a Thai word boundary.
	268	(put-charset-property 'thai-tis620 'fill-find-break-point-function
	269	'thai-fill-find-break-point))
	270	(t
	271	(modify-category-entry (make-char 'thai-tis620) ?\| nil t)
	272	(put-charset-property 'thai-tis620 'fill-find-break-point-function
	273	nil))))
	274
	275	;; Function to call on entering the Thai language environment.
	276	(defun setup-thai-language-environment-internal ()
	277	(thai-word-mode 1))
	278
	279	;; Function to call on exiting the Thai language environment.
	280	(defun exit-thai-language-environment-internal ()
	281	(thai-word-mode -1))
	282
4ed46869	283	;;
650e8505	284	(provide 'thai-util)
4ed46869	285
cbee283d	286	;; arch-tag: 59425d6a-8cf9-4e06-a6ab-8ab7dc7a7a97
4ed46869	287	;;; thai-util.el ends here