431 |
;; [consonant/nukta] - [matra/halant] - [preceding-r] - [anuswar]. |
;; [consonant/nukta] - [matra/halant] - [preceding-r] - [anuswar]. |
432 |
|
|
433 |
(defvar dev-glyph-glyph |
(defvar dev-glyph-glyph |
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") |
438 |
("$,4"*(B\$,4"'(B\$,4"&(B" . "$,4"-(B") |
("$,4\"*(B\$,4\"'(B\$,4\"&(B" . "$,4\"-(B") |
439 |
("$,4"2(B\$,4"&(B" . "$,4"3(B") |
("$,4\"2(B\$,4\"&(B" . "$,4\"3(B") |
440 |
("$,4"2(B\$,4"'(B" . "$,4"4(B") |
("$,4\"2(B\$,4\"'(B" . "$,4\"4(B") |
441 |
("$,4"2(B\$,4"'(B\$,4"&(B" . "$,4"5(B") |
("$,4\"2(B\$,4\"'(B\$,4\"&(B" . "$,4\"5(B") |
442 |
("$,4"#(B\$,4"6(B" . "$,4"7(B") |
("$,4\"#(B\$,4\"6(B" . "$,4\"7(B") |
443 |
("$,4"%(B\$,4"6(B" . "$,4"8(B") |
("$,4\"%(B\$,4\"6(B" . "$,4\"8(B") |
444 |
;;("$,4"6(B" . "$,4"9(B") |
;;("$,4\"6(B" . "$,4\"9(B") |
445 |
("$,4"#(B\$,4":(B" . "$,4";(B") |
("$,4\"#(B\$,4\":(B" . "$,4\";(B") |
446 |
("$,4"%(B\$,4":(B" . "$,4"<(B") |
("$,4\"%(B\$,4\":(B" . "$,4\"<(B") |
447 |
;;("$,4":(B" . "$,4"=(B") |
;;("$,4\":(B" . "$,4\"=(B") |
448 |
("\$,4"@(B\$,4"&(B" . "\$,4"A(B") |
("\$,4\"@(B\$,4\"&(B" . "\$,4\"A(B") |
449 |
("\$,4"@(B\$,4"'(B" . "\$,4"B(B") |
("\$,4\"@(B\$,4\"'(B" . "\$,4\"B(B") |
450 |
("\$,4"@(B\$,4"'(B\$,4"&(B" . "\$,4"C(B") |
("\$,4\"@(B\$,4\"'(B\$,4\"&(B" . "\$,4\"C(B") |
451 |
("\$,4"D(B\$,4"&(B" . "\$,4"E(B") |
("\$,4\"D(B\$,4\"&(B" . "\$,4\"E(B") |
452 |
("\$,4"D(B\$,4"'(B" . "\$,4"F(B") |
("\$,4\"D(B\$,4\"'(B" . "\$,4\"F(B") |
453 |
("\$,4"D(B\$,4"'(B\$,4"&(B" . "\$,4"G(B") |
("\$,4\"D(B\$,4\"'(B\$,4\"&(B" . "\$,4\"G(B") |
454 |
("\$,4"H(B\$,4"&(B" . "\$,4"I(B") |
("\$,4\"H(B\$,4\"&(B" . "\$,4\"I(B") |
455 |
("\$,4"H(B\$,4"'(B" . "\$,4"J(B") |
("\$,4\"H(B\$,4\"'(B" . "\$,4\"J(B") |
456 |
("\$,4"H(B\$,4"'(B\$,4"&(B" . "\$,4"K(B") |
("\$,4\"H(B\$,4\"'(B\$,4\"&(B" . "\$,4\"K(B") |
457 |
("\$,4"L(B\$,4"&(B" . "\$,4"M(B") |
("\$,4\"L(B\$,4\"&(B" . "\$,4\"M(B") |
458 |
("\$,4"L(B\$,4"'(B" . "\$,4"N(B") |
("\$,4\"L(B\$,4\"'(B" . "\$,4\"N(B") |
459 |
("\$,4"L(B\$,4"'(B\$,4"&(B" . "\$,4"O(B") |
("\$,4\"L(B\$,4\"'(B\$,4\"&(B" . "\$,4\"O(B") |
460 |
)) |
)) |
461 |
(defvar dev-glyph-glyph-hash |
(defvar dev-glyph-glyph-hash |
462 |
(let* ((hash (makehash 'equal))) |
(let* ((hash (makehash 'equal))) |
469 |
|
|
470 |
;; yet another glyph-to-glyph conversions. |
;; yet another glyph-to-glyph conversions. |
471 |
(defvar dev-glyph-glyph-2 |
(defvar dev-glyph-glyph-2 |
472 |
'(("$,4"*(B" . "$,4".(B") |
'(("$,4\"*(B" . "$,4\".(B") |
473 |
("$,4"+(B" . "$,4"/(B") |
("$,4\"+(B" . "$,4\"/(B") |
474 |
("$,4",(B" . "$,4"0(B") |
("$,4\",(B" . "$,4\"0(B") |
475 |
("$,4"-(B" . "$,4"1(B"))) |
("$,4\"-(B" . "$,4\"1(B"))) |
476 |
(defvar dev-glyph-glyph-2-hash |
(defvar dev-glyph-glyph-2-hash |
477 |
(let* ((hash (makehash 'equal))) |
(let* ((hash (makehash 'equal))) |
478 |
(mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) |
(mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) |
587 |
(if preceding-r |
(if preceding-r |
588 |
(if last-modifier |
(if last-modifier |
589 |
(setq glyph-str (concat (substring glyph-str 0 -1) |
(setq glyph-str (concat (substring glyph-str 0 -1) |
590 |
"$,4"'(B" (substring glyph-str -1))) |
"$,4\"'(B" (substring glyph-str -1))) |
591 |
(setq glyph-str (concat glyph-str "$,4"'(B")))) |
(setq glyph-str (concat glyph-str "$,4\"'(B")))) |
592 |
(if last-halant (setq glyph-str (concat glyph-str "$,4""(B"))) |
(if last-halant (setq glyph-str (concat glyph-str "$,4\"\"(B"))) |
593 |
;;; *** glyph-to-glyph conversion *** |
;;; *** glyph-to-glyph conversion *** |
594 |
(when (string-match dev-glyph-glyph-regexp glyph-str) |
(when (string-match dev-glyph-glyph-regexp glyph-str) |
595 |
(setq glyph-str |
(setq glyph-str |
603 |
dev-glyph-glyph-2-hash) |
dev-glyph-glyph-2-hash) |
604 |
nil t glyph-str)))) |
nil t glyph-str)))) |
605 |
;;; *** glyph reordering *** |
;;; *** glyph reordering *** |
606 |
(while (setq split-pos (string-match "$,4""(B\\|.$" glyph-str)) |
(while (setq split-pos (string-match "$,4\"\"(B\\|.$" glyph-str)) |
607 |
(setq glyph-block (substring glyph-str 0 (1+ split-pos))) |
(setq glyph-block (substring glyph-str 0 (1+ split-pos))) |
608 |
(setq glyph-str (substring glyph-str (1+ split-pos))) |
(setq glyph-str (substring glyph-str (1+ split-pos))) |
609 |
(setq |
(setq |