lisp/language/thai-util.el

   1 ;;; thai-util.el --- utilities for Thai
   2
   3 ;; Copyright (C) 1995 Free Software Foundation, Inc.
   4 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
   5
   6 ;; Keywords: mule, multilingual, thai
   7
   8 ;; This file is part of GNU Emacs.
   9
  10 ;; GNU Emacs is free software; you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 2, or (at your option)
  13 ;; any later version.
  14
  15 ;; GNU Emacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  23 ;; Boston, MA 02111-1307, USA.
  24
  25 ;;; Code:
  26
  27 ;; Setting information of Thai characters.
  28
  29 (let ((l '((?\e,T!\e(B consonant "LETTER KO KAI")                         ; 0xA1
  30            (?\e,T"\e(B consonant "LETTER KHO KHAI")                               ; 0xA2
  31            (?\e,T#\e(B consonant "LETTER KHO KHUAT")                              ; 0xA3
  32            (?\e,T$\e(B consonant "LETTER KHO KHWAI")                              ; 0xA4
  33            (?\e,T%\e(B consonant "LETTER KHO KHON")                               ; 0xA5
  34            (?\e,T&\e(B consonant "LETTER KHO RAKHANG")                            ; 0xA6
  35            (?\e,T'\e(B consonant "LETTER NGO NGU")                                ; 0xA7
  36            (?\e,T(\e(B consonant "LETTER CHO CHAN")                               ; 0xA8
  37            (?\e,T)\e(B consonant "LETTER CHO CHING")                              ; 0xA9
  38            (?\e,T*\e(B consonant "LETTER CHO CHANG")                              ; 0xAA
  39            (?\e,T+\e(B consonant "LETTER SO SO")                          ; 0xAB
  40            (?\e,T,\e(B consonant "LETTER CHO CHOE")                               ; 0xAC
  41            (?\e,T-\e(B consonant "LETTER YO YING")                                ; 0xAD
  42            (?\e,T.\e(B consonant "LETTER DO CHADA")                               ; 0xAE
  43            (?\e,T/\e(B consonant "LETTER TO PATAK")                               ; 0xAF
  44            (?\e,T0\e(B consonant "LETTER THO THAN")                               ; 0xB0
  45            (?\e,T1\e(B consonant "LETTER THO NANGMONTHO")                 ; 0xB1
  46            (?\e,T2\e(B consonant "LETTER THO PHUTHAO")                            ; 0xB2
  47            (?\e,T3\e(B consonant "LETTER NO NEN")                         ; 0xB3
  48            (?\e,T4\e(B consonant "LETTER DO DEK")                         ; 0xB4
  49            (?\e,T5\e(B consonant "LETTER TO TAO")                         ; 0xB5
  50            (?\e,T6\e(B consonant "LETTER THO THUNG")                              ; 0xB6
  51            (?\e,T7\e(B consonant "LETTER THO THAHAN")                             ; 0xB7
  52            (?\e,T8\e(B consonant "LETTER THO THONG")                              ; 0xB8
  53            (?\e,T9\e(B consonant "LETTER NO NU")                          ; 0xB9
  54            (?\e,T:\e(B consonant "LETTER BO BAIMAI")                              ; 0xBA
  55            (?\e,T;\e(B consonant "LETTER PO PLA")                         ; 0xBB
  56            (?\e,T<\e(B consonant "LETTER PHO PHUNG")                              ; 0xBC
  57            (?\e,T=\e(B consonant "LETTER FO FA")                          ; 0xBD
  58            (?\e,T>\e(B consonant "LETTER PHO PHAN")                               ; 0xBE
  59            (?\e,T?\e(B consonant "LETTER FO FAN")                         ; 0xBF
  60            (?\e,T@\e(B consonant "LETTER PHO SAMPHAO")                            ; 0xC0
  61            (?\e,TA\e(B consonant "LETTER MO MA")                          ; 0xC1
  62            (?\e,TB\e(B consonant "LETTER YO YAK")                         ; 0xC2
  63            (?\e,TC\e(B consonant "LETTER RO RUA")                         ; 0xC3
  64            (?\e,TD\e(B vowel-base "LETTER RU (Pali vowel letter)")                ; 0xC4
  65            (?\e,TE\e(B consonant "LETTER LO LING")                                ; 0xC5
  66            (?\e,TF\e(B vowel-base "LETTER LU (Pali vowel letter)")                ; 0xC6
  67            (?\e,TG\e(B consonant "LETTER WO WAEN")                                ; 0xC7
  68            (?\e,TH\e(B consonant "LETTER SO SALA")                                ; 0xC8
  69            (?\e,TI\e(B consonant "LETTER SO RUSI")                                ; 0xC9
  70            (?\e,TJ\e(B consonant "LETTER SO SUA")                         ; 0xCA
  71            (?\e,TK\e(B consonant "LETTER HO HIP")                         ; 0xCB
  72            (?\e,TL\e(B consonant "LETTER LO CHULA")                               ; 0xCC
  73            (?\e,TM\e(B consonant "LETTER O ANG")                          ; 0xCD
  74            (?\e,TN\e(B consonant "LETTER HO NOK HUK")                             ; 0xCE
  75            (?\e,TO\e(B special "PAI YAN NOI (abbreviation)")                      ; 0xCF
  76            (?\e,TP\e(B vowel-base "VOWEL SIGN SARA A")                            ; 0xD0
  77            (?\e,TQ\e(B vowel-upper "VOWEL SIGN MAI HAN-AKAT N/S-T")               ; 0xD1
  78            (?\e,TR\e(B vowel-base "VOWEL SIGN SARA AA")                           ; 0xD2
  79            (?\e,TS\e(B vowel-base "VOWEL SIGN SARA AM")                           ; 0xD3
  80            (?\e,TT\e(B vowel-upper "VOWEL SIGN SARA I N/S-T")                     ; 0xD4
  81            (?\e,TU\e(B vowel-upper "VOWEL SIGN SARA II N/S-T")                    ; 0xD5
  82            (?\e,TV\e(B vowel-upper "VOWEL SIGN SARA UE N/S-T")                    ; 0xD6
  83            (?\e,TW\e(B vowel-upper "VOWEL SIGN SARA UEE N/S-T")                   ; 0xD7
  84            (?\e,TX\e(B vowel-lower "VOWEL SIGN SARA U N/S-B")                     ; 0xD8
  85            (?\e,TY\e(B vowel-lower "VOWEL SIGN SARA UU N/S-B")                    ; 0xD9
  86            (?\e,TZ\e(B vowel-lower "VOWEL SIGN PHINTHU N/S-B (Pali virama)")      ; 0xDA
  87            (?\e,T[\e(B invalid nil)                                               ; 0xDA
  88            (?\e,T\\e(B invalid nil)                                               ; 0xDC
  89            (?\e,T]\e(B invalid nil)                                               ; 0xDC
  90            (?\e,T^\e(B invalid nil)                                               ; 0xDC
  91            (?\e,T_\e(B special "BAHT SIGN (currency symbol)")                     ; 0xDF
  92            (?\e,T`\e(B vowel-base "VOWEL SIGN SARA E")                            ; 0xE0
  93            (?\e,Ta\e(B vowel-base "VOWEL SIGN SARA AE")                           ; 0xE1
  94            (?\e,Tb\e(B vowel-base "VOWEL SIGN SARA O")                            ; 0xE2
  95            (?\e,Tc\e(B vowel-base "VOWEL SIGN SARA MAI MUAN")                     ; 0xE3
  96            (?\e,Td\e(B vowel-base "VOWEL SIGN SARA MAI MALAI")                    ; 0xE4
  97            (?\e,Te\e(B vowel-base "LAK KHANG YAO")                                ; 0xE5
  98            (?\e,Tf\e(B special "MAI YAMOK (repetion)")                            ; 0xE6
  99            (?\e,Tg\e(B vowel-upper "VOWEL SIGN MAI TAI KHU N/S-T")                ; 0xE7
 100            (?\e,Th\e(B tone "TONE MAI EK N/S-T")                          ; 0xE8
 101            (?\e,Ti\e(B tone "TONE MAI THO N/S-T")                         ; 0xE9
 102            (?\e,Tj\e(B tone "TONE MAI TRI N/S-T")                         ; 0xEA
 103            (?\e,Tk\e(B tone "TONE MAI CHATTAWA N/S-T")                            ; 0xEB
 104            (?\e,Tl\e(B tone "THANTHAKHAT N/S-T (cancellation mark)")              ; 0xEC
 105            (?\e,Tm\e(B tone "NIKKHAHIT N/S-T (final nasal)")                      ; 0xED
 106            (?\e,Tn\e(B vowel-upper "YAMAKKAN N/S-T")                              ; 0xEE
 107            (?\e,To\e(B special "FONRMAN")                                 ; 0xEF
 108            (?\e,Tp\e(B special "DIGIT ZERO")                                      ; 0xF0
 109            (?\e,Tq\e(B special "DIGIT ONE")                                       ; 0xF1
 110            (?\e,Tr\e(B special "DIGIT TWO")                                       ; 0xF2
 111            (?\e,Ts\e(B special "DIGIT THREE")                                     ; 0xF3
 112            (?\e,Tt\e(B special "DIGIT FOUR")                                      ; 0xF4
 113            (?\e,Tu\e(B special "DIGIT FIVE")                                      ; 0xF5
 114            (?\e,Tv\e(B special "DIGIT SIX")                                       ; 0xF6
 115            (?\e,Tw\e(B special "DIGIT SEVEN")                                     ; 0xF7
 116            (?\e,Tx\e(B special "DIGIT EIGHT")                                     ; 0xF8
 117            (?\e,Ty\e(B special "DIGIT NINE")                                      ; 0xF9
 118            (?\e,Tz\e(B special "ANGKHANKHU (ellipsis)")                           ; 0xFA
 119            (?\e,T{\e(B special "KHOMUT (beginning of religious texts)")           ; 0xFB
 120            (?\e,T|\e(B invalid nil)                                               ; 0xFC
 121            (?\e,T}\e(B invalid nil)                                               ; 0xFD
 122            (?\e,T~\e(B invalid nil)                                               ; 0xFE
 123            ))
 124       elm)
 125   (while l
 126     (setq elm (car l))
 127     (put-char-code-property (car elm) 'phonetic-type (car (cdr elm)))
 128     (put-char-code-property (car elm) 'name (nth 2 elm))
 129     (setq l (cdr l))))
 130
 131 ;;;###autoload
 132 (defun thai-compose-region (beg end)
 133   "Compose Thai characters in the region.
 134 When called from a program, expects two arguments,
 135 positions (integers or markers) specifying the region."
 136   (interactive "r")
 137   (save-restriction
 138     (narrow-to-region beg end)
 139     (decompose-region (point-min) (point-max))
 140     (goto-char (point-min))
 141     (while (re-search-forward "\\c0\\(\\c2\\|\\c3\\|\\c4\\)+" nil t)
 142       (if (aref (char-category-set (char-after (match-beginning 0))) ?t)
 143           (compose-region (match-beginning 0) (match-end 0))))))
 144
 145 ;;;###autoload
 146 (defun thai-compose-buffer ()
 147   "Compose Thai characters in the current buffer."
 148   (interactive)
 149   (thai-compose-region (point-min) (point-max)))
 150
 151 ;;;###autoload
 152 (defun thai-post-read-conversion (len)
 153   (save-excursion
 154     (save-restriction
 155       (let ((buffer-modified-p (buffer-modified-p)))
 156         (narrow-to-region (point) (+ (point) len))
 157         (thai-compose-region (point-min) (point-max))
 158         (set-buffer-modified-p buffer-modified-p)
 159         (- (point-max) (point-min))))))
 160
 161 ;;;###autoload
 162 (defun thai-pre-write-conversion (from to)
 163   (let ((old-buf (current-buffer))
 164         (work-buf (get-buffer-create " *thai-work*")))
 165     (set-buffer work-buf)
 166     (erase-buffer)
 167     (insert-buffer-substring old-buf from to)
 168     (decompose-region (point-min) (point-max))))
 169
 170 ;;
 171 (provide 'language/thai-util)
 172
 173 ;;; Local Variables:
 174 ;;; generated-autoload-file: "../loaddefs.el"
 175 ;;; End:
 176 ;;; thai-util.el ends here