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
|
#!/usr/bin/perl
# usage: compile-et input.et
#
# 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 header
{
local($filename, $comment) = @_;
<<EOF
$comment
$comment $filename
$comment This file is automatically generated; please do not edit it.
EOF
}
sub table_base
{
local($name) = @_;
local($base) = 0;
for ($i = 0; $i < length($name); $i++) {
$base *= 64;
$base += index("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_", substr($name, $i, 1)) + 1;
}
$base -= 0x1000000 if ($base > 0x7fffff);
$base*256;
}
sub code {
local($macro, $text) = @_;
$code = $table_base + $table_item_count;
print H "\n";
print H "/* ", $text, " */\n";
printf H "#define %-40s (%dL)\n", $macro, $code;
print C "\t{\"", $macro, "\", \"", $text, "\"},\n";
print PROPERTIES $macro, "=", $text, "\n";
$table_item_count++;
}
$filename = $ARGV[0];
open(INPUT, "< $filename") || die "Can't read $filename: $!\n";
$base = "$filename";
$base =~ s/\.et$//;
$base =~ s#.*/##;
open(H, "> ${base}.h") || die "Can't write ${base}.h\n";
open(C, "> ${base}.c") || die "Can't write ${base}.c\n";
open(PROPERTIES, "> ${base}.properties") || die "Can't write ${base}.properties\n";
print H "/*\n", &header("${base}.h", " *"), " */\n";
print C "/*\n", &header("${base}.c", " *"), " */\n";
print PROPERTIES &header("${base}.properties", "#");
$skipone = 0;
while ($_ = <INPUT>) {
next if /^#/;
if (/^[ \t]*(error_table|et)[ \t]+([a-zA-Z][a-zA-Z0-9_]+) *(-?[0-9]*)/) {
$table_name = $2;
if ($3) {
$table_base = $3;
}
else {
$table_base = &table_base($table_name);
}
$table_item_count = 0;
print C "#include \"prerror.h\"\n";
print C "static const struct PRErrorMessage text[] = {\n";
}
elsif (/^[ \t]*(error_code|ec)[ \t]+([A-Z_0-9]+),[ \t]*$/) {
$skipone = 1;
$macro = $2;
}
elsif (/^[ \t]*(error_code|ec)[ \t]+([A-Z_0-9]+),[ \t]*"(.*)"[ \t]*$/) {
&code($2, $3);
}
elsif ($skipone && /^[ \t]*"(.*)"[ \t]*$/) {
&code($macro, $1);
}
}
print H "\n";
print H "extern void ", $table_name, "_InitializePRErrorTable","(void);\n";
printf H "#define ERROR_TABLE_BASE_%s (%dL)\n", $table_name, $table_base;
print C "\t{0, 0}\n";
print C "};\n\n";
printf C "static const struct PRErrorTable et = { text, \"%s\", %dL, %d };\n",
$base, $table_base, $table_item_count;
print C "\n";
print C "void ", $table_name, "_InitializePRErrorTable", "(void) {\n";
print C " PR_ErrorInstallTable(&et);\n";
print C "}\n";
0;
|
