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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
#!/usr/bin/perl -w
BEGIN {
use FindBin;
push @INC, $FindBin::Bin. "/../ext/";
};
use utf8;
use strict;
use MyHTML::Base;
my $simple_encode = {
# A C0 control is a code point in the range U+0000 to U+001F, inclusive
# The simple encode set are C0 controls and all code points greater than U+007
};
my $default_encode = {
" " => '',
'"' => '',
"#" => '',
"<" => '',
">" => '',
"?" => '',
"`" => '',
"{" => '',
"}" => ''
};
my $userinfo_encode = {
"/" => '',
":" => '',
";" => '',
"=" => '',
"@" => '',
"[" => '',
"\\" => '',
"]" => '',
"^" => '',
"|" => ''
};
my $utils = MyHTML::Base->new(dirs => {source => "../../Modest/source/myhtml/url", template => "tmpl"});
my $utils_data = $utils->read_tmpl("url_resources.h");
$utils->save_src("resources.h", $utils_data,
{
BODY =>
get_text_data(creare_for_default(), "myhtml_url_resources_static_map_default") .
get_text_data(creare_for_simple(), "myhtml_url_resources_static_map_simple") .
get_text_data(creare_for_userinfo(), "myhtml_url_resources_static_map_userinfo")
}
);
sub creare_for_default {
my @data;
for my $codepoint (0..255) {
my $char = chr($codepoint);
if (exists $default_encode->{$char} ||
$codepoint <= 0x1F || $codepoint > 0x7E)
{
push @data, "0x00"
}
else {
push @data, sprintf("0x%02x", $codepoint);
}
}
return \@data;
}
sub creare_for_simple {
my @data;
for my $codepoint (0..255) {
my $char = chr($codepoint);
if ($codepoint <= 0x1F || $codepoint > 0x7E)
{
push @data, "0x00"
}
else {
push @data, sprintf("0x%02x", $codepoint);
}
}
return \@data;
}
sub creare_for_userinfo {
my @data;
for my $codepoint (0..255) {
my $char = chr($codepoint);
if (exists $default_encode->{$char} ||
exists $userinfo_encode->{$char} ||
$codepoint <= 0x1F || $codepoint > 0x7E)
{
push @data, "0x00"
}
else {
push @data, sprintf("0x%02x", $codepoint);
}
}
return \@data;
}
sub get_text_data {
my ($data, $name) = @_;
my @return;
push @return, "static const unsigned char $name\[] =\n{";
my $max = $#$data;
foreach my $num (0..$max) {
push @return, "\n\t" unless $num % 10;
push @return, $data->[$num]. ($num != $max ? ", " : "");
}
push @return, "\n};\n\n";
join "", @return;
}
|