("X" . 20) ("Y" . 21) ("Z" . 22) ("Zh" . 23)))
(defconst yincode-pinyin-yunmu
- '(("\9a À" 0 0) ("\9a À" 0 1) ("\9a À" 0 3) ("\9a À" 0 5) ("\9a À" 0 7)
- ("a\9a À" 1 0) ("\9a ¡\9a À" 1 1) ("\9a ¢\9a À" 1 3) ("\9a £\9a À" 1 5) ("\9a ¤\9a À" 1 7)
- ("ai\9a À" 2 0) ("\9a ¡i\9a À" 2 1) ("\9a ¢i\9a À" 2 3) ("\9a £i\9a À" 2 5) ("\9a ¤i\9a À" 2 7)
- ("an\9a À" 3 0) ("\9a ¡n\9a À" 3 1) ("\9a ¢n\9a À" 3 3) ("\9a £n\9a À" 3 5) ("\9a ¤n\9a À" 3 7)
- ("ang\9a À" 4 0) ("\9a ¡ng\9a À" 4 1) ("\9a ¢ng\9a À" 4 3) ("\9a £ng\9a À" 4 5) ("\9a ¤ng\9a À" 4 7)
- ("ao\9a À" 5 0) ("\9a ¡o\9a À" 5 1) ("\9a ¢o\9a À" 5 3) ("\9a £o\9a À" 5 5) ("\9a ¤o\9a À" 5 7)
- ("e\9a À" 6 0) ("\9a ¥\9a À" 6 1) ("\9a ¦\9a À" 6 3) ("\9a §\9a À" 6 5) ("\9a ¨\9a À" 6 7)
- ("ei\9a À" 7 0) ("\9a ¥i\9a À" 7 1) ("\9a ¦i\9a À" 7 3) ("\9a §i\9a À" 7 5) ("\9a ¨i\9a À" 7 7)
- ("en\9a À" 8 0) ("\9a ¥n\9a À" 8 1) ("\9a ¦n\9a À" 8 3) ("\9a §n\9a À" 8 5) ("\9a ¨n\9a À" 8 7)
- ("eng\9a À" 9 0) ("\9a ¥ng\9a À" 9 1) ("\9a ¦ng\9a À" 9 3) ("\9a §ng\9a À" 9 5) ("\9a ¨ng\9a À" 9 7)
- ("er\9a À" 10 0) ("\9a ¥r\9a À" 10 1) ("\9a ¦r\9a À" 10 3) ("\9a §r\9a À" 10 5) ("\9a ¨r\9a À" 10 7)
- ("i\9a À" 11 0) ("\9a ©\9a À" 11 1) ("\9a ª\9a À" 11 3) ("\9a «\9a À" 11 5) ("\9a ¬\9a À" 11 7)
- ("ia\9a À" 12 0) ("i\9a ¡\9a À" 12 1) ("i\9a ¢\9a À" 12 3) ("i\9a £\9a À" 12 5) ("i\9a ¤\9a À" 12 7)
- ("ian\9a À" 13 0) ("i\9a ¡n\9a À" 13 1) ("i\9a ¢n\9a À" 13 3) ("i\9a £n\9a À" 13 5) ("i\9a ¤n\9a À" 13 7)
- ("iang\9a À" 14 0) ("i\9a ¡ng\9a À" 14 1) ("i\9a ¢ng\9a À" 14 3) ("i\9a £ng\9a À" 14 5) ("i\9a ¤ng\9a À" 14 7)
- ("iao\9a À" 15 0) ("i\9a ¡o\9a À" 15 1) ("i\9a ¢o\9a À" 15 3) ("i\9a £o\9a À" 15 5) ("i\9a ¤o\9a À" 15 7)
- ("ie\9a À" 16 0) ("i\9a ¥\9a À" 16 1) ("i\9a ¦\9a À" 16 3) ("i\9a §\9a À" 16 5) ("i\9a ¨\9a À" 16 7)
- ("in\9a À" 17 0) ("\9a ©n\9a À" 17 1) ("\9a ªn\9a À" 17 3) ("\9a «n\9a À" 17 5) ("\9a ¬n\9a À" 17 7)
- ("ing\9a À" 18 0) ("\9a ©ng\9a À" 18 1) ("\9a ªng\9a À" 18 3) ("\9a «ng\9a À" 18 5) ("\9a ¬ng\9a À" 18 7)
- ("iong\9a À" 19 0) ("i\9a ng\9a À" 19 1) ("i\9a ®ng\9a À" 19 3) ("i\9a ¯ng\9a À" 19 5) ("i\9a °ng\9a À" 19 7)
- ("iu\9a À" 20 0) ("i\9a ±\9a À" 20 1) ("i\9a ²\9a À" 20 3) ("i\9a ³\9a À" 20 5) ("i\9a ´\9a À" 20 7)
- ("m\9a À" 21 0) ("m\9a À" 21 1) ("m\9a À" 21 3) ("m\9a À" 21 5) ("m\9a À" 21 7)
- ("n\9a À" 22 0) ("n\9a À" 22 1) ("\9a ½\9a À" 22 3) ("\9a ¾\9a À" 22 5) ("\9a ¿\9a À" 22 7)
- ("ng\9a À" 23 0) ("ng\9a À" 23 1) ("ng\9a À" 23 3) ("ng\9a À" 23 5) ("ng\9a À" 23 7)
- ("o\9a À" 24 0) ("\9a \9a À" 24 1) ("\9a ®\9a À" 24 3) ("\9a ¯\9a À" 24 5) ("\9a °\9a À" 24 7)
- ("ong\9a À" 25 0) ("\9a ng\9a À" 25 1) ("\9a ®ng\9a À" 25 3) ("\9a ¯ng\9a À" 25 5) ("\9a °ng\9a À" 25 7)
- ("ou\9a À" 26 0) ("\9a u\9a À" 26 1) ("\9a ®u\9a À" 26 3) ("\9a ¯u\9a À" 26 5) ("\9a °u\9a À" 26 7)
- ("u\9a À" 27 0) ("\9a ±\9a À" 27 1) ("\9a ²\9a À" 27 3) ("\9a ³\9a À" 27 5) ("\9a ´\9a À" 27 7)
- ("ua\9a À" 28 0) ("u\9a ¡\9a À" 28 1) ("u\9a ¢\9a À" 28 3) ("u\9a £\9a À" 28 5) ("u\9a ¤\9a À" 28 7)
- ("uai\9a À" 29 0) ("u\9a ¡i\9a À" 29 1) ("u\9a ¢i\9a À" 29 3) ("u\9a £i\9a À" 29 5) ("u\9a ¤i\9a À" 29 7)
- ("uan\9a À" 30 0) ("u\9a ¡n\9a À" 30 1) ("u\9a ¢n\9a À" 30 3) ("u\9a £n\9a À" 30 5) ("u\9a ¤n\9a À" 30 7)
- ("uang\9a À" 31 0) ("u\9a ¡ng\9a À" 31 1) ("u\9a ¢ng\9a À" 31 3) ("u\9a £ng\9a À" 31 5) ("u\9a ¤ng\9a À" 31 7)
- ("ue\9a À" 32 0) ("u\9a ¥\9a À" 32 1) ("u\9a ¦\9a À" 32 3) ("u\9a §\9a À" 32 5) ("u\9a ¨\9a À" 32 7)
- ("ui\9a À" 33 0) ("u\9a ©\9a À" 33 1) ("u\9a ª\9a À" 33 3) ("u\9a «\9a À" 33 5) ("u\9a ¬\9a À" 33 7)
- ("un\9a À" 34 0) ("\9a ±n\9a À" 34 1) ("\9a ²n\9a À" 34 3) ("\9a ³n\9a À" 34 5) ("\9a ´n\9a À" 34 7)
- ("uo\9a À" 35 0) ("u\9a \9a À" 35 1) ("u\9a ®\9a À" 35 3) ("u\9a ¯\9a À" 35 5) ("u\9a °\9a À" 35 7)
- ("\9a ¹\9a À" 36 0) ("\9a µ\9a À" 36 1) ("\9a ¶\9a À" 36 3) ("\9a ·\9a À" 36 5) ("\9a ¸\9a À" 36 7)
- ("\9a ¹e\9a À" 37 0) ("\9a ¹\9a ¥\9a À" 37 1) ("\9a ¹\9a ¦\9a À" 37 3) ("\9a ¹\9a §\9a À" 37 5) ("\9a ¹\9a ¨\9a À" 37 7)
- ("0\9a À" 38 0) ("1\9a À" 38 1) ("2\9a À" 38 3) ("3\9a À" 38 5) ("4\9a À" 38 7)))
+ '(("\e(0@\e(B" 0 0) ("\e(0@\e(B" 0 1) ("\e(0@\e(B" 0 3) ("\e(0@\e(B" 0 5) ("\e(0@\e(B" 0 7)
+ ("a\e(0@\e(B" 1 0) ("\e(0!@\e(B" 1 1) ("\e(0"@\e(B" 1 3) ("\e(0#@\e(B" 1 5) ("\e(0$@\e(B" 1 7)
+ ("ai\e(0@\e(B" 2 0) ("\e(0!\e(Bi\e(0@\e(B" 2 1) ("\e(0"\e(Bi\e(0@\e(B" 2 3) ("\e(0#\e(Bi\e(0@\e(B" 2 5) ("\e(0$\e(Bi\e(0@\e(B" 2 7)
+ ("an\e(0@\e(B" 3 0) ("\e(0!\e(Bn\e(0@\e(B" 3 1) ("\e(0"\e(Bn\e(0@\e(B" 3 3) ("\e(0#\e(Bn\e(0@\e(B" 3 5) ("\e(0$\e(Bn\e(0@\e(B" 3 7)
+ ("ang\e(0@\e(B" 4 0) ("\e(0!\e(Bng\e(0@\e(B" 4 1) ("\e(0"\e(Bng\e(0@\e(B" 4 3) ("\e(0#\e(Bng\e(0@\e(B" 4 5) ("\e(0$\e(Bng\e(0@\e(B" 4 7)
+ ("ao\e(0@\e(B" 5 0) ("\e(0!\e(Bo\e(0@\e(B" 5 1) ("\e(0"\e(Bo\e(0@\e(B" 5 3) ("\e(0#\e(Bo\e(0@\e(B" 5 5) ("\e(0$\e(Bo\e(0@\e(B" 5 7)
+ ("e\e(0@\e(B" 6 0) ("\e(0%@\e(B" 6 1) ("\e(0&@\e(B" 6 3) ("\e(0'@\e(B" 6 5) ("\e(0(@\e(B" 6 7)
+ ("ei\e(0@\e(B" 7 0) ("\e(0%\e(Bi\e(0@\e(B" 7 1) ("\e(0&\e(Bi\e(0@\e(B" 7 3) ("\e(0'\e(Bi\e(0@\e(B" 7 5) ("\e(0(\e(Bi\e(0@\e(B" 7 7)
+ ("en\e(0@\e(B" 8 0) ("\e(0%\e(Bn\e(0@\e(B" 8 1) ("\e(0&\e(Bn\e(0@\e(B" 8 3) ("\e(0'\e(Bn\e(0@\e(B" 8 5) ("\e(0(\e(Bn\e(0@\e(B" 8 7)
+ ("eng\e(0@\e(B" 9 0) ("\e(0%\e(Bng\e(0@\e(B" 9 1) ("\e(0&\e(Bng\e(0@\e(B" 9 3) ("\e(0'\e(Bng\e(0@\e(B" 9 5) ("\e(0(\e(Bng\e(0@\e(B" 9 7)
+ ("er\e(0@\e(B" 10 0) ("\e(0%\e(Br\e(0@\e(B" 10 1) ("\e(0&\e(Br\e(0@\e(B" 10 3) ("\e(0'\e(Br\e(0@\e(B" 10 5) ("\e(0(\e(Br\e(0@\e(B" 10 7)
+ ("i\e(0@\e(B" 11 0) ("\e(0)@\e(B" 11 1) ("\e(0*@\e(B" 11 3) ("\e(0+@\e(B" 11 5) ("\e(0,@\e(B" 11 7)
+ ("ia\e(0@\e(B" 12 0) ("i\e(0!@\e(B" 12 1) ("i\e(0"@\e(B" 12 3) ("i\e(0#@\e(B" 12 5) ("i\e(0$@\e(B" 12 7)
+ ("ian\e(0@\e(B" 13 0) ("i\e(0!\e(Bn\e(0@\e(B" 13 1) ("i\e(0"\e(Bn\e(0@\e(B" 13 3) ("i\e(0#\e(Bn\e(0@\e(B" 13 5) ("i\e(0$\e(Bn\e(0@\e(B" 13 7)
+ ("iang\e(0@\e(B" 14 0) ("i\e(0!\e(Bng\e(0@\e(B" 14 1) ("i\e(0"\e(Bng\e(0@\e(B" 14 3) ("i\e(0#\e(Bng\e(0@\e(B" 14 5) ("i\e(0$\e(Bng\e(0@\e(B" 14 7)
+ ("iao\e(0@\e(B" 15 0) ("i\e(0!\e(Bo\e(0@\e(B" 15 1) ("i\e(0"\e(Bo\e(0@\e(B" 15 3) ("i\e(0#\e(Bo\e(0@\e(B" 15 5) ("i\e(0$\e(Bo\e(0@\e(B" 15 7)
+ ("ie\e(0@\e(B" 16 0) ("i\e(0%@\e(B" 16 1) ("i\e(0&@\e(B" 16 3) ("i\e(0'@\e(B" 16 5) ("i\e(0(@\e(B" 16 7)
+ ("in\e(0@\e(B" 17 0) ("\e(0)\e(Bn\e(0@\e(B" 17 1) ("\e(0*\e(Bn\e(0@\e(B" 17 3) ("\e(0+\e(Bn\e(0@\e(B" 17 5) ("\e(0,\e(Bn\e(0@\e(B" 17 7)
+ ("ing\e(0@\e(B" 18 0) ("\e(0)\e(Bng\e(0@\e(B" 18 1) ("\e(0*\e(Bng\e(0@\e(B" 18 3) ("\e(0+\e(Bng\e(0@\e(B" 18 5) ("\e(0,\e(Bng\e(0@\e(B" 18 7)
+ ("iong\e(0@\e(B" 19 0) ("i\e(0-\e(Bng\e(0@\e(B" 19 1) ("i\e(0.\e(Bng\e(0@\e(B" 19 3) ("i\e(0/\e(Bng\e(0@\e(B" 19 5) ("i\e(00\e(Bng\e(0@\e(B" 19 7)
+ ("iu\e(0@\e(B" 20 0) ("i\e(01@\e(B" 20 1) ("i\e(02@\e(B" 20 3) ("i\e(03@\e(B" 20 5) ("i\e(04@\e(B" 20 7)
+ ("m\e(0@\e(B" 21 0) ("m\e(0@\e(B" 21 1) ("m\e(0@\e(B" 21 3) ("m\e(0@\e(B" 21 5) ("m\e(0@\e(B" 21 7)
+ ("n\e(0@\e(B" 22 0) ("n\e(0@\e(B" 22 1) ("\e(0=@\e(B" 22 3) ("\e(0>@\e(B" 22 5) ("\e(0?@\e(B" 22 7)
+ ("ng\e(0@\e(B" 23 0) ("ng\e(0@\e(B" 23 1) ("ng\e(0@\e(B" 23 3) ("ng\e(0@\e(B" 23 5) ("ng\e(0@\e(B" 23 7)
+ ("o\e(0@\e(B" 24 0) ("\e(0-@\e(B" 24 1) ("\e(0.@\e(B" 24 3) ("\e(0/@\e(B" 24 5) ("\e(00@\e(B" 24 7)
+ ("ong\e(0@\e(B" 25 0) ("\e(0-\e(Bng\e(0@\e(B" 25 1) ("\e(0.\e(Bng\e(0@\e(B" 25 3) ("\e(0/\e(Bng\e(0@\e(B" 25 5) ("\e(00\e(Bng\e(0@\e(B" 25 7)
+ ("ou\e(0@\e(B" 26 0) ("\e(0-\e(Bu\e(0@\e(B" 26 1) ("\e(0.\e(Bu\e(0@\e(B" 26 3) ("\e(0/\e(Bu\e(0@\e(B" 26 5) ("\e(00\e(Bu\e(0@\e(B" 26 7)
+ ("u\e(0@\e(B" 27 0) ("\e(01@\e(B" 27 1) ("\e(02@\e(B" 27 3) ("\e(03@\e(B" 27 5) ("\e(04@\e(B" 27 7)
+ ("ua\e(0@\e(B" 28 0) ("u\e(0!@\e(B" 28 1) ("u\e(0"@\e(B" 28 3) ("u\e(0#@\e(B" 28 5) ("u\e(0$@\e(B" 28 7)
+ ("uai\e(0@\e(B" 29 0) ("u\e(0!\e(Bi\e(0@\e(B" 29 1) ("u\e(0"\e(Bi\e(0@\e(B" 29 3) ("u\e(0#\e(Bi\e(0@\e(B" 29 5) ("u\e(0$\e(Bi\e(0@\e(B" 29 7)
+ ("uan\e(0@\e(B" 30 0) ("u\e(0!\e(Bn\e(0@\e(B" 30 1) ("u\e(0"\e(Bn\e(0@\e(B" 30 3) ("u\e(0#\e(Bn\e(0@\e(B" 30 5) ("u\e(0$\e(Bn\e(0@\e(B" 30 7)
+ ("uang\e(0@\e(B" 31 0) ("u\e(0!\e(Bng\e(0@\e(B" 31 1) ("u\e(0"\e(Bng\e(0@\e(B" 31 3) ("u\e(0#\e(Bng\e(0@\e(B" 31 5) ("u\e(0$\e(Bng\e(0@\e(B" 31 7)
+ ("ue\e(0@\e(B" 32 0) ("u\e(0%@\e(B" 32 1) ("u\e(0&@\e(B" 32 3) ("u\e(0'@\e(B" 32 5) ("u\e(0(@\e(B" 32 7)
+ ("ui\e(0@\e(B" 33 0) ("u\e(0)@\e(B" 33 1) ("u\e(0*@\e(B" 33 3) ("u\e(0+@\e(B" 33 5) ("u\e(0,@\e(B" 33 7)
+ ("un\e(0@\e(B" 34 0) ("\e(01\e(Bn\e(0@\e(B" 34 1) ("\e(02\e(Bn\e(0@\e(B" 34 3) ("\e(03\e(Bn\e(0@\e(B" 34 5) ("\e(04\e(Bn\e(0@\e(B" 34 7)
+ ("uo\e(0@\e(B" 35 0) ("u\e(0-@\e(B" 35 1) ("u\e(0.@\e(B" 35 3) ("u\e(0/@\e(B" 35 5) ("u\e(00@\e(B" 35 7)
+ ("\e(09@\e(B" 36 0) ("\e(05@\e(B" 36 1) ("\e(06@\e(B" 36 3) ("\e(07@\e(B" 36 5) ("\e(08@\e(B" 36 7)
+ ("\e(09\e(Be\e(0@\e(B" 37 0) ("\e(09%@\e(B" 37 1) ("\e(09&@\e(B" 37 3) ("\e(09'@\e(B" 37 5) ("\e(09(@\e(B" 37 7)
+ ("0\e(0@\e(B" 38 0) ("1\e(0@\e(B" 38 1) ("2\e(0@\e(B" 38 3) ("3\e(0@\e(B" 38 5) ("4\e(0@\e(B" 38 7)))
(defconst yincode-pinyin-table
[
])
(defconst yincode-zhuyin-shengmu
- '(("" . 0) ("\9a Å" . 1) ("\9a Ø" . 2) ("\9a Ô" . 3) ("\9a É" . 4)
- ("\9a È" . 5) ("\9a Í" . 6) ("\9a Ï" . 7) ("\9a Ð" . 8) ("\9a Î" . 9)
- ("\9a Ì" . 10) ("\9a Ç" . 11) ("\9a Ë" . 12) ("\9a Æ" . 13) ("\9a Ñ" . 14)
- ("\9a Ö" . 15) ("\9a Ù" . 16) ("\9a Õ" . 17) ("\9a Ê" . 18) ("\9a è" . 19)
- ("\9a Ò" . 20) ("\9a ç" . 21) ("\9a ×" . 22) ("\9a Ó" . 23)))
+ '(("" . 0) ("\e(0E\e(B" . 1) ("\e(0X\e(B" . 2) ("\e(0T\e(B" . 3) ("\e(0I\e(B" . 4)
+ ("\e(0H\e(B" . 5) ("\e(0M\e(B" . 6) ("\e(0O\e(B" . 7) ("\e(0P\e(B" . 8) ("\e(0N\e(B" . 9)
+ ("\e(0L\e(B" . 10) ("\e(0G\e(B" . 11) ("\e(0K\e(B" . 12) ("\e(0F\e(B" . 13) ("\e(0Q\e(B" . 14)
+ ("\e(0V\e(B" . 15) ("\e(0Y\e(B" . 16) ("\e(0U\e(B" . 17) ("\e(0J\e(B" . 18) ("\e(0h\e(B" . 19)
+ ("\e(0R\e(B" . 20) ("\e(0g\e(B" . 21) ("\e(0W\e(B" . 22) ("\e(0S\e(B" . 23)))
(defconst yincode-zhuyin-yunmu
- '(("\9a À" 0 0) ("\9a Á" 0 1) ("\9a Â" 0 3) ("\9a Ã" 0 5) ("\9a Ä" 0 7) ; i
- ("\9a Ú\9a À" 1 0) ("\9a Ú\9a Á" 1 1) ("\9a Ú\9a Â" 1 3) ("\9a Ú\9a Ã" 1 5) ("\9a Ú\9a Ä" 1 7) ; a
- ("\9a Þ\9a À" 2 0) ("\9a Þ\9a Á" 2 1) ("\9a Þ\9a Â" 2 3) ("\9a Þ\9a Ã" 2 5) ("\9a Þ\9a Ä" 2 7) ; ai
- ("\9a â\9a À" 3 0) ("\9a â\9a Á" 3 1) ("\9a â\9a Â" 3 3) ("\9a â\9a Ã" 3 5) ("\9a â\9a Ä" 3 7) ; an
- ("\9a ä\9a À" 4 0) ("\9a ä\9a Á" 4 1) ("\9a ä\9a Â" 4 3) ("\9a ä\9a Ã" 4 5) ("\9a ä\9a Ä" 4 7) ; ang
- ("\9a à\9a À" 5 0) ("\9a à\9a Á" 5 1) ("\9a à\9a Â" 5 3) ("\9a à\9a Ã" 5 5) ("\9a à\9a Ä" 5 7) ; ao
- ("\9a Ü\9a À" 6 0) ("\9a Ü\9a Á" 6 1) ("\9a Ü\9a Â" 6 3) ("\9a Ü\9a Ã" 6 5) ("\9a Ü\9a Ä" 6 7) ; e
- ("\9a ß\9a À" 7 0) ("\9a ß\9a Á" 7 1) ("\9a ß\9a Â" 7 3) ("\9a ß\9a Ã" 7 5) ("\9a ß\9a Ä" 7 7) ; ei
- ("\9a ã\9a À" 8 0) ("\9a ã\9a Á" 8 1) ("\9a ã\9a Â" 8 3) ("\9a ã\9a Ã" 8 5) ("\9a ã\9a Ä" 8 7) ; en
- ("\9a å\9a À" 9 0) ("\9a å\9a Á" 9 1) ("\9a å\9a Â" 9 3) ("\9a å\9a Ã" 9 5) ("\9a å\9a Ä" 9 7) ; eng
- ("\9a æ\9a À" 10 0) ("\9a æ\9a Á" 10 1) ("\9a æ\9a Â" 10 3) ("\9a æ\9a Ã" 10 5) ("\9a æ\9a Ä" 10 7) ; er
- ("\9a ç\9a À" 11 0) ("\9a ç\9a Á" 11 1) ("\9a ç\9a Â" 11 3) ("\9a ç\9a Ã" 11 5) ("\9a ç\9a Ä" 11 7) ; i
- ("\9a ç\9a Ú\9a À" 12 0) ("\9a ç\9a Ú\9a Á" 12 1) ("\9a ç\9a Ú\9a Â" 12 3) ("\9a ç\9a Ú\9a Ã" 12 5) ("\9a ç\9a Ú\9a Ä" 12 7) ; ia
- ("\9a ç\9a â\9a À" 13 0) ("\9a ç\9a â\9a Á" 13 1) ("\9a ç\9a â\9a Â" 13 3) ("\9a ç\9a â\9a Ã" 13 5) ("\9a ç\9a â\9a Ä" 13 7) ; ian
- ("\9a ç\9a ä\9a À" 14 0) ("\9a ç\9a ä\9a Á" 14 1) ("\9a ç\9a ä\9a Â" 14 3) ("\9a ç\9a ä\9a Ã" 14 5) ("\9a ç\9a ä\9a Ä" 14 7) ; iang
- ("\9a ç\9a à\9a À" 15 0) ("\9a ç\9a à\9a Á" 15 1) ("\9a ç\9a à\9a Â" 15 3) ("\9a ç\9a à\9a Ã" 15 5) ("\9a ç\9a à\9a Ä" 15 7) ; iao
- ("\9a ç\9a Ý\9a À" 16 0) ("\9a ç\9a Ý\9a Á" 16 1) ("\9a ç\9a Ý\9a Â" 16 3) ("\9a ç\9a Ý\9a Ã" 16 5) ("\9a ç\9a Ý\9a Ä" 16 7) ; ie
- ("\9a ç\9a ã\9a À" 17 0) ("\9a ç\9a ã\9a Á" 17 1) ("\9a ç\9a ã\9a Â" 17 3) ("\9a ç\9a ã\9a Ã" 17 5) ("\9a ç\9a ã\9a Ä" 17 7) ; in
- ("\9a ç\9a å\9a À" 18 0) ("\9a ç\9a å\9a Á" 18 1) ("\9a ç\9a å\9a Â" 18 3) ("\9a ç\9a å\9a Ã" 18 5) ("\9a ç\9a å\9a Ä" 18 7) ; ing
- ("\9a é\9a å\9a À" 19 0) ("\9a é\9a å\9a Á" 19 1) ("\9a é\9a å\9a Â" 19 3) ("\9a é\9a å\9a Ã" 19 5) ("\9a é\9a å\9a Ä" 19 7) ; iong
- ("\9a ç\9a á\9a À" 20 0) ("\9a ç\9a á\9a Á" 20 1) ("\9a ç\9a á\9a Â" 20 3) ("\9a ç\9a á\9a Ã" 20 5) ("\9a ç\9a á\9a Ä" 20 7) ; iu
- ("\9a Ç\9a À" 21 0) ("\9a Ç\9a Á" 21 1) ("\9a Ç\9a Â" 21 3) ("\9a Ç\9a Ã" 21 5) ("\9a Ç\9a Ä" 21 7) ; m
- ("\9a Ë\9a À" 22 0) ("\9a Ë\9a Á" 22 1) ("\9a Ë\9a Â" 22 3) ("\9a Ë\9a Ã" 22 5) ("\9a Ë\9a Ä" 22 7) ; n
- ("@\9a À" 23 0) ("@\9a Á" 23 1) ("@\9a Â" 23 3) ("@\9a Ã" 23 5) ("@\9a Ä" 23 7) ; ng
- ("\9a Û\9a À" 24 0) ("\9a Û\9a Á" 24 1) ("\9a Û\9a Â" 24 3) ("\9a Û\9a Ã" 24 5) ("\9a Û\9a Ä" 24 7) ; o
- ("\9a è\9a å\9a À" 25 0) ("\9a è\9a å\9a Á" 25 1) ("\9a è\9a å\9a Â" 25 3) ("\9a è\9a å\9a Ã" 25 5) ("\9a è\9a å\9a Ä" 25 7) ; ong
- ("\9a á\9a À" 26 0) ("\9a á\9a Á" 26 1) ("\9a á\9a Â" 26 3) ("\9a á\9a Ã" 26 5) ("\9a á\9a Ä" 26 7) ; ou
- ("\9a è\9a À" 27 0) ("\9a è\9a Á" 27 1) ("\9a è\9a Â" 27 3) ("\9a è\9a Ã" 27 5) ("\9a è\9a Ä" 27 7) ; u
- ("\9a è\9a Ú\9a À" 28 0) ("\9a è\9a Ú\9a Á" 28 1) ("\9a è\9a Ú\9a Â" 28 3) ("\9a è\9a Ú\9a Ã" 28 5) ("\9a è\9a Ú\9a Ä" 28 7) ; ua
- ("\9a è\9a Þ\9a À" 29 0) ("\9a è\9a Þ\9a Á" 29 1) ("\9a è\9a Þ\9a Â" 29 3) ("\9a è\9a Þ\9a Ã" 29 5) ("\9a è\9a Þ\9a Ä" 29 7) ; uai
- ("\9a è\9a â\9a À" 30 0) ("\9a è\9a â\9a Á" 30 1) ("\9a è\9a â\9a Â" 30 3) ("\9a è\9a â\9a Ã" 30 5) ("\9a è\9a â\9a Ä" 30 7) ; uan
- ("\9a è\9a ä\9a À" 31 0) ("\9a è\9a ä\9a Á" 31 1) ("\9a è\9a ä\9a Â" 31 3) ("\9a è\9a ä\9a Ã" 31 5) ("\9a è\9a ä\9a Ä" 31 7) ; uang
- ("\9a é\9a Ý\9a À" 37 0) ("\9a é\9a Ý\9a Á" 37 1) ("\9a é\9a Ý\9a Â" 37 3) ("\9a é\9a Ý\9a Ã" 37 5) ("\9a é\9a Ý\9a Ä" 37 7) ; ue
- ("\9a è\9a ß\9a À" 33 0) ("\9a è\9a ß\9a Á" 33 1) ("\9a è\9a ß\9a Â" 33 3) ("\9a è\9a ß\9a Ã" 33 5) ("\9a è\9a ß\9a Ä" 33 7) ; ui
- ("\9a è\9a ã\9a À" 34 0) ("\9a è\9a ã\9a Á" 34 1) ("\9a è\9a ã\9a Â" 34 3) ("\9a è\9a ã\9a Ã" 34 5) ("\9a è\9a ã\9a Ä" 34 7) ; un
- ("\9a è\9a Û\9a À" 35 0) ("\9a è\9a Û\9a Á" 35 1) ("\9a è\9a Û\9a Â" 35 3) ("\9a è\9a Û\9a Ã" 35 5) ("\9a è\9a Û\9a Ä" 35 7) ; uo
- ("\9a é\9a À" 36 0) ("\9a é\9a Á" 36 1) ("\9a é\9a Â" 36 3) ("\9a é\9a Ã" 36 5) ("\9a é\9a Ä" 36 7) ; \9a ¹
- ("\9a é\9a Ý\9a À" 37 0) ("\9a é\9a Ý\9a Á" 37 1) ("\9a é\9a Ý\9a Â" 37 3) ("\9a é\9a Ý\9a Ã" 37 5) ("\9a é\9a Ý\9a Ä" 37 7) ; \9a ¹e
- ("0\9a À" 38 0) ("1\9a Á" 38 1) ("2\9a Â" 38 3) ("3\9a Ã" 38 5) ("4\9a Ä" 38 7) ; undefined
- ("\9a é\9a â\9a À" 39 0) ("\9a é\9a â\9a Á" 39 1) ("\9a é\9a â\9a Â" 39 3) ("\9a é\9a â\9a Ã" 39 5) ("\9a é\9a â\9a Ä" 39 7) ; \9a ¹an
- ("\9a é\9a ã\9a À" 40 0) ("\9a é\9a ã\9a Á" 40 1) ("\9a é\9a ã\9a Â" 40 3) ("\9a é\9a ã\9a Ã" 40 5) ("\9a é\9a ã\9a Ä" 40 7) ; \9a ¹n
+ '(("\e(0@\e(B" 0 0) ("\e(0A\e(B" 0 1) ("\e(0B\e(B" 0 3) ("\e(0C\e(B" 0 5) ("\e(0D\e(B" 0 7) ; i
+ ("\e(0Z@\e(B" 1 0) ("\e(0ZA\e(B" 1 1) ("\e(0ZB\e(B" 1 3) ("\e(0ZC\e(B" 1 5) ("\e(0ZD\e(B" 1 7) ; a
+ ("\e(0^@\e(B" 2 0) ("\e(0^A\e(B" 2 1) ("\e(0^B\e(B" 2 3) ("\e(0^C\e(B" 2 5) ("\e(0^D\e(B" 2 7) ; ai
+ ("\e(0b@\e(B" 3 0) ("\e(0bA\e(B" 3 1) ("\e(0bB\e(B" 3 3) ("\e(0bC\e(B" 3 5) ("\e(0bD\e(B" 3 7) ; an
+ ("\e(0d@\e(B" 4 0) ("\e(0dA\e(B" 4 1) ("\e(0dB\e(B" 4 3) ("\e(0dC\e(B" 4 5) ("\e(0dD\e(B" 4 7) ; ang
+ ("\e(0`@\e(B" 5 0) ("\e(0`A\e(B" 5 1) ("\e(0`B\e(B" 5 3) ("\e(0`C\e(B" 5 5) ("\e(0`D\e(B" 5 7) ; ao
+ ("\e(0\@\e(B" 6 0) ("\e(0\A\e(B" 6 1) ("\e(0\B\e(B" 6 3) ("\e(0\C\e(B" 6 5) ("\e(0\D\e(B" 6 7) ; e
+ ("\e(0_@\e(B" 7 0) ("\e(0_A\e(B" 7 1) ("\e(0_B\e(B" 7 3) ("\e(0_C\e(B" 7 5) ("\e(0_D\e(B" 7 7) ; ei
+ ("\e(0c@\e(B" 8 0) ("\e(0cA\e(B" 8 1) ("\e(0cB\e(B" 8 3) ("\e(0cC\e(B" 8 5) ("\e(0cD\e(B" 8 7) ; en
+ ("\e(0e@\e(B" 9 0) ("\e(0eA\e(B" 9 1) ("\e(0eB\e(B" 9 3) ("\e(0eC\e(B" 9 5) ("\e(0eD\e(B" 9 7) ; eng
+ ("\e(0f@\e(B" 10 0) ("\e(0fA\e(B" 10 1) ("\e(0fB\e(B" 10 3) ("\e(0fC\e(B" 10 5) ("\e(0fD\e(B" 10 7) ; er
+ ("\e(0g@\e(B" 11 0) ("\e(0gA\e(B" 11 1) ("\e(0gB\e(B" 11 3) ("\e(0gC\e(B" 11 5) ("\e(0gD\e(B" 11 7) ; i
+ ("\e(0gZ@\e(B" 12 0) ("\e(0gZA\e(B" 12 1) ("\e(0gZB\e(B" 12 3) ("\e(0gZC\e(B" 12 5) ("\e(0gZD\e(B" 12 7) ; ia
+ ("\e(0gb@\e(B" 13 0) ("\e(0gbA\e(B" 13 1) ("\e(0gbB\e(B" 13 3) ("\e(0gbC\e(B" 13 5) ("\e(0gbD\e(B" 13 7) ; ian
+ ("\e(0gd@\e(B" 14 0) ("\e(0gdA\e(B" 14 1) ("\e(0gdB\e(B" 14 3) ("\e(0gdC\e(B" 14 5) ("\e(0gdD\e(B" 14 7) ; iang
+ ("\e(0g`@\e(B" 15 0) ("\e(0g`A\e(B" 15 1) ("\e(0g`B\e(B" 15 3) ("\e(0g`C\e(B" 15 5) ("\e(0g`D\e(B" 15 7) ; iao
+ ("\e(0g]@\e(B" 16 0) ("\e(0g]A\e(B" 16 1) ("\e(0g]B\e(B" 16 3) ("\e(0g]C\e(B" 16 5) ("\e(0g]D\e(B" 16 7) ; ie
+ ("\e(0gc@\e(B" 17 0) ("\e(0gcA\e(B" 17 1) ("\e(0gcB\e(B" 17 3) ("\e(0gcC\e(B" 17 5) ("\e(0gcD\e(B" 17 7) ; in
+ ("\e(0ge@\e(B" 18 0) ("\e(0geA\e(B" 18 1) ("\e(0geB\e(B" 18 3) ("\e(0geC\e(B" 18 5) ("\e(0geD\e(B" 18 7) ; ing
+ ("\e(0ie@\e(B" 19 0) ("\e(0ieA\e(B" 19 1) ("\e(0ieB\e(B" 19 3) ("\e(0ieC\e(B" 19 5) ("\e(0ieD\e(B" 19 7) ; iong
+ ("\e(0ga@\e(B" 20 0) ("\e(0gaA\e(B" 20 1) ("\e(0gaB\e(B" 20 3) ("\e(0gaC\e(B" 20 5) ("\e(0gaD\e(B" 20 7) ; iu
+ ("\e(0G@\e(B" 21 0) ("\e(0GA\e(B" 21 1) ("\e(0GB\e(B" 21 3) ("\e(0GC\e(B" 21 5) ("\e(0GD\e(B" 21 7) ; m
+ ("\e(0K@\e(B" 22 0) ("\e(0KA\e(B" 22 1) ("\e(0KB\e(B" 22 3) ("\e(0KC\e(B" 22 5) ("\e(0KD\e(B" 22 7) ; n
+ ("@\e(0@\e(B" 23 0) ("@\e(0A\e(B" 23 1) ("@\e(0B\e(B" 23 3) ("@\e(0C\e(B" 23 5) ("@\e(0D\e(B" 23 7) ; ng
+ ("\e(0[@\e(B" 24 0) ("\e(0[A\e(B" 24 1) ("\e(0[B\e(B" 24 3) ("\e(0[C\e(B" 24 5) ("\e(0[D\e(B" 24 7) ; o
+ ("\e(0he@\e(B" 25 0) ("\e(0heA\e(B" 25 1) ("\e(0heB\e(B" 25 3) ("\e(0heC\e(B" 25 5) ("\e(0heD\e(B" 25 7) ; ong
+ ("\e(0a@\e(B" 26 0) ("\e(0aA\e(B" 26 1) ("\e(0aB\e(B" 26 3) ("\e(0aC\e(B" 26 5) ("\e(0aD\e(B" 26 7) ; ou
+ ("\e(0h@\e(B" 27 0) ("\e(0hA\e(B" 27 1) ("\e(0hB\e(B" 27 3) ("\e(0hC\e(B" 27 5) ("\e(0hD\e(B" 27 7) ; u
+ ("\e(0hZ@\e(B" 28 0) ("\e(0hZA\e(B" 28 1) ("\e(0hZB\e(B" 28 3) ("\e(0hZC\e(B" 28 5) ("\e(0hZD\e(B" 28 7) ; ua
+ ("\e(0h^@\e(B" 29 0) ("\e(0h^A\e(B" 29 1) ("\e(0h^B\e(B" 29 3) ("\e(0h^C\e(B" 29 5) ("\e(0h^D\e(B" 29 7) ; uai
+ ("\e(0hb@\e(B" 30 0) ("\e(0hbA\e(B" 30 1) ("\e(0hbB\e(B" 30 3) ("\e(0hbC\e(B" 30 5) ("\e(0hbD\e(B" 30 7) ; uan
+ ("\e(0hd@\e(B" 31 0) ("\e(0hdA\e(B" 31 1) ("\e(0hdB\e(B" 31 3) ("\e(0hdC\e(B" 31 5) ("\e(0hdD\e(B" 31 7) ; uang
+ ("\e(0i]@\e(B" 37 0) ("\e(0i]A\e(B" 37 1) ("\e(0i]B\e(B" 37 3) ("\e(0i]C\e(B" 37 5) ("\e(0i]D\e(B" 37 7) ; ue
+ ("\e(0h_@\e(B" 33 0) ("\e(0h_A\e(B" 33 1) ("\e(0h_B\e(B" 33 3) ("\e(0h_C\e(B" 33 5) ("\e(0h_D\e(B" 33 7) ; ui
+ ("\e(0hc@\e(B" 34 0) ("\e(0hcA\e(B" 34 1) ("\e(0hcB\e(B" 34 3) ("\e(0hcC\e(B" 34 5) ("\e(0hcD\e(B" 34 7) ; un
+ ("\e(0h[@\e(B" 35 0) ("\e(0h[A\e(B" 35 1) ("\e(0h[B\e(B" 35 3) ("\e(0h[C\e(B" 35 5) ("\e(0h[D\e(B" 35 7) ; uo
+ ("\e(0i@\e(B" 36 0) ("\e(0iA\e(B" 36 1) ("\e(0iB\e(B" 36 3) ("\e(0iC\e(B" 36 5) ("\e(0iD\e(B" 36 7) ; \e(09\e(B
+ ("\e(0i]@\e(B" 37 0) ("\e(0i]A\e(B" 37 1) ("\e(0i]B\e(B" 37 3) ("\e(0i]C\e(B" 37 5) ("\e(0i]D\e(B" 37 7) ; \e(09\e(Be
+ ("0\e(0@\e(B" 38 0) ("1\e(0A\e(B" 38 1) ("2\e(0B\e(B" 38 3) ("3\e(0C\e(B" 38 5) ("4\e(0D\e(B" 38 7) ; undefined
+ ("\e(0ib@\e(B" 39 0) ("\e(0ibA\e(B" 39 1) ("\e(0ibB\e(B" 39 3) ("\e(0ibC\e(B" 39 5) ("\e(0ibD\e(B" 39 7) ; \e(09\e(Ban
+ ("\e(0ic@\e(B" 40 0) ("\e(0icA\e(B" 40 1) ("\e(0icB\e(B" 40 3) ("\e(0icC\e(B" 40 5) ("\e(0icD\e(B" 40 7) ; \e(09\e(Bn
))
(defconst yincode-zhuyin-table
(defun egg-pinyin-syllable (str)
(let (s y end)
- (if (string-match "^[A-Za-z\9a ¡-\9a ¿]+\9a À" str)
+ (if (string-match "^[A-Za-z\e(0!\e(B-\e(0?\e(B]+\e(0@\e(B" str)
(progn
(setq end (match-end 0))
(cond
(defun egg-zhuyin-syllable (str)
(let (end s y c z (zhuyin-len (charset-bytes 'chinese-sisheng)))
- (if (string-match "^[\9a Å-\9a é@0-4]+[\9a À\9a Á\9a Â\9a Ã\9a Ä]" str)
+ (if (string-match "^[\e(0E\e(B-\e(0i\e(B@0-4]+[\e(0@ABCD\e(B]" str)
(progn
(setq end (match-end 0)
c (substring str 0 zhuyin-len)
(defun encode-fixed-euc-china-region (beg end type)
"Encode the text in the region to EUC-CN/TW."
- (let (s syl c cset (maxlen (max (length "Zhu\9a ¡ng\9a À") (length "\9a Ó\9a è\9a ä\9a Á"))))
+ (let (s syl c cset (maxlen (max (length "Zhu\e(0!\e(Bng\e(0@\e(B") (length "\e(0ShdA\e(B"))))
(save-excursion
(save-restriction
(narrow-to-region beg end)
(insert s)
(insert-char 0 1))
+(defsubst comm-format-u8-vector (s)
+ (insert (concat s)))
+
(defsubst comm-format-bytes (s)
(insert s)
(insert-char 255 1))
b means unsigned 8-bit.
S means 16-bit(big endian) wide-character string (0x0000 terminated).
E means multibyte string (0x00 terminated).
-s means 8-bit string (0x00 terminated)."
+s means 8-bit string (0x00 terminated).
+v means 8-bit vector."
(let ((p args) result arg f)
(while format
(setq arg (car p))
(cond ((eq f 'U) (list 'comm-format-u32c arg))
((eq f 'u) (list 'comm-format-u32 arg))
((eq f 'i) (list 'comm-format-i32 arg))
+ ((eq f 'v) (list 'comm-format-u8-vector arg))
((eq f 'w) (list 'comm-format-u16 arg))
((eq f 'b) (list 'comm-format-u8 arg))
((eq f 'S) (list 'comm-format-u16-string arg))
projects / elisp / egg.git / blobdiff