1 # compact.awk -- awk script to produce a compact charset map
2 # Copyright (C) 2003, 2004
3 # National Institute of Advanced Industrial Science and Technology (AIST)
4 # Registration Number H15PRO112
6 # This file is part of the m17n database; a sub-part of the m17n
9 # The m17n library is free software; you can redistribute it and/or
10 # modify it under the terms of the GNU Lesser General Public License
11 # as published by the Free Software Foundation; either version 2.1 of
12 # the License, or (at your option) any later version.
14 # The m17n library is distributed in the hope that it will be useful,
15 # but WITHOUT ANY WARRANTY; without even the implied warranty of
16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 # Lesser General Public License for more details.
19 # You should have received a copy of the GNU Lesser General Public
20 # License along with the m17n library; if not, write to the Free
21 # Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
53 function decode_hex(str, idx) {
56 for (i = idx; i <= len; i++)
58 c = tohex[substr (str, i, 1)];
72 code = decode_hex($1, 3);
73 unicode = decode_hex($2, 3);
74 if ((code == to_code + 1) && (unicode == to_unicode + 1))
81 if (from_code == to_code)
82 printf "0x%04X 0x%04X\n", from_code, from_unicode;
83 else if (from_code < to_code)
84 printf "0x%04X-0x%04X 0x%04X\n", from_code, to_code, from_unicode;
85 from_code = to_code = code;
86 from_unicode = to_unicode = unicode;
91 if (from_code == to_code)
92 printf "0x%04X 0x%04X\n", from_code, from_unicode;
94 printf "0x%04X-0x%04X 0x%04X\n", from_code, to_code, from_unicode;