Mercurial > emacs
annotate admin/charsets/cp51932.awk @ 96592:0ef6933bf3bd
(ftfont_resolve_generic_family): Remove foundry from
pattern before matching the generic family.
author | Andreas Schwab <schwab@suse.de> |
---|---|
date | Thu, 10 Jul 2008 13:13:21 +0000 |
parents | eb2d9dfc8486 |
children | ce88a631c161 |
rev | line source |
---|---|
89750 | 1 # cp51932.awk -- Generate a translation table for CP51932. |
91413
9dffbad9f2a2
Update copyright years and GPL version.
Glenn Morris <rgm@gnu.org>
parents:
89916
diff
changeset
|
2 # Copyright (C) 2004, 2005, 2006, 2007, 2008 |
89750 | 3 # National Institute of Advanced Industrial Science and Technology (AIST) |
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 | 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 | 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 | 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. | |
94832
eb2d9dfc8486
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91413
diff
changeset
|
17 |
89750 | 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 | 20 |
94832
eb2d9dfc8486
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91413
diff
changeset
|
21 # Commentary: |
89750 | 22 |
23 # Genereate a translation table for CP51932 (EUC-JP of MicroSoft Version). | |
24 # It maps invalid JISX0208 code points used by CP51932 to Unicode. | |
25 # 4th field of the input has these meanings: | |
26 # 0: JISX0208 characters. | |
27 # 1: NEC special characters. | |
28 # 2: IBM extension characters. | |
29 # 3: NEC selection of IBM extension characters. | |
30 # Among them, 1 and 3 are the target characters. 2 should have | |
31 # already been mapped to 1 or 3. | |
32 | |
33 BEGIN { | |
34 print ";;; cp51932.el -- translation table for CP51932. -*- no-byte-compile: t -*-"; | |
35 print ";;; Automatically genrated from CP932-2BYTE.map"; | |
36 print "(let ((map"; | |
37 printf " '(;JISEXT<->UNICODE"; | |
38 } | |
39 | |
40 /# [13]/ { | |
41 printf "\n (#x%s . #x%s)", $5 ,substr($2, 3, 4); | |
42 } | |
43 | |
44 END { | |
45 print ")))"; | |
46 print " (mapc #'(lambda (x)"; | |
47 print " (setcar x (decode-char 'japanese-jisx0208 (car x))))"; | |
48 print " map)"; | |
49 print " (define-translation-table 'cp51932-decode map)"; | |
50 print " (mapc #'(lambda (x)"; | |
51 print " (let ((tmp (car x)))"; | |
52 print " (setcar x (cdr x)) (setcdr x tmp)))"; | |
53 print " map)"; | |
54 print " (define-translation-table 'cp51932-encode map))"; | |
55 } | |
89916
e0e4e6a0599f
Changes from arch/CVS synchronization
Miles Bader <miles@gnu.org>
parents:
89750
diff
changeset
|
56 |
e0e4e6a0599f
Changes from arch/CVS synchronization
Miles Bader <miles@gnu.org>
parents:
89750
diff
changeset
|
57 # arch-tag: bbae996b-2d1c-4e85-bb55-ac30146d7504 |