annotate admin/charsets/cp51932.awk @ 112395:f1de024f822c

* nsterm.m (keyDown): If ns_right_alternate_modifier is Qleft, check if ns_alternate_modifier is none.
author Jan D. <jan.h.d@swipnet.se>
date Fri, 21 Jan 2011 09:35:30 +0100
parents ef4120c8640c
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
89750
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1 # cp51932.awk -- Generate a translation table for CP51932.
112218
376148b31b5e Add 2011 to FSF/AIST copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106815
diff changeset
2 # Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
89750
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3 # National Institute of Advanced Industrial Science and Technology (AIST)
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4 # Registration Number H13PRO009
94832
eb2d9dfc8486 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91413
diff changeset
5
89750
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
6 # This file is part of GNU Emacs.
94832
eb2d9dfc8486 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91413
diff changeset
7
eb2d9dfc8486 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91413
diff changeset
8 # GNU Emacs is free software: you can redistribute it and/or modify
89750
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
9 # it under the terms of the GNU General Public License as published by
94832
eb2d9dfc8486 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91413
diff changeset
10 # the Free Software Foundation, either version 3 of the License, or
eb2d9dfc8486 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91413
diff changeset
11 # (at your option) any later version.
eb2d9dfc8486 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91413
diff changeset
12
89750
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
13 # GNU Emacs is distributed in the hope that it will be useful,
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
16 # GNU General Public License for more details.
94832
eb2d9dfc8486 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91413
diff changeset
17
89750
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18 # You should have received a copy of the GNU General Public License
94832
eb2d9dfc8486 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91413
diff changeset
19 # along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
89750
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
20
94832
eb2d9dfc8486 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91413
diff changeset
21 # Commentary:
89750
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23 # Genereate a translation table for CP51932 (EUC-JP of MicroSoft Version).
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
24 # It maps invalid JISX0208 code points used by CP51932 to Unicode.
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25 # 4th field of the input has these meanings:
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
26 # 0: JISX0208 characters.
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27 # 1: NEC special characters.
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
28 # 2: IBM extension characters.
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29 # 3: NEC selection of IBM extension characters.
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30 # Among them, 1 and 3 are the target characters. 2 should have
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
31 # already been mapped to 1 or 3.
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33 BEGIN {
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34 print ";;; cp51932.el -- translation table for CP51932. -*- no-byte-compile: t -*-";
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35 print ";;; Automatically genrated from CP932-2BYTE.map";
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
36 print "(let ((map";
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
37 printf " '(;JISEXT<->UNICODE";
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
38 }
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
39
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
40 /# [13]/ {
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
41 printf "\n (#x%s . #x%s)", $5 ,substr($2, 3, 4);
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
42 }
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
43
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
44 END {
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
45 print ")))";
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
46 print " (mapc #'(lambda (x)";
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
47 print " (setcar x (decode-char 'japanese-jisx0208 (car x))))";
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
48 print " map)";
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
49 print " (define-translation-table 'cp51932-decode map)";
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
50 print " (mapc #'(lambda (x)";
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
51 print " (let ((tmp (car x)))";
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
52 print " (setcar x (cdr x)) (setcdr x tmp)))";
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
53 print " map)";
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
54 print " (define-translation-table 'cp51932-encode map))";
d6d9f1efd684 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
55 }