The Tor Browser / file comparison
comparison: nsprpub/pr/src/misc/compile-et.pl
nsprpub/pr/src/misc/compile-et.pl
- changeset 0
- 6474c204b198
equal
deleted
inserted
replaced
| -1:000000000000 | 0:f37adb557d4d |
|---|---|
| 1 #!/usr/bin/perl | |
| 2 | |
| 3 # usage: compile-et input.et | |
| 4 | |
| 5 # | |
| 6 # This Source Code Form is subject to the terms of the Mozilla Public | |
| 7 # License, v. 2.0. If a copy of the MPL was not distributed with this | |
| 8 # file, You can obtain one at http://mozilla.org/MPL/2.0/. | |
| 9 | |
| 10 sub header | |
| 11 { | |
| 12 local($filename, $comment) = @_; | |
| 13 | |
| 14 <<EOF | |
| 15 $comment | |
| 16 $comment $filename | |
| 17 $comment This file is automatically generated; please do not edit it. | |
| 18 EOF | |
| 19 } | |
| 20 | |
| 21 sub table_base | |
| 22 { | |
| 23 local($name) = @_; | |
| 24 local($base) = 0; | |
| 25 | |
| 26 for ($i = 0; $i < length($name); $i++) { | |
| 27 $base *= 64; | |
| 28 $base += index("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_", substr($name, $i, 1)) + 1; | |
| 29 } | |
| 30 $base -= 0x1000000 if ($base > 0x7fffff); | |
| 31 $base*256; | |
| 32 } | |
| 33 | |
| 34 sub code { | |
| 35 local($macro, $text) = @_; | |
| 36 $code = $table_base + $table_item_count; | |
| 37 | |
| 38 print H "\n"; | |
| 39 print H "/* ", $text, " */\n"; | |
| 40 printf H "#define %-40s (%dL)\n", $macro, $code; | |
| 41 | |
| 42 print C "\t{\"", $macro, "\", \"", $text, "\"},\n"; | |
| 43 | |
| 44 print PROPERTIES $macro, "=", $text, "\n"; | |
| 45 | |
| 46 $table_item_count++; | |
| 47 } | |
| 48 | |
| 49 | |
| 50 $filename = $ARGV[0]; | |
| 51 open(INPUT, "< $filename") || die "Can't read $filename: $!\n"; | |
| 52 | |
| 53 $base = "$filename"; | |
| 54 $base =~ s/\.et$//; | |
| 55 $base =~ s#.*/##; | |
| 56 | |
| 57 open(H, "> ${base}.h") || die "Can't write ${base}.h\n"; | |
| 58 open(C, "> ${base}.c") || die "Can't write ${base}.c\n"; | |
| 59 open(PROPERTIES, "> ${base}.properties") || die "Can't write ${base}.properties\n"; | |
| 60 | |
| 61 print H "/*\n", &header("${base}.h", " *"), " */\n"; | |
| 62 print C "/*\n", &header("${base}.c", " *"), " */\n"; | |
| 63 print PROPERTIES &header("${base}.properties", "#"); | |
| 64 | |
| 65 $skipone = 0; | |
| 66 | |
| 67 while ($_ = <INPUT>) { | |
| 68 next if /^#/; | |
| 69 | |
| 70 if (/^[ \t]*(error_table|et)[ \t]+([a-zA-Z][a-zA-Z0-9_]+) *(-?[0-9]*)/) { | |
| 71 $table_name = $2; | |
| 72 if ($3) { | |
| 73 $table_base = $3; | |
| 74 } | |
| 75 else { | |
| 76 $table_base = &table_base($table_name); | |
| 77 } | |
| 78 $table_item_count = 0; | |
| 79 | |
| 80 print C "#include \"prerror.h\"\n"; | |
| 81 print C "static const struct PRErrorMessage text[] = {\n"; | |
| 82 } | |
| 83 elsif (/^[ \t]*(error_code|ec)[ \t]+([A-Z_0-9]+),[ \t]*$/) { | |
| 84 $skipone = 1; | |
| 85 $macro = $2; | |
| 86 } | |
| 87 elsif (/^[ \t]*(error_code|ec)[ \t]+([A-Z_0-9]+),[ \t]*"(.*)"[ \t]*$/) { | |
| 88 &code($2, $3); | |
| 89 } | |
| 90 elsif ($skipone && /^[ \t]*"(.*)"[ \t]*$/) { | |
| 91 &code($macro, $1); | |
| 92 } | |
| 93 } | |
| 94 | |
| 95 print H "\n"; | |
| 96 print H "extern void ", $table_name, "_InitializePRErrorTable","(void);\n"; | |
| 97 printf H "#define ERROR_TABLE_BASE_%s (%dL)\n", $table_name, $table_base; | |
| 98 | |
| 99 print C "\t{0, 0}\n"; | |
| 100 print C "};\n\n"; | |
| 101 printf C "static const struct PRErrorTable et = { text, \"%s\", %dL, %d };\n", | |
| 102 $base, $table_base, $table_item_count; | |
| 103 print C "\n"; | |
| 104 print C "void ", $table_name, "_InitializePRErrorTable", "(void) {\n"; | |
| 105 print C " PR_ErrorInstallTable(&et);\n"; | |
| 106 print C "}\n"; | |
| 107 | |
| 108 0; |
