Mercurial > emacs
comparison admin/charsets/big5.awk @ 91411:ebb1b38229bc
Add copyright and license notice.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 02 Feb 2008 03:50:03 +0000 |
parents | e0e4e6a0599f |
children | eb2d9dfc8486 |
comparison
equal
deleted
inserted
replaced
91410:3e9290f110bf | 91411:ebb1b38229bc |
---|---|
1 # Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008 | |
2 # National Institute of Advanced Industrial Science and Technology (AIST) | |
3 # Registration Number H13PRO009 | |
4 # | |
5 # This file is part of GNU Emacs. | |
6 # | |
7 # GNU Emacs is free software; you can redistribute it and/or modify | |
8 # it under the terms of the GNU General Public License as published by | |
9 # the Free Software Foundation; either version 3, or (at your option) | |
10 # any later version. | |
11 # | |
12 # GNU Emacs is distributed in the hope that it will be useful, | |
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 # GNU General Public License for more details. | |
16 # | |
17 # You should have received a copy of the GNU General Public License | |
18 # along with GNU Emacs; see the file COPYING. If not, write to the | |
19 # Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, | |
20 # Boston, MA 02110-1301, USA. | |
21 | |
1 BEGIN { | 22 BEGIN { |
2 tohex["A"] = 10; | 23 tohex["A"] = 10; |
3 tohex["B"] = 11; | 24 tohex["B"] = 11; |
4 tohex["C"] = 12; | 25 tohex["C"] = 12; |
5 tohex["D"] = 13; | 26 tohex["D"] = 13; |
48 big5 = decode_hex($1); | 69 big5 = decode_hex($1); |
49 code = decode_big5(big5); | 70 code = decode_big5(big5); |
50 printf "0x%04X %s\n", code, $2; | 71 printf "0x%04X %s\n", code, $2; |
51 } | 72 } |
52 | 73 |
53 | 74 |
54 # arch-tag: 36f08d21-0d24-4b67-852d-a9a51299586d | 75 # arch-tag: 36f08d21-0d24-4b67-852d-a9a51299586d |