lisp/language/tibetan.el

0 ;;; tibetan.el --- support for Tibetan language -*- coding: iso-2022-7bit; -*-
74 ;;;2450 $(7$P(B $(7$Q(B $(7$R(B $(7$S(B $(7$T(B $(7$U(B $(7$V(B $(7$W(B $(7$X(B $(7$Y(B $(7$Z(B $(7$[(B $(7$\(B $(7$](B $(7$^(B $(7$_(B ; They are decomposed
89  'tibetan-iso-8bit 2 ?Q
91  '(ascii tibetan nil nil
93  '((safe-charsets ascii tibetan)
94    (post-read-conversion . tibetan-post-read-conversion)
95    (pre-write-conversion . tibetan-pre-write-conversion)))
97 (define-coding-system-alias 'tibetan 'tibetan-iso-8bit)
100  "Tibetan" '((charset tibetan tibetan-1-column)
101 	     (coding-system tibetan-iso-8bit)
102 	     (coding-priority iso-2022-7bit tibetan-iso-8bit)
103 	     (input-method . "tibetan-wylie")
107 	      . (tibetan-compose-string
113 ;; treat it specially in tibetan-add-components.
120 (defconst tibetan-composable-pattern
125 (aset composition-function-table (make-char 'tibetan)
126       (list (cons tibetan-composable-pattern 'tibetan-composition-function)))
133 ;;; alists for tibetan char <-> transcription conversion
135 (defconst tibetan-consonant-transcription-alist
183 (defconst tibetan-vowel-transcription-alist
211 (defconst tibetan-modifier-transcription-alist
225 (defconst tibetan-precomposed-transcription-alist
338 (defconst tibetan-subjoined-transcription-alist
390 (defconst tibetan-base-to-subjoined-alist
438 (defconst tibetan-composite-vowel-alist
463 (defconst tibetan-precomposition-rule-alist
561 (defconst tibetan-regexp
562   (let ((l (list tibetan-precomposed-transcription-alist
563 		 tibetan-consonant-transcription-alist
564 		 tibetan-vowel-transcription-alist
565 		 tibetan-modifier-transcription-alist
566 		 tibetan-subjoined-transcription-alist))
579 (defvar tibetan-precomposed-regexp
580   (let ((l tibetan-precomposed-transcription-alist)
581 	temp)
582     (setq temp "^\\(")
583     (setq temp
584 	  (concat temp (car (car l))))
587       (setq temp
588 	    (concat temp "\\|" (car (car l))))
590     (concat temp "\\)"))
595 (defvar tibetan-precomposition-rule-regexp
596   (let ((l tibetan-precomposition-rule-alist)
597 	temp)
598     (setq temp "\\(")
599     (setq temp (concat temp (car (car l))))
602       (setq temp (concat temp "\\|" (car (car l))))
604     (concat temp "\\)"))
611 (defvar tibetan-decomposed nil)
612 (defvar tibetan-decomposed-temp nil)
614 (provide 'tibetan)
617 ;;; tibetan.el ends here