31 |
|
|
32 |
;;; Code: |
;;; Code: |
33 |
|
|
|
;;;###autoload |
|
34 |
|
|
35 |
;; Devanagari Composable Pattern |
;; Devanagari Composable Pattern |
36 |
;; C .. Consonants |
;; C .. Consonants |
155 |
|
|
156 |
(defvar dev-char-glyph |
(defvar dev-char-glyph |
157 |
'(("$,15E(B" . "$,4 K(B") |
'(("$,15E(B" . "$,4 K(B") |
158 |
("$,15F(B" . "$,4 K\")(B") |
("$,15F(B" . "$,4 K\"(B)") |
159 |
("$,15~(B" . "$,4\")(B") |
("$,15~(B" . "$,4\"(B)") |
160 |
("$,15G(B" . "$,4 \(B") |
("$,15G(B" . "$,4 \(B") |
161 |
("$,15(B" . "$,4\"*(B") |
("$,15(B" . "$,4\"(B*") |
162 |
("$,155A(B" . "$,4\"*(B\$,4\"&(B") |
("$,155A(B" . "$,4\"(B*\$,4\"(B&") |
163 |
("$,15H(B" . "$,4 \"'(B") |
("$,15H(B" . "$,4 \"'(B") |
164 |
("$,15H5A(B" . "$,4 \"'\"&(B") |
("$,15H5A(B" . "$,4 \"'\"(B&") |
165 |
("$,16 (B" . "$,4\"2(B") |
("$,16 (B" . "$,4\"(B2") |
166 |
("$,16 5A(B" . "$,4\"2\"&(B") |
("$,16 5A(B" . "$,4\"2\"&(B") |
167 |
("$,15I(B" . "$,4 ](B") |
("$,15I(B" . "$,4 ](B") |
168 |
("$,16!(B" . "$,4\"6(B") |
("$,16!(B" . "$,4\"(B6") |
169 |
("$,15J(B" . "$,4 ^\"P(B") |
("$,15J(B" . "$,4 ^\"(BP") |
170 |
("$,16"(B" . "$,4\":(B") |
("$,16"(B" . "$,4\"(B:") |
171 |
("$,15K(B" . "$,4 `\"Q(B") |
("$,15K(B" . "$,4 `\"(BQ") |
172 |
("$,16#(B" . "$,4\">(B") |
("$,16#(B" . "$,4\"(B>") |
173 |
;;("$,15L(B" . nil) ; not implemented. |
;;("$,15L(B" . nil) ; not implemented. |
174 |
("$,16$(B" . "$,4\"?(B") |
("$,16$(B" . "$,4\"(B?") |
175 |
("$,15M(B" . "$,4 b\"L(B") |
("$,15M(B" . "$,4 b\"(BL") |
176 |
("$,15M5A(B" . "$,4 b\"$(B") |
("$,15M5A(B" . "$,4 b\"(B$") |
177 |
("$,15M5B(B" . "$,4 b\"$(B") |
("$,15M5B(B" . "$,4 b\"(B$") |
178 |
("$,16%(B" . "\$,4\"L(B") |
("$,16%(B" . "\$,4\"(BL") |
179 |
("$,15N(B" . "$,4 b\"@(B") |
("$,15N(B" . "$,4 b\"(B@") |
180 |
("$,15N5A(B" . "$,4 b\"@\"&(B") |
("$,15N5A(B" . "$,4 b\"@\"&(B") |
181 |
("$,16&(B" . "\$,4\"@(B") |
("$,16&(B" . "\$,4\"(B@") |
182 |
("$,16&5A(B" . "\$,4\"@(B\$,4\"&(B") |
("$,16&5A(B" . "\$,4\"(B@\$,4\"(B&") |
183 |
("$,15O(B" . "$,4 b(B") |
("$,15O(B" . "$,4 b(B") |
184 |
("$,16'(B" . "\$,4\"D(B") |
("$,16'(B" . "\$,4\"(BD") |
185 |
("$,16'5A(B" . "\$,4\"D(B\$,4\"&(B") |
("$,16'5A(B" . "\$,4\"(BD\$,4\"(B&") |
186 |
("$,15P(B" . "$,4 b\"D(B") |
("$,15P(B" . "$,4 b\"(BD") |
187 |
("$,15P5A(B" . "$,4 b\"D\"&(B") |
("$,15P5A(B" . "$,4 b\"D\"&(B") |
188 |
("$,16((B" . "\$,4\"H(B") |
("$,16((B" . "\$,4\"(BH") |
189 |
("$,16(5A(B" . "\$,4\"H(B\$,4\"&(B") |
("$,16(5A(B" . "\$,4\"(BH\$,4\"(B&") |
190 |
("$,15Q(B" . "$,4 K\")\"L(B") ;; special rule for reodering. |
("$,15Q(B" . "$,4 K\")\"L(B") ;; special rule for reodering. |
191 |
("$,15Q5A(B" . "$,4 K\")\"$(B") |
("$,15Q5A(B" . "$,4 K\")\"$(B") |
192 |
("$,15Q5B(B" . "$,4 K\")\"$(B") |
("$,15Q5B(B" . "$,4 K\")\"$(B") |
194 |
("$,16)5A(B" . "\$,4\")\"$(B") |
("$,16)5A(B" . "\$,4\")\"$(B") |
195 |
("$,16)5B(B" . "\$,4\")\"$(B") |
("$,16)5B(B" . "\$,4\")\"$(B") |
196 |
("$,15R(B" . "$,4 K\")\"@(B") |
("$,15R(B" . "$,4 K\")\"@(B") |
197 |
("$,15R5A(B" . "$,4 K\")\"@\"&(B") |
("$,15R5A(B" . "$,4 K\")\"@\"(B&") |
198 |
("$,16*(B" . "\$,4\")\"@(B") |
("$,16*(B" . "\$,4\")\"@(B") |
199 |
("$,16*5A(B" . "\$,4\")\"@\"&(B") |
("$,16*5A(B" . "\$,4\")\"@\"(B&") |
200 |
("$,15S(B" . "$,4 K\")\"D(B") |
("$,15S(B" . "$,4 K\")\"D(B") |
201 |
("$,15S5A(B" . "$,4 K\")\"D\"&(B") |
("$,15S5A(B" . "$,4 K\")\"D\"(B&") |
202 |
("$,16+(B" . "\$,4\")\"D(B") |
("$,16+(B" . "\$,4\")\"D(B") |
203 |
("$,16+5A(B" . "\$,4\")\"D\"&(B") |
("$,16+5A(B" . "\$,4\")\"D\"(B&") |
204 |
("$,15T(B" . "$,4 K\")\"H(B") |
("$,15T(B" . "$,4 K\")\"H(B") |
205 |
("$,15T5A(B" . "$,4 K\")\"H\"&(B") |
("$,15T5A(B" . "$,4 K\")\"H\"(B&") |
206 |
("$,16,(B" . "\$,4\")\"H(B") |
("$,16,(B" . "\$,4\")\"H(B") |
207 |
("$,16,5A(B" . "\$,4\")\"H\"&(B") |
("$,16,5A(B" . "\$,4\")\"H\"(B&") |
208 |
("$,16@(B" . "$,4 a\"Q(B") |
("$,16@(B" . "$,4 a\"(BQ") |
209 |
;;("$,16B(B" . nil) |
;;("$,16B(B" . nil) |
210 |
;;("$,16A(B" . nil) |
;;("$,16A(B" . nil) |
211 |
;;("$,16C(B" . nil) |
;;("$,16C(B" . nil) |
212 |
|
|
213 |
;; GRUTTALS |
;; GRUTTALS |
214 |
("$,15U(B" . "$,4 e\"R(B") |
("$,15U(B" . "$,4 e\"(BR") |
215 |
("$,15U6-(B" . "$,4 c(B") |
("$,15U6-(B" . "$,4 c(B") |
216 |
("$,15U6-5p(B" . "$,4 g\"R(B") |
("$,15U6-5p(B" . "$,4 g\"(BR") |
217 |
("$,15U6-5d(B" . "$,4 h\"R(B") |
("$,15U6-5d(B" . "$,4 h\"(BR") |
218 |
("$,15U6-5w(B" . "$,4 i\")(B") |
("$,15U6-5w(B" . "$,4 i\"(B)") |
219 |
("$,15U6-5w6-(B" . "$,4 i(B") |
("$,15U6-5w6-(B" . "$,4 i(B") |
220 |
|
|
221 |
("$,15V(B" . "$,4 j\")(B") |
("$,15V(B" . "$,4 j\"(B)") |
222 |
("$,15V6-(B" . "$,4 j(B") |
("$,15V6-(B" . "$,4 j(B") |
223 |
("$,15V6-5p(B" . "$,4 l\")(B") |
("$,15V6-5p(B" . "$,4 l\"(B)") |
224 |
("$,15V6-5p6-(B" . "$,4 l(B") |
("$,15V6-5p6-(B" . "$,4 l(B") |
225 |
|
|
226 |
("$,15W(B" . "$,4 m\")(B") |
("$,15W(B" . "$,4 m\"(B)") |
227 |
("$,15W6-(B" . "$,4 m(B") |
("$,15W6-(B" . "$,4 m(B") |
228 |
("$,15W6-5p(B" . "$,4 o\")(B") |
("$,15W6-5p(B" . "$,4 o\"(B)") |
229 |
("$,15W6-5p6-(B" . "$,4 o(B") |
("$,15W6-5p6-(B" . "$,4 o(B") |
230 |
|
|
231 |
("$,15X(B" . "$,4 p\")(B") |
("$,15X(B" . "$,4 p\"(B)") |
232 |
("$,15X6-(B" . "$,4 p(B") |
("$,15X6-(B" . "$,4 p(B") |
233 |
("$,15X6-5p(B" . "$,4 q\")(B") |
("$,15X6-5p(B" . "$,4 q\"(B)") |
234 |
("$,15X6-5p6-(B" . "$,4 q(B") |
("$,15X6-5p6-(B" . "$,4 q(B") |
235 |
|
|
236 |
("$,15Y(B" . "$,4 r\"S(B") |
("$,15Y(B" . "$,4 r\"(BS") |
237 |
;; PALATALS |
;; PALATALS |
238 |
("$,15Z(B" . "$,4 s\")(B") |
("$,15Z(B" . "$,4 s\"(B)") |
239 |
("$,15Z6-(B" . "$,4 s(B") |
("$,15Z6-(B" . "$,4 s(B") |
240 |
("$,15Z6-5p(B" . "$,4 t\")(B") |
("$,15Z6-5p(B" . "$,4 t\"(B)") |
241 |
("$,15Z6-5p6-(B" . "$,4 t(B") |
("$,15Z6-5p6-(B" . "$,4 t(B") |
242 |
|
|
243 |
("$,15[(B" . "$,4 u\"T(B") |
("$,15[(B" . "$,4 u\"(BT") |
244 |
|
|
245 |
("$,15\(B" . "$,4 v\")(B") |
("$,15\(B" . "$,4 v\"(B)") |
246 |
("$,15\6-(B" . "$,4 v(B") |
("$,15\6-(B" . "$,4 v(B") |
247 |
("$,15\6-5p(B" . "$,4 x\")(B") |
("$,15\6-5p(B" . "$,4 x\"(B)") |
248 |
("$,15\6-5p6-(B" . "$,4 x(B") |
("$,15\6-5p6-(B" . "$,4 x(B") |
249 |
("$,15\6-5^(B" . "$,4 y\")(B") |
("$,15\6-5^(B" . "$,4 y\"(B)") |
250 |
("$,15\6-5^6-(B" . "$,4 y(B") |
("$,15\6-5^6-(B" . "$,4 y(B") |
251 |
|
|
252 |
("$,15](B" . "$,4 z\")(B") |
("$,15](B" . "$,4 z\"(B)") |
253 |
("$,15]6-(B" . "$,4 z(B") |
("$,15]6-(B" . "$,4 z(B") |
254 |
("$,15]6-5p(B" . "$,4 {\")(B") |
("$,15]6-5p(B" . "$,4 {\"(B)") |
255 |
("$,15]6-5p6-(B" . "$,4 {(B") |
("$,15]6-5p6-(B" . "$,4 {(B") |
256 |
|
|
257 |
("$,15^(B" . "$,4 |\")(B") |
("$,15^(B" . "$,4 |\"(B)") |
258 |
("$,15^6-(B" . "$,4 |(B") |
("$,15^6-(B" . "$,4 |(B") |
259 |
;; CEREBRALS |
;; CEREBRALS |
260 |
("$,15_(B" . "$,4 }\"U(B") |
("$,15_(B" . "$,4 }\"(BU") |
261 |
("$,15_6-5_(B" . "$,4 ~\"U(B") |
("$,15_6-5_(B" . "$,4 ~\"(BU") |
262 |
("$,15_6-5`(B" . "$,4 \"U(B") |
("$,15_6-5`(B" . "$,4 \"(BU") |
263 |
|
|
264 |
("$,15`(B" . "$,4! \"V(B") |
("$,15`(B" . "$,4! \"(BV") |
265 |
("$,15`6-5`(B" . "$,4!!\"V(B") |
("$,15`6-5`(B" . "$,4!!\"(BV") |
266 |
|
|
267 |
("$,15a(B" . "$,4!\"\"W(B") |
("$,15a(B" . "$,4!\"\"W(B") |
268 |
("$,15a6-5a(B" . "$,4!$\"W(B") |
("$,15a6-5a(B" . "$,4!$\"(BW") |
269 |
("$,15a6-5b(B" . "$,4!%\"W(B") |
("$,15a6-5b(B" . "$,4!%\"(BW") |
270 |
|
|
271 |
("$,15b(B" . "$,4!&\"X(B") |
("$,15b(B" . "$,4!&\"(BX") |
272 |
|
|
273 |
("$,15c(B" . "$,4!(\")(B") |
("$,15c(B" . "$,4!(\"(B)") |
274 |
("$,15c6-(B" . "$,4!((B") |
("$,15c6-(B" . "$,4!((B") |
275 |
;; DENTALS |
;; DENTALS |
276 |
("$,15d(B" . "$,4!)\")(B") |
("$,15d(B" . "$,4!)\"(B)") |
277 |
("$,15d6-(B" . "$,4!)(B") |
("$,15d6-(B" . "$,4!)(B") |
278 |
("$,15d6-5p(B" . "$,4!*\")(B") |
("$,15d6-5p(B" . "$,4!*\"(B)") |
279 |
("$,15d6-5p6-(B" . "$,4!*(B") |
("$,15d6-5p6-(B" . "$,4!*(B") |
280 |
("$,15d6-5d(B" . "$,4!+\")(B") |
("$,15d6-5d(B" . "$,4!+\"(B)") |
281 |
("$,15d6-5d6-(B" . "$,4!+(B") |
("$,15d6-5d6-(B" . "$,4!+(B") |
282 |
|
|
283 |
("$,15e(B" . "$,4!,\")(B") |
("$,15e(B" . "$,4!,\"(B)") |
284 |
("$,15e6-(B" . "$,4!,(B") |
("$,15e6-(B" . "$,4!,(B") |
285 |
("$,15e6-5p(B" . "$,4!-\")(B") |
("$,15e6-5p(B" . "$,4!-\"(B)") |
286 |
("$,15e6-5p6-(B" . "$,4!-(B") |
("$,15e6-5p6-(B" . "$,4!-(B") |
287 |
|
|
288 |
("$,15f(B" . "$,4!.\"Y(B") |
("$,15f(B" . "$,4!.\"(BY") |
289 |
("$,15f6#(B" . "$,4!/\"Y(B") |
("$,15f6#(B" . "$,4!/\"(BY") |
290 |
("$,15f6-5p(B" . "$,4!0\"Y(B") |
("$,15f6-5p(B" . "$,4!0\"(BY") |
291 |
("$,15f6-5f(B" . "$,4!1\"Y(B") |
("$,15f6-5f(B" . "$,4!1\"(BY") |
292 |
("$,15f6-5g(B" . "$,4!2\"Y(B") |
("$,15f6-5g(B" . "$,4!2\"(BY") |
293 |
("$,15f6-5n(B" . "$,4!3(B") |
("$,15f6-5n(B" . "$,4!3(B") |
294 |
("$,15f6-5o(B" . "$,4!4(B") |
("$,15f6-5o(B" . "$,4!4(B") |
295 |
("$,15f6-5u(B" . "$,4!5\"Y(B") |
("$,15f6-5u(B" . "$,4!5\"(BY") |
296 |
|
|
297 |
("$,15g(B" . "$,4!6\")(B") |
("$,15g(B" . "$,4!6\"(B)") |
298 |
("$,15g6-(B" . "$,4!6(B") |
("$,15g6-(B" . "$,4!6(B") |
299 |
("$,15g6-5p(B" . "$,4!7\")(B") |
("$,15g6-5p(B" . "$,4!7\"(B)") |
300 |
("$,15g6-5p6-(B" . "$,4!7(B") |
("$,15g6-5p6-(B" . "$,4!7(B") |
301 |
|
|
302 |
("$,15h(B" . "$,4!8\")(B") |
("$,15h(B" . "$,4!8\"(B)") |
303 |
("$,15h6-(B" . "$,4!8(B") |
("$,15h6-(B" . "$,4!8(B") |
304 |
("$,15h6-5p(B" . "$,4!9\")(B") |
("$,15h6-5p(B" . "$,4!9\"(B)") |
305 |
("$,15h6-5p6-(B" . "$,4!9\")(B") |
("$,15h6-5p6-(B" . "$,4!9\"(B)") |
306 |
("$,15h6-5h(B" . "$,4!:\")(B") |
("$,15h6-5h(B" . "$,4!:\"(B)") |
307 |
("$,15h6-5h6-(B" . "$,4!:(B") |
("$,15h6-5h6-(B" . "$,4!:(B") |
308 |
|
|
309 |
("$,15i(B" . "$,4!8\"#\")(B") |
("$,15i(B" . "$,4!8\"#\")(B") |
310 |
;; LABIALS |
;; LABIALS |
311 |
("$,15j(B" . "$,4!;\")(B") |
("$,15j(B" . "$,4!;\"(B)") |
312 |
("$,15j6-(B" . "$,4!;(B") |
("$,15j6-(B" . "$,4!;(B") |
313 |
("$,15j6-5p(B" . "$,4!<\")(B") |
("$,15j6-5p(B" . "$,4!<\"(B)") |
314 |
("$,15j6-5p6-(B" . "$,4!<(B") |
("$,15j6-5p6-(B" . "$,4!<(B") |
315 |
|
|
316 |
("$,15k(B" . "$,4!a\"[(B") |
("$,15k(B" . "$,4!a\"(B[") |
317 |
("$,15k6-(B" . "$,4!=(B") |
("$,15k6-(B" . "$,4!=(B") |
318 |
("$,15k6-5p(B" . "$,4!c\"[(B") |
("$,15k6-5p(B" . "$,4!c\"(B[") |
319 |
|
|
320 |
("$,15l(B" . "$,4!d\")(B") |
("$,15l(B" . "$,4!d\"(B)") |
321 |
("$,15l6-(B" . "$,4!d(B") |
("$,15l6-(B" . "$,4!d(B") |
322 |
("$,15l6-5p(B" . "$,4!e\")(B") |
("$,15l6-5p(B" . "$,4!e\"(B)") |
323 |
("$,15l6-5p6-(B" . "$,4!e(B") |
("$,15l6-5p6-(B" . "$,4!e(B") |
324 |
|
|
325 |
("$,15m(B" . "$,4!f\")(B") |
("$,15m(B" . "$,4!f\"(B)") |
326 |
("$,15m6-(B" . "$,4!f(B") |
("$,15m6-(B" . "$,4!f(B") |
327 |
("$,15m6-5p(B" . "$,4!g\")(B") |
("$,15m6-5p(B" . "$,4!g\"(B)") |
328 |
("$,15m6-5p6-(B" . "$,4!g(B") |
("$,15m6-5p6-(B" . "$,4!g(B") |
329 |
|
|
330 |
("$,15n(B" . "$,4!h\")(B") |
("$,15n(B" . "$,4!h\"(B)") |
331 |
("$,15n6-(B" . "$,4!h(B") |
("$,15n6-(B" . "$,4!h(B") |
332 |
("$,15n6-5p(B" . "$,4!i\")(B") |
("$,15n6-5p(B" . "$,4!i\"(B)") |
333 |
("$,15n6-5p6-(B" . "$,4!i(B") |
("$,15n6-5p6-(B" . "$,4!i(B") |
334 |
;; SEMIVOWELS |
;; SEMIVOWELS |
335 |
("$,15o(B" . "$,4!j\")(B") |
("$,15o(B" . "$,4!j\"(B)") |
336 |
("$,15o6-(B" . "$,4!j(B") |
("$,15o6-(B" . "$,4!j(B") |
337 |
("$,15o6-5p(B" . "$,4!k\")(B") |
("$,15o6-5p(B" . "$,4!k\"(B)") |
338 |
("$,15o6-5p6-(B" . "$,4!k(B") |
("$,15o6-5p6-(B" . "$,4!k(B") |
339 |
("$,16-5o(B" . "$,4!l(B") ;; when every ohter lig. fails. |
("$,16-5o(B" . "$,4!l(B") ;; when every ohter lig. fails. |
340 |
|
|
341 |
("$,15p(B" . "$,4!n\"W(B") |
("$,15p(B" . "$,4!n\"(BW") |
342 |
;; ("$,15p6-(B" . "\$,4"'(B") ;; special case. only the topmost pos. |
;; ("$,15p6-(B" . "\$,4"'(B") ;; special case. only the topmost pos. |
343 |
("$,15q(B" . "$,4!n\"#\"W(B") |
("$,15q(B" . "$,4!n\"#\"W(B") |
344 |
("$,15q6-(B" . "$,4!m(B") ;; IS 13194 speical rule. |
("$,15q6-(B" . "$,4!m(B") ;; IS 13194 speical rule. |
345 |
("$,15p6!(B" . "$,4!o\"[(B") |
("$,15p6!(B" . "$,4!o\"(B[") |
346 |
("$,15p6"(B" . "$,4!p\"\(B") |
("$,15p6"(B" . "$,4!p\"(B\\") |
347 |
|
|
348 |
("$,15r(B" . "$,4!q\")(B") |
("$,15r(B" . "$,4!q\"(B)") |
349 |
("$,15r6-(B" . "$,4!q(B") |
("$,15r6-(B" . "$,4!q(B") |
350 |
("$,15s(B" . "$,4!s(B") |
("$,15s(B" . "$,4!s(B") |
351 |
("$,15s6-(B" . "$,4!r(B") |
("$,15s6-(B" . "$,4!r(B") |
352 |
("$,15t(B" . "$,4!s\"#(B") |
("$,15t(B" . "$,4!s\"(B#") |
353 |
("$,15t6-(B" . "$,4!r\"#(B") |
("$,15t6-(B" . "$,4!r\"(B#") |
354 |
|
|
355 |
("$,15u(B" . "$,4!t\")(B") |
("$,15u(B" . "$,4!t\"(B)") |
356 |
("$,15u6-(B" . "$,4!t(B") |
("$,15u6-(B" . "$,4!t(B") |
357 |
("$,15u6-5p(B" . "$,4!u\")(B") |
("$,15u6-5p(B" . "$,4!u\"(B)") |
358 |
("$,15u6-5p6-(B" . "$,4!u(B") |
("$,15u6-5p6-(B" . "$,4!u(B") |
359 |
;; SIBILANTS |
;; SIBILANTS |
360 |
("$,15v(B" . "$,4!v\")(B") |
("$,15v(B" . "$,4!v\"(B)") |
361 |
("$,15v6-(B" . "$,4!v(B") |
("$,15v6-(B" . "$,4!v(B") |
362 |
("$,15v6-5u(B" . "$,4!w\")(B") |
("$,15v6-5u(B" . "$,4!w\"(B)") |
363 |
("$,15v6-5u6-(B" . "$,4!w(B") |
("$,15v6-5u6-(B" . "$,4!w(B") |
364 |
("$,15v6-5p(B" . "$,4!x\")(B") |
("$,15v6-5p(B" . "$,4!x\"(B)") |
365 |
("$,15v6-5p6-(B" . "$,4!x(B") |
("$,15v6-5p6-(B" . "$,4!x(B") |
366 |
|
|
367 |
("$,15w(B" . "$,4!y\")(B") |
("$,15w(B" . "$,4!y\"(B)") |
368 |
("$,15w6-(B" . "$,4!y(B") |
("$,15w6-(B" . "$,4!y(B") |
369 |
("$,15x(B" . "$,4!z\")(B") |
("$,15x(B" . "$,4!z\"(B)") |
370 |
("$,15x6-(B" . "$,4!z(B") |
("$,15x6-(B" . "$,4!z(B") |
371 |
("$,15x6-5p(B" . "$,4!{\")(B") |
("$,15x6-5p(B" . "$,4!{\"(B)") |
372 |
("$,15x6-5p6-(B" . "$,4!{(B") |
("$,15x6-5p6-(B" . "$,4!{(B") |
373 |
|
|
374 |
("$,15y(B" . "$,4!}(B") |
("$,15y(B" . "$,4!}(B") |
375 |
("$,15y6-(B" . "$,4!|(B") |
("$,15y6-(B" . "$,4!|(B") |
376 |
("$,15y6#(B" . "$,4!~(B") |
("$,15y6#(B" . "$,4!~(B") |
377 |
("$,15y6-5p(B" . "$,4!(B") |
("$,15y6-5p(B" . "$,4!(B") |
378 |
("$,15y6-5n(B" . "$,4\" (B") |
("$,15y6-5n(B" . "$,4\"(B ") |
379 |
("$,15y6-5o(B" . "$,4\"!(B") |
("$,15y6-5o(B" . "$,4\"(B!") |
380 |
;; NUKTAS |
;; NUKTAS |
381 |
("$,168(B" . "$,4 f\"R\"S(B") |
("$,168(B" . "$,4 f\"R\"S(B") |
382 |
("$,1686-(B" . "$,4 d(B") |
("$,1686-(B" . "$,4 d(B") |
383 |
("$,169(B" . "$,4 k\")(B") |
("$,169(B" . "$,4 k\"(B)") |
384 |
("$,1696-(B" . "$,4 k(B") |
("$,1696-(B" . "$,4 k(B") |
385 |
("$,16:(B" . "$,4 n\")(B") |
("$,16:(B" . "$,4 n\"(B)") |
386 |
("$,16:6-(B" . "$,4 n(B") |
("$,16:6-(B" . "$,4 n(B") |
387 |
("$,16;(B" . "$,4 w\")(B") |
("$,16;(B" . "$,4 w\"(B)") |
388 |
("$,16;6-(B" . "$,4 w(B") |
("$,16;6-(B" . "$,4 w(B") |
389 |
("$,16<(B" . "$,4!#\"W(B") |
("$,16<(B" . "$,4!#\"(BW") |
390 |
("$,16=(B" . "$,4!'\"X(B") |
("$,16=(B" . "$,4!'\"(BX") |
391 |
("$,16>(B" . "$,4!b\"[(B") |
("$,16>(B" . "$,4!b\"(B[") |
392 |
("$,16>6-(B" . "$,4!>(B") |
("$,16>6-(B" . "$,4!>(B") |
393 |
("$,16?(B" . "$,4!j\"#\")(B") |
("$,16?(B" . "$,4!j\"#\")(B") |
394 |
;; misc modifiers. |
;; misc modifiers. |
395 |
("$,15A(B" . "\$,4\"$(B") |
("$,15A(B" . "\$,4\"(B$") |
396 |
("$,15B(B" . "\$,4\"&(B") |
("$,15B(B" . "\$,4\"(B&") |
397 |
("$,15C(B" . "$,4 F(B") |
("$,15C(B" . "$,4 F(B") |
398 |
("$,15|(B" . "$,4\"#(B") |
("$,15|(B" . "$,4\"(B#") |
399 |
("$,15}(B" . "$,4 E(B") |
("$,15}(B" . "$,4 E(B") |
400 |
("$,16-(B" . "$,4\"\"(B") |
("$,16-(B" . "$,4\"\"(B") |
401 |
("$,16-5p(B" . "$,4\"%(B") ;; following "r" |
("$,16-5p(B" . "$,4\"(B%") ;; following "r" |
402 |
;; ("$,160(B" . "$,4 D(B") |
;; ("$,160(B" . "$,4 D(B") |
403 |
;; ("$,16D(B" . "$,4 J(B") |
;; ("$,16D(B" . "$,4 J(B") |
404 |
;; ("$,16F(B" . "") |
;; ("$,16F(B" . "") |
430 |
;; [consonant/nukta] - [matra/halant] - [preceding-r] - [anuswar]. |
;; [consonant/nukta] - [matra/halant] - [preceding-r] - [anuswar]. |
431 |
|
|
432 |
(defvar dev-glyph-glyph |
(defvar dev-glyph-glyph |
433 |
'(("\$,4\"'(B\$,4\"&(B" . "\$,4\"((B") |
'(("\$,4\"(B'\$,4\"(B&" . "\$,4\"(B(") |
434 |
("\$,4\"'(B\$,4\"$(B" . "\$,4\"((B") |
("\$,4\"(B'\$,4\"(B$" . "\$,4\"(B(") |
435 |
("$,4\"*(B\$,4\"&(B" . "$,4\"+(B") |
("$,4\"(B*\$,4\"(B&" . "$,4\"(B+") |
436 |
("$,4\"*(B\$,4\"'(B" . "$,4\",(B") |
("$,4\"(B*\$,4\"(B'" . "$,4\"(B,") |
437 |
("$,4\"*(B\$,4\"'(B\$,4\"&(B" . "$,4\"-(B") |
("$,4\"(B*\$,4\"(B'\$,4\"(B&" . "$,4\"(B-") |
438 |
("$,4\"2(B\$,4\"&(B" . "$,4\"3(B") |
("$,4\"(B2\$,4\"(B&" . "$,4\"(B3") |
439 |
("$,4\"2(B\$,4\"'(B" . "$,4\"4(B") |
("$,4\"(B2\$,4\"(B'" . "$,4\"(B4") |
440 |
("$,4\"2(B\$,4\"'(B\$,4\"&(B" . "$,4\"5(B") |
("$,4\"(B2\$,4\"(B'\$,4\"(B&" . "$,4\"(B5") |
441 |
("$,4\"#(B\$,4\"6(B" . "$,4\"7(B") |
("$,4\"(B#\$,4\"(B6" . "$,4\"(B7") |
442 |
("$,4\"%(B\$,4\"6(B" . "$,4\"8(B") |
("$,4\"(B%\$,4\"(B6" . "$,4\"(B8") |
443 |
;;("$,4\"6(B" . "$,4\"9(B") |
;;("$,4\"(B6" . "$,4\"(B9") |
444 |
("$,4\"#(B\$,4\":(B" . "$,4\";(B") |
("$,4\"(B#\$,4\"(B:" . "$,4\"(B;") |
445 |
("$,4\"%(B\$,4\":(B" . "$,4\"<(B") |
("$,4\"(B%\$,4\"(B:" . "$,4\"(B<") |
446 |
;;("$,4\":(B" . "$,4\"=(B") |
;;("$,4\"(B:" . "$,4\"(B=") |
447 |
("\$,4\"@(B\$,4\"&(B" . "\$,4\"A(B") |
("\$,4\"(B@\$,4\"(B&" . "\$,4\"(BA") |
448 |
("\$,4\"@(B\$,4\"'(B" . "\$,4\"B(B") |
("\$,4\"(B@\$,4\"(B'" . "\$,4\"(BB") |
449 |
("\$,4\"@(B\$,4\"'(B\$,4\"&(B" . "\$,4\"C(B") |
("\$,4\"(B@\$,4\"(B'\$,4\"(B&" . "\$,4\"(BC") |
450 |
("\$,4\"D(B\$,4\"&(B" . "\$,4\"E(B") |
("\$,4\"(BD\$,4\"(B&" . "\$,4\"(BE") |
451 |
("\$,4\"D(B\$,4\"'(B" . "\$,4\"F(B") |
("\$,4\"(BD\$,4\"(B'" . "\$,4\"(BF") |
452 |
("\$,4\"D(B\$,4\"'(B\$,4\"&(B" . "\$,4\"G(B") |
("\$,4\"(BD\$,4\"(B'\$,4\"(B&" . "\$,4\"(BG") |
453 |
("\$,4\"H(B\$,4\"&(B" . "\$,4\"I(B") |
("\$,4\"(BH\$,4\"(B&" . "\$,4\"(BI") |
454 |
("\$,4\"H(B\$,4\"'(B" . "\$,4\"J(B") |
("\$,4\"(BH\$,4\"(B'" . "\$,4\"(BJ") |
455 |
("\$,4\"H(B\$,4\"'(B\$,4\"&(B" . "\$,4\"K(B") |
("\$,4\"(BH\$,4\"(B'\$,4\"(B&" . "\$,4\"(BK") |
456 |
("\$,4\"L(B\$,4\"&(B" . "\$,4\"M(B") |
("\$,4\"(BL\$,4\"(B&" . "\$,4\"(BM") |
457 |
("\$,4\"L(B\$,4\"'(B" . "\$,4\"N(B") |
("\$,4\"(BL\$,4\"(B'" . "\$,4\"(BN") |
458 |
("\$,4\"L(B\$,4\"'(B\$,4\"&(B" . "\$,4\"O(B") |
("\$,4\"(BL\$,4\"(B'\$,4\"(B&" . "\$,4\"(BO") |
459 |
)) |
)) |
460 |
(defvar dev-glyph-glyph-hash |
(defvar dev-glyph-glyph-hash |
461 |
(let* ((hash (makehash 'equal))) |
(let* ((hash (makehash 'equal))) |
468 |
|
|
469 |
;; yet another glyph-to-glyph conversions. |
;; yet another glyph-to-glyph conversions. |
470 |
(defvar dev-glyph-glyph-2 |
(defvar dev-glyph-glyph-2 |
471 |
'(("$,4\"*(B" . "$,4\".(B") |
'(("$,4\"(B*" . "$,4\"(B.") |
472 |
("$,4\"+(B" . "$,4\"/(B") |
("$,4\"(B+" . "$,4\"(B/") |
473 |
("$,4\",(B" . "$,4\"0(B") |
("$,4\"(B," . "$,4\"(B0") |
474 |
("$,4\"-(B" . "$,4\"1(B"))) |
("$,4\"(B-" . "$,4\"(B1"))) |
475 |
(defvar dev-glyph-glyph-2-hash |
(defvar dev-glyph-glyph-2-hash |
476 |
(let* ((hash (makehash 'equal))) |
(let* ((hash (makehash 'equal))) |
477 |
(mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) |
(mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) |
586 |
(if preceding-r |
(if preceding-r |
587 |
(if last-modifier |
(if last-modifier |
588 |
(setq glyph-str (concat (substring glyph-str 0 -1) |
(setq glyph-str (concat (substring glyph-str 0 -1) |
589 |
"$,4\"'(B" (substring glyph-str -1))) |
"$,4\"(B'" (substring glyph-str -1))) |
590 |
(setq glyph-str (concat glyph-str "$,4\"'(B")))) |
(setq glyph-str (concat glyph-str "$,4\"(B'")))) |
591 |
(if last-halant (setq glyph-str (concat glyph-str "$,4\"\"(B"))) |
(if last-halant (setq glyph-str (concat glyph-str "$,4\"\"(B"))) |
592 |
;;; *** glyph-to-glyph conversion *** |
;;; *** glyph-to-glyph conversion *** |
593 |
(when (string-match dev-glyph-glyph-regexp glyph-str) |
(when (string-match dev-glyph-glyph-regexp glyph-str) |