]>
code.delx.au - gnu-emacs/blob - admin/charsets/eucjp-ms.awk
1 # eucjp-ms.awk -- Generate a translation table for eucJP-ms.
2 # Copyright (C) 2004, 2005, 2006, 2007, 2008
3 # National Institute of Advanced Industrial Science and Technology (AIST)
4 # Registration Number H13PRO009
6 # This file is part of GNU Emacs.
8 # GNU Emacs is free software: you can redistribute it and/or modify
9 # it under the terms of the GNU General Public License as published by
10 # the Free Software Foundation, either version 3 of the License, or
11 # (at your option) any later version.
13 # GNU Emacs is distributed in the hope that it will be useful,
14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
23 # eucJP-ms is one of eucJP-open encoding defined at this page:
24 # http://www.opengroup.or.jp/jvc/cde/appendix.html
27 print ";;; eucjp-ms.el -- translation table for eucJP-ms. -*- no-byte-compile: t -*-";
28 print ";;; Automatically genrated from eucJP-13th.txt, eucJP-udc.txt, eucJP-ibmext.txt";
30 printf " '(;JISEXT<->UNICODE";
40 function decode_hex
(str
) {
43 for (i =
1; i
<= len
; i
++)
45 c =
substr(str
, i
, 1);
46 if (c
>=
"0" && c
<=
"9")
47 n = n
* 16 + (c
- "0");
49 n = n
* 16 + tohex
[c
];
55 code = decode_hex
(substr($
1, 5, 4));
56 code
-=
32896; # code -= 0x8080
57 printf "\n (#x%04x #x%s)", code
, substr($
2, 3, 4);
62 code = decode_hex
(substr($
1, 3, 4));
63 code
-=
32896; # code -= 0x8080
64 printf "\n (#x%04x . #x%s)", code
, substr($
2, 3, 4);
69 print " (mapc #'(lambda (x)";
70 print " (if (integerp (cdr x))";
71 print " (setcar x (decode-char 'japanese-jisx0208 (car x)))";
72 print " (setcar x (decode-char 'japanese-jisx0212 (car x)))";
73 print " (setcdr x (cadr x))))";
75 print " (define-translation-table 'eucjp-ms-decode map)";
76 print " (mapc #'(lambda (x)";
77 print " (let ((tmp (car x)))";
78 print " (setcar x (cdr x)) (setcdr x tmp)))";
80 print " (define-translation-table 'eucjp-ms-encode map))";
83 # arch-tag: d9cc7af7-2d6e-48cd-8eed-a6d25226de7c