Commit | Line | Data |
---|---|---|
c052c904 | 1 | ;;; sinhala.el --- support for Sinhala -*- coding: utf-8 -*- |
dfb504aa | 2 | |
5df4f04c | 3 | ;; Copyright (C) 2008, 2009, 2010, 2011 |
dfb504aa KH |
4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
5 | ;; Registration Number H13PRO009 | |
6 | ||
7 | ;; Keywords: multilingual, Sinhala, i18n | |
8 | ||
9 | ;; This file is part of GNU Emacs. | |
10 | ||
4936186e | 11 | ;; GNU Emacs is free software: you can redistribute it and/or modify |
dfb504aa | 12 | ;; it under the terms of the GNU General Public License as published by |
4936186e GM |
13 | ;; the Free Software Foundation, either version 3 of the License, or |
14 | ;; (at your option) any later version. | |
dfb504aa KH |
15 | |
16 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 | ;; GNU General Public License for more details. | |
20 | ||
21 | ;; You should have received a copy of the GNU General Public License | |
4936186e | 22 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
dfb504aa KH |
23 | |
24 | ;;; Code: | |
25 | ||
26 | (set-language-info-alist | |
27 | "Sinhala" '((charset unicode) | |
28 | (coding-system utf-8) | |
29 | (coding-priority utf-8) | |
30 | (sample-text . "Sinhala (සිංහල) ආයුබෝවන්") | |
31 | (documentation . t))) | |
32 | ||
33 | (set-char-table-range | |
34 | composition-function-table | |
35 | '(#xD80 . #xDFF) | |
42763dda KH |
36 | (list (vector |
37 | ;; C:consonant, H:HALANT, J:ZWJ, v:vowel sign, | |
38 | ;; V:independent vowel, a:ANUSVARA .. VISARGA | |
39 | (concat | |
40 | ;; C(HJC)*v*H?a?, or | |
41 | "[\u0D9A-\u0DC6]\\(?:\u0DCA\u200D[\u0D9A-\u0DC6]\\)*[\u0DCF-\u0DDF\u0DF2-\u0DF3]*\u0DCA?[\u0D82-\u0D83]?\\|" | |
42 | ;; Va?, or | |
43 | "[\u0D85-\u0D96][\u0D82-\u0D83]?\\|" | |
44 | ;; any other singleton characters | |
45 | "[\u0D80-\u0DFF]") | |
46 | 0 'font-shape-gstring))) | |
dfb504aa KH |
47 | |
48 | ;; sinhala.el ends here |