/[emacs]/emacs/lisp/language/devan-util.el
ViewVC logotype

Diff of /emacs/lisp/language/devan-util.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by gerd, Mon Nov 26 11:39:11 2001 UTC revision 1.30 by gerd, Mon Nov 26 11:50:01 2001 UTC
# Line 431  preferred rule from the sanskrit fonts." Line 431  preferred rule from the sanskrit fonts."
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)))
# Line 469  preferred rule from the sanskrit fonts." Line 469  preferred rule from the sanskrit fonts."
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)))
# Line 587  preferred rule from the sanskrit fonts." Line 587  preferred rule from the sanskrit fonts."
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
# Line 603  preferred rule from the sanskrit fonts." Line 603  preferred rule from the sanskrit fonts."
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

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26