Mercurial > emacs
annotate admin/charsets/cp51932.awk @ 90645:7eeafaaa9eab
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 476-489)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 153-160)
- Merge from emacs--devo--0
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-127
author | Miles Bader <miles@gnu.org> |
---|---|
date | Mon, 30 Oct 2006 08:54:41 +0000 |
parents | e0e4e6a0599f |
children | 9dffbad9f2a2 |
rev | line source |
---|---|
89750 | 1 # cp51932.awk -- Generate a translation table for CP51932. |
2 # Copyright (C) 2004 | |
3 # National Institute of Advanced Industrial Science and Technology (AIST) | |
4 # Registration Number H13PRO009 | |
5 # | |
6 # This file is part of GNU Emacs. | |
7 # | |
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 2, or (at your option) | |
11 # any later version. | |
12 # | |
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. | |
17 # | |
18 # You should have received a copy of the GNU General Public License | |
19 # along with GNU Emacs; see the file COPYING. If not, write to the | |
20 # Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
21 # Boston, MA 02111-1307, USA. | |
22 | |
23 # Comment: | |
24 | |
25 # Genereate a translation table for CP51932 (EUC-JP of MicroSoft Version). | |
26 # It maps invalid JISX0208 code points used by CP51932 to Unicode. | |
27 # 4th field of the input has these meanings: | |
28 # 0: JISX0208 characters. | |
29 # 1: NEC special characters. | |
30 # 2: IBM extension characters. | |
31 # 3: NEC selection of IBM extension characters. | |
32 # Among them, 1 and 3 are the target characters. 2 should have | |
33 # already been mapped to 1 or 3. | |
34 | |
35 BEGIN { | |
36 print ";;; cp51932.el -- translation table for CP51932. -*- no-byte-compile: t -*-"; | |
37 print ";;; Automatically genrated from CP932-2BYTE.map"; | |
38 print "(let ((map"; | |
39 printf " '(;JISEXT<->UNICODE"; | |
40 } | |
41 | |
42 /# [13]/ { | |
43 printf "\n (#x%s . #x%s)", $5 ,substr($2, 3, 4); | |
44 } | |
45 | |
46 END { | |
47 print ")))"; | |
48 print " (mapc #'(lambda (x)"; | |
49 print " (setcar x (decode-char 'japanese-jisx0208 (car x))))"; | |
50 print " map)"; | |
51 print " (define-translation-table 'cp51932-decode map)"; | |
52 print " (mapc #'(lambda (x)"; | |
53 print " (let ((tmp (car x)))"; | |
54 print " (setcar x (cdr x)) (setcdr x tmp)))"; | |
55 print " map)"; | |
56 print " (define-translation-table 'cp51932-encode map))"; | |
57 } | |
89916
e0e4e6a0599f
Changes from arch/CVS synchronization
Miles Bader <miles@gnu.org>
parents:
89750
diff
changeset
|
58 |
e0e4e6a0599f
Changes from arch/CVS synchronization
Miles Bader <miles@gnu.org>
parents:
89750
diff
changeset
|
59 # arch-tag: bbae996b-2d1c-4e85-bb55-ac30146d7504 |