annotate lisp/language/ind-util.el @ 41778:19e76eadbf86

(reveal-mode): Fix reveal-mode's lighter.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 02 Dec 2001 07:39:45 +0000
parents a43bf477cba7
children 6ef6e34cdba4
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
41470
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1 ;;; ind-util.el --- Transliteration and Misc. Tools for Indian Languages -*- coding: iso-2022-7bit; -*-
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3 ;; Copyright (C) 2001 Free Software Foundation, Inc.
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5 ;; Maintainer: KAWABATA, Taichi <batta@beige.ocn.ne.jp>
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 ;; Keywords: multilingual, Indian, Devanagari
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; any later version.
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 ;; Boston, MA 02111-1307, USA.
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25 ;;; Commentary:
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 ;; This file provides conversion between UCS and various
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 ;; transliteration schemes, such as ITRANS, kyoto-harvard and aiba
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 ;; methods. It also provides conversion between IS 13194 and UCS.
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 ;; Finally, this program provides the compatibility support with
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 ;; old implementation of Devanagari script.
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 ;;; Code:
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 ;;; Transliteration
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 ;; The followings provide the various transliteration schemes (such as
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 ;; ITRANS, kyoto-harvard, and Aiba) of Indian scripts. They are also
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 ;; used in quail/indian.el for typing Indian script in Emacs.
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 (eval-and-compile
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 (require 'cl)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 (defun range (from to)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 "Make the list of the integers of range FROM to TO."
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 (let (result)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 (while (<= from to) (setq result (cons to result) to (1- to))) result))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 (defun regexp-of-hashtbl-keys (hashtbl)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 "Returns the regular expression of hashtable keys."
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 (let ((max-specpdl-size 1000))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 (regexp-opt
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53 (sort
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 (let (dummy)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55 (maphash (function (lambda (key val) (setq dummy (cons key dummy)))) hashtbl)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 dummy)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 (function (lambda (x y) (> (length x) (length y))))))))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 (defvar indian-dev-base-table
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 '(
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 (;; VOWELS (18)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 (?$,15E(B nil) (?$,15F(B ?$,15~(B) (?$,15G(B ?$,15(B) (?$,15H(B ?$,16 (B) (?$,15I(B ?$,16!(B) (?$,15J(B ?$,16"(B)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 (?$,15K(B ?$,16#(B) (?$,15L(B ?$,16$(B) (?$,15M(B ?$,16%(B) (?$,15N(B ?$,16&(B) (?$,15O(B ?$,16'(B) (?$,15P(B ?$,16((B)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 (?$,15Q(B ?$,16)(B) (?$,15R(B ?$,16*(B) (?$,15S(B ?$,16+(B) (?$,15T(B ?$,16,(B) (?$,16@(B ?$,16B(B) (?$,16A(B ?$,16C(B))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 (;; CONSONANTS (currently 42, including special cases)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 ?$,15U(B ?$,15V(B ?$,15W(B ?$,15X(B ?$,15Y(B ;; GUTTRULS
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 ?$,15Z(B ?$,15[(B ?$,15\(B ?$,15](B ?$,15^(B ;; PALATALS
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 ?$,15_(B ?$,15`(B ?$,15a(B ?$,15b(B ?$,15c(B ;; CEREBRALS
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 ?$,15d(B ?$,15e(B ?$,15f(B ?$,15g(B ?$,15h(B ?$,15i(B ;; DENTALS
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 ?$,15j(B ?$,15k(B ?$,15l(B ?$,15m(B ?$,15n(B ;; LABIALS
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71 ?$,15o(B ?$,15p(B ?$,15q(B ?$,15r(B ?$,15s(B ?$,15t(B ?$,15u(B ;; SEMIVOWELS
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72 ?$,15v(B ?$,15w(B ?$,15x(B ?$,15y(B ;; SIBILANTS
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 ?$,168(B ?$,169(B ?$,16:(B ?$,16;(B ?$,16<(B ?$,16=(B ?$,16>(B ?$,16?(B ;; NUKTAS
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74 "$,15\6-5^(B" "$,15U6-5w(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75 (;; Misc Symbols (7)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76 ?$,15A(B ?$,15B(B ?$,15C(B ?$,15}(B ?$,16-(B ?$,160(B ?$,16D(B)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 (;; Digits (10)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 ?$,16F(B ?$,16G(B ?$,16H(B ?$,16I(B ?$,16J(B ?$,16K(B ?$,16L(B ?$,16M(B ?$,16N(B ?$,16O(B)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79 (;; Inscript-extra (4) (#, $, ^, *, ])
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80 "$,16-5p(B" "$,15p6-(B" "$,15d6-5p(B" "$,15v6-5p(B" "$,15|(B")))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
82 (defvar indian-pnj-base-table nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
83 (defvar indian-ori-base-table nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84 (defvar indian-bng-base-table nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85 (defvar indian-asm-base-table nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86 (defvar indian-tlg-base-table nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87 (defvar indian-knd-base-table nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88 (defvar indian-mlm-base-table nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89 (defvar indian-tml-base-table nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91 (defvar indian-base-table-to-language-alist
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 '((indian-dev-base-table . "Devanagari")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93 (indian-pnj-base-table . "Punjabi")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 (indian-ori-base-table . "Oriya")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95 (indian-bng-base-table . "Bengali")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 (indian-asm-base-table . "Assamese")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97 (indian-tlg-base-table . "Telugu")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98 (indian-knd-base-table . "Kannada")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 (indian-mlm-base-table . "Malayalam")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 (indian-tml-base-table . "Tamil")))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102 (defvar indian-itrans-v5-table
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103 '(;; for encode/decode
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104 (;; vowels -- 18
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105 "a" ("aa" "A") "i" ("ii" "I") "u" ("uu" "U")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106 ("RRi" "R^i") ("LLi" "L^i") (".c" "e.c") nil "e" "ai"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107 "o.c" nil "o" "au" ("RRI" "R^I") ("LLI" "L^I"))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108 (;; consonants -- 40
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109 "k" "kh" "g" "gh" ("~N" "N^")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110 "ch" ("Ch" "chh") "j" "jh" ("~n" "JN")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111 "T" "Th" "D" "Dh" "N"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
112 "t" "th" "d" "dh" "n" "nh"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113 "p" "ph" "b" "bh" "m"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114 "y" "r" "rh" "l" ("L" "ld") nil ("v" "w")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115 "sh" ("Sh" "shh") "s" "h"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
116 "q" "K" "G" ("J" "z") ".D" ".Dh" "f" ("Y" "yh")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117 ("GY" "dny") "x")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118 (;; misc -- 7
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119 ".N" (".n" "M") "H" ".a" ".h" ("AUM" "OM") "..")))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
121 (defvar indian-kyoto-harvard-table
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122 '(;; for encode/decode
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
123 (;; vowel
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124 "a" ("A" "aa") "i" ("I" "ii") "u" ("U" "uu")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
125 "R" ("L" "lR") nil nil "e" "ai"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126 nil nil "o" "au" ("q" "RR" "Q") ("E" "LL" "lRR"))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 (;; consonant
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 "k" "kh" "g" "gh" "G"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129 "c" "ch" "j" "jh" "J"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130 "T" "Th" "D" "Dh" "N"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
131 "t" "th" "d" "dh" "n" nil
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132 "p" "ph" "b" "bh" "m"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
133 "y" "r" nil "l" "L" nil "v"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134 ("z" "Z") "S" "s" "h"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
135 nil nil nil nil nil nil nil nil
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136 nil nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137 (;; misc
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138 nil "M" "H" "'" nil "." nil)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
140 (defvar indian-harvard-table
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
141 '(;; for encode/decode
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142 (;; vowel
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 "a" ("A" "aa") "i" ("I" "ii") "u" ("U" "uu")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
144 "R" ("L" "lR") nil nil "e" "ai"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
145 nil nil "o" "au" ("RR" "q" "Q") ("LL" "E" "lRR"))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 (;; consonant
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 "k" "kh" "g" "gh" "G"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 "c" "ch" "j" "jh" "J"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149 "T" "Th" "D" "Dh" "N"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150 "t" "th" "d" "dh" "n" nil
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151 "p" "ph" "b" "bh" "m"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152 "y" "r" nil "l" "L" nil "v"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153 ("z" "Z") "S" "s" "h"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
154 nil nil nil nil nil nil nil nil
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
155 nil nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156 (;; misc
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
157 nil "M" "H" "'" nil "." nil)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159 (defvar indian-tokyo-table
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
160 '(;; for encode/decode
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
161 (;; vowel
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
162 "a" ("A" "aa") "i" ("I" "ii") "u" ("U" "uu")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
163 "R" ("L" "lR") nil nil "e" "ai"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
164 nil nil "o" "au" ("Q" "RR" "q") ("E" "LL" "lRR"))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
165 (;; consonant
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
166 "k" "kh" "g" "gh" "G"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167 "c" "ch" "j" "jh" "J"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168 "T" "Th" "D" "Dh" "N"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
169 "t" "th" "d" "dh" "n" nil
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
170 "p" "ph" "b" "bh" "m"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171 "y" "r" nil "l" "L" nil "v"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172 ("Z" "z") "S" "s" "h"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173 nil nil nil nil nil nil nil nil
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174 nil nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
175 (;; misc
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
176 nil "M" "H" "'" nil "." nil)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
177
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
178 (defvar indian-aiba-table
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
179 '(;; for encode/decode
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
180 (;; vowel
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
181 "a" "aa" "i" "ii" "u" "uu"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
182 ".r" ".l" nil nil "e" "ai"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183 nil nil "o" "au" "~r" "~l")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
184 (;; consonant
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
185 "k" "kh" "g" "gh" "^n"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
186 "c" "ch" "j" "jh" "~n"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
187 ".t" ".th" ".d" ".dh" ".n"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
188 "t" "th" "d" "dh" "n" nil
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
189 "p" "ph" "b" "bh" "m"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
190 "y" "r" nil "l" nil nil "v"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
191 "^s" ".s" "s" "h"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
192 nil nil nil nil nil nil nil nil
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
193 nil nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
194 (;; misc
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
195 nil ".m" ".h" "'" nil "." nil)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
196
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
197 (defun mapthread (function seq1 &rest seqrest)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
198 "Apply FUNCTION to each element of SEQ1 and return result list.
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
199 If there are several SEQRESTs, FUNCTION is called with that many
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
200 arguments, with all possible combinations of these multiple SEQUENCES.
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
201 Thus, if SEQ1 contains 3 elements and SEQ2 contains 5 elements, then
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
202 FUNCTION will be called 15 times."
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
203 (if seqrest
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
204 (mapcar
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
205 (lambda (x)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
206 (apply
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
207 'mapthread
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
208 `(lambda (&rest y) (apply (quote ,function) ,x y))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
209 seqrest))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
210 seq1)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
211 (mapcar function seq1)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
212
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
213 (defun indian--puthash-char (char trans-char hashtbls)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
214 (let ((encode-hash (car hashtbls)) ;; char -> trans
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
215 (decode-hash (cdr hashtbls)) ;; trans -> char
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
216 )
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
217 ;; char -- nil / char / string (/ list of vowel & matra)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
218 ;; trans-char -- nil / string / list of strings
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
219 (when (and char trans-char)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
220 (if (stringp trans-char) (setq trans-char (list trans-char)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
221 (if (char-valid-p char) (setq char (char-to-string char)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
222 (puthash char (car trans-char) encode-hash)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
223 (mapc
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
224 '(lambda (trans)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
225 (puthash trans char decode-hash))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
226 trans-char))))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
227
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
228 (defun indian--puthash-v (v trans-v hashtbls)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
229 (mapcar*
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
230 '(lambda (v trans-v)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
231 (indian--puthash-char (car v) trans-v hashtbls))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
232 v trans-v))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
233
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
234 (defun indian--puthash-c (c trans-c halant hashtbls)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
235 (mapcar*
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
236 '(lambda (c trans-c)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
237 (if (char-valid-p c) (setq c (char-to-string c)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
238 (indian--puthash-char (concat c halant) trans-c hashtbls))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
239 c trans-c))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
240
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
241 (defun indian--puthash-m (m trans-m hashtbls)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
242 (mapcar*
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
243 '(lambda (m trans-m)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
244 (indian--puthash-char m trans-m hashtbls))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
245 m trans-m))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
246
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
247 (defun indian--puthash-cv (c trans-c v trans-v hashtbls)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
248 (mapcar*
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
249 '(lambda (c trans-c)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
250 (mapcar*
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
251 (lambda (v trans-v)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
252 (when (and c trans-c v trans-v)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
253 (if (char-valid-p c) (setq c (char-to-string c)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
254 (setq v (if (char-valid-p (cadr v)) (char-to-string (cadr v)) ""))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
255 (if (stringp trans-c) (setq trans-c (list trans-c)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
256 (if (stringp trans-v) (setq trans-v (list trans-v)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
257 (indian--puthash-char
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
258 (concat c v)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
259 (apply 'append
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
260 (mapthread 'concat trans-c trans-v))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
261 hashtbls)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
262 v trans-v))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
263 c trans-c))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
264
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
265 (defun indian-make-hash (table trans-table)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
266 "Indian Transliteration Hash for decode/encode"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
267 (let* ((encode-hash (makehash 'equal))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
268 (decode-hash (makehash 'equal))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
269 (hashtbls (cons encode-hash decode-hash))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270 (vowels (elt table 0))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
271 (consonants (elt table 1))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272 (misc (elt table 2))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
273 (digits (elt table 3))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
274 (halant (char-to-string (elt misc 4)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
275 (trans-vowels (elt trans-table 0))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
276 (trans-consonants (elt trans-table 1))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
277 (trans-misc (elt trans-table 2))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
278 (trans-digits '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9")))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
279 (indian--puthash-v vowels trans-vowels hashtbls)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
280 (indian--puthash-c consonants trans-consonants halant hashtbls)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
281 (indian--puthash-cv consonants trans-consonants
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
282 vowels trans-vowels hashtbls)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
283 (indian--puthash-m misc trans-misc hashtbls)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
284 (indian--puthash-m digits trans-digits hashtbls)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
285 hashtbls))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
286
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
287 (defvar indian-dev-itrans-v5-hash
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
288 (indian-make-hash indian-dev-base-table
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
289 indian-itrans-v5-table))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
290 (defvar indian-dev-kyoto-harvard-hash
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
291 (indian-make-hash indian-dev-base-table
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
292 indian-kyoto-harvard-table))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
293 (defvar indian-dev-aiba-hash
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
294 (indian-make-hash indian-dev-base-table
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
295 indian-aiba-table))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
296
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
297 )
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
298
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
299 (defmacro indian-translate-region (from to hashtable encode-p)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
300 `(save-excursion
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
301 (save-restriction
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
302 (let ((regexp ,(regexp-of-hashtbl-keys
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
303 (if encode-p (car (eval hashtable))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
304 (cdr (eval hashtable))))))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
305 (narrow-to-region from to)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
306 (goto-char (point-min))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
307 (while (re-search-forward regexp nil t)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
308 (let ((matchstr (gethash (match-string 0)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
309 (if ,encode-p (car ,hashtable) (cdr ,hashtable)))))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
310 (if matchstr (replace-match matchstr))))))))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
311
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
312 ;;;
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
313
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
314 (defun indian-dev-itrans-v5-encode-region (from to)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
315 (interactive "r")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
316 (indian-translate-region
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
317 from to indian-dev-itrans-v5-hash t))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
318
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
319 (defun indian-dev-itrans-v5-decode-region (from to)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
320 (interactive "r")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
321 (indian-translate-region
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
322 from to indian-dev-itrans-v5-hash nil))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
323
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
324 (defun indian-dev-kyoto-harvard-encode-region (from to)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
325 (interactive "r")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
326 (indian-translate-region
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
327 from to indian-dev-kyoto-harvard-hash t))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
328
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
329 (defun indian-dev-kyoto-harvard-decode-region (from to)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
330 (interactive "r")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
331 (indian-translate-region
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
332 from to indian-dev-kyoto-harvard-hash nil))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
333
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
334 (defun indian-dev-aiba-encode-region (from to)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
335 (interactive "r")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
336 (indian-translate-region
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
337 from to indian-dev-aiba-hash t))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
338
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
339 (defun indian-dev-aiba-decode-region (from to)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
340 (interactive "r")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
341 (indian-translate-region
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
342 from to indian-dev-aiba-hash nil))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
343
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
344
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
345
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
346
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
347 ;;; IS 13194 utilities
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
348
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
349 ;; The followings provide conversion between IS 13194 (ISCII) and UCS.
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
350
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
351 (defvar ucs-devanagari-to-is13194-alist
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
352 '(;;Unicode vs IS13194 ;; only Devanagari is supported now.
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
353 (?\x0900 . "[U+0900]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
354 (?\x0901 . "(5!(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
355 (?\x0902 . "(5"(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
356 (?\x0903 . "(5#(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
357 (?\x0904 . "[U+0904]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
358 (?\x0905 . "(5$(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
359 (?\x0906 . "(5%(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
360 (?\x0907 . "(5&(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
361 (?\x0908 . "(5'(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
362 (?\x0909 . "(5((B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
363 (?\x090a . "(5)(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
364 (?\x090b . "(5*(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
365 (?\x090c . "(5&i(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
366 (?\x090d . "(5.(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
367 (?\x090e . "(5+(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
368 (?\x090f . "(5,(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
369 (?\x0910 . "(5-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
370 (?\x0911 . "(52(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
371 (?\x0912 . "(5/(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
372 (?\x0913 . "(50(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
373 (?\x0914 . "(51(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
374 (?\x0915 . "(53(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
375 (?\x0916 . "(54(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
376 (?\x0917 . "(55(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
377 (?\x0918 . "(56(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
378 (?\x0919 . "(57(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
379 (?\x091a . "(58(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
380 (?\x091b . "(59(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
381 (?\x091c . "(5:(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
382 (?\x091d . "(5;(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
383 (?\x091e . "(5<(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
384 (?\x091f . "(5=(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
385 (?\x0920 . "(5>(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
386 (?\x0921 . "(5?(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
387 (?\x0922 . "(5@(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
388 (?\x0923 . "(5A(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
389 (?\x0924 . "(5B(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
390 (?\x0925 . "(5C(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
391 (?\x0926 . "(5D(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
392 (?\x0927 . "(5E(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
393 (?\x0928 . "(5F(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
394 (?\x0929 . "(5G(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
395 (?\x092a . "(5H(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
396 (?\x092b . "(5I(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
397 (?\x092c . "(5J(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
398 (?\x092d . "(5K(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
399 (?\x092e . "(5L(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
400 (?\x092f . "(5M(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
401 (?\x0930 . "(5O(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
402 (?\x0931 . "(5P(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
403 (?\x0932 . "(5Q(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
404 (?\x0933 . "(5R(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
405 (?\x0934 . "(5S(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
406 (?\x0935 . "(5T(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
407 (?\x0936 . "(5U(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
408 (?\x0937 . "(5V(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
409 (?\x0938 . "(5W(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
410 (?\x0939 . "(5X(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
411 (?\x093a . "[U+093a]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
412 (?\x093b . "[U+093b]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
413 (?\x093c . "(5i(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
414 (?\x093d . "(5ji(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
415 (?\x093e . "(5Z(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
416 (?\x093f . "(5[(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
417 (?\x0940 . "(5\(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
418 (?\x0941 . "(5](B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
419 (?\x0942 . "(5^(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
420 (?\x0943 . "(5_(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
421 (?\x0944 . "(5_i(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
422 (?\x0945 . "(5c(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
423 (?\x0946 . "(5`(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
424 (?\x0947 . "(5a(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
425 (?\x0948 . "(5b(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
426 (?\x0949 . "(5g(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
427 (?\x094a . "(5d(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
428 (?\x094b . "(5e(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
429 (?\x094c . "(5f(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
430 (?\x094d . "(5h(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
431 (?\x094e . "[U+094e]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
432 (?\x094f . "[U+094f]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
433 (?\x0950 . "(5!i(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
434 (?\x0951 . "(5p5(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
435 (?\x0952 . "(5p8(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
436 (?\x0953 . "[DEVANAGARI GRAVE ACCENT]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
437 (?\x0954 . "[DEVANAGARI ACUTE ACCENT]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
438 (?\x0955 . "[U+0955]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
439 (?\x0956 . "[U+0956]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
440 (?\x0957 . "[U+0957]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
441 (?\x0958 . "(53i(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
442 (?\x0959 . "(54i(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
443 (?\x095a . "(55i(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
444 (?\x095b . "(5:i(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
445 (?\x095c . "(5?i(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
446 (?\x095d . "(5@i(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
447 (?\x095e . "(5Ii(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
448 (?\x095f . "(5N(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
449 (?\x0960 . "(5*i(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
450 (?\x0961 . "(5'i(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
451 (?\x0962 . "(5[i(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
452 (?\x0963 . "(5ei(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
453 (?\x0964 . "(5j(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
454 (?\x0965 . "(5jj(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
455 (?\x0966 . "(5q(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
456 (?\x0967 . "(5r(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
457 (?\x0968 . "(5s(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
458 (?\x0969 . "(5t(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
459 (?\x096a . "(5u(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
460 (?\x096b . "(5v(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
461 (?\x096c . "(5w(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
462 (?\x096d . "(5x(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
463 (?\x096e . "(5y(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
464 (?\x096f . "(5z(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
465 (?\x0970 . "[U+0970]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
466 (?\x0971 . "[U+0971]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
467 (?\x0972 . "[U+0972]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
468 (?\x0973 . "[U+0973]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
469 (?\x0974 . "[U+0974]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
470 (?\x0975 . "[U+0975]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
471 (?\x0976 . "[U+0976]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
472 (?\x0977 . "[U+0977]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
473 (?\x0978 . "[U+0978]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
474 (?\x0979 . "[U+0979]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
475 (?\x097a . "[U+097a]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
476 (?\x097b . "[U+097b]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
477 (?\x097c . "[U+097c]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
478 (?\x097d . "[U+097d]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
479 (?\x097e . "[U+097e]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
480 (?\x097f . "[U+097f]")))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
481
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
482 (defvar ucs-bengali-to-is13194-alist nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
483 (defvar ucs-assamese-to-is13194-alist nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
484 (defvar ucs-gurmukhi-to-is13194-alist nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
485 (defvar ucs-gujarati-to-is13194-alist nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
486 (defvar ucs-oriya-to-is13194-alist nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
487 (defvar ucs-tamil-to-is13194-alist nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
488 (defvar ucs-telugu-to-is13194-alist nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
489 (defvar ucs-malayalam-to-is13194-alist nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
490
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
491 (defvar is13194-default-repartory 'devanagari)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
492
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
493 (defvar is13194-repertory-to-ucs-script
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
494 `((DEF ?\x40 ,is13194-default-repartory)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
495 (RMN ?\x41 ,is13194-default-repartory)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
496 (DEV ?\x42 devanagari)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
497 (BNG ?\x43 bengali)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
498 (TML ?\x44 tamil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
499 (TLG ?\x45 telugu)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
500 (ASM ?\x46 bengali)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
501 (ORI ?\x47 oriya)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
502 (KND ?\x48 kannada)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
503 (MLM ?\x49 malayalam)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
504 (GJR ?\x4a gujarati)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
505 (PNJ ?\x4b gurmukhi)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
506
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
507 ;; for guiding find-variable function.
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
508 (defvar is13194-to-ucs-devanagari-hashtbl nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
509 (defvar is13194-to-ucs-devanagari-regexp nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510 (defvar is13194-to-ucs-bengali-hashtbl nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
511 (defvar is13194-to-ucs-bengali-regexp nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
512 (defvar is13194-to-ucs-assamese-hashtbl nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
513 (defvar is13194-to-ucs-assamese-regexp nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
514 (defvar is13194-to-ucs-gurmukhi-hashtbl nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
515 (defvar is13194-to-ucs-gurmukhi-regexp nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
516 (defvar is13194-to-ucs-gujarati-hashtbl nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
517 (defvar is13194-to-ucs-gujarati-regexp nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
518 (defvar is13194-to-ucs-oriya-hashtbl nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
519 (defvar is13194-to-ucs-oriya-regexp nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
520 (defvar is13194-to-ucs-tamil-hashtbl nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
521 (defvar is13194-to-ucs-tamil-regexp nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
522 (defvar is13194-to-ucs-telugu-hashtbl nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
523 (defvar is13194-to-ucs-telugu-regexp nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
524 (defvar is13194-to-ucs-malayalam-hashtbl nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
525 (defvar is13194-to-ucs-malayalam-regexp nil)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
526
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
527 (mapc
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
528 (function (lambda (script)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
529 (let ((hashtable (intern (concat "is13194-to-ucs-"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
530 (symbol-name script) "-hashtbl" )))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
531 (regexp (intern (concat "is13194-to-ucs-"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
532 (symbol-name script) "-regexp"))))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
533 (set hashtable (make-hash-table :test 'equal :size 128))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
534 (mapc
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
535 (function (lambda (x)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
536 (put-char-code-property (decode-char 'ucs (car x))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
537 'script script)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
538 (put-char-code-property (decode-char 'ucs (car x))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
539 'iscii (cdr x))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
540 (puthash (cdr x) (char-to-string (decode-char 'ucs (car x)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
541 (eval hashtable))))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
542 (eval (intern (concat "ucs-" (symbol-name script)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
543 "-to-is13194-alist"))))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
544 (set regexp (regexp-of-hashtbl-keys (eval hashtable))))))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
545 '(devanagari bengali assamese gurmukhi gujarati
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
546 oriya tamil telugu malayalam))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
547
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
548 (defvar ucs-to-is13194-regexp
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
549 ;; only Devanagari is supported now.
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
550 (concat "[" (char-to-string (decode-char 'ucs #x0900))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
551 "-" (char-to-string (decode-char 'ucs #x097f)) "]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
552 "Regexp that matches to conversion")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
553
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
554 (defun ucs-to-iscii-region (from to)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
555 "Converts the indian UCS characters in the region to ISCII.
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
556 Returns new end position."
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
557 (interactive "r")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
558 ;; only Devanagari is supported now.
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
559 (save-excursion
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
560 (save-restriction
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
561 (narrow-to-region from to)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
562 (goto-char (point-min))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
563 (let* ((current-repertory is13194-default-repartory))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
564 (while (re-search-forward ucs-to-is13194-regexp nil t)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
565 (replace-match
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
566 (get-char-code-property (string-to-char (match-string 0))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
567 'iscii))))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
568 (point-max))))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
569
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
570 (defun iscii-to-ucs-region (from to)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
571 "Converts the ISCII characters in the region to UCS.
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
572 Returns new end position."
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
573 (interactive "r")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
574 ;; only Devanagari is supported now.
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
575 (save-excursion
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
576 (save-restriction
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
577 (narrow-to-region from to)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
578 (goto-char (point-min))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
579 (let* ((current-repertory is13194-default-repartory)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
580 (current-hashtable
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
581 (intern (concat "is13194-to-ucs-"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
582 (symbol-name current-repertory) "-hashtbl")))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
583 (current-regexp
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
584 (intern (concat "is13194-to-ucs-"
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
585 (symbol-name current-repertory) "-regexp"))))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
586 (while (re-search-forward (eval current-regexp) nil t)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
587 (replace-match
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
588 (gethash (match-string 0) (eval current-hashtable) ""))))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
589 (point-max))))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
590
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
591 ;;;###autoload
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
592 (defun indian-compose-region (from to)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
593 "Compose the region according to `composition-function-table'. "
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
594 (interactive "r")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
595 (save-excursion
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
596 (save-restriction
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
597 (let ((pos from) chars (max to))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
598 (narrow-to-region from to)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
599 (while (< pos max)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
600 (setq chars (compose-chars-after pos))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
601 (if chars (setq pos (+ pos chars)) (setq pos (1+ pos))))))))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
602
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
603 ;;;###autoload
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
604 (defun indian-compose-string (string)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
605 (with-temp-buffer
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
606 (insert string)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
607 (indian-compose-region (point-min) (point-max))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
608 (buffer-string)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
609
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
610 ;;;###autoload
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
611 (defun in-is13194-post-read-conversion (len)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
612 (let ((pos (point)) endpos)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
613 (setq endpos (iscii-to-ucs-region pos (+ pos len)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
614 (indian-compose-region pos endpos)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
615 (- endpos pos)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
616
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
617 ;;;###autoload
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
618 (defun in-is13194-pre-write-conversion (from to)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
619 (let ((buf (current-buffer)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
620 (set-buffer (generate-new-buffer " *temp*"))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
621 (if (stringp from)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
622 (insert from)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
623 (insert-buffer-substring buf from to))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
624 (ucs-to-iscii-region (point-min) (point-max))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
625 nil))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
626
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
627
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
628
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
629
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
630 ;;; Backward Compatibility support programs
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
631
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
632 ;; The followings provides the conversion from old-implementation of
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
633 ;; Emacs Devanagari script to UCS.
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
634
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
635 (defconst indian-2-colum-to-ucs
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
636 '(
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
637 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
638 ;;2120 $(5!!!"!#!$!%!&!'!(!)!*!+!,!-!.!/(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
639 ("$(5!!(B" . "$,15A(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
640 ("$(5!"(B" . "$,15B(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
641 ("$(5!#(B" . "$,15C(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
642 ("$(5!$(B" . "$,15E(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
643 ("$(5!%(B" . "$,15F(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
644 ("$(5!&(B" . "$,15G(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
645 ("$(5!'(B" . "$,15H(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
646 ("$(5!((B" . "$,15I(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
647 ("$(5!)(B" . "$,15J(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
648 ("$(5!*(B" . "$,15K(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
649 ("$(5!*"p(B" . "$,15p6#(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
650 ("$(5!+(B" . "$,15N(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
651 ("$(5!,(B" . "$,15O(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
652 ("$(5!-(B" . "$,15P(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
653 ("$(5!.(B" . "$,15M(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
654 ("$(5!/(B" . "$,15R(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
655 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
656 ;;2130 $(5!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>!?(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
657 ("$(5!0(B" . "$,15S(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
658 ("$(5!1(B" . "$,15T(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
659 ("$(5!2(B" . "$,15Q(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
660 ("$(5!3(B" . "$,15U(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
661 ("$(5!4(B" . "$,15V(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
662 ("$(5!5(B" . "$,15W(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
663 ("$(5!6(B" . "$,15X(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
664 ("$(5!7(B" . "$,15Y(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
665 ("$(5!8(B" . "$,15Z(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
666 ("$(5!9(B" . "$,15[(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
667 ("$(5!:(B" . "$,15\(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
668 ("$(5!;(B" . "$,15](B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
669 ("$(5!<(B" . "$,15^(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
670 ("$(5!=(B" . "$,15_(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
671 ("$(5!>(B" . "$,15`(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
672 ("$(5!?(B" . "$,15a(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
673 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
674 ;;2140 $(5!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
675 ("$(5!@(B" . "$,15b(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
676 ("$(5!A(B" . "$,15c(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
677 ("$(5!B(B" . "$,15d(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
678 ("$(5!C(B" . "$,15e(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
679 ("$(5!D(B" . "$,15f(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
680 ("$(5!E(B" . "$,15g(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
681 ("$(5!F(B" . "$,15h(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
682 ("$(5!G(B" . "$,15i(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
683 ("$(5!H(B" . "$,15j(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
684 ("$(5!I(B" . "$,15k(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
685 ("$(5!J(B" . "$,15l(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
686 ("$(5!K(B" . "$,15m(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
687 ("$(5!L(B" . "$,15n(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
688 ("$(5!M(B" . "$,15o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
689 ("$(5!N(B" . "$,16?(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
690 ("$(5!O(B" . "$,15p(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
691 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
692 ;;2150 $(5!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
693 ("$(5!P(B" . "$,15q(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
694 ("$(5!Q(B" . "$,15r(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
695 ("$(5!R(B" . "$,15s(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
696 ("$(5!S(B" . "$,15t(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
697 ("$(5!T(B" . "$,15u(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
698 ("$(5!U(B" . "$,15v(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
699 ("$(5!V(B" . "$,15w(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
700 ("$(5!W(B" . "$,15x(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
701 ("$(5!X(B" . "$,15y(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
702 ("$(5!Z(B" . "$,15~(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
703 ("$(5![(B" . "$,15(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
704 ("$(5!\(B" . "$,16 (B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
705 ("$(5!](B" . "$,16!(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
706 ("$(5!^(B" . "$,16"(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
707 ("$(5!_(B" . "$,16#(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
708 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
709 ;;2160 $(5!`!a!b!c!d!e!f!g!h!i!j!k!l!m!n!o(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
710 ("$(5!`(B" . "$,16&(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
711 ("$(5!a(B" . "$,16'(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
712 ("$(5!b(B" . "$,16((B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
713 ("$(5!c(B" . "$,16%(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
714 ("$(5!d(B" . "$,16*(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
715 ("$(5!e(B" . "$,16+(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
716 ("$(5!f(B" . "$,16,(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
717 ("$(5!g(B" . "$,16)(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
718 ("$(5!h(B" . "$,16-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
719 ("$(5!i(B" . "$,15|(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
720 ("$(5!j(B" . "$,16D(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
721 ("$(5!j!j(B" . "$,16E(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
722 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
723 ;;2170 $(5!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
724 ("$(5!q(B" . "$,16F(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
725 ("$(5!r(B" . "$,16G(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
726 ("$(5!s(B" . "$,16H(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
727 ("$(5!t(B" . "$,16I(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
728 ("$(5!u(B" . "$,16J(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
729 ("$(5!v(B" . "$,16K(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
730 ("$(5!w(B" . "$,16L(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
731 ("$(5!x(B" . "$,16M(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
732 ("$(5!y(B" . "$,16N(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
733 ("$(5!z(B" . "$,16O(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
734 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
735 ;;2220 $(5"!"""#"$"%"&"'"(")"*"+","-"."/(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
736 ("$(5"!(B" . "$,16;6-5p(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
737 ("$(5""(B" . "$,16>6-5p(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
738 ("$(5"#(B" . "$,15U6-5p(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
739 ("$(5"$(B" . "$,15W6-5p(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
740 ("$(5"%(B" . "$,15d6-5p(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
741 ("$(5"&(B" . "$,15j6-5p(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
742 ("$(5"'(B" . "$,15k6-5p(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
743 ("$(5")(B" . "$,15v6-5p(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
744 ("$(5",(B" . "$,15p6!(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
745 ("$(5"-(B" . "$,15p6"(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
746 ("$(5".(B" . "$,15q6!(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
747 ("$(5"/(B" . "$,15q6"(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
748 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
749 ;;2230 $(5"0"1"2"3"4"5"6"7"8"9":";"<"=">"?(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
750 ("$(5"3(B" . "$,15U6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
751 ("$(5"4(B" . "$,15V6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
752 ("$(5"5(B" . "$,15W6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
753 ("$(5"6(B" . "$,15X6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
754 ("$(5"8(B" . "$,15Z6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
755 ("$(5"8"q(B" . "$,15Z6-5p6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
756 ("$(5":(B" . "$,15\6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
757 ("$(5";(B" . "$,15]6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
758 ("$(5"<(B" . "$,15^6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
759 ("$(5"<(B" . "$,15^6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
760 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
761 ;;2240 $(5"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
762 ("$(5"A(B" . "$,15c6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
763 ("$(5"B(B" . "$,15d6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
764 ("$(5"C(B" . "$,15e6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
765 ("$(5"E(B" . "$,15g6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
766 ("$(5"F(B" . "$,15h6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
767 ("$(5"G(B" . "$,15i6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
768 ("$(5"H(B" . "$,15j6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
769 ("$(5"I(B" . "$,15k6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
770 ("$(5"J(B" . "$,15l6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
771 ("$(5"J(B" . "$,15l6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
772 ("$(5"K(B" . "$,15m6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
773 ("$(5"L(B" . "$,15n6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
774 ("$(5"M(B" . "$,15o6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
775 ("$(5"N(B" . "$,16?6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
776 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
777 ;;2250 $(5"P"Q"R"S"T"U"V"W"X"Y"Z"["\"]"^"_(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
778 ("$(5"Q(B" . "$,15r6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
779 ("$(5"R(B" . "$,15s6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
780 ("$(5"S(B" . "$,15t6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
781 ("$(5"T(B" . "$,15u6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
782 ("$(5"U(B" . "$,15v6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
783 ("$(5"V(B" . "$,15w6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
784 ("$(5"W(B" . "$,15x6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
785 ("$(5"](B" . "$,16-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
786 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
787 ;;2260 $(5"`"a"b"c"d"e"f"g"h"i"j"k"l"m"n"o(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
788 ("$(5"`(B" . "$,15W6-5p6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
789 ("$(5"a(B" . "$,15X6-5h6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
790 ("$(5"c(B" . "$,15d6-5d6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
791 ("$(5"d(B" . "$,15d6-5p6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
792 ("$(5"e(B" . "$,15g6-5h6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
793 ("$(5"f(B" . "$,15g6-5p6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
794 ("$(5"g(B" . "$,15j6-5d6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
795 ("$(5"h(B" . "$,15v6-5Z6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
796 ("$(5"i(B" . "$,15v6-5p6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
797 ("$(5"j(B" . "$,15v6-5u6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
798 ("$(5"k(B" . "$,15h6-5h6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
799 ("$(5"l(B" . "$,15U6-5w6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
800 ("$(5"m(B" . "$,15\6-5^6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
801 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
802 ;;2270 $(5"p"q"r"s"t"u"v"w"x"y"z"{"|"}"~(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
803 ("$(5"p(B" . "$,15p6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
804 ("$(5"q(B" . "$,16-5p(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
805 ("$(5"r(B" . "$,16-5p(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
806 ("$(5"s(B" . "$,1686-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
807 ("$(5"t(B" . "$,1696-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
808 ("$(5"u(B" . "$,16:6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
809 ("$(5"y(B" . "$,16>6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
810 ("$(5"z(B" . "$,16;6-(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
811 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
812 ;;2320 $(5#!#"###$#%#&#'#(#)#*#+#,#-#.#/(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
813 ("$(5#!(B" . "$,160(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
814 ("$(5#&(B" . "$,15L(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
815 ("$(5#&"p(B" . "$,15p6$(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
816 ("$(5#'(B" . "$,16A(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
817 ("$(5#'"p(B" . "$,15p6C(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
818 ("$(5#*(B" . "$,16@(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
819 ("$(5#*"p(B" . "$,15p6B(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
820 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
821 ;;2330 $(5#0#1#2#3#4#5#6#7#8#9#:#;#<#=#>#?(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
822 ("$(5#3(B" . "$,168(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
823 ("$(5#4(B" . "$,169(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
824 ("$(5#5(B" . "$,16:(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
825 ("$(5#:(B" . "$,16;(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
826 ("$(5#?(B" . "$,16<(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
827 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
828 ;;2340 $(5#@#A#B#C#D#E#F#G#H#I#J#K#L#M#N#O(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
829 ("$(5#@(B" . "$,16=(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
830 ("$(5#I(B" . "$,16>(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
831 ("$(5#J(B" . "$,15}(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
832 ("$(5#K(B" . "$,16$(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
833 ("$(5#L(B" . "$,16B(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
834 ("$(5#M(B" . "$,16C(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
835 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
836 ;;2350 $(5#P#Q#R#S#T#U#V#W#X#Y#Z#[#\#]#^#_(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
837 ("$(5#P(B" . "$,15n6-5h(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
838 ("$(5#Q(B" . "$,15n6-5r(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
839 ("$(5#R(B" . "$,15y6#(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
840 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
841 ;;2360 $(5#`#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
842 ("$(5#`(B" . "$,15r6-5r(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
843 ("$(5#a(B" . "$,15u6-5h(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
844 ("$(5#b(B" . "$,15u6-5u(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
845 ("$(5#c(B" . "$,15v6-5Z(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
846 ("$(5#d(B" . "$,15v6-5h(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
847 ("$(5#e(B" . "$,15v6-5l(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
848 ("$(5#f(B" . "$,15v6-5r(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
849 ("$(5#g(B" . "$,15v6-5u(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
850 ("$(5#h(B" . "$,15w6-5_6-5p6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
851 ("$(5#i(B" . "$,15w6-5_6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
852 ("$(5#j(B" . "$,15w6-5_6-5u(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
853 ("$(5#k(B" . "$,15w6-5_(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
854 ("$(5#l(B" . "$,15w6-5`(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
855 ("$(5#m(B" . "$,15x6-5h(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
856 ("$(5#n(B" . "$,15x6-5p(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
857 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
858 ;;2370 $(5#p#q#r#s#t#u#v#w#x#y#z#{#|#}#~(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
859 ("$(5#p(B" . "$,15y6-5c(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
860 ("$(5#q(B" . "$,15y6-5h(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
861 ("$(5#r(B" . "$,15y6-5n(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
862 ("$(5#s(B" . "$,15y6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
863 ("$(5#t(B" . "$,15y6-5p(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
864 ("$(5#u(B" . "$,15y6-5r(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
865 ("$(5#v(B" . "$,15y6-5u(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
866 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
867 ;;2420 $(5$!$"$#$$$%$&$'$($)$*$+$,$-$.$/(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
868 ("$(5$!(B" . "$,15U6-5d6-5p6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
869 ("$(5$"(B" . "$,15U6-5d6-5u(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
870 ("$(5$#(B" . "$,15U6-5d6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
871 ("$(5$$(B" . "$,15U6-5h6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
872 ("$(5$%(B" . "$,15U6-5p6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
873 ("$(5$&(B" . "$,15U6-5u6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
874 ("$(5$'(B" . "$,15U6-5U(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
875 ("$(5$((B" . "$,15U6-5d(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
876 ("$(5$)(B" . "$,15U6-5h(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
877 ("$(5$*(B" . "$,15U6-5n(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
878 ("$(5$+(B" . "$,15U6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
879 ("$(5$,(B" . "$,15U6-5r(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
880 ("$(5$-(B" . "$,15U6-5u(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
881 ("$(5$.(B" . "$,15U6-5w(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
882 ("$(5$/(B" . "$,15X6-5h(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
883 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
884 ;;2430 $(5$0$1$2$3$4$5$6$7$8$9$:$;$<$=$>$?(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
885 ("$(5$0(B" . "$,15Y6-5U6-5d6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
886 ("$(5$1(B" . "$,15Y6-5U6-5w6-5u(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
887 ("$(5$2(B" . "$,15Y6-5U6-5d(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
888 ("$(5$3(B" . "$,15Y6-5U6-5w(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
889 ("$(5$4(B" . "$,15Y6-5X6-5p(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
890 ("$(5$5(B" . "$,15Y6-5U6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
891 ("$(5$6(B" . "$,15Y6-5V6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
892 ("$(5$7(B" . "$,15Y6-5W6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
893 ("$(5$8(B" . "$,15Y6-5X6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
894 ("$(5$9(B" . "$,15Y6-5U(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
895 ("$(5$:(B" . "$,15Y6-5V(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
896 ("$(5$;(B" . "$,15Y6-5W(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
897 ("$(5$<(B" . "$,15Y6-5X(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
898 ("$(5$=(B" . "$,15Y6-5Y(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
899 ("$(5$>(B" . "$,15Y6-5h(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
900 ("$(5$?(B" . "$,15Y6-5n(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
901 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
902 ;;2440 $(5$@$A$B$C$D$E$F$G$H$I$J$K$L$M$N$O(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
903 ("$(5$@(B" . "$,15Y6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
904 ("$(5$A(B" . "$,15Z6-5Z(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
905 ("$(5$B(B" . "$,15Z6-5^(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
906 ("$(5$C(B" . "$,15[6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
907 ("$(5$D(B" . "$,15\6-5p(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
908 ("$(5$E(B" . "$,15\6-5^(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
909 ("$(5$F(B" . "$,15^6-5Z(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
910 ("$(5$G(B" . "$,15^6-5\(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
911 ("$(5$H(B" . "$,15_6-5U(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
912 ("$(5$I(B" . "$,15_6-5_(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
913 ("$(5$J(B" . "$,15_6-5`(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
914 ("$(5$K(B" . "$,15_6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
915 ("$(5$L(B" . "$,15`6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
916 ("$(5$M(B" . "$,15a6-5W6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
917 ("$(5$N(B" . "$,15a6-5X6-5p(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
918 ("$(5$O(B" . "$,15a6-5p6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
919 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
920 ;;2450 $(5$P$Q$R$S$T$U$V$W$X$Y$Z$[$\$]$^$_(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
921 ("$(5$P(B" . "$,15a6-5W(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
922 ("$(5$Q(B" . "$,15a6-5X(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
923 ("$(5$R(B" . "$,15a6-5a(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
924 ("$(5$S(B" . "$,15a6-5n(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
925 ("$(5$T(B" . "$,15a6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
926 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
927 ;;2460 $(5$`$a$b$c$d$e$f$g$h$i$j$k$l$m$n$o(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
928 ("$(5$`(B" . "$,15b6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
929 ("$(5$a(B" . "$,15d6-5d(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
930 ("$(5$b(B" . "$,15d6-5h(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
931 ("$(5$c(B" . "$,15f6-5f6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
932 ("$(5$d(B" . "$,15f6-5g6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
933 ("$(5$e(B" . "$,15f6-5m6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
934 ("$(5$f(B" . "$,15f6-5p6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
935 ("$(5$g(B" . "$,15f6-5u6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
936 ("$(5$h(B" . "$,15f6-5W6-5p(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
937 ("$(5$i(B" . "$,15f6-5X6-5p(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
938 ("$(5$j(B" . "$,15f6-5f6-5u(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
939 ("$(5$k(B" . "$,15f6-5g6-5u(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
940 ("$(5$l(B" . "$,15f6-5W(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
941 ("$(5$m(B" . "$,15f6-5X(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
942 ("$(5$n(B" . "$,15f6-5f(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
943 ("$(5$o(B" . "$,15f6-5g(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
944 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
945 ;;2470 $(5$p$q$r$s$t$u$v$w$x$y$z${$|$}$~(B
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
946 ("$(5$p(B" . "$,15f6-5h(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
947 ("$(5$q(B" . "$,15f6-5l(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
948 ("$(5$r(B" . "$,15f6-5m(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
949 ("$(5$s(B" . "$,15f6-5n(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
950 ("$(5$t(B" . "$,15f6-5o(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
951 ("$(5$u(B" . "$,15f6-5u(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
952 ("$(5$v(B" . "$,15g6-5h(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
953 ("$(5$w(B" . "$,15h6-5h(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
954 ("$(5$x(B" . "$,15j6-5d(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
955 ("$(5$y(B" . "$,15j6-5h(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
956 ("$(5$z(B" . "$,15j6-5r(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
957 ("$(5${(B" . "$,15l6-5h(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
958 ("$(5$|(B" . "$,15l6-5l(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
959 ("$(5$}(B" . "$,15l6-5u(B")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
960 ("$(5$~(B" . "$,15m6-5h(B")))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
961
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
962 (defconst indian-2-column-to-ucs-regexp
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
963 "$(5!j!j(B\\|$(5"8"q(B\\|[$(5#&#'!*#*(B]$(5"p(B\\|[$(5!!(B-$(5$~(B]")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
964
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
965 (put 'indian-2-column-to-ucs-chartable 'char-table-extra-slots 1)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
966 (defconst indian-2-column-to-ucs-chartable
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
967 (let ((table (make-char-table 'indian-2-column-to-ucs-chartable))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
968 (alist nil))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
969 (dolist (elt indian-2-colum-to-ucs)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
970 (if (= (length (car elt)) 1)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
971 (aset table (aref (car elt) 0) (cdr elt))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
972 (setq alist (cons elt alist))))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
973 (set-char-table-extra-slot table 0 alist)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
974 table))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
975
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
976 (defun indian-2-column-to-ucs-region (from to)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
977 "Convert old Emacs Devanagari characters to UCS."
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
978 (interactive "r")
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
979 (save-excursion
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
980 (save-restriction
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
981 (let ((pos from)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
982 (alist (char-table-extra-slot indian-2-column-to-ucs-chartable 0)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
983 (narrow-to-region from to)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
984 (decompose-region from to)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
985 (goto-char (point-min))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
986 (while (re-search-forward indian-2-column-to-ucs-regexp nil t)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
987 (let ((len (- (match-end 0) (match-beginning 0)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
988 subst)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
989 (if (= len 1)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
990 (setq subst (aref indian-2-column-to-ucs-chartable (char-after (match-beginning 0))))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
991 (setq subst (assoc (match-string 0) alist)))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
992 (replace-match (if subst subst "?"))))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
993 (indian-compose-region (point-min) (point-max))))))
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
994
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
995 (provide 'ind-util)
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
996
a43bf477cba7 New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
997 ;;; ind-util.el ends here