Initial Commit
[packages] / mule-packages / leim / quail / cyrillic-tajik.el
1 ;;; quail/cyrillic-tajik.el -- Quail package for inputting Tajik in Cyrillic -*- coding: utf-8 -*- 
2
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 2007 Free Software Foundation.
6
7 ;; Keywords: multilingual, input method, Cyrillic, Tajik
8
9 ;; This file is part of XEmacs. 
10
11 ;; XEmacs is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option)
14 ;; any later version.
15
16 ;; XEmacs 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
22 ;; along with XEmacs; see the file COPYING.  If not, write to the
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
24 ;; Boston, MA 02110-1301, USA.
25
26 ;;; Code:
27
28 (require 'quail)
29
30 ;; This file breaks with 21.4 and early 21.5. 
31 (unless (and (fboundp 'decode-char) (decode-char 'ucs #x31C)
32              (eq #x31C (encode-char (decode-char 'ucs #x31C) 'ucs)))
33   (error 'unimplemented
34          "Unicode support needed for this file not available!"))
35
36 ;; Based on Valery Alexeev's cyrillic-translit. Aidan Kehoe, So Okt 7
37 ;; 16:50:03 CEST 2007
38
39 (quail-define-package
40  "cyrillic-tajik" "Cyrillic" "Жt" nil
41  "Transliterated keyboard layout, with English consonant values.  For Tajik.
42
43 Russian alphabet: a b v=w g d e yo zh z i i' k l m n o p r s t
44 u f kh=x c ch sh shch=sj=/s=/sht ~ y ' e' yu ya
45
46 Tajik letters:  gh = ғ, i- = ӣ, q = қ, u- = ӯ, h = ҳ, j = ҷ
47
48 Notes:
49   for ц (TSE) use \"c\", never \"ts\"
50   щ (SHCHA = Bulgarian SHT) = \"shch\", \"sj\", \"/sht\" or \"/t\",
51   э (REVERSE ROUNDED E) = \"e'\" or \"e`\"
52   х (KHA) when after с (S) = \"x\" or \"kh\"
53   ъ (HARD SIGN) = \"~\", Ъ (CAPITAL HARD SIGN) = \"~~\",
54   ь (SOFT SIGN) = \"'\", Ь (CAPITAL SOFT SIGN) = \"''\",
55   я (YA) = \"ya\"
56
57 Also included are Ukrainian є (YE) = \"/e\" and ї (YI) = \"yi\", 
58 Belorussian ў (SHORT U) = \"u'\",
59 Serbian ђ (DJE) = \"/d\", ћ (CHJE)= \"/ch\", 
60 Macedonian ѓ (GJE) = \"/g\", ѕ (DZE) = \"/s\", ќ (KJE) = \"/k\",
61 cyrillic і (I DECIMAL) = \"/i\", ј (JE) = \"/j\", 
62 љ (LJE) = \"/l\", њ (NJE) = \"/n\" and џ (DZE) =\"/z\"."
63  nil t t t t nil nil nil nil nil t)
64
65 (quail-define-rules
66  ("a" ?а)    ;; U+0430 CYRILLIC SMALL LETTER A
67  ("A" ?А)    ;; U+0410 CYRILLIC CAPITAL LETTER A
68  ("b" ?б)    ;; U+0431 CYRILLIC SMALL LETTER BE
69  ("B" ?Б)    ;; U+0411 CYRILLIC CAPITAL LETTER BE
70  ("c" ?ц)    ;; U+0446 CYRILLIC SMALL LETTER TSE
71  ("C" ?Ц)    ;; U+0426 CYRILLIC CAPITAL LETTER TSE
72  ("ch" ?ч)   ;; U+0447 CYRILLIC SMALL LETTER CHE
73  ("Ch" ?Ч)   ;; U+0427 CYRILLIC CAPITAL LETTER CHE
74  ("CH" ?Ч)   ;; U+0427 CYRILLIC CAPITAL LETTER CHE
75  ("/ch" ?ћ)  ;; U+045B CYRILLIC SMALL LETTER TSHE
76  ("/Ch" ?Ћ)  ;; U+040B CYRILLIC CAPITAL LETTER TSHE
77  ("/CH" ?Ћ)  ;; U+040B CYRILLIC CAPITAL LETTER TSHE
78  ("d" ?д)    ;; U+0434 CYRILLIC SMALL LETTER DE
79  ("D" ?Д)    ;; U+0414 CYRILLIC CAPITAL LETTER DE
80  ("/d" ?ђ)   ;; U+0452 CYRILLIC SMALL LETTER DJE
81  ("/D" ?Ђ)   ;; U+0402 CYRILLIC CAPITAL LETTER DJE
82  ("e" ?е)    ;; U+0435 CYRILLIC SMALL LETTER IE
83  ("E" ?Е)    ;; U+0415 CYRILLIC CAPITAL LETTER IE
84  ("@" ?э)    ;; U+044D CYRILLIC SMALL LETTER E
85  ("e'" ?э)   ;; U+044D CYRILLIC SMALL LETTER E
86  ("E'" ?Э)   ;; U+042D CYRILLIC CAPITAL LETTER E
87  ("e`" ?э)   ;; U+044D CYRILLIC SMALL LETTER E
88  ("E`" ?Э)   ;; U+042D CYRILLIC CAPITAL LETTER E
89  ("f" ?ф)    ;; U+0444 CYRILLIC SMALL LETTER EF
90  ("F" ?Ф)    ;; U+0424 CYRILLIC CAPITAL LETTER EF
91  ("g" ?г)    ;; U+0433 CYRILLIC SMALL LETTER GHE
92  ("G" ?Г)    ;; U+0413 CYRILLIC CAPITAL LETTER GHE
93  ("/e" ?є)   ;; U+0454 CYRILLIC SMALL LETTER UKRAINIAN IE
94  ("/E" ?Є)   ;; U+0404 CYRILLIC CAPITAL LETTER UKRAINIAN IE
95  ("/g" ?ѓ)   ;; U+0453 CYRILLIC SMALL LETTER GJE
96  ("/G" ?Ѓ)   ;; U+0403 CYRILLIC CAPITAL LETTER GJE
97  ("gh" ?ғ)   ;; U+0493 CYRILLIC SMALL LETTER GHE WITH STROKE
98  ("Gh" ?Ғ)   ;; U+0492 CYRILLIC CAPITAL LETTER GHE WITH STROKE
99  ("GH" ?Ғ)   ;; U+0492 CYRILLIC CAPITAL LETTER GHE WITH STROKE
100  ("H" ?Ҳ)    ;; U+04B2 CYRILLIC CAPITAL LETTER HA WITH DESCENDER
101  ("h" ?ҳ)    ;; U+04B3 CYRILLIC SMALL LETTER HA WITH DESCENDER
102  ("i" ?и)    ;; U+0438 CYRILLIC SMALL LETTER I
103  ("I" ?И)    ;; U+0418 CYRILLIC CAPITAL LETTER I
104  ("i'" ?й)   ;; U+0439 CYRILLIC SMALL LETTER SHORT I
105  ("I'" ?Й)   ;; U+0419 CYRILLIC CAPITAL LETTER SHORT I
106  ("I-" ?Ӣ)   ;; U+04E2 CYRILLIC CAPITAL LETTER I WITH MACRON
107  ("i-" ?ӣ)   ;; U+04E3 CYRILLIC SMALL LETTER I WITH MACRON
108  ("i`" ?й)   ;; U+0439 CYRILLIC SMALL LETTER SHORT I
109  ("I`" ?Й)   ;; U+0419 CYRILLIC CAPITAL LETTER SHORT I
110  ("/i" ?і)   ;; U+0456 CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I
111  ("/I" ?І)   ;; U+0406 CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I
112  ("/j" ?ј)   ;; U+0458 CYRILLIC SMALL LETTER JE
113  ("/J" ?Ј)   ;; U+0408 CYRILLIC CAPITAL LETTER JE
114  ("J" ?Ҷ)    ;; U+04B6 CYRILLIC CAPITAL LETTER CHE WITH DESCENDER
115  ("j" ?ҷ)    ;; U+04B7 CYRILLIC SMALL LETTER CHE WITH DESCENDER
116  ("JA" ?Я)   ;; U+042F CYRILLIC CAPITAL LETTER YA
117  ("JO" ?Ё)   ;; U+0401 CYRILLIC CAPITAL LETTER IO
118  ("JU" ?Ю)   ;; U+042E CYRILLIC CAPITAL LETTER YU
119  ("k" ?к)    ;; U+043A CYRILLIC SMALL LETTER KA
120  ("K" ?К)    ;; U+041A CYRILLIC CAPITAL LETTER KA
121  ("/k" ?ќ)   ;; U+045C CYRILLIC SMALL LETTER KJE
122  ("/K" ?Ќ)   ;; U+040C CYRILLIC CAPITAL LETTER KJE
123  ("kh" ?х)   ;; U+0445 CYRILLIC SMALL LETTER HA
124  ("Kh" ?Х)   ;; U+0425 CYRILLIC CAPITAL LETTER HA
125  ("KH" ?Х)   ;; U+0425 CYRILLIC CAPITAL LETTER HA
126  ("l" ?л)    ;; U+043B CYRILLIC SMALL LETTER EL
127  ("L" ?Л)    ;; U+041B CYRILLIC CAPITAL LETTER EL
128  ("/l" ?љ)   ;; U+0459 CYRILLIC SMALL LETTER LJE
129  ("/L" ?Љ)   ;; U+0409 CYRILLIC CAPITAL LETTER LJE
130  ("m" ?м)    ;; U+043C CYRILLIC SMALL LETTER EM
131  ("M" ?М)    ;; U+041C CYRILLIC CAPITAL LETTER EM
132  ("n" ?н)    ;; U+043D CYRILLIC SMALL LETTER EN
133  ("N" ?Н)    ;; U+041D CYRILLIC CAPITAL LETTER EN
134  ("/n" ?њ)   ;; U+045A CYRILLIC SMALL LETTER NJE
135  ("/N" ?Њ)   ;; U+040A CYRILLIC CAPITAL LETTER NJE
136  ("o" ?о)    ;; U+043E CYRILLIC SMALL LETTER O
137  ("O" ?О)    ;; U+041E CYRILLIC CAPITAL LETTER O
138  ("p" ?п)    ;; U+043F CYRILLIC SMALL LETTER PE
139  ("P" ?П)    ;; U+041F CYRILLIC CAPITAL LETTER PE
140  ("Q" ?Я)    ;; U+042F CYRILLIC CAPITAL LETTER YA
141  ("Q" ?Қ)    ;; U+049A CYRILLIC CAPITAL LETTER KA WITH DESCENDER
142  ("q" ?қ)    ;; U+049B CYRILLIC SMALL LETTER KA WITH DESCENDER
143  ("r" ?р)    ;; U+0440 CYRILLIC SMALL LETTER ER
144  ("R" ?Р)    ;; U+0420 CYRILLIC CAPITAL LETTER ER
145  ("s" ?с)    ;; U+0441 CYRILLIC SMALL LETTER ES
146  ("S" ?С)    ;; U+0421 CYRILLIC CAPITAL LETTER ES
147  ("/s" ?ѕ)   ;; U+0455 CYRILLIC SMALL LETTER DZE
148  ("/S" ?Ѕ)   ;; U+0405 CYRILLIC CAPITAL LETTER DZE
149  ("sh" ?ш)   ;; U+0448 CYRILLIC SMALL LETTER SHA
150  ("Sh" ?Ш)   ;; U+0428 CYRILLIC CAPITAL LETTER SHA
151  ("SH" ?Ш)   ;; U+0428 CYRILLIC CAPITAL LETTER SHA
152  ("shch" ?щ) ;; U+0449 CYRILLIC SMALL LETTER SHCHA
153  ("Shch" ?Щ) ;; U+0429 CYRILLIC CAPITAL LETTER SHCHA
154  ("SHCH" ?Щ) ;; U+0429 CYRILLIC CAPITAL LETTER SHCHA
155  ("/sht" ?щ) ;; U+0449 CYRILLIC SMALL LETTER SHCHA
156  ("/Sht" ?Щ) ;; U+0429 CYRILLIC CAPITAL LETTER SHCHA
157  ("/SHT" ?Щ) ;; U+0429 CYRILLIC CAPITAL LETTER SHCHA
158  ("sj" ?щ)   ;; U+0449 CYRILLIC SMALL LETTER SHCHA
159  ("Sj" ?Щ)   ;; U+0429 CYRILLIC CAPITAL LETTER SHCHA
160  ("SJ" ?Щ)   ;; U+0429 CYRILLIC CAPITAL LETTER SHCHA
161  ("t" ?т)    ;; U+0442 CYRILLIC SMALL LETTER TE
162  ("T" ?Т)    ;; U+0422 CYRILLIC CAPITAL LETTER TE
163  ("/t" ?щ)   ;; U+0449 CYRILLIC SMALL LETTER SHCHA
164  ("/T" ?Щ)   ;; U+0429 CYRILLIC CAPITAL LETTER SHCHA
165  ("u" ?у)    ;; U+0443 CYRILLIC SMALL LETTER U
166  ("U" ?У)    ;; U+0423 CYRILLIC CAPITAL LETTER U
167  ("u'" ?ў)   ;; U+045E CYRILLIC SMALL LETTER SHORT U
168  ("U'" ?Ў)   ;; U+040E CYRILLIC CAPITAL LETTER SHORT U
169  ("U-" ?Ӯ)   ;; U+04EE CYRILLIC CAPITAL LETTER U WITH MACRON
170  ("u-" ?ӯ)   ;; U+04EF CYRILLIC SMALL LETTER U WITH MACRON
171  ("v" ?в)    ;; U+0432 CYRILLIC SMALL LETTER VE
172  ("V" ?В)    ;; U+0412 CYRILLIC CAPITAL LETTER VE
173  ("w" ?в)    ;; U+0432 CYRILLIC SMALL LETTER VE
174  ("W" ?В)    ;; U+0412 CYRILLIC CAPITAL LETTER VE
175  ("x" ?х)    ;; U+0445 CYRILLIC SMALL LETTER HA
176  ("X" ?Х)    ;; U+0425 CYRILLIC CAPITAL LETTER HA
177  ("y" ?ы)    ;; U+044B CYRILLIC SMALL LETTER YERU
178  ("Y" ?Ы)    ;; U+042B CYRILLIC CAPITAL LETTER YERU
179  ("ya" ?я)   ;; U+044F CYRILLIC SMALL LETTER YA
180  ("Ya" ?Я)   ;; U+042F CYRILLIC CAPITAL LETTER YA
181  ("YA" ?Я)   ;; U+042F CYRILLIC CAPITAL LETTER YA
182  ("ye" ?е)   ;; U+0435 CYRILLIC SMALL LETTER IE
183  ("Ye" ?Е)   ;; U+0415 CYRILLIC CAPITAL LETTER IE
184  ("YE" ?Е)   ;; U+0415 CYRILLIC CAPITAL LETTER IE
185  ("yi" ?ї)   ;; U+0457 CYRILLIC SMALL LETTER YI
186  ("Yi" ?Ї)   ;; U+0407 CYRILLIC CAPITAL LETTER YI
187  ("YI" ?Ї)   ;; U+0407 CYRILLIC CAPITAL LETTER YI
188  ("yo" ?ё)   ;; U+0451 CYRILLIC SMALL LETTER IO
189  ("Yo" ?Ё)   ;; U+0401 CYRILLIC CAPITAL LETTER IO
190  ("YO" ?Ё)   ;; U+0401 CYRILLIC CAPITAL LETTER IO
191  ("yu" ?ю)   ;; U+044E CYRILLIC SMALL LETTER YU
192  ("Yu" ?Ю)   ;; U+042E CYRILLIC CAPITAL LETTER YU
193  ("YU" ?Ю)   ;; U+042E CYRILLIC CAPITAL LETTER YU
194  ("z" ?з)    ;; U+0437 CYRILLIC SMALL LETTER ZE
195  ("Z" ?З)    ;; U+0417 CYRILLIC CAPITAL LETTER ZE
196  ("/z" ?џ)   ;; U+045F CYRILLIC SMALL LETTER DZHE
197  ("/Z" ?Џ)   ;; U+040F CYRILLIC CAPITAL LETTER DZHE
198  ("zh" ?ж)   ;; U+0436 CYRILLIC SMALL LETTER ZHE
199  ("Zh" ?Ж)   ;; U+0416 CYRILLIC CAPITAL LETTER ZHE
200  ("ZH" ?Ж)   ;; U+0416 CYRILLIC CAPITAL LETTER ZHE
201  ("~" ?ъ)    ;; U+044A CYRILLIC SMALL LETTER HARD SIGN
202  ("~~" "Ъ")  ;; U+042A CYRILLIC CAPITAL LETTER HARD SIGN
203  ("'" ?ь)    ;; U+044C CYRILLIC SMALL LETTER SOFT SIGN
204  ("''" "Ь")  ;; U+042c CYRILLIC CAPITAL LETTER SOFT SIGN
205  ("`" ?ь))    ;; U+044C CYRILLIC SMALL LETTER SOFT SIGN
206
207
208