17052
|
1 ;; ethio-util.el -- utilities for Ethiopic
|
|
2
|
|
3 ;; Copyright (C) 1995 Free Software Foundation, Inc.
|
|
4 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
|
|
5
|
|
6 ;; Keywords: mule, multilingual, Chinese
|
|
7
|
|
8 ;; This file is part of GNU Emacs.
|
|
9
|
|
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
|
|
11 ;; it under the terms of the GNU General Public License as published by
|
|
12 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
13 ;; any later version.
|
|
14
|
|
15 ;; GNU Emacs is distributed in the hope that it will be useful,
|
|
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
18 ;; GNU General Public License for more details.
|
|
19
|
|
20 ;; You should have received a copy of the GNU General Public License
|
17071
|
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
|
|
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
23 ;; Boston, MA 02111-1307, USA.
|
17052
|
24
|
|
25 ;;; Code:
|
|
26
|
|
27 ;;
|
|
28 ;; ETHIOPIC UTILITY FUNCTIONS
|
|
29 ;;
|
|
30
|
|
31 ;; To automatically convert Ethiopic text to SERA format when sending mail,
|
|
32 ;; (add-hook 'mail-send-hook 'fidel-to-sera-mail)
|
|
33 ;;
|
|
34 ;; To automatically convert SERA format to Ethiopic when receiving mail,
|
|
35 ;; (add-hook 'rmail-show-message-hook 'sera-to-fidel-mail)
|
|
36 ;;
|
|
37 ;; To automatically convert Ethiopic text to SERA format when posting news,
|
|
38 ;; (add-hook 'news-inews-hook 'fidel-to-sera-mail)
|
|
39 ;;
|
|
40 ;; If the filename ends in ".sera", editing will be done in fidel
|
|
41 ;; while file I/O will be done in sera.
|
|
42
|
|
43 ;;
|
|
44 ;; SERA to FIDEL
|
|
45 ;;
|
|
46
|
|
47 (defconst sera-to-fidel-table
|
|
48 [
|
|
49 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
|
|
50 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
|
|
51 ;;; SP ! " # $ % & ' ( ) * + , - . /
|
|
52 nil nil nil nil nil nil nil ("") nil nil nil nil ("$(2$Q(B") nil ("$(2$P(B") nil
|
|
53 ;;; 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @
|
|
54 nil nil nil nil nil nil nil nil nil nil ("$(2$S(B") ("$(2$R(B") nil nil nil nil nil
|
|
55 ;;; A
|
|
56 ("$(2"V(B" (?2 "$(2#b(B"))
|
|
57 ;;; B
|
|
58 ("$(2!F(B" (?e "$(2!A(B") (?u "$(2!B(B") (?i "$(2!C(B") (?a "$(2!D(B") (?E "$(2!E(B") (?o "$(2!G(B") (?| "$(2!F(B")
|
|
59 (?W "$(2!H(B" (?a "$(2!H(B")
|
|
60 (?e "$(2!F#L(B") (?u "$(2!F#M(B") (?i "$(2!F#N(B") (?E "$(2!F#P(B") (?' "$(2!F#M(B")))
|
|
61 ;;; C
|
|
62 ("$(2"8(B" (?e "$(2"3(B") (?u "$(2"4(B") (?i "$(2"5(B") (?a "$(2"6(B") (?E "$(2"7(B") (?o "$(2"9(B") (?| "$(2"8(B")
|
|
63 (?W "$(2":(B" (?a "$(2":(B")
|
|
64 (?e "$(2"8#L(B") (?u "$(2"8#M(B") (?i "$(2"8#N(B") (?E "$(2"8#P(B") (?' "$(2"8#M(B")))
|
|
65 ;;; D
|
|
66 ("$(2$0(B" (?e "$(2$+(B") (?u "$(2$,(B") (?i "$(2$-(B") (?a "$(2$.(B") (?E "$(2$/(B") (?o "$(2$1(B") (?| "$(2$0(B"))
|
|
67 ;;; E
|
|
68 ("$(2"W(B" (?2 "$(2#c(B"))
|
|
69 ;;; F
|
|
70 ("$(2"@(B" (?e "$(2";(B") (?u "$(2"<(B") (?i "$(2"=(B") (?a "$(2">(B") (?E "$(2"?(B") (?o "$(2"A(B") (?| "$(2"@(B")
|
|
71 (?W "$(2"B(B" (?a "$(2"B(B")
|
|
72 (?e "$(2"@#L(B") (?u "$(2"@#M(B") (?i "$(2"@#N(B") (?E "$(2"@#P(B") (?' "$(2"@#M(B")))
|
|
73 ;;; G
|
|
74 ("$(2$>(B" (?e "$(2$9(B") (?u "$(2$:(B") (?i "$(2$;(B") (?a "$(2$<(B") (?E "$(2$=(B") (?o "$(2$?(B") (?| "$(2$>(B"))
|
|
75 ;;; H
|
|
76 ("$(2$"(B" (?e "$(2#{(B") (?u "$(2#|(B") (?i "$(2#}(B") (?a "$(2#~(B") (?E "$(2$!(B") (?o "$(2$#(B") (?| "$(2$"(B"))
|
|
77 ;;; I
|
|
78 ("$(2"X(B" (?2 "$(2#d(B"))
|
|
79 ;;; J
|
|
80 ("$(2$7(B" (?e "$(2$2(B") (?u "$(2$3(B") (?i "$(2$4(B") (?a "$(2$5(B") (?E "$(2$6(B") (?o "$(2$8(B") (?| "$(2$7(B"))
|
|
81 ;;; K
|
|
82 ("$(2"x(B" (?e "$(2"s(B") (?u "$(2"t(B") (?i "$(2"u(B") (?a "$(2"v(B") (?E "$(2"w(B") (?o "$(2"y(B") (?| "$(2"x(B")
|
|
83 (?W "$(2"{(B" (?e "$(2"z(B") (?u "$(2"{(B") (?i "$(2"|(B") (?a "$(2"}(B") (?E "$(2"~(B")))
|
|
84 ;;; L
|
|
85 ("$(2!&(B" (?e "$(2!!(B") (?u "$(2!"(B") (?i "$(2!#(B") (?a "$(2!$(B") (?E "$(2!%(B") (?o "$(2!'(B") (?| "$(2!&(B")
|
|
86 (?W "$(2!((B" (?a "$(2!((B")
|
|
87 (?e "$(2!&#L(B") (?u "$(2!&#M(B") (?i "$(2!&#N(B") (?E "$(2!&#P(B") (?' "$(2!&#M(B")))
|
|
88 ;;; M
|
|
89 ("$(2!.(B" (?e "$(2!)(B") (?u "$(2!*(B") (?i "$(2!+(B") (?a "$(2!,(B") (?E "$(2!-(B") (?o "$(2!/(B") (?| "$(2!.(B")
|
|
90 (?W "$(2!0(B" (?a "$(2!0(B")
|
|
91 (?e "$(2!.#L(B") (?u "$(2!.#M(B") (?i "$(2!.#N(B") (?E "$(2!.#P(B") (?' "$(2!.#M(B")))
|
|
92 ;;; N
|
|
93 ("$(2!n(B" (?e "$(2!i(B") (?u "$(2!j(B") (?i "$(2!k(B") (?a "$(2!l(B") (?E "$(2!m(B") (?o "$(2!o(B") (?| "$(2!n(B")
|
|
94 (?W "$(2!p(B" (?a "$(2!p(B")
|
|
95 (?e "$(2!n#L(B") (?u "$(2!n#M(B") (?i "$(2!n#N(B") (?E "$(2!n#P(B") (?' "$(2!n#M(B")))
|
|
96 ;;; O
|
|
97 ("$(2"Y(B" (?2 "$(2#e(B"))
|
|
98 ;;; P
|
|
99 ("$(2$E(B" (?e "$(2$@(B") (?u "$(2$A(B") (?i "$(2$B(B") (?a "$(2$C(B") (?E "$(2$D(B") (?o "$(2$F(B") (?| "$(2$E(B"))
|
|
100 ;;; Q
|
|
101 ("$(2#2(B" (?e "$(2#-(B") (?u "$(2#.(B") (?i "$(2#/(B") (?a "$(2#0(B") (?E "$(2#1(B") (?o "$(2#3(B") (?| "$(2#2(B")
|
|
102 (?W "$(2#5(B" (?e "$(2#4(B") (?u "$(2#5(B") (?i "$(2#6(B") (?a "$(2#7(B") (?E "$(2#8(B")))
|
|
103 ;;; R
|
|
104 ("$(2!6(B" (?e "$(2!1(B") (?u "$(2!2(B") (?i "$(2!3(B") (?a "$(2!4(B") (?E "$(2!5(B") (?o "$(2!7(B") (?| "$(2!6(B")
|
|
105 (?W "$(2!8(B" (?a "$(2!8(B")
|
|
106 (?e "$(2!6#L(B") (?u "$(2!6#M(B") (?i "$(2!6#N(B") (?E "$(2!6#P(B") (?' "$(2!6#M(B")))
|
|
107 ;;; S
|
|
108 ("$(2"P(B" (?e "$(2"K(B") (?u "$(2"L(B") (?i "$(2"M(B") (?a "$(2"N(B") (?E "$(2"O(B") (?o "$(2"Q(B") (?| "$(2"P(B")
|
|
109 (?W "$(2"R(B" (?a "$(2"R(B")
|
|
110 (?e "$(2"P#L(B") (?u "$(2"P#M(B") (?i "$(2"P#N(B") (?E "$(2"P#P(B") (?' "$(2"P#M(B"))
|
|
111 (?2 "$(2#](B" (?| "$(2#](B")
|
|
112 (?e "$(2#X(B") (?u "$(2#Y(B") (?i "$(2#Z(B") (?a "$(2#[(B") (?E "$(2#\(B") (?o "$(2#^(B")
|
|
113 (?W "$(2"R(B"
|
|
114 (?a "$(2"R(B")
|
|
115 (?e "$(2#]#L(B") (?u "$(2#]#M(B") (?i "$(2#]#N(B") (?E "$(2#]#P(B") (?' "$(2#]#M(B"))))
|
|
116
|
|
117 ;;; T
|
|
118 ("$(2"0(B" (?e "$(2"+(B") (?u "$(2",(B") (?i "$(2"-(B") (?a "$(2".(B") (?E "$(2"/(B") (?o "$(2"1(B") (?| "$(2"0(B")
|
|
119 (?W "$(2"2(B" (?a "$(2"2(B")
|
|
120 (?e "$(2"0#L(B") (?u "$(2"0#M(B") (?i "$(2"0#N(B") (?E "$(2"0#P(B") (?' "$(2"0#M(B")))
|
|
121 ;;; U
|
|
122 ("$(2"T(B" (?2 "$(2#`(B"))
|
|
123 ;;; V
|
|
124 ("$(2!N(B" (?e "$(2!I(B") (?u "$(2!J(B") (?i "$(2!K(B") (?a "$(2!L(B") (?E "$(2!M(B") (?o "$(2!O(B") (?| "$(2!N(B")
|
|
125 (?W "$(2!P(B" (?a "$(2!P(B")
|
|
126 (?e "$(2!N#L(B") (?u "$(2!N#M(B") (?i "$(2!N#N(B") (?E "$(2!N#P(B") (?' "$(2!N#M(B")))
|
|
127 ;;; W
|
|
128 ("$(2#M(B" (?e "$(2#L(B") (?u "$(2#M(B") (?i "$(2#N(B") (?a "$(2#O(B") (?E "$(2#P(B"))
|
|
129 ;;; X
|
|
130 ("$(2#y(B" (?e "$(2#t(B") (?u "$(2#u(B") (?i "$(2#v(B") (?a "$(2#w(B") (?E "$(2#x(B") (?o "$(2#z(B") (?| "$(2#y(B"))
|
|
131 ;;; Y
|
|
132 ("$(2$)(B" (?e "$(2$$(B") (?u "$(2$%(B") (?i "$(2$&(B") (?a "$(2$'(B") (?E "$(2$((B") (?o "$(2$*(B") (?| "$(2$)(B"))
|
|
133 ;;; Z
|
|
134 ("$(2!~(B" (?e "$(2!y(B") (?u "$(2!z(B") (?i "$(2!{(B") (?a "$(2!|(B") (?E "$(2!}(B") (?o "$(2"!(B") (?| "$(2!~(B")
|
|
135 (?W "$(2""(B" (?a "$(2""(B")
|
|
136 (?e "$(2!~#L(B") (?u "$(2!~#M(B") (?i "$(2!~#N(B") (?E "$(2!~#P(B") (?' "$(2!~#M(B")))
|
|
137 ;;; [ \ ] ^ _
|
|
138 nil nil nil nil nil
|
|
139 ;;; `
|
|
140 ("`"
|
|
141 (?e "$(2#_(B") (?u "$(2#`(B") (?U "$(2#`(B") (?i "$(2#a(B") (?a "$(2#b(B") (?A "$(2#b(B")
|
|
142 (?E "$(2#c(B") (?I "$(2#d(B") (?o "$(2#e(B") (?O "$(2#e(B")
|
|
143 (?s "$(2#V(B"
|
|
144 (?e "$(2#Q(B") (?u "$(2#R(B") (?i "$(2#S(B") (?a "$(2#T(B") (?E "$(2#U(B") (?o "$(2#W(B") (?| "$(2#V(B")
|
|
145 (?W "$(2"J(B" (?a "$(2"J(B")
|
|
146 (?e "$(2#V#L(B") (?u "$(2#V#M(B") (?i "$(2#V#N(B") (?E "$(2#V#P(B") (?' "$(2#V#M(B")))
|
|
147 (?S "$(2#](B"
|
|
148 (?e "$(2#X(B") (?u "$(2#Y(B") (?i "$(2#Z(B") (?a "$(2#[(B") (?E "$(2#\(B") (?o "$(2#^(B") (?| "$(2#](B")
|
|
149 (?W "$(2"R(B" (?a "$(2"R(B")
|
|
150 (?e "$(2#]#L(B") (?u "$(2#]#M(B") (?i "$(2#]#N(B") (?E "$(2#]#P(B") (?' "$(2#]#M(B")))
|
|
151 (?h "$(2#k(B"
|
|
152 (?e "$(2#f(B") (?u "$(2#g(B") (?i "$(2#h(B") (?a "$(2#i(B") (?E "$(2#j(B") (?o "$(2#l(B") (?| "$(2#k(B")
|
|
153 (?W "$(2"c(B" (?e "$(2"b(B") (?u "$(2"c(B") (?i "$(2"d(B") (?a "$(2"e(B") (?E "$(2"f(B")))
|
|
154 (?k "$(2#r(B"
|
|
155 (?e "$(2#m(B") (?u "$(2#n(B") (?i "$(2#o(B") (?a "$(2#p(B") (?E "$(2#q(B") (?o "$(2#s(B") (?| "$(2#r(B")))
|
|
156 ;;; a
|
|
157 ("$(2"S(B" (?2 "$(2#b(B"))
|
|
158
|
|
159 ;;; b
|
|
160 ("$(2!F(B" (?e "$(2!A(B") (?u "$(2!B(B") (?i "$(2!C(B") (?a "$(2!D(B") (?E "$(2!E(B") (?o "$(2!G(B") (?| "$(2!F(B")
|
|
161 (?W "$(2!H(B" (?a "$(2!H(B")
|
|
162 (?e "$(2!F#L(B") (?u "$(2!F#M(B") (?i "$(2!F#N(B") (?E "$(2!F#P(B") (?' "$(2!F#M(B")))
|
|
163 ;;; c
|
|
164 ("$(2!^(B" (?e "$(2!Y(B") (?u "$(2!Z(B") (?i "$(2![(B") (?a "$(2!\(B") (?E "$(2!](B") (?o "$(2!_(B") (?| "$(2!^(B")
|
|
165 (?W "$(2!`(B" (?a "$(2!`(B")
|
|
166 (?e "$(2!^#L(B") (?u "$(2!^#M(B") (?i "$(2!^#N(B") (?E "$(2!^#P(B") (?' "$(2!^#M(B")))
|
|
167 ;;; d
|
|
168 ("$(2"((B" (?e "$(2"#(B") (?u "$(2"$(B") (?i "$(2"%(B") (?a "$(2"&(B") (?E "$(2"'(B") (?o "$(2")(B") (?| "$(2"((B")
|
|
169 (?W "$(2"*(B" (?a "$(2"*(B")
|
|
170 (?e "$(2"(#L(B") (?u "$(2"(#M(B") (?i "$(2"(#N(B") (?E "$(2"(#P(B") (?' "$(2"(#M(B")))
|
|
171 ;;; e
|
|
172 ("$(2"S(B" (?2 "$(2#_(B") (?3 "$(2"Z(B"))
|
|
173 ;;; f
|
|
174 ("$(2"@(B" (?e "$(2";(B") (?u "$(2"<(B") (?i "$(2"=(B") (?a "$(2">(B") (?E "$(2"?(B") (?o "$(2"A(B") (?| "$(2"@(B")
|
|
175 (?W "$(2"B(B" (?a "$(2"B(B")
|
|
176 (?e "$(2"@#L(B") (?u "$(2"@#M(B") (?i "$(2"@#N(B") (?E "$(2"@#P(B") (?' "$(2"@#M(B")))
|
|
177 ;;; g
|
|
178 ("$(2#>(B" (?e "$(2#9(B") (?u "$(2#:(B") (?i "$(2#;(B") (?a "$(2#<(B") (?E "$(2#=(B") (?o "$(2#?(B") (?| "$(2#>(B")
|
|
179 (?W "$(2#A(B" (?e "$(2#@(B") (?u "$(2#A(B") (?i "$(2#B(B") (?a "$(2#C(B") (?E "$(2#D(B")))
|
|
180 ;;; h
|
|
181 ("$(2"`(B" (?e "$(2"[(B") (?u "$(2"\(B") (?i "$(2"](B") (?a "$(2"^(B") (?E "$(2"_(B") (?o "$(2"a(B") (?| "$(2"`(B")
|
|
182 (?W "$(2"c(B" (?e "$(2"b(B") (?u "$(2"c(B") (?i "$(2"d(B") (?a "$(2"e(B") (?E "$(2"f(B"))
|
|
183 (?2 "$(2#k(B" (?e "$(2#f(B") (?u "$(2#g(B") (?i "$(2#h(B") (?a "$(2#i(B") (?E "$(2#j(B") (?o "$(2#l(B")
|
|
184 (?| "$(2#k(B")
|
|
185 (?W "$(2"c(B" (?e "$(2"b(B") (?u "$(2"c(B") (?i "$(2"d(B") (?a "$(2"e(B") (?E "$(2"f(B"))))
|
|
186 ;;; i
|
|
187 ("$(2"U(B" (?2 "$(2#a(B"))
|
|
188 ;;; j
|
|
189 ("$(2$7(B" (?e "$(2$2(B") (?u "$(2$3(B") (?i "$(2$4(B") (?a "$(2$5(B") (?E "$(2$6(B") (?o "$(2$8(B") (?| "$(2$7(B"))
|
|
190 ;;; k
|
|
191 ("$(2"l(B" (?e "$(2"g(B") (?u "$(2"h(B") (?i "$(2"i(B") (?a "$(2"j(B") (?E "$(2"k(B") (?o "$(2"m(B") (?| "$(2"l(B")
|
|
192 (?W "$(2"o(B" (?e "$(2"n(B") (?u "$(2"o(B") (?i "$(2"p(B") (?a "$(2"q(B") (?E "$(2"r(B"))
|
|
193 (?2 "$(2#r(B" (?e "$(2#m(B") (?u "$(2#n(B") (?i "$(2#o(B") (?a "$(2#p(B") (?E "$(2#q(B") (?o "$(2#s(B")
|
|
194 (?| "$(2#r(B")))
|
|
195 ;;; l
|
|
196 ("$(2!&(B" (?e "$(2!!(B") (?u "$(2!"(B") (?i "$(2!#(B") (?a "$(2!$(B") (?E "$(2!%(B") (?o "$(2!'(B") (?| "$(2!&(B")
|
|
197 (?W "$(2!((B" (?a "$(2!((B")
|
|
198 (?e "$(2!&#L(B") (?u "$(2!&#M(B") (?i "$(2!&#N(B") (?E "$(2!&#P(B") (?' "$(2!&#M(B")))
|
|
199 ;;; m
|
|
200 ("$(2!.(B" (?e "$(2!)(B") (?u "$(2!*(B") (?i "$(2!+(B") (?a "$(2!,(B") (?E "$(2!-(B") (?o "$(2!/(B") (?| "$(2!.(B")
|
|
201 (?W "$(2!0(B" (?a "$(2!0(B")
|
|
202 (?e "$(2!.#L(B") (?u "$(2!.#M(B") (?i "$(2!.#N(B") (?E "$(2!.#P(B") (?' "$(2!.#M(B")))
|
|
203 ;;; n
|
|
204 ("$(2!f(B" (?e "$(2!a(B") (?u "$(2!b(B") (?i "$(2!c(B") (?a "$(2!d(B") (?E "$(2!e(B") (?o "$(2!g(B") (?| "$(2!f(B")
|
|
205 (?W "$(2!h(B" (?a "$(2!h(B")
|
|
206 (?e "$(2!f#L(B") (?u "$(2!f#M(B") (?i "$(2!f#N(B") (?E "$(2!f#P(B") (?' "$(2!f#M(B")))
|
|
207 ;;; o
|
|
208 ("$(2"Y(B" (?2 "$(2#e(B"))
|
|
209 ;;; p
|
|
210 ("$(2$L(B" (?e "$(2$G(B") (?u "$(2$H(B") (?i "$(2$I(B") (?a "$(2$J(B") (?E "$(2$K(B") (?o "$(2$M(B") (?| "$(2$L(B"))
|
|
211 ;;; q
|
|
212 ("$(2#&(B" (?e "$(2#!(B") (?u "$(2#"(B") (?i "$(2##(B") (?a "$(2#$(B") (?E "$(2#%(B") (?o "$(2#'(B") (?| "$(2#&(B")
|
|
213 (?W "$(2#)(B" (?e "$(2#((B") (?u "$(2#)(B") (?i "$(2#*(B") (?a "$(2#+(B") (?E "$(2#,(B")))
|
|
214 ;;; r
|
|
215 ("$(2!6(B" (?e "$(2!1(B") (?u "$(2!2(B") (?i "$(2!3(B") (?a "$(2!4(B") (?E "$(2!5(B") (?o "$(2!7(B") (?| "$(2!6(B")
|
|
216 (?W "$(2!8(B" (?a "$(2!8(B")
|
|
217 (?e "$(2!6#L(B") (?u "$(2!6#M(B") (?i "$(2!6#N(B") (?E "$(2!6#P(B") (?' "$(2!6#M(B")))
|
|
218 ;;; s
|
|
219 ("$(2"H(B" (?e "$(2"C(B") (?u "$(2"D(B") (?i "$(2"E(B") (?a "$(2"F(B") (?E "$(2"G(B") (?o "$(2"I(B") (?| "$(2"H(B")
|
|
220 (?W "$(2"J(B" (?a "$(2"J(B")
|
|
221 (?e "$(2"H#L(B") (?u "$(2"H#M(B") (?i "$(2"H#N(B") (?E "$(2"H#P(B") (?' "$(2"H#M(B"))
|
|
222 (?2 "$(2#V(B" (?e "$(2#Q(B") (?u "$(2#R(B") (?i "$(2#S(B") (?a "$(2#T(B") (?E "$(2#U(B") (?o "$(2#W(B")
|
|
223 (?| "$(2#V(B")
|
|
224 (?W "$(2"J(B" (?a "$(2"J(B")
|
|
225 (?e "$(2#V#L(B") (?u "$(2#V#M(B") (?i "$(2#V#N(B") (?E "$(2#V#P(B")
|
|
226 (?' "$(2#V#M(B"))))
|
|
227 ;;; t
|
|
228 ("$(2!V(B" (?e "$(2!Q(B") (?u "$(2!R(B") (?i "$(2!S(B") (?a "$(2!T(B") (?E "$(2!U(B") (?o "$(2!W(B") (?| "$(2!V(B")
|
|
229 (?W "$(2!X(B" (?a "$(2!X(B")
|
|
230 (?e "$(2!V#L(B") (?u "$(2!V#M(B") (?i "$(2!V#N(B") (?E "$(2!V#P(B") (?' "$(2!V#M(B")))
|
|
231 ;;; u
|
|
232 ("$(2"T(B" (?2 "$(2#`(B"))
|
|
233 ;;; v
|
|
234 ("$(2!N(B" (?e "$(2!I(B") (?u "$(2!J(B") (?i "$(2!K(B") (?a "$(2!L(B") (?E "$(2!M(B") (?o "$(2!O(B") (?| "$(2!N(B")
|
|
235 (?W "$(2!P(B" (?a "$(2!P(B")
|
|
236 (?e "$(2!N#L(B") (?u "$(2!N#M(B") (?i "$(2!N#N(B") (?E "$(2!N#P(B") (?' "$(2!N#M(B")))
|
|
237 ;;; w
|
|
238 ("$(2#J(B" (?e "$(2#E(B") (?u "$(2#F(B") (?i "$(2#G(B") (?a "$(2#H(B") (?E "$(2#I(B") (?o "$(2#K(B") (?| "$(2#J(B")
|
|
239 (?W "$(2#M(B" (?e "$(2#L(B") (?u "$(2#M(B") (?i "$(2#N(B") (?a "$(2#O(B") (?E "$(2#P(B")))
|
|
240 ;;; x
|
|
241 ("$(2!>(B" (?e "$(2!9(B") (?u "$(2!:(B") (?i "$(2!;(B") (?a "$(2!<(B") (?E "$(2!=(B") (?o "$(2!?(B") (?| "$(2!>(B")
|
|
242 (?W "$(2!@(B" (?a "$(2!@(B")
|
|
243 (?e "$(2!>#L(B") (?u "$(2!>#M(B") (?i "$(2!>#N(B") (?E "$(2!>#P(B") (?' "$(2!>#M(B")))
|
|
244 ;;; y
|
|
245 ("$(2$)(B" (?e "$(2$$(B") (?u "$(2$%(B") (?i "$(2$&(B") (?a "$(2$'(B") (?E "$(2$((B") (?o "$(2$*(B") (?| "$(2$)(B"))
|
|
246 ;;; z
|
|
247 ("$(2!v(B" (?e "$(2!q(B") (?u "$(2!r(B") (?i "$(2!s(B") (?a "$(2!t(B") (?E "$(2!u(B") (?o "$(2!w(B") (?| "$(2!v(B")
|
|
248 (?W "$(2!x(B" (?a "$(2!x(B")
|
|
249 (?e "$(2!v#L(B") (?u "$(2!v#M(B") (?i "$(2!v#N(B") (?E "$(2!v#P(B") (?' "$(2!v#M(B")))
|
|
250 ])
|
|
251
|
|
252 ;;;###autoload
|
|
253 (defun sera-to-fidel-region (beg end &optional ascii-mode force)
|
|
254 "Translates the characters in region from SERA to FIDEL.
|
|
255
|
|
256 If the 1st optional parameter ASCII-MODE is non-NIL, assumes that the
|
|
257 region begins in ASCII script.
|
|
258
|
|
259 If the 2nd optional parametr FORCE is non-NIL, translates even if the
|
|
260 buffer is read-only."
|
|
261
|
|
262 (interactive "r\nP")
|
|
263 (save-excursion
|
|
264 (save-restriction
|
|
265 (narrow-to-region beg end)
|
|
266 (sera-to-fidel-buffer ascii-mode force))))
|
|
267
|
|
268 ;;;###autoload
|
|
269 (defun sera-to-fidel-buffer (&optional ascii-mode force)
|
|
270 "Translates the current buffer from SERA to FIDEL.
|
|
271
|
|
272 If the 1st optional parameter ASCII-MODE is non-NIL, assumes that the
|
|
273 current buffer begins in ASCII script.
|
|
274
|
|
275 If the 2nd optional panametr FORCE is non-NIL, translates even if the
|
|
276 buffer is read-only."
|
|
277
|
|
278 (interactive "P")
|
|
279 (if (and buffer-read-only
|
|
280 (not force)
|
|
281 (not (y-or-n-p "Buffer is read-only. Force to convert? ")))
|
|
282 (error ""))
|
|
283 (let (start pre fol hard table table2 (buffer-read-only nil))
|
|
284 (goto-char (point-min))
|
|
285 (while (not (eobp))
|
|
286 (setq start (point))
|
|
287 (forward-char 1)
|
|
288 (setq pre (preceding-char)
|
|
289 fol (following-char))
|
|
290
|
|
291 (if ascii-mode
|
|
292 (cond
|
|
293
|
|
294 ;; ascii mode, pre != \
|
|
295 ((/= pre ?\\ ))
|
|
296
|
|
297 ;; ascii mode, pre = \, fol = !
|
|
298 ((= fol ?!)
|
|
299 (backward-delete-char 1)
|
|
300 (delete-char 1)
|
|
301 (setq ascii-mode nil
|
|
302 hard (not hard)))
|
|
303
|
|
304 ;; hard ascii mode, pre = \, fol != !
|
|
305 (hard)
|
|
306
|
|
307 ;; soft ascii mode, pre = \, fol = {\ _ * < > 0..9 ~}
|
|
308 ((or (backward-delete-char 1) ; always nil
|
|
309 (eobp)
|
|
310 (sera-to-fidel-backslash)))
|
|
311
|
|
312 ;; soft ascii mode, pre = \, fol = SPC
|
|
313 ((= fol 32)
|
|
314 (delete-char 1)
|
|
315 (setq ascii-mode nil))
|
|
316
|
|
317 ;; soft ascii mode, pre = \, fol = .
|
|
318 ((= fol ?.)
|
|
319 (delete-char 1)
|
|
320 (insert ?$(2$P(B))
|
|
321
|
|
322 ;; soft ascii mode, pre = \, fol = ,
|
|
323 ((= fol ?,)
|
|
324 (delete-char 1)
|
|
325 (insert ?$(2$Q(B))
|
|
326
|
|
327 ;; soft ascii mode, pre = \, fol = ;
|
|
328 ((= fol ?\;)
|
|
329 (delete-char 1)
|
|
330 (insert ?$(2$R(B))
|
|
331
|
|
332 ;; soft ascii mode, pre = \, fol = :
|
|
333 ((= fol ?:)
|
|
334 (delete-char 1)
|
|
335 (insert ?$(2$S(B))
|
|
336
|
|
337 ;; soft ascii mode, pre = \, fol = others
|
|
338 (t
|
|
339 (setq ascii-mode nil)))
|
|
340
|
|
341 (cond
|
|
342
|
|
343 ;; very special: skip "<" to ">" (or "&" to ";") if in w3-mode
|
|
344 ((and (boundp 'sera-being-called-by-w3)
|
|
345 sera-being-called-by-w3
|
|
346 (or (= pre ?<) (= pre ?&)))
|
|
347 (search-forward (if (= pre ?<) ">" ";")
|
|
348 nil 0))
|
|
349
|
|
350 ;; ethio mode, pre != sera
|
|
351 ((or (< pre ?') (> pre ?z)))
|
|
352
|
|
353 ;; ethio mode, pre != \
|
|
354 ((/= pre ?\\ )
|
|
355 (setq table (aref sera-to-fidel-table pre))
|
|
356 (while (setq table2 (cdr (assoc (following-char) table)))
|
|
357 (setq table table2)
|
|
358 (forward-char 1))
|
|
359 (if (car table)
|
|
360 (progn
|
|
361 (delete-region start (point))
|
|
362 (insert (car table)))))
|
|
363
|
|
364 ;; ethio mode, pre = \, fol = !
|
|
365 ((= fol ?!)
|
|
366 (backward-delete-char 1)
|
|
367 (delete-char 1)
|
|
368 (setq ascii-mode t
|
|
369 hard (not hard)))
|
|
370
|
|
371 ;; hard ethio mode, pre = \, fol != !
|
|
372 (hard)
|
|
373
|
|
374 ;; soft ethio mode, pre = \, fol = {\ _ * < > 0..9 ~}
|
|
375 ((or (backward-delete-char 1) ; always nil
|
|
376 (eobp)
|
|
377 (sera-to-fidel-backslash)))
|
|
378
|
|
379 ;; soft ethio mode, pre = \, fol = SPC
|
|
380 ((= fol 32)
|
|
381 (delete-char 1)
|
|
382 (setq ascii-mode t))
|
|
383
|
|
384 ;; soft ethio mode, pre = \, fol = {. , ; : | ' `}
|
|
385 ((memq fol '(?. ?, ?\; ?: ?| ?' ?`))
|
|
386 (forward-char 1))
|
|
387
|
|
388 ;; soft ethio mode, pre = \, fol = others
|
|
389 (t
|
|
390 (setq ascii-mode t))))))
|
|
391 (goto-char (point-min)))
|
|
392
|
|
393 (defun sera-to-fidel-backslash ()
|
|
394 "Handle SERA backslash escapes common to ethio- and ascii-mode.
|
|
395 Returns t if something has been processed."
|
|
396 (let ((ch (following-char))
|
|
397 (converted t))
|
|
398 (if (and (>= ch ?1) (<= ch ?9))
|
|
399 (ethio-convert-digit)
|
|
400 (delete-char 1)
|
|
401 (cond
|
|
402 ((= ch ?\\ )
|
|
403 (insert ?\\ ))
|
|
404 ((= ch ?_)
|
|
405 (insert ?$(2$O(B))
|
|
406 ((= ch ?*)
|
|
407 (insert ?$(2$T(B))
|
|
408 ((= ch ?<)
|
|
409 (insert ?$(2$U(B))
|
|
410 ((= ch ?>)
|
|
411 (insert ?$(2$V(B))
|
|
412 ((= ch ?~)
|
|
413 (setq ch (following-char))
|
|
414 (delete-char 1)
|
|
415 (cond
|
|
416 ((= ch ?e)
|
|
417 (insert "$(2$k(B"))
|
|
418 ((= ch ?E)
|
|
419 (insert "$(2$l(B"))
|
|
420 ((= ch ?a)
|
|
421 (insert "$(2$m(B"))
|
|
422 ((= ch ?A)
|
|
423 (insert "$(2$n(B"))))
|
|
424 (t
|
|
425 (insert ch)
|
|
426 (backward-char 1)
|
|
427 (setq converted nil))))
|
|
428 converted))
|
|
429
|
|
430 (defun ethio-convert-digit ()
|
|
431 "Convert Arabic digits to Ethiopic digits."
|
|
432 (let (ch z)
|
|
433 (while (and (>= (setq ch (following-char)) ?1)
|
|
434 (<= ch ?9))
|
|
435 (delete-char 1)
|
|
436
|
|
437 ;; count up following zeros
|
|
438 (setq z 0)
|
|
439 (while (= (following-char) ?0)
|
|
440 (delete-char 1)
|
|
441 (setq z (1+ z)))
|
|
442
|
|
443 (cond
|
|
444
|
|
445 ;; first digit is 10, 20, ..., or 90
|
|
446 ((= (mod z 2) 1)
|
|
447 ;; (- ch 40) means ?1 -> 9, ?2 -> 10, etc.
|
|
448 (insert (aref [?$(2$`(B ?$(2$a(B ?$(2$b(B ?$(2$c(B ?$(2$d(B ?$(2$e(B ?$(2$f(B ?$(2$g(B ?$(2$h(B] (- ch ?1)))
|
|
449 (setq z (1- z)))
|
|
450
|
|
451 ;; first digit is 2, 3, ..., or 9
|
|
452 ((/= ch ?1)
|
|
453 (insert (aref [?$(2$X(B ?$(2$Y(B ?$(2$Z(B ?$(2$[(B ?$(2$\(B ?$(2$](B ?$(2$^(B ?$(2$_(B] (- ch ?2))))
|
|
454
|
|
455 ;; single 1
|
|
456 ((= z 0)
|
|
457 (insert "$(2$W(B")))
|
|
458
|
|
459 ;; 100
|
|
460 (if (= (mod z 4) 2)
|
|
461 (insert"$(2$i(B"))
|
|
462
|
|
463 ;; 10000
|
|
464 (insert-char ?$(2$j(B (/ z 4)))))
|
|
465
|
|
466 ;;;###autoload
|
|
467 (defun sera-to-fidel-mail (&optional arg)
|
|
468 "Does SERA to FIDEL conversion for reading/writing mail and news.
|
|
469
|
|
470 If the buffer contains the markers \"<sera>\" and \"</sera>\",
|
|
471 converts the segment between the two markers in Ethio start mode and
|
|
472 the subject field in ASCII start mode.
|
|
473
|
|
474 If invoked interactively and there is no marker, converts both the
|
|
475 whole body and the subject field in Ethio start mode.
|
|
476
|
|
477 For backward compatibility, \"<ethiopic>\" and \"<>\" can be used instead of
|
|
478 \"<sera>\" and \"</sera>\"."
|
|
479
|
|
480 (interactive "p")
|
|
481 (let* ((buffer-read-only nil) border)
|
|
482
|
|
483 (save-excursion
|
|
484 (goto-char (point-min))
|
|
485 (setq border
|
|
486 (search-forward
|
|
487 (if (eq major-mode 'rmail-mode)
|
|
488 "\n\n"
|
|
489 (concat "\n" mail-header-separator "\n"))))
|
|
490
|
|
491 (cond
|
|
492
|
|
493 ;; with markers
|
|
494 ((re-search-forward "^<sera>\n" nil t)
|
|
495 (goto-char (match-beginning 0))
|
|
496 (while (re-search-forward "^<sera>\n" nil t)
|
|
497 (replace-match "" nil t)
|
|
498 (sera-to-fidel-region
|
|
499 (point)
|
|
500 (progn
|
|
501 (if (re-search-forward "^</sera>\n" nil 0)
|
|
502 (replace-match "" nil t))
|
|
503 (point))))
|
|
504
|
|
505 (goto-char (point-min))
|
|
506 (if (re-search-forward "^Subject: " border t)
|
|
507 (sera-to-fidel-region
|
|
508 (point)
|
|
509 (progn (end-of-line) (point))
|
|
510 'ascii-start)))
|
|
511
|
|
512 ;; backward compatibility
|
|
513 ((re-search-forward "^<ethiopic>\n" nil t)
|
|
514 (goto-char (match-beginning 0))
|
|
515 (while (re-search-forward "^<ethiopic>\n" nil t)
|
|
516 (replace-match "" nil t)
|
|
517 (sera-to-fidel-region
|
|
518 (setq border (point))
|
|
519 (progn
|
|
520 (if (re-search-forward "^<>\n" nil 0)
|
|
521 (replace-match "" nil t))
|
|
522 (point))))
|
|
523
|
|
524 (goto-char (point-min))
|
|
525 (if (re-search-forward "^Subject: " border t)
|
|
526 (sera-to-fidel-region
|
|
527 (point)
|
|
528 (progn (end-of-line) (point))
|
|
529 'ascii-start)))
|
|
530
|
|
531 ;; interactive & no markers
|
|
532 (arg
|
|
533 (sera-to-fidel-region border (point-max))
|
|
534 (goto-char (point-min))
|
|
535 (if (re-search-forward "^Subject: " border t)
|
|
536 (sera-to-fidel-region
|
|
537 (point)
|
|
538 (progn (end-of-line) (point))))))
|
|
539
|
|
540 ;; adjust the rmail marker
|
|
541 (if (eq major-mode 'rmail-mode)
|
|
542 (set-marker
|
|
543 (aref rmail-message-vector (1+ rmail-current-message))
|
|
544 (point-max))))))
|
|
545
|
|
546 ;;;###autoload
|
|
547 (defun sera-to-fidel-marker ()
|
|
548 "If the buffer contains the markers \"<sera>\" and \"</sera>\",
|
|
549 converts the segment between the two markers from SERA to Fidel
|
|
550 in Ethio start mode. The markers will not be removed."
|
|
551
|
|
552 (interactive)
|
|
553 (if (and buffer-read-only
|
|
554 (not (y-or-n-p "Buffer is read-only. Force to convert? ")))
|
|
555 (error ""))
|
|
556 (save-excursion
|
|
557 (goto-char (point-min))
|
|
558 (while (re-search-forward "<sera>" nil t)
|
|
559 (sera-to-fidel-region
|
|
560 (point)
|
|
561 (if (re-search-forward "</sera>" nil t)
|
|
562 (match-beginning 0)
|
|
563 (point-max))
|
|
564 nil
|
|
565 'force))))
|
|
566
|
|
567 ;;
|
|
568 ;; FIDEL to SERA
|
|
569 ;;
|
|
570
|
|
571 (defconst fidel-to-sera-map
|
|
572 ["le" "lu" "li" "la" "lE" "l" "lo" "lWa"
|
|
573 "me" "mu" "mi" "ma" "mE" "m" "mo" "mWa"
|
|
574 "re" "ru" "ri" "ra" "rE" "r" "ro" "rWa"
|
|
575 "xe" "xu" "xi" "xa" "xE" "x" "xo" "xWa"
|
|
576 "be" "bu" "bi" "ba" "bE" "b" "bo" "bWa"
|
|
577 "ve" "vu" "vi" "va" "vE" "v" "vo" "vWa"
|
|
578 "te" "tu" "ti" "ta" "tE" "t" "to" "tWa"
|
|
579 "ce" "cu" "ci" "ca" "cE" "c" "co" "cWa"
|
|
580 "ne" "nu" "ni" "na" "nE" "n" "no" "nWa"
|
|
581 "Ne" "Nu" "Ni" "Na" "NE" "N" "No" "NWa"
|
|
582 "ze" "zu" "zi" "za" "zE" "z" "zo" "zWa"
|
|
583 "Ze" "Zu" "Zi" "Za" "ZE" "Z" "Zo" "ZWa"
|
|
584 "de" "du" "di" "da" "dE" "d" "do" "dWa"
|
|
585 "Te" "Tu" "Ti" "Ta" "TE" "T" "To" "TWa"
|
|
586 "Ce" "Cu" "Ci" "Ca" "CE" "C" "Co" "CWa"
|
|
587 "fe" "fu" "fi" "fa" "fE" "f" "fo" "fWa"
|
|
588 "se" "su" "si" "sa" "sE" "s" "so" "sWa"
|
|
589 "Se" "Su" "Si" "Sa" "SE" "S" "So" "SWa"
|
|
590 "a" "u" "i" "A" "E" "I" "o" "e3"
|
|
591 "he" "hu" "hi" "ha" "hE" "h" "ho" "hWe" "hWu" "hWi" "hWa" "hWE"
|
|
592 "ke" "ku" "ki" "ka" "kE" "k" "ko" "kWe" "kWu" "kWi" "kWa" "kWE"
|
|
593 "Ke" "Ku" "Ki" "Ka" "KE" "K" "Ko" "KWe" "KWu" "KWi" "KWa" "KWE"
|
|
594 "qe" "qu" "qi" "qa" "qE" "q" "qo" "qWe" "qWu" "qWi" "qWa" "qWE"
|
|
595 "Qe" "Qu" "Qi" "Qa" "QE" "Q" "Qo" "QWe" "QWu" "QWi" "QWa" "QWE"
|
|
596 "ge" "gu" "gi" "ga" "gE" "g" "go" "gWe" "gWu" "gWi" "gWa" "gWE"
|
|
597 "we" "wu" "wi" "wa" "wE" "w" "wo" "wWe" "wWu" "wWi" "wWa" "wWE"
|
|
598 "`se" "`su" "`si" "`sa" "`sE" "`s" "`so"
|
|
599 "`Se" "`Su" "`Si" "`Sa" "`SE" "`S" "`So"
|
|
600 "`e" "`u" "`i" "`a" "`E" "`I" "`o"
|
|
601 "`he" "`hu" "`hi" "`ha" "`hE" "`h" "`ho"
|
|
602 "`ke" "`ku" "`ki" "`ka" "`kE" "`k" "`ko"
|
|
603 "Xe" "Xu" "Xi" "Xa" "XE" "X" "Xo"
|
|
604 "He" "Hu" "Hi" "Ha" "HE" "H" "Ho"
|
|
605 "ye" "yu" "yi" "ya" "yE" "y" "yo"
|
|
606 "De" "Du" "Di" "Da" "DE" "D" "Do"
|
|
607 "je" "ju" "ji" "ja" "jE" "j" "jo"
|
|
608 "Ge" "Gu" "Gi" "Ga" "GE" "G" "Go"
|
|
609 "Pe" "Pu" "Pi" "Pa" "PE" "P" "Po"
|
|
610 "pe" "pu" "pi" "pa" "pE" "p" "po"
|
|
611 " " "\\_" "." "," ";" ":" "\\*" "\\<" "\\>"
|
|
612 "1" "2" "3" "4" "5" "6" "7" "8" "9"
|
|
613 "10" "20" "30" "40" "50" "60" "70" "80" "90"
|
|
614 "100" "10000"
|
|
615 "\\~e" "\\~E" "\\~a" "\\~A"])
|
|
616
|
|
617 (defvar ethio-use-tigrigna-style nil
|
|
618 "*If non-NIL, use \"e\" instead of \"a\" for the first lone vowel
|
|
619 translation in sera-to-fidel and fidel-to-sera conversions.")
|
|
620
|
|
621 (defvar ethio-quote-vowel-always nil
|
|
622 "*If non-NIL, lone vowels are always transcribed by \"an apostrophe
|
|
623 + the vowel\" except at word initial. Otherwise, they are quoted by
|
|
624 an apostrophe only if the preceding Ethiopic character is a lone
|
|
625 consonant.")
|
|
626
|
|
627 (defvar ethio-W-sixth-always nil
|
|
628 "*If non-NIL, the Wu-form of a 12-form consonant is transcribed by
|
|
629 \"W'\" instead of \"Wu\".")
|
|
630
|
|
631 (defvar ethio-numeric-reduction 0
|
|
632 "*Degree of reduction in transcribing Ethiopic digits by Arabic
|
|
633 digits. For example, $(2$`$_$i$g$](B ({10}{9}{100}{80}{7}) will be
|
|
634 transcribed by:
|
|
635 \10\9\100\80\7 if ETHIO-NUMERIC-REDUCTION is 0,
|
|
636 \109100807 is 1,
|
|
637 \10900807 is 2.")
|
|
638
|
|
639 ;;;###autoload
|
|
640 (defun fidel-to-sera-region (begin end &optional ascii-mode force)
|
|
641 "Replaces all the FIDEL characters in the region to sera format.
|
|
642
|
|
643 If the 1st optional parameter ASCII-MODE is non-NIL, converts the
|
|
644 region so that it begins in ASCII script.
|
|
645
|
|
646 If the 2nd optional parameter FORCE is non-NIL, converts even if the
|
|
647 buffer is read-only."
|
|
648
|
|
649 (interactive "r\nP")
|
|
650 (save-excursion
|
|
651 (save-restriction
|
|
652 (narrow-to-region begin end)
|
|
653 (fidel-to-sera-buffer ascii-mode force))))
|
|
654
|
|
655 ;;;###autoload
|
|
656 (defun fidel-to-sera-buffer (&optional ascii-mode force)
|
|
657 "Replace all the FIDEL characters in the current buffer to sera format.
|
|
658
|
|
659 If the 1st optional parameter ASCII-MODE is non-NIL,
|
|
660 convert the current buffer so that it begins in ASCII script.
|
|
661
|
|
662 If the 2nd optional parameter FORCE is non-NIL, converts even if the
|
|
663 buffer is read-only.
|
|
664
|
|
665 See also the description of the variables ethio-use-tigrigna-style,
|
|
666 ethio-quote-vowel-on-demand and ethio-numeric-reduction."
|
|
667
|
|
668 (interactive "P")
|
|
669 (if (and buffer-read-only
|
|
670 (not force)
|
|
671 (not (y-or-n-p "Buffer is read-only. Force to convert? ")))
|
|
672 (error ""))
|
|
673
|
|
674 ;; user's preference in transcription
|
|
675 (aset fidel-to-sera-map 144 (if ethio-use-tigrigna-style "e" "a"))
|
|
676 (let ((i 160)
|
|
677 (x (if ethio-W-sixth-always
|
|
678 '("hW'" "kW'" "KW'" "qW'" "QW'" "gW'" "wW'")
|
|
679 '("hWu" "kWu" "KWu" "qWu" "QWu" "gWu" "wWu"))))
|
|
680 (while x
|
|
681 (aset fidel-to-sera-map i (car x))
|
|
682 (setq i (+ i 12)
|
|
683 x (cdr x))))
|
|
684
|
|
685 ;; main conversion routine
|
|
686 (let ((lonec nil) ; if lonec = t, previous char was a lone consonant.
|
|
687 (fidel nil) ; if fidel = t, previous char was a fidel.
|
|
688 (digit nil) ; if digit = t, previous char was an Ethiopic digit.
|
|
689 (buffer-read-only nil)
|
|
690 ch)
|
|
691 (goto-char (point-min))
|
|
692 (while (not (eobp))
|
|
693 (setq ch (following-char))
|
|
694
|
|
695 ;; ethiopic charactes
|
|
696 (if (eq (char-charset ch) 'ethiopic)
|
|
697 (progn
|
|
698 (setq ch (char-to-ethiocode ch))
|
|
699 (delete-char 1)
|
|
700
|
|
701 (cond
|
|
702
|
|
703 ;; fidels
|
|
704 ((<= ch 326)
|
|
705 (if ascii-mode
|
|
706 (insert "\\ "))
|
|
707 (if (and (memq ch '(144 145 146 147 148 150 151)) ; (auiAEoe3)
|
|
708 (or lonec
|
|
709 (and ethio-quote-vowel-always
|
|
710 fidel)))
|
|
711 (insert "'"))
|
|
712 (insert (aref fidel-to-sera-map ch))
|
|
713 (setq ascii-mode nil
|
|
714 lonec (ethio-lone-consonant-p ch)
|
|
715 fidel t
|
|
716 digit nil))
|
|
717
|
|
718 ;; punctuations and symbols
|
|
719 ((or (< ch 336) (> ch 355))
|
|
720 (if (and ascii-mode
|
|
721 (memq ch '(329 330 331 332))) ; (.,;:)
|
|
722 (insert "\\"))
|
|
723 (insert (aref fidel-to-sera-map ch))
|
|
724 (setq lonec nil
|
|
725 fidel nil
|
|
726 digit nil))
|
|
727
|
|
728 ;; now CH must be an ethiopic digit
|
|
729
|
|
730 ;; reduction = 0 or leading digit
|
|
731 ((or (= ethio-numeric-reduction 0)
|
|
732 (not digit))
|
|
733 (insert "\\" (aref fidel-to-sera-map ch))
|
|
734 (setq lonec nil
|
|
735 fidel nil
|
|
736 digit t))
|
|
737
|
|
738 ;; reduction = 2 and following 10s, 100s, 10000s
|
|
739 ((and (= ethio-numeric-reduction 2)
|
|
740 (memq ch '(345 354 355)))
|
|
741 (insert (substring (aref fidel-to-sera-map ch) 1))
|
|
742 (setq lonec nil
|
|
743 fidel nil
|
|
744 digit t))
|
|
745
|
|
746 ;; ordinary following digits
|
|
747 (t
|
|
748 (insert (aref fidel-to-sera-map ch))
|
|
749 (setq lonec nil
|
|
750 fidel nil
|
|
751 digit t))))
|
|
752
|
|
753 ;; non-ethiopic characters
|
|
754 (cond
|
|
755
|
|
756 ;; backslash is always quoted
|
|
757 ((= ch ?\\ )
|
|
758 (insert "\\"))
|
|
759
|
|
760 ;; nothing to do if in ascii-mode
|
|
761 (ascii-mode)
|
|
762
|
|
763 ;; ethio-mode -> ascii-mode
|
|
764 ((or (and (>= ch ?a) (<= ch ?z))
|
|
765 (and (>= ch ?A) (<= ch ?Z))
|
|
766 (memq ch '(?| ?' ?`)))
|
|
767 (insert "\\ ")
|
|
768 (setq ascii-mode t))
|
|
769
|
|
770 ;; ascii punctuations in ethio-mode
|
|
771 ((memq ch '(?. ?, ?\; ?:))
|
|
772 (insert "\\")))
|
|
773
|
|
774 (forward-char 1)
|
|
775 (setq lonec nil
|
|
776 fidel nil
|
|
777 digit nil)))
|
|
778
|
|
779 ;; a few modifications for readability
|
|
780 (goto-char (point-min))
|
|
781 (while (re-search-forward "\\([]!\"#$%&()*+/<=>?@[^_-]+\\)\\\\ " nil t)
|
|
782 (replace-match "\\\\ \\1"))
|
|
783
|
|
784 (goto-char (point-min))
|
|
785 (while (re-search-forward "\n\\([ \t]*\\)\\\\ " nil t)
|
|
786 (replace-match "\\\\\n\\1")))
|
|
787
|
|
788 (goto-char (point-min)))
|
|
789
|
|
790 (defun ethio-lone-consonant-p (code)
|
|
791 "If the ethiocode CODE is an Ethiopic lone consonant, return t."
|
|
792 (cond
|
|
793 ((< code 144)
|
|
794 (= (mod code 8) 5))
|
|
795 ((< code 153)
|
|
796 nil)
|
|
797 ((< code 236)
|
|
798 (= (mod code 12) 1))
|
|
799 ((< code 327)
|
|
800 (= (mod code 7) 3))))
|
|
801
|
|
802 ;;;###autoload
|
|
803 (defun fidel-to-sera-mail ()
|
|
804 "Does FIDEL to SERA conversion for reading/writing mail and news.
|
|
805
|
|
806 If the buffer contains at least one Ethiopic character,
|
|
807 1) inserts the string \"<sera>\" right after the header-body separator,
|
|
808 2) inserts \"</sera>\" at the end of the buffer,
|
|
809 3) converts the body into SERA in Ethiopic start mode, and
|
|
810 4) converts the subject field in ASCII start mode."
|
|
811
|
|
812 (interactive)
|
|
813 (save-excursion
|
|
814 (goto-char (point-min))
|
|
815 (if (re-search-forward "\\cE" nil t)
|
|
816 (let ((buffer-read-only nil) border)
|
|
817
|
|
818 (goto-char (point-min))
|
|
819 (setq border
|
|
820 (search-forward
|
|
821 (if (eq major-mode 'rmail-mode)
|
|
822 "\n\n"
|
|
823 (concat "\n" mail-header-separator "\n"))))
|
|
824 (insert "<sera>\n")
|
|
825
|
|
826 (fidel-to-sera-region (point) (point-max))
|
|
827
|
|
828 (goto-char (point-max))
|
|
829 (if (/= (preceding-char) ?\n)
|
|
830 (insert "\n"))
|
|
831 (insert "</sera>\n")
|
|
832
|
|
833 (goto-char (point-min))
|
|
834 (if (re-search-forward "^Subject: " border t)
|
|
835 (fidel-to-sera-region
|
|
836 (point)
|
|
837 (progn (end-of-line) (point))
|
|
838 'ascii-start))
|
|
839
|
|
840 ;; adjust the rmail marker
|
|
841 (if (eq major-mode 'rmail-mode)
|
|
842 (set-marker
|
|
843 (aref rmail-message-vector (1+ rmail-current-message))
|
|
844 (point-max))))
|
|
845
|
|
846 (message "No Ethiopic characters in this buffer."))))
|
|
847
|
|
848 ;;;###autoload
|
|
849 (defun fidel-to-sera-marker ()
|
|
850 "If the buffer contains the markers \"<sera>\" and \"</sera>\",
|
|
851 converts the segment between the two markers from Fidel to SERA
|
|
852 in Ethio start mode. The markers will not be removed."
|
|
853
|
|
854 (interactive)
|
|
855 (if (and buffer-read-only
|
|
856 (not (y-or-n-p "Buffer is read-only. Force to convert? ")))
|
|
857 (error ""))
|
|
858 (save-excursion
|
|
859 (goto-char (point-min))
|
|
860 (while (re-search-forward "^<sera>\n" nil t)
|
|
861 (fidel-to-sera-region
|
|
862 (point)
|
|
863 (if (re-search-forward "^</sera>\n" nil t)
|
|
864 (match-beginning 0)
|
|
865 (point-max))
|
|
866 nil
|
|
867 'force))))
|
|
868
|
|
869 ;;
|
|
870 ;; file I/O hooks
|
|
871 ;;
|
|
872
|
|
873 (if (not (assoc "\\.sera$" auto-mode-alist))
|
|
874 (setq auto-mode-alist
|
|
875 (cons '("\\.sera$" . sera-to-fidel-find-file) auto-mode-alist)))
|
|
876 (add-hook 'write-file-hooks 'fidel-to-sera-write-file)
|
|
877 (add-hook 'after-save-hook 'sera-to-fidel-after-save)
|
|
878
|
|
879 ;;;###autoload
|
|
880 (defun sera-to-fidel-find-file ()
|
|
881 "Intended to be called when a file whose name ends in \".sera\" is read in."
|
|
882 (sera-to-fidel-buffer nil 'force)
|
|
883 (set-buffer-modified-p nil)
|
|
884 nil)
|
|
885
|
|
886 ;;;###autoload
|
|
887 (defun fidel-to-sera-write-file ()
|
|
888 "Intended to be used as write-file-hooks for the files
|
|
889 whose name ends in \".sera\"."
|
|
890 (if (string-match "\\.sera$" (buffer-file-name))
|
|
891 (save-excursion
|
|
892 (fidel-to-sera-buffer nil 'force)
|
|
893 (set-buffer-modified-p nil)))
|
|
894 nil)
|
|
895
|
|
896 ;;;###autoload
|
|
897 (defun sera-to-fidel-after-save ()
|
|
898 "Intended to be used as after-save-hook for the files
|
|
899 whose name ends in \".sera\"."
|
|
900 (if (string-match "\\.sera$" (buffer-file-name))
|
|
901 (save-excursion
|
|
902 (sera-to-fidel-buffer nil 'force)
|
|
903 (set-buffer-modified-p nil)))
|
|
904 nil)
|
|
905
|
|
906 ;;
|
|
907 ;; vowel modification
|
|
908 ;;
|
|
909
|
|
910 ;;;###autoload
|
|
911 (defun ethio-modify-vowel ()
|
|
912 "Modify the vowel of the FIDEL that is under the cursor."
|
|
913 (interactive)
|
|
914 (let ((ch (following-char)) newch base vowel)
|
|
915 (if (eq (char-charset ch) 'ethiopic)
|
|
916 (setq ch (char-to-ethiocode ch))
|
|
917 (error "Not a valid character."))
|
|
918 (if (or (and (>= ch 144) (<= ch 151)) ; lone vowels
|
|
919 (and (>= ch 250) (<= ch 256)) ; secondary lone vowels
|
|
920 (>= ch 327)) ; not FIDEL
|
|
921 (error "Not a valid character."))
|
|
922 (message "Modify vowel to: ")
|
|
923 (if (null (setq vowel (memq (read-char) '(?e ?u ?i ?a ?E ?' ?o))))
|
|
924 (error "Not a valid vowel.")
|
|
925 ;; ?e -> 0, ?u -> 1, ?i -> 2, ?a -> 3, ?E -> 4, ?' -> 5, ?o -> 6
|
|
926 (setq vowel (- 7 (length vowel))))
|
|
927
|
|
928 (cond
|
|
929
|
|
930 ;; 8-form consonant
|
|
931 ((<= ch 143)
|
|
932 (setq base (* (/ ch 8) 8))
|
|
933 (cond
|
|
934 ((< (mod ch 8) 7) ; e-form <= ch <= o-form
|
|
935 (setq newch (+ base vowel)))
|
|
936 ((= vowel 3) ; 3 = a
|
|
937 (setq newch (+ base 7))) ; (+ base 7) = Wa-form
|
|
938 ((= vowel 5) ; 5 = '
|
|
939 (setq newch
|
|
940 (cons (+ base 5) ; (+ base 5) = lone consonant
|
|
941 232))) ; 232 = Wu
|
|
942 (t
|
|
943 (setq newch
|
|
944 (cons (+ base 5) ; (+ base 5) = lone consonant
|
|
945 (+ 231 vowel)))))) ; 231 = We
|
|
946
|
|
947 ;; 12-form consonant
|
|
948 ((<= ch 235)
|
|
949 (setq ch (- ch 152) ; 152 = 12-form consonant offset
|
|
950 base (* (/ ch 12) 12))
|
|
951 (cond
|
|
952 ((< (mod ch 12) 7) ; e-form <= ch <= o-form
|
|
953 (setq newch (+ base vowel 152)))
|
|
954 ((< vowel 5) ; We-form <= ch <= WE-form
|
|
955 (setq newch (+ base vowel 159))) ; 159 = 152 (offset) + 7 (We-form)
|
|
956 ((= vowel 5) ; 5 = ' (= u in this case)
|
|
957 (setq newch (+ base 160))) ; 160 = 152 (offset) + 8 (Wu-form)
|
|
958 (t
|
|
959 (error "Not a valid vowel."))))
|
|
960
|
|
961 ;; 7-form consonant
|
|
962 (t ; 236 = 7-form consonant offset
|
|
963 (setq newch (+ (* (/ (- ch 236) 7) 7) vowel 236))))
|
|
964
|
|
965 (delete-char 1)
|
|
966
|
|
967 (cond
|
|
968 ((consp newch)
|
|
969 (insert (ethiocode-to-char (car newch))
|
|
970 (ethiocode-to-char (cdr newch)))
|
|
971 (backward-char 2))
|
|
972 (t
|
|
973 (insert (ethiocode-to-char newch))
|
|
974 (backward-char 1)))))
|
|
975
|
|
976 (defun ethiocode-to-char (code)
|
|
977 (make-char 'ethiopic (/ code 94) (mod code 94)))
|
|
978
|
|
979 (defun char-to-ethiocode (ch)
|
|
980 (and (eq (char-charset ch) 'ethiopic)
|
|
981 (let ((char-components (split-char ch)))
|
|
982 (+ (* (- (nth char-components 1) 161) 94)
|
|
983 (- (nth char-components 2) 161)))))
|
|
984
|
|
985 ;;
|
|
986 ;; space replacement
|
|
987 ;;
|
|
988
|
|
989 ;;;###autoload
|
|
990 (defun ethio-replace-space (ch begin end)
|
|
991 "In the specified region, replace spaces between two Ethiopic characters."
|
|
992 (interactive "*cReplace spaces to: 1 (sg col), 2 (dbl col), 3 (Ethiopic)\nr")
|
|
993 (if (not (memq ch '(?1 ?2 ?3)))
|
|
994 (error ""))
|
|
995 (save-excursion
|
|
996 (save-restriction
|
|
997 (narrow-to-region begin end)
|
|
998 (goto-char (point-min))
|
|
999
|
|
1000 (cond
|
|
1001
|
|
1002 ((= ch ?1)
|
|
1003
|
|
1004 ;; A double column space or an Ethiopic word separator is always
|
|
1005 ;; converted to an ASCII space.
|
|
1006 (while (re-search-forward "[$(2$N$O(B]" nil t)
|
|
1007 (replace-match " " nil nil)))
|
|
1008
|
|
1009 ((= ch ?2)
|
|
1010
|
|
1011 ;; An Ethiopic word separator is always converted to
|
|
1012 ;; a double column space.
|
|
1013 (while (search-forward "$(2$O(B" nil t)
|
|
1014 (replace-match "$(2$N(B"))
|
|
1015
|
|
1016 (goto-char (point-min))
|
|
1017
|
|
1018 ;; ASCII spaces are converted only if they are placed
|
|
1019 ;; between two Ethiopic characters.
|
|
1020 (while (re-search-forward "\\(\\cE\\)\\( \\)\\( *\\cE\\)" nil t)
|
|
1021
|
|
1022 ;; Converting the first ASCII space
|
|
1023 (replace-match "\\1$(2$N(B\\3")
|
|
1024
|
|
1025 ;; A double column space is \cE, so going back to the just
|
|
1026 ;; converted double column space makes it possible to find
|
|
1027 ;; the following ASCII spaces.
|
|
1028 (goto-char (match-beginning 2))))
|
|
1029
|
|
1030 ((= ch ?3)
|
|
1031
|
|
1032 ;; If more than one consecutive space (either ASCII or double
|
|
1033 ;; width) is found between two Ethiopic characters, the first
|
|
1034 ;; space will be converted to an Ethiopic word separator.
|
|
1035 (let (pred succ)
|
|
1036 (while (re-search-forward "[ $(2$N(B]\\([ $(2$N(B]*\\)" nil t)
|
|
1037 (and (setq pred (char-before (match-beginning 0)))
|
|
1038 (eq (char-charset pred) 'ethiopic)
|
|
1039 (setq succ (char-after (match-end 0)))
|
|
1040 (eq (char-charset succ) 'ethiopic)
|
|
1041 (replace-match "$(2$O(B\\1" nil nil)))))))))
|
|
1042
|
|
1043 ;;
|
|
1044 ;; special characters
|
|
1045 ;;
|
|
1046
|
|
1047 ;;;###autoload
|
|
1048 (defun ethio-input-special-character (arg)
|
|
1049 "Allow the user to input special characters."
|
|
1050 (interactive "*cInput number: 1.$(2$k(B 2.$(2$l(B 3.$(2$m(B 4.$(2$n(B")
|
|
1051 (cond
|
|
1052 ((= arg ?1)
|
|
1053 (insert ?$(2$k(B))
|
|
1054 ((= arg ?2)
|
|
1055 (insert ?$(2$l(B))
|
|
1056 ((= arg ?3)
|
|
1057 (insert ?$(2$m(B))
|
|
1058 ((= arg ?4)
|
|
1059 (insert ?$(2$n(B))
|
|
1060 (t
|
|
1061 (error ""))))
|
|
1062
|
|
1063 ;;
|
|
1064 (provide 'language/ethio-util)
|
|
1065
|
|
1066 ;;; Local Variables:
|
|
1067 ;;; generated-autoload-file: "../loaddefs.el"
|
|
1068 ;;; End:
|
|
1069 ;;; ethio-util.el ends here
|