1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
#!/user/local/bin/perl
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
sub jis0212tonum()
{
my($jis0212) = (@_);
my($first,$second,$jnum);
$first = hex(substr($jis0212,2,2));
$second = hex(substr($jis0212,4,2));
$jnum = (($first - 0x21) * 94);
$jnum += $second - 0x21 ;
return $jnum;
}
@map = {};
sub readtable()
{
open(JIS0212, "<JIS0212") || die "cannot open JIS0212";
while(<JIS0212>)
{
if(! /^#/) {
($j, $u, $r) = split(/\t/,$_);
if(length($j) > 4)
{
$n = &jis0212tonum($j);
$map{$n} = $u;
}
}
}
}
## add eudc to $map here
sub printtable()
{
for($i=0;$i<94;$i++)
{
printf ( "/* 0x%2XXX */\n", ( $i + 0x21));
printf " ";
for($j=0;$j<94;$j++)
{
if("" == ($map{($i * 94 + $j)}))
{
print "0xFFFD,"
}
else
{
print $map{($i * 94 + $j)} . ",";
}
if( 7 == (($j + 1) % 8))
{
printf "/* 0x%2X%1X%1X*/\n", $i+0x21, 2+($j/16), (6==($j%16))?0:8;
}
}
printf " /* 0x%2X%1X%1X*/\n", $i+0x21, 2+($j/16),(6==($j%16))?0:8;
}
}
&readtable();
&printtable();
|
