[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/language/ind-util.el,v
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/language/ind-util.el,v |
Date: |
Fri, 01 Feb 2008 16:02:27 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Miles Bader <miles> 08/02/01 16:01:31
Index: lisp/language/ind-util.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/language/ind-util.el,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -b -r1.19 -r1.20
--- lisp/language/ind-util.el 8 Jan 2008 20:45:57 -0000 1.19
+++ lisp/language/ind-util.el 1 Feb 2008 16:01:01 -0000 1.20
@@ -408,7 +408,7 @@
;; trans-char -- nil / string / list of strings
(when (and char trans-char)
(if (stringp trans-char) (setq trans-char (list trans-char)))
- (if (char-valid-p char) (setq char (char-to-string char)))
+ (if (characterp char) (setq char (char-to-string char)))
(puthash char (car trans-char) encode-hash)
(dolist (trans trans-char)
(puthash trans char decode-hash)))))
@@ -426,7 +426,7 @@
(defun indian--puthash-c (c trans-c halant hashtbls)
(indian--map
(lambda (c trans-c)
- (if (char-valid-p c) (setq c (char-to-string c)))
+ (if (characterp c) (setq c (char-to-string c)))
(indian--puthash-char (concat c halant) trans-c hashtbls))
c trans-c))
@@ -442,8 +442,8 @@
(indian--map
(lambda (v trans-v)
(when (and c trans-c v trans-v)
- (if (char-valid-p c) (setq c (char-to-string c)))
- (setq v (if (char-valid-p (cadr v)) (char-to-string (cadr v)) ""))
+ (if (characterp c) (setq c (char-to-string c)))
+ (setq v (if (characterp (cadr v)) (char-to-string (cadr v)) ""))
(if (stringp trans-c) (setq trans-c (list trans-c)))
(if (stringp trans-v) (setq trans-v (list trans-v)))
(indian--puthash-char
@@ -577,9 +577,10 @@
;; The followings provide conversion between IS 13194 (ISCII) and UCS.
-(defvar ucs-devanagari-to-is13194-alist
- '(;;Unicode vs IS13194 ;; only Devanagari is supported now.
- (?\x0900 . "[U+0900]")
+(let
+ ;;Unicode vs IS13194 ;; only Devanagari is supported now.
+ ((ucs-devanagari-to-is13194-alist
+ '((?\x0900 . "[U+0900]")
(?\x0901 . "(5!(B")
(?\x0902 . "(5"(B")
(?\x0903 . "(5#(B")
@@ -707,22 +708,34 @@
(?\x097d . "[U+097d]")
(?\x097e . "[U+097e]")
(?\x097f . "[U+097f]")))
+ (ucs-bengali-to-is13194-alist nil)
+ (ucs-assamese-to-is13194-alist nil)
+ (ucs-gurmukhi-to-is13194-alist nil)
+ (ucs-gujarati-to-is13194-alist nil)
+ (ucs-oriya-to-is13194-alist nil)
+ (ucs-tamil-to-is13194-alist nil)
+ (ucs-telugu-to-is13194-alist nil)
+ (ucs-malayalam-to-is13194-alist nil)
+ (ucs-kannada-to-is13194-alist nil))
+ (dolist (script '(devanagari bengali assamese gurmukhi gujarati
+ oriya tamil telugu malayalam kannada))
+ (let ((hashtable (intern (concat "is13194-to-ucs-"
+ (symbol-name script) "-hashtbl" )))
+ (regexp (intern (concat "is13194-to-ucs-"
+ (symbol-name script) "-regexp"))))
+ (set hashtable (make-hash-table :test 'equal :size 128))
+ (dolist (x (eval (intern (concat "ucs-" (symbol-name script)
+ "-to-is13194-alist"))))
+ (put-char-code-property (car x) 'script script)
+ (put-char-code-property (car x) 'iscii (cdr x))
+ (puthash (cdr x) (char-to-string (car x)) (eval hashtable)))
+ (set regexp (indian-regexp-of-hashtbl-keys (eval hashtable))))))
-(defvar ucs-bengali-to-is13194-alist nil)
-(defvar ucs-assamese-to-is13194-alist nil)
-(defvar ucs-gurmukhi-to-is13194-alist nil)
-(defvar ucs-gujarati-to-is13194-alist nil)
-(defvar ucs-oriya-to-is13194-alist nil)
-(defvar ucs-tamil-to-is13194-alist nil)
-(defvar ucs-telugu-to-is13194-alist nil)
-(defvar ucs-malayalam-to-is13194-alist nil)
-(defvar ucs-kannada-to-is13194-alist nil)
-
-(defvar is13194-default-repartory 'devanagari)
+(defvar is13194-default-repertory 'devanagari)
(defvar is13194-repertory-to-ucs-script
- `((DEF ?\x40 ,is13194-default-repartory)
- (RMN ?\x41 ,is13194-default-repartory)
+ `((DEF ?\x40 ,is13194-default-repertory)
+ (RMN ?\x41 ,is13194-default-repertory)
(DEV ?\x42 devanagari)
(BNG ?\x43 bengali)
(TML ?\x44 tamil)
@@ -756,31 +769,10 @@
(defvar is13194-to-ucs-kannada-hashtbl nil)
(defvar is13194-to-ucs-kannada-regexp nil)
-(mapc
- (function (lambda (script)
- (let ((hashtable (intern (concat "is13194-to-ucs-"
- (symbol-name script) "-hashtbl" )))
- (regexp (intern (concat "is13194-to-ucs-"
- (symbol-name script) "-regexp"))))
- (set hashtable (make-hash-table :test 'equal :size 128))
- (mapc
- (function (lambda (x)
- (put-char-code-property (decode-char 'ucs (car x))
- 'script script)
- (put-char-code-property (decode-char 'ucs (car x))
- 'iscii (cdr x))
- (puthash (cdr x) (char-to-string (decode-char 'ucs (car x)))
- (eval hashtable))))
- (eval (intern (concat "ucs-" (symbol-name script)
- "-to-is13194-alist"))))
- (set regexp (indian-regexp-of-hashtbl-keys (eval hashtable))))))
- '(devanagari bengali assamese gurmukhi gujarati
- oriya tamil telugu malayalam kannada))
-
(defvar ucs-to-is13194-regexp
;; only Devanagari is supported now.
- (concat "[" (char-to-string (decode-char 'ucs #x0900))
- "-" (char-to-string (decode-char 'ucs #x097f)) "]")
+ (concat "[" (char-to-string #x0900)
+ "-" (char-to-string #x097f) "]")
"Regexp that matches to conversion")
(defun ucs-to-iscii-region (from to)
@@ -792,7 +784,7 @@
(save-restriction
(narrow-to-region from to)
(goto-char (point-min))
- (let* ((current-repertory is13194-default-repartory))
+ (let* ((current-repertory is13194-default-repertory))
(while (re-search-forward ucs-to-is13194-regexp nil t)
(replace-match
(get-char-code-property (string-to-char (match-string 0))
@@ -808,16 +800,17 @@
(save-restriction
(narrow-to-region from to)
(goto-char (point-min))
- (let* ((current-repertory is13194-default-repartory)
+ (let* ((current-repertory is13194-default-repertory)
(current-hashtable
(intern (concat "is13194-to-ucs-"
(symbol-name current-repertory) "-hashtbl")))
(current-regexp
(intern (concat "is13194-to-ucs-"
- (symbol-name current-repertory) "-regexp"))))
- (while (re-search-forward (eval current-regexp) nil t)
- (replace-match
- (gethash (match-string 0) (eval current-hashtable) ""))))
+ (symbol-name current-repertory) "-regexp")))
+ (re (eval current-regexp))
+ (hash (eval current-hashtable)))
+ (while (re-search-forward re nil t)
+ (replace-match (gethash (match-string 0) hash ""))))
(point-max))))
;;;###autoload
@@ -826,11 +819,15 @@
(interactive "r")
(save-excursion
(save-restriction
- (let ((pos from) chars (max to))
+ (let ((pos from) newpos func (max to))
(narrow-to-region from to)
(while (< pos max)
- (setq chars (compose-chars-after pos))
- (if chars (setq pos (+ pos chars)) (setq pos (1+ pos))))))))
+ (setq func (aref composition-function-table (char-after pos)))
+ (if (fboundp func)
+ (setq newpos (funcall func pos nil)
+ pos (if (and (integerp newpos) (> newpos pos))
+ newpos (1+ pos)))
+ (setq pos (1+ pos))))))))
;;;###autoload
(defun indian-compose-string (string)
@@ -843,7 +840,6 @@
(defun in-is13194-post-read-conversion (len)
(let ((pos (point)) endpos)
(setq endpos (iscii-to-ucs-region pos (+ pos len)))
- (indian-compose-region pos endpos)
(- endpos pos)))
;;;###autoload
@@ -861,338 +857,338 @@
;;; Backward Compatibility support programs
-;; The followings provides the conversion from old-implementation of
+;; The following provides the conversion from old-implementation of
;; Emacs Devanagari script to UCS.
(defconst indian-2-colum-to-ucs
'(
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2120 $(5!!!"!#!$!%!&!'!(!)!*!+!,!-!.!/(B
- ("$(5!!(B" . "$,15A(B")
- ("$(5!"(B" . "$,15B(B")
- ("$(5!#(B" . "$,15C(B")
- ("$(5!$(B" . "$,15E(B")
- ("$(5!%(B" . "$,15F(B")
- ("$(5!&(B" . "$,15G(B")
- ("$(5!'(B" . "$,15H(B")
- ("$(5!((B" . "$,15I(B")
- ("$(5!)(B" . "$,15J(B")
- ("$(5!*(B" . "$,15K(B")
- ("$(5!*"p(B" . "$,15p6#(B")
- ("$(5!+(B" . "$,15N(B")
- ("$(5!,(B" . "$,15O(B")
- ("$(5!-(B" . "$,15P(B")
- ("$(5!.(B" . "$,15M(B")
- ("$(5!/(B" . "$,15R(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2130 $(5!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>!?(B
- ("$(5!0(B" . "$,15S(B")
- ("$(5!1(B" . "$,15T(B")
- ("$(5!2(B" . "$,15Q(B")
- ("$(5!3(B" . "$,15U(B")
- ("$(5!4(B" . "$,15V(B")
- ("$(5!5(B" . "$,15W(B")
- ("$(5!6(B" . "$,15X(B")
- ("$(5!7(B" . "$,15Y(B")
- ("$(5!8(B" . "$,15Z(B")
- ("$(5!9(B" . "$,15[(B")
- ("$(5!:(B" . "$,15\(B")
- ("$(5!;(B" . "$,15](B")
- ("$(5!<(B" . "$,15^(B")
- ("$(5!=(B" . "$,15_(B")
- ("$(5!>(B" . "$,15`(B")
- ("$(5!?(B" . "$,15a(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2140 $(address@hidden(B
- ("$(address@hidden(B" . "$,15b(B")
- ("$(5!A(B" . "$,15c(B")
- ("$(5!B(B" . "$,15d(B")
- ("$(5!C(B" . "$,15e(B")
- ("$(5!D(B" . "$,15f(B")
- ("$(5!E(B" . "$,15g(B")
- ("$(5!F(B" . "$,15h(B")
- ("$(5!G(B" . "$,15i(B")
- ("$(5!H(B" . "$,15j(B")
- ("$(5!I(B" . "$,15k(B")
- ("$(5!J(B" . "$,15l(B")
- ("$(5!K(B" . "$,15m(B")
- ("$(5!L(B" . "$,15n(B")
- ("$(5!M(B" . "$,15o(B")
- ("$(5!N(B" . "$,16?(B")
- ("$(5!O(B" . "$,15p(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2150 $(5!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_(B
- ("$(5!P(B" . "$,15q(B")
- ("$(5!Q(B" . "$,15r(B")
- ("$(5!R(B" . "$,15s(B")
- ("$(5!S(B" . "$,15t(B")
- ("$(5!T(B" . "$,15u(B")
- ("$(5!U(B" . "$,15v(B")
- ("$(5!V(B" . "$,15w(B")
- ("$(5!W(B" . "$,15x(B")
- ("$(5!X(B" . "$,15y(B")
- ("$(5!Z(B" . "$,15~(B")
- ("$(5![(B" . "$,15(B")
- ("$(5!\(B" . "$,16 (B")
- ("$(5!](B" . "$,16!(B")
- ("$(5!^(B" . "$,16"(B")
- ("$(5!_(B" . "$,16#(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2160 $(5!`!a!b!c!d!e!f!g!h!i!j!k!l!m!n!o(B
- ("$(5!`(B" . "$,16&(B")
- ("$(5!a(B" . "$,16'(B")
- ("$(5!b(B" . "$,16((B")
- ("$(5!c(B" . "$,16%(B")
- ("$(5!d(B" . "$,16*(B")
- ("$(5!e(B" . "$,16+(B")
- ("$(5!f(B" . "$,16,(B")
- ("$(5!g(B" . "$,16)(B")
- ("$(5!h(B" . "$,16-(B")
- ("$(5!i(B" . "$,15|(B")
- ("$(5!j(B" . "$,16D(B")
- ("$(5!j!j(B" . "$,16E(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2170 $(5!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~(B
- ("$(5!q(B" . "$,16F(B")
- ("$(5!r(B" . "$,16G(B")
- ("$(5!s(B" . "$,16H(B")
- ("$(5!t(B" . "$,16I(B")
- ("$(5!u(B" . "$,16J(B")
- ("$(5!v(B" . "$,16K(B")
- ("$(5!w(B" . "$,16L(B")
- ("$(5!x(B" . "$,16M(B")
- ("$(5!y(B" . "$,16N(B")
- ("$(5!z(B" . "$,16O(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2220 $(5"!"""#"$"%"&"'"(")"*"+","-"."/(B
- ("$(5"!(B" . "$,16;6-5p(B")
- ("$(5""(B" . "$,16>6-5p(B")
- ("$(5"#(B" . "$,15U6-5p(B")
- ("$(5"$(B" . "$,15W6-5p(B")
- ("$(5"%(B" . "$,15d6-5p(B")
- ("$(5"&(B" . "$,15j6-5p(B")
- ("$(5"'(B" . "$,15k6-5p(B")
- ("$(5")(B" . "$,15v6-5p(B")
- ("$(5",(B" . "$,15p6!(B")
- ("$(5"-(B" . "$,15p6"(B")
- ("$(5".(B" . "$,15q6!(B")
- ("$(5"/(B" . "$,15q6"(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2230 $(5"0"1"2"3"4"5"6"7"8"9":";"<"=">"?(B
- ("$(5"3(B" . "$,15U6-(B")
- ("$(5"4(B" . "$,15V6-(B")
- ("$(5"5(B" . "$,15W6-(B")
- ("$(5"6(B" . "$,15X6-(B")
- ("$(5"8(B" . "$,15Z6-(B")
- ("$(5"8"q(B" . "$,15Z6-5p6-(B")
- ("$(5":(B" . "$,15\6-(B")
- ("$(5";(B" . "$,15]6-(B")
- ("$(5"<(B" . "$,15^6-(B")
- ("$(5"<(B" . "$,15^6-(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2240 $(5"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O(B
- ("$(5"A(B" . "$,15c6-(B")
- ("$(5"B(B" . "$,15d6-(B")
- ("$(5"C(B" . "$,15e6-(B")
- ("$(5"E(B" . "$,15g6-(B")
- ("$(5"F(B" . "$,15h6-(B")
- ("$(5"G(B" . "$,15i6-(B")
- ("$(5"H(B" . "$,15j6-(B")
- ("$(5"I(B" . "$,15k6-(B")
- ("$(5"J(B" . "$,15l6-(B")
- ("$(5"J(B" . "$,15l6-(B")
- ("$(5"K(B" . "$,15m6-(B")
- ("$(5"L(B" . "$,15n6-(B")
- ("$(5"M(B" . "$,15o6-(B")
- ("$(5"N(B" . "$,16?6-(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2250 $(5"P"Q"R"S"T"U"V"W"X"Y"Z"["\"]"^"_(B
- ("$(5"Q(B" . "$,15r6-(B")
- ("$(5"R(B" . "$,15s6-(B")
- ("$(5"S(B" . "$,15t6-(B")
- ("$(5"T(B" . "$,15u6-(B")
- ("$(5"U(B" . "$,15v6-(B")
- ("$(5"V(B" . "$,15w6-(B")
- ("$(5"W(B" . "$,15x6-(B")
- ("$(5"](B" . "$,16-5o(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2260 $(5"`"a"b"c"d"e"f"g"h"i"j"k"l"m"n"o(B
- ("$(5"`(B" . "$,15W6-5p6-(B")
- ("$(5"a(B" . "$,15X6-5h6-(B")
- ("$(5"c(B" . "$,15d6-5d6-(B")
- ("$(5"d(B" . "$,15d6-5p6-(B")
- ("$(5"e(B" . "$,15g6-5h6-(B")
- ("$(5"f(B" . "$,15g6-5p6-(B")
- ("$(5"g(B" . "$,15j6-5d6-(B")
- ("$(5"h(B" . "$,15v6-5Z6-(B")
- ("$(5"i(B" . "$,15v6-5p6-(B")
- ("$(5"j(B" . "$,15v6-5u6-(B")
- ("$(5"k(B" . "$,15h6-5h6-(B")
- ("$(5"l(B" . "$,15U6-5w6-(B")
- ("$(5"m(B" . "$,15\6-5^6-(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2270 $(5"p"q"r"s"t"u"v"w"x"y"z"{"|"}"~(B
- ("$(5"p(B" . "$,15p6-(B")
- ("$(5"q(B" . "$,16-5p(B")
- ("$(5"r(B" . "$,16-5p(B")
- ("$(5"s(B" . "$,1686-(B")
- ("$(5"t(B" . "$,1696-(B")
- ("$(5"u(B" . "$,16:6-(B")
- ("$(5"y(B" . "$,16>6-(B")
- ("$(5"z(B" . "$,16;6-(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2320 $(5#!#"###$#%#&#'#(#)#*#+#,#-#.#/(B
- ("$(5#!(B" . "$,160(B")
- ("$(5#&(B" . "$,15L(B")
- ("$(5#&"p(B" . "$,15p6$(B")
- ("$(5#'(B" . "$,16A(B")
- ("$(5#'"p(B" . "$,15p6C(B")
- ("$(5#*(B" . "$,address@hidden(B")
- ("$(5#*"p(B" . "$,15p6B(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2330 $(5#0#1#2#3#4#5#6#7#8#9#:#;#<#=#>#?(B
- ("$(5#3(B" . "$,168(B")
- ("$(5#4(B" . "$,169(B")
- ("$(5#5(B" . "$,16:(B")
- ("$(5#:(B" . "$,16;(B")
- ("$(5#?(B" . "$,16<(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2340 $(address@hidden(B
- ("$(address@hidden(B" . "$,16=(B")
- ("$(5#I(B" . "$,16>(B")
- ("$(5#J(B" . "$,15}(B")
- ("$(5#K(B" . "$,16$(B")
- ("$(5#L(B" . "$,16B(B")
- ("$(5#M(B" . "$,16C(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2350 $(5#P#Q#R#S#T#U#V#W#X#Y#Z#[#\#]#^#_(B
- ("$(5#P(B" . "$,15n6-5h(B")
- ("$(5#Q(B" . "$,15n6-5r(B")
- ("$(5#R(B" . "$,15y6#(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2360 $(5#`#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o(B
- ("$(5#`(B" . "$,15r6-5r(B")
- ("$(5#a(B" . "$,15u6-5h(B")
- ("$(5#b(B" . "$,15u6-5u(B")
- ("$(5#c(B" . "$,15v6-5Z(B")
- ("$(5#d(B" . "$,15v6-5h(B")
- ("$(5#e(B" . "$,15v6-5l(B")
- ("$(5#f(B" . "$,15v6-5r(B")
- ("$(5#g(B" . "$,15v6-5u(B")
- ("$(5#h(B" . "$,15w6-5_6-5p6-5o(B")
- ("$(5#i(B" . "$,15w6-5_6-5o(B")
- ("$(5#j(B" . "$,15w6-5_6-5u(B")
- ("$(5#k(B" . "$,15w6-5_(B")
- ("$(5#l(B" . "$,15w6-5`(B")
- ("$(5#m(B" . "$,15x6-5h(B")
- ("$(5#n(B" . "$,15x6-5p(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2370 $(5#p#q#r#s#t#u#v#w#x#y#z#{#|#}#~(B
- ("$(5#p(B" . "$,15y6-5c(B")
- ("$(5#q(B" . "$,15y6-5h(B")
- ("$(5#r(B" . "$,15y6-5n(B")
- ("$(5#s(B" . "$,15y6-5o(B")
- ("$(5#t(B" . "$,15y6-5p(B")
- ("$(5#u(B" . "$,15y6-5r(B")
- ("$(5#v(B" . "$,15y6-5u(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2420 $(5$!$"$#$$$%$&$'$($)$*$+$,$-$.$/(B
- ("$(5$!(B" . "$,15U6-5d6-5p6-5o(B")
- ("$(5$"(B" . "$,15U6-5d6-5u(B")
- ("$(5$#(B" . "$,15U6-5d6-5o(B")
- ("$(5$$(B" . "$,15U6-5h6-5o(B")
- ("$(5$%(B" . "$,15U6-5p6-5o(B")
- ("$(5$&(B" . "$,15U6-5u6-5o(B")
- ("$(5$'(B" . "$,15U6-5U(B")
- ("$(5$((B" . "$,15U6-5d(B")
- ("$(5$)(B" . "$,15U6-5h(B")
- ("$(5$*(B" . "$,15U6-5n(B")
- ("$(5$+(B" . "$,15U6-5o(B")
- ("$(5$,(B" . "$,15U6-5r(B")
- ("$(5$-(B" . "$,15U6-5u(B")
- ("$(5$.(B" . "$,15U6-5w(B")
- ("$(5$/(B" . "$,15X6-5h(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2430 $(5$0$1$2$3$4$5$6$7$8$9$:$;$<$=$>$?(B
- ("$(5$0(B" . "$,15Y6-5U6-5d6-5o(B")
- ("$(5$1(B" . "$,15Y6-5U6-5w6-5u(B")
- ("$(5$2(B" . "$,15Y6-5U6-5d(B")
- ("$(5$3(B" . "$,15Y6-5U6-5w(B")
- ("$(5$4(B" . "$,15Y6-5X6-5p(B")
- ("$(5$5(B" . "$,15Y6-5U6-5o(B")
- ("$(5$6(B" . "$,15Y6-5V6-5o(B")
- ("$(5$7(B" . "$,15Y6-5W6-5o(B")
- ("$(5$8(B" . "$,15Y6-5X6-5o(B")
- ("$(5$9(B" . "$,15Y6-5U(B")
- ("$(5$:(B" . "$,15Y6-5V(B")
- ("$(5$;(B" . "$,15Y6-5W(B")
- ("$(5$<(B" . "$,15Y6-5X(B")
- ("$(5$=(B" . "$,15Y6-5Y(B")
- ("$(5$>(B" . "$,15Y6-5h(B")
- ("$(5$?(B" . "$,15Y6-5n(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2440 $(address@hidden(B
- ("$(address@hidden(B" . "$,15Y6-5o(B")
- ("$(5$A(B" . "$,15Z6-5Z(B")
- ("$(5$B(B" . "$,15Z6-5^(B")
- ("$(5$C(B" . "$,15[6-5o(B")
- ("$(5$D(B" . "$,15\6-5p(B")
- ("$(5$E(B" . "$,15\6-5^(B")
- ("$(5$F(B" . "$,15^6-5Z(B")
- ("$(5$G(B" . "$,15^6-5\(B")
- ("$(5$H(B" . "$,15_6-5U(B")
- ("$(5$I(B" . "$,15_6-5_(B")
- ("$(5$J(B" . "$,15_6-5`(B")
- ("$(5$K(B" . "$,15_6-5o(B")
- ("$(5$L(B" . "$,15`6-5o(B")
- ("$(5$M(B" . "$,15a6-5W6-5o(B")
- ("$(5$N(B" . "$,15a6-5X6-5p(B")
- ("$(5$O(B" . "$,15a6-5p6-5o(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2450 $(5$P$Q$R$S$T$U$V$W$X$Y$Z$[$\$]$^$_(B
- ("$(5$P(B" . "$,15a6-5W(B")
- ("$(5$Q(B" . "$,15a6-5X(B")
- ("$(5$R(B" . "$,15a6-5a(B")
- ("$(5$S(B" . "$,15a6-5n(B")
- ("$(5$T(B" . "$,15a6-5o(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2460 $(5$`$a$b$c$d$e$f$g$h$i$j$k$l$m$n$o(B
- ("$(5$`(B" . "$,15b6-5o(B")
- ("$(5$a(B" . "$,15d6-5d(B")
- ("$(5$b(B" . "$,15d6-5h(B")
- ("$(5$c(B" . "$,15f6-5f6-5o(B")
- ("$(5$d(B" . "$,15f6-5g6-5o(B")
- ("$(5$e(B" . "$,15f6-5m6-5o(B")
- ("$(5$f(B" . "$,15f6-5p6-5o(B")
- ("$(5$g(B" . "$,15f6-5u6-5o(B")
- ("$(5$h(B" . "$,15f6-5W6-5p(B")
- ("$(5$i(B" . "$,15f6-5X6-5p(B")
- ("$(5$j(B" . "$,15f6-5f6-5u(B")
- ("$(5$k(B" . "$,15f6-5g6-5u(B")
- ("$(5$l(B" . "$,15f6-5W(B")
- ("$(5$m(B" . "$,15f6-5X(B")
- ("$(5$n(B" . "$,15f6-5f(B")
- ("$(5$o(B" . "$,15f6-5g(B")
- ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2470 $(5$p$q$r$s$t$u$v$w$x$y$z${$|$}$~(B
- ("$(5$p(B" . "$,15f6-5h(B")
- ("$(5$q(B" . "$,15f6-5l(B")
- ("$(5$r(B" . "$,15f6-5m(B")
- ("$(5$s(B" . "$,15f6-5n(B")
- ("$(5$t(B" . "$,15f6-5o(B")
- ("$(5$u(B" . "$,15f6-5u(B")
- ("$(5$v(B" . "$,15g6-5h(B")
- ("$(5$w(B" . "$,15h6-5h(B")
- ("$(5$x(B" . "$,15j6-5d(B")
- ("$(5$y(B" . "$,15j6-5h(B")
- ("$(5$z(B" . "$,15j6-5r(B")
- ("$(5${(B" . "$,15l6-5h(B")
- ("$(5$|(B" . "$,15l6-5l(B")
- ("$(5$}(B" . "$,15l6-5u(B")
- ("$(5$~(B" . "$,15m6-5h(B")))
+ ;;2120 $(6!!!"!#!$!%!&!'!(!)!*!+!,!-!.!/(B
+ ("$(6!!(B" . "$,15A(B")
+ ("$(6!"(B" . "$,15B(B")
+ ("$(6!#(B" . "$,15C(B")
+ ("$(6!$(B" . "$,15E(B")
+ ("$(6!%(B" . "$,15F(B")
+ ("$(6!&(B" . "$,15G(B")
+ ("$(6!'(B" . "$,15H(B")
+ ("$(6!((B" . "$,15I(B")
+ ("$(6!)(B" . "$,15J(B")
+ ("$(6!*(B" . "$,15K(B")
+ ("$(6!*"p(B" . "$,15p6#(B")
+ ("$(6!+(B" . "$,15N(B")
+ ("$(6!,(B" . "$,15O(B")
+ ("$(6!-(B" . "$,15P(B")
+ ("$(6!.(B" . "$,15M(B")
+ ("$(6!/(B" . "$,15R(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2130 $(6!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>!?(B
+ ("$(6!0(B" . "$,15S(B")
+ ("$(6!1(B" . "$,15T(B")
+ ("$(6!2(B" . "$,15Q(B")
+ ("$(6!3(B" . "$,15U(B")
+ ("$(6!4(B" . "$,15V(B")
+ ("$(6!5(B" . "$,15W(B")
+ ("$(6!6(B" . "$,15X(B")
+ ("$(6!7(B" . "$,15Y(B")
+ ("$(6!8(B" . "$,15Z(B")
+ ("$(6!9(B" . "$,15[(B")
+ ("$(6!:(B" . "$,15\(B")
+ ("$(6!;(B" . "$,15](B")
+ ("$(6!<(B" . "$,15^(B")
+ ("$(6!=(B" . "$,15_(B")
+ ("$(6!>(B" . "$,15`(B")
+ ("$(6!?(B" . "$,15a(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2140 $(address@hidden(B
+ ("$(address@hidden(B" . "$,15b(B")
+ ("$(6!A(B" . "$,15c(B")
+ ("$(6!B(B" . "$,15d(B")
+ ("$(6!C(B" . "$,15e(B")
+ ("$(6!D(B" . "$,15f(B")
+ ("$(6!E(B" . "$,15g(B")
+ ("$(6!F(B" . "$,15h(B")
+ ("$(6!G(B" . "$,15i(B")
+ ("$(6!H(B" . "$,15j(B")
+ ("$(6!I(B" . "$,15k(B")
+ ("$(6!J(B" . "$,15l(B")
+ ("$(6!K(B" . "$,15m(B")
+ ("$(6!L(B" . "$,15n(B")
+ ("$(6!M(B" . "$,15o(B")
+ ("$(6!N(B" . "$,16?(B")
+ ("$(6!O(B" . "$,15p(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2150 $(6!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_(B
+ ("$(6!P(B" . "$,15q(B")
+ ("$(6!Q(B" . "$,15r(B")
+ ("$(6!R(B" . "$,15s(B")
+ ("$(6!S(B" . "$,15t(B")
+ ("$(6!T(B" . "$,15u(B")
+ ("$(6!U(B" . "$,15v(B")
+ ("$(6!V(B" . "$,15w(B")
+ ("$(6!W(B" . "$,15x(B")
+ ("$(6!X(B" . "$,15y(B")
+ ("$(6!Z(B" . "$,15~(B")
+ ("$(6![(B" . "$,15(B")
+ ("$(6!\(B" . "$,16 (B")
+ ("$(6!](B" . "$,16!(B")
+ ("$(6!^(B" . "$,16"(B")
+ ("$(6!_(B" . "$,16#(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2160 $(6!`!a!b!c!d!e!f!g!h!i!j!k!l!m!n!o(B
+ ("$(6!`(B" . "$,16&(B")
+ ("$(6!a(B" . "$,16'(B")
+ ("$(6!b(B" . "$,16((B")
+ ("$(6!c(B" . "$,16%(B")
+ ("$(6!d(B" . "$,16*(B")
+ ("$(6!e(B" . "$,16+(B")
+ ("$(6!f(B" . "$,16,(B")
+ ("$(6!g(B" . "$,16)(B")
+ ("$(6!h(B" . "$,16-(B")
+ ("$(6!i(B" . "$,15|(B")
+ ("$(6!j(B" . "$,16D(B")
+ ("$(6!j!j(B" . "$,16E(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2170 $(6!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~(B
+ ("$(6!q(B" . "$,16F(B")
+ ("$(6!r(B" . "$,16G(B")
+ ("$(6!s(B" . "$,16H(B")
+ ("$(6!t(B" . "$,16I(B")
+ ("$(6!u(B" . "$,16J(B")
+ ("$(6!v(B" . "$,16K(B")
+ ("$(6!w(B" . "$,16L(B")
+ ("$(6!x(B" . "$,16M(B")
+ ("$(6!y(B" . "$,16N(B")
+ ("$(6!z(B" . "$,16O(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2220 $(6"!"""#"$"%"&"'"(")"*"+","-"."/(B
+ ("$(6"!(B" . "$,16;6-5p(B")
+ ("$(6""(B" . "$,16>6-5p(B")
+ ("$(6"#(B" . "$,15U6-5p(B")
+ ("$(6"$(B" . "$,15W6-5p(B")
+ ("$(6"%(B" . "$,15d6-5p(B")
+ ("$(6"&(B" . "$,15j6-5p(B")
+ ("$(6"'(B" . "$,15k6-5p(B")
+ ("$(6")(B" . "$,15v6-5p(B")
+ ("$(6",(B" . "$,15p6!(B")
+ ("$(6"-(B" . "$,15p6"(B")
+ ("$(6".(B" . "$,15q6!(B")
+ ("$(6"/(B" . "$,15q6"(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2230 $(6"0"1"2"3"4"5"6"7"8"9":";"<"=">"?(B
+ ("$(6"3(B" . "$,15U6-(B")
+ ("$(6"4(B" . "$,15V6-(B")
+ ("$(6"5(B" . "$,15W6-(B")
+ ("$(6"6(B" . "$,15X6-(B")
+ ("$(6"8(B" . "$,15Z6-(B")
+ ("$(6"8"q(B" . "$,15Z6-5p6-(B")
+ ("$(6":(B" . "$,15\6-(B")
+ ("$(6";(B" . "$,15]6-(B")
+ ("$(6"<(B" . "$,15^6-(B")
+ ("$(6"<(B" . "$,15^6-(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2240 $(6"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O(B
+ ("$(6"A(B" . "$,15c6-(B")
+ ("$(6"B(B" . "$,15d6-(B")
+ ("$(6"C(B" . "$,15e6-(B")
+ ("$(6"E(B" . "$,15g6-(B")
+ ("$(6"F(B" . "$,15h6-(B")
+ ("$(6"G(B" . "$,15i6-(B")
+ ("$(6"H(B" . "$,15j6-(B")
+ ("$(6"I(B" . "$,15k6-(B")
+ ("$(6"J(B" . "$,15l6-(B")
+ ("$(6"J(B" . "$,15l6-(B")
+ ("$(6"K(B" . "$,15m6-(B")
+ ("$(6"L(B" . "$,15n6-(B")
+ ("$(6"M(B" . "$,15o6-(B")
+ ("$(6"N(B" . "$,16?6-(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2250 $(6"P"Q"R"S"T"U"V"W"X"Y"Z"["\"]"^"_(B
+ ("$(6"Q(B" . "$,15r6-(B")
+ ("$(6"R(B" . "$,15s6-(B")
+ ("$(6"S(B" . "$,15t6-(B")
+ ("$(6"T(B" . "$,15u6-(B")
+ ("$(6"U(B" . "$,15v6-(B")
+ ("$(6"V(B" . "$,15w6-(B")
+ ("$(6"W(B" . "$,15x6-(B")
+ ("$(6"](B" . "$,16-5o(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2260 $(6"`"a"b"c"d"e"f"g"h"i"j"k"l"m"n"o(B
+ ("$(6"`(B" . "$,15W6-5p6-(B")
+ ("$(6"a(B" . "$,15X6-5h6-(B")
+ ("$(6"c(B" . "$,15d6-5d6-(B")
+ ("$(6"d(B" . "$,15d6-5p6-(B")
+ ("$(6"e(B" . "$,15g6-5h6-(B")
+ ("$(6"f(B" . "$,15g6-5p6-(B")
+ ("$(6"g(B" . "$,15j6-5d6-(B")
+ ("$(6"h(B" . "$,15v6-5Z6-(B")
+ ("$(6"i(B" . "$,15v6-5p6-(B")
+ ("$(6"j(B" . "$,15v6-5u6-(B")
+ ("$(6"k(B" . "$,15h6-5h6-(B")
+ ("$(6"l(B" . "$,15U6-5w6-(B")
+ ("$(6"m(B" . "$,15\6-5^6-(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2270 $(6"p"q"r"s"t"u"v"w"x"y"z"{"|"}"~(B
+ ("$(6"p(B" . "$,15p6-(B")
+ ("$(6"q(B" . "$,16-5p(B")
+ ("$(6"r(B" . "$,16-5p(B")
+ ("$(6"s(B" . "$,1686-(B")
+ ("$(6"t(B" . "$,1696-(B")
+ ("$(6"u(B" . "$,16:6-(B")
+ ("$(6"y(B" . "$,16>6-(B")
+ ("$(6"z(B" . "$,16;6-(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2320 $(6#!#"###$#%#&#'#(#)#*#+#,#-#.#/(B
+ ("$(6#!(B" . "$,160(B")
+ ("$(6#&(B" . "$,15L(B")
+ ("$(6#&"p(B" . "$,15p6$(B")
+ ("$(6#'(B" . "$,16A(B")
+ ("$(6#'"p(B" . "$,15p6C(B")
+ ("$(6#*(B" . "$,address@hidden(B")
+ ("$(6#*"p(B" . "$,15p6B(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2330 $(6#0#1#2#3#4#5#6#7#8#9#:#;#<#=#>#?(B
+ ("$(6#3(B" . "$,168(B")
+ ("$(6#4(B" . "$,169(B")
+ ("$(6#5(B" . "$,16:(B")
+ ("$(6#:(B" . "$,16;(B")
+ ("$(6#?(B" . "$,16<(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2340 $(address@hidden(B
+ ("$(address@hidden(B" . "$,16=(B")
+ ("$(6#I(B" . "$,16>(B")
+ ("$(6#J(B" . "$,15}(B")
+ ("$(6#K(B" . "$,16$(B")
+ ("$(6#L(B" . "$,16B(B")
+ ("$(6#M(B" . "$,16C(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2350 $(6#P#Q#R#S#T#U#V#W#X#Y#Z#[#\#]#^#_(B
+ ("$(6#P(B" . "$,15n6-5h(B")
+ ("$(6#Q(B" . "$,15n6-5r(B")
+ ("$(6#R(B" . "$,15y6#(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2360 $(6#`#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o(B
+ ("$(6#`(B" . "$,15r6-5r(B")
+ ("$(6#a(B" . "$,15u6-5h(B")
+ ("$(6#b(B" . "$,15u6-5u(B")
+ ("$(6#c(B" . "$,15v6-5Z(B")
+ ("$(6#d(B" . "$,15v6-5h(B")
+ ("$(6#e(B" . "$,15v6-5l(B")
+ ("$(6#f(B" . "$,15v6-5r(B")
+ ("$(6#g(B" . "$,15v6-5u(B")
+ ("$(6#h(B" . "$,15w6-5_6-5p6-5o(B")
+ ("$(6#i(B" . "$,15w6-5_6-5o(B")
+ ("$(6#j(B" . "$,15w6-5_6-5u(B")
+ ("$(6#k(B" . "$,15w6-5_(B")
+ ("$(6#l(B" . "$,15w6-5`(B")
+ ("$(6#m(B" . "$,15x6-5h(B")
+ ("$(6#n(B" . "$,15x6-5p(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2370 $(6#p#q#r#s#t#u#v#w#x#y#z#{#|#}#~(B
+ ("$(6#p(B" . "$,15y6-5c(B")
+ ("$(6#q(B" . "$,15y6-5h(B")
+ ("$(6#r(B" . "$,15y6-5n(B")
+ ("$(6#s(B" . "$,15y6-5o(B")
+ ("$(6#t(B" . "$,15y6-5p(B")
+ ("$(6#u(B" . "$,15y6-5r(B")
+ ("$(6#v(B" . "$,15y6-5u(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2420 $(6$!$"$#$$$%$&$'$($)$*$+$,$-$.$/(B
+ ("$(6$!(B" . "$,15U6-5d6-5p6-5o(B")
+ ("$(6$"(B" . "$,15U6-5d6-5u(B")
+ ("$(6$#(B" . "$,15U6-5d6-5o(B")
+ ("$(6$$(B" . "$,15U6-5h6-5o(B")
+ ("$(6$%(B" . "$,15U6-5p6-5o(B")
+ ("$(6$&(B" . "$,15U6-5u6-5o(B")
+ ("$(6$'(B" . "$,15U6-5U(B")
+ ("$(6$((B" . "$,15U6-5d(B")
+ ("$(6$)(B" . "$,15U6-5h(B")
+ ("$(6$*(B" . "$,15U6-5n(B")
+ ("$(6$+(B" . "$,15U6-5o(B")
+ ("$(6$,(B" . "$,15U6-5r(B")
+ ("$(6$-(B" . "$,15U6-5u(B")
+ ("$(6$.(B" . "$,15U6-5w(B")
+ ("$(6$/(B" . "$,15X6-5h(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2430 $(6$0$1$2$3$4$5$6$7$8$9$:$;$<$=$>$?(B
+ ("$(6$0(B" . "$,15Y6-5U6-5d6-5o(B")
+ ("$(6$1(B" . "$,15Y6-5U6-5w6-5u(B")
+ ("$(6$2(B" . "$,15Y6-5U6-5d(B")
+ ("$(6$3(B" . "$,15Y6-5U6-5w(B")
+ ("$(6$4(B" . "$,15Y6-5X6-5p(B")
+ ("$(6$5(B" . "$,15Y6-5U6-5o(B")
+ ("$(6$6(B" . "$,15Y6-5V6-5o(B")
+ ("$(6$7(B" . "$,15Y6-5W6-5o(B")
+ ("$(6$8(B" . "$,15Y6-5X6-5o(B")
+ ("$(6$9(B" . "$,15Y6-5U(B")
+ ("$(6$:(B" . "$,15Y6-5V(B")
+ ("$(6$;(B" . "$,15Y6-5W(B")
+ ("$(6$<(B" . "$,15Y6-5X(B")
+ ("$(6$=(B" . "$,15Y6-5Y(B")
+ ("$(6$>(B" . "$,15Y6-5h(B")
+ ("$(6$?(B" . "$,15Y6-5n(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2440 $(address@hidden(B
+ ("$(address@hidden(B" . "$,15Y6-5o(B")
+ ("$(6$A(B" . "$,15Z6-5Z(B")
+ ("$(6$B(B" . "$,15Z6-5^(B")
+ ("$(6$C(B" . "$,15[6-5o(B")
+ ("$(6$D(B" . "$,15\6-5p(B")
+ ("$(6$E(B" . "$,15\6-5^(B")
+ ("$(6$F(B" . "$,15^6-5Z(B")
+ ("$(6$G(B" . "$,15^6-5\(B")
+ ("$(6$H(B" . "$,15_6-5U(B")
+ ("$(6$I(B" . "$,15_6-5_(B")
+ ("$(6$J(B" . "$,15_6-5`(B")
+ ("$(6$K(B" . "$,15_6-5o(B")
+ ("$(6$L(B" . "$,15`6-5o(B")
+ ("$(6$M(B" . "$,15a6-5W6-5o(B")
+ ("$(6$N(B" . "$,15a6-5X6-5p(B")
+ ("$(6$O(B" . "$,15a6-5p6-5o(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2450 $(6$P$Q$R$S$T$U$V$W$X$Y$Z$[$\$]$^$_(B
+ ("$(6$P(B" . "$,15a6-5W(B")
+ ("$(6$Q(B" . "$,15a6-5X(B")
+ ("$(6$R(B" . "$,15a6-5a(B")
+ ("$(6$S(B" . "$,15a6-5n(B")
+ ("$(6$T(B" . "$,15a6-5o(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2460 $(6$`$a$b$c$d$e$f$g$h$i$j$k$l$m$n$o(B
+ ("$(6$`(B" . "$,15b6-5o(B")
+ ("$(6$a(B" . "$,15d6-5d(B")
+ ("$(6$b(B" . "$,15d6-5h(B")
+ ("$(6$c(B" . "$,15f6-5f6-5o(B")
+ ("$(6$d(B" . "$,15f6-5g6-5o(B")
+ ("$(6$e(B" . "$,15f6-5m6-5o(B")
+ ("$(6$f(B" . "$,15f6-5p6-5o(B")
+ ("$(6$g(B" . "$,15f6-5u6-5o(B")
+ ("$(6$h(B" . "$,15f6-5W6-5p(B")
+ ("$(6$i(B" . "$,15f6-5X6-5p(B")
+ ("$(6$j(B" . "$,15f6-5f6-5u(B")
+ ("$(6$k(B" . "$,15f6-5g6-5u(B")
+ ("$(6$l(B" . "$,15f6-5W(B")
+ ("$(6$m(B" . "$,15f6-5X(B")
+ ("$(6$n(B" . "$,15f6-5f(B")
+ ("$(6$o(B" . "$,15f6-5g(B")
+ ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
+ ;;2470 $(6$p$q$r$s$t$u$v$w$x$y$z${$|$}$~(B
+ ("$(6$p(B" . "$,15f6-5h(B")
+ ("$(6$q(B" . "$,15f6-5l(B")
+ ("$(6$r(B" . "$,15f6-5m(B")
+ ("$(6$s(B" . "$,15f6-5n(B")
+ ("$(6$t(B" . "$,15f6-5o(B")
+ ("$(6$u(B" . "$,15f6-5u(B")
+ ("$(6$v(B" . "$,15g6-5h(B")
+ ("$(6$w(B" . "$,15h6-5h(B")
+ ("$(6$x(B" . "$,15j6-5d(B")
+ ("$(6$y(B" . "$,15j6-5h(B")
+ ("$(6$z(B" . "$,15j6-5r(B")
+ ("$(6${(B" . "$,15l6-5h(B")
+ ("$(6$|(B" . "$,15l6-5l(B")
+ ("$(6$}(B" . "$,15l6-5u(B")
+ ("$(6$~(B" . "$,15m6-5h(B")))
(defconst indian-2-column-to-ucs-regexp
-
"$(5!j!j(B\\|$(5"8"q(B\\|[$(5#&#'!*#*(B]$(5"p(B\\|[$(5!!(B-$(5$~(B]")
+
"$(6!j!j(B\\|$(6"8"q(B\\|[$(6#&#'!*#*(B]$(6"p(B\\|[$(6!!(B-$(6$~(B]")
(put 'indian-2-column-to-ucs-chartable 'char-table-extra-slots 1)
(defconst indian-2-column-to-ucs-chartable
@@ -1205,6 +1201,7 @@
(set-char-table-extra-slot table 0 alist)
table))
+;;;###autoload
(defun indian-2-column-to-ucs-region (from to)
"Convert old Emacs Devanagari characters to UCS."
(interactive "r")
@@ -1225,42 +1222,6 @@
(replace-match (if subst subst "?"))))
(indian-compose-region (point-min) (point-max))))))
-;;;###autoload
-(defun indian-glyph-char (index &optional script)
- "Return character of charset `indian-glyph' made from glyph index INDEX.
-The variable `indian-default-script' specifies the script of the glyph.
-Optional argument SCRIPT, if non-nil, overrides `indian-default-script'.
-See also the function `indian-char-glyph'."
- (or script
- (setq script indian-default-script))
- (let ((offset (get script 'indian-glyph-code-offset)))
- (or (integerp offset)
- (error "Invalid script name: %s" script))
- (or (and (>= index 0) (< index 256))
- (error "Invalid glyph index: %d" index))
- (setq index (+ offset index))
- (make-char 'indian-glyph (+ (/ index 96) 32) (+ (% index 96) 32))))
-
-(defvar indian-glyph-max-char
- (indian-glyph-char
- 255 (aref indian-script-table (1- (length indian-script-table))))
- "The maximum valid code of characters in the charset `indian-glyph'.")
-
-;;;###autoload
-(defun indian-char-glyph (char)
- "Return information about the glyph code for CHAR of `indian-glyph' charset.
-The value is (INDEX . SCRIPT), where INDEX is the glyph index
-in the font that Indian script name SCRIPT specifies.
-See also the function `indian-glyph-char'."
- (let ((split (split-char char))
- code)
- (or (eq (car split) 'indian-glyph)
- (error "Charset of `%c' is not indian-glyph" char))
- (or (<= char indian-glyph-max-char)
- (error "Invalid indian-glyph char: %d" char))
- (setq code (+ (* (- (nth 1 split) 32) 96) (nth 2 split) -32))
- (cons (% code 256) (aref indian-script-table (/ code 256)))))
-
(provide 'ind-util)
;;; arch-tag: 59aacd71-46c2-4cb3-bb26-e12bbad55545
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/language/ind-util.el,v,
Miles Bader <=