← Back to branch summary

~ubuntu-branches/ubuntu/lucid/w3m/lucid-updates

« back to all changes in this revision

Viewing changes to libwc/map/mk_cp1258_ucs_map.pl

  • Committer: Bazaar Package Importer
  • Author(s): Fumitoshi UKAI
  • Date: 2004-04-29 03:28:41 UTC
  • Revision ID: james.westby@ubuntu.com-20040429032841-uo4mu7a813aqrua8
Tags: upstream-0.5.1
Import upstream version 0.5.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
libwc/map/mk_cp1258_ucs_map.pl
 
1
 
 
2
@NAME = ();
 
3
while(<DATA>) {
 
4
  chop;
 
5
  s/\s*$//;
 
6
  (($n, $m, $c) = split(" ", $_, 3)) >= 3 || next;
 
7
  push(@NAME, $n);
 
8
  $MAP{$n} = $m;
 
9
  $CODE{$n} = $c;
 
10
}
 
11
 
 
12
@to_ucs = ();
 
13
%to_ucs2 = ();
 
14
%from_ucs = ();
 
15
foreach $name (@NAME) {
 
16
 
 
17
$code = $CODE{$name};
 
18
$map = $MAP{$name};
 
19
 
 
20
print "$name\t$map\t$code\n";
 
21
 
 
22
open(MAP, "< $map");
 
23
while(<MAP>) {
 
24
  /^0/ || next;
 
25
  (($i, $u) = split(" ")) || next;
 
26
  $i = hex($i);
 
27
  $u = hex($u);
 
28
  if ($map =~ /^V/ && $u > 0x7f) {
 
29
    $to_ucs[$i] = $u;
 
30
    $from_ucs{$u} = $i;
 
31
  }
 
32
  if ($map =~ /^c/ && $i > 0x100) {
 
33
    $to_ucs2{$i} = $u;
 
34
    if (! defined($from_ucs{$u})) {
 
35
      $from_ucs{$u} = $i;
 
36
    }
 
37
  }
 
38
}
 
39
close(MAP);
 
40
}
 
41
 
 
42
$name = $NAME[0];
 
43
$code = $CODE{$name};
 
44
$map = $MAP{$name};
 
45
open(OUT, "> ${name}_ucs.map");
 
46
 
 
47
# print OUT <<EOF;
 
48
# /*
 
49
#  These conversion tables between $code and
 
50
#  Unicode were made from
 
51
#
 
52
#    ftp://ftp.unicode.org/Public/MAPPINGS/$map.
 
53
# */
 
54
print OUT <<EOF;
 
55
/* $code */
 
56
 
 
57
static wc_uint16 ${name}_ucs_map[ 0x80 ] = {
 
58
EOF
 
59
 
 
60
foreach $i (0x10 .. 0x1F) {
 
61
  print OUT " ";
 
62
foreach $j (0 .. 7) {
 
63
  $_ = $i * 8 + $j;
 
64
  $u = $to_ucs[$_];
 
65
  if ($u) {
 
66
    printf OUT " 0x%.4X,", $u;
 
67
  } else {
 
68
    print OUT " 0,     ";
 
69
  }
 
70
}
 
71
  print OUT "\n";
 
72
}
 
73
 
 
74
@cp = sort { $a <=> $b } keys %to_ucs2;
 
75
$cp = @cp + 0;
 
76
 
 
77
print OUT <<EOF;
 
78
};
 
79
 
 
80
#define N_${name}2_ucs_map $cp
 
81
 
 
82
static wc_map ${name}2_ucs_map[ N_${name}2_ucs_map ] = {
 
83
EOF
 
84
for(@cp) {
 
85
  printf OUT "  { 0x%.4X, 0x%.4X },\n", $_, $to_ucs2{$_};
 
86
}
 
87
 
 
88
@ucs = sort { $a <=> $b } keys %from_ucs;
 
89
$nucs = @ucs + 0;
 
90
 
 
91
print OUT <<EOF;
 
92
};
 
93
 
 
94
#define N_ucs_${name}_map $nucs
 
95
 
 
96
static wc_map ucs_${name}_map[ N_ucs_${name}_map ] = {
 
97
EOF
 
98
for(@ucs) {
 
99
  printf OUT "  { 0x%.4X, 0x%.2X },\n", $_, $from_ucs{$_};
 
100
}
 
101
 
 
102
print OUT <<EOF;
 
103
};
 
104
EOF
 
105
 
 
106
__END__
 
107
cp1258          VENDORS/MICSFT/WINDOWS/CP1258.TXT       CP1258 (Vietnamese)
 
108
cp1258_2        cp1258_uni.txt                          CP1258 (Vietnamese)