4 error_reporting(E_ALL
);
5 set_error_handler(function($c, $e, $f, $l) {
6 throw new Exception("$e in $f on line $l");
9 $i18n = $argc >= 2 ?
$argv[1] : "/usr/share/i18n/locales/i18n";
12 $m = 0xfffff000 >> $b;
16 $f = fopen($i18n, "r");
20 $ranges = $lables = $gotos = [];
22 ob_start(null, 0xfffff);
26 if (!$c && $line !== "LC_CTYPE\n") {
30 if ($line === "END LC_CTYPE\n") {
43 foreach (explode(";", trim($line, "\n/ ;")) as $list) {
44 $range = explode("..", $list);
47 switch (count($range)) {
49 list($sstart, $sstep, $send) = $range;
50 sscanf($sstart, "<U%X>", $start);
51 sscanf($sstep, "(%d)", $step);
52 sscanf($send, "<U%X>", $end);
56 list($sstart, $send) = $range;
58 sscanf($sstart, "<U%X>", $start);
59 sscanf($send, "<U%X>", $end);
62 list($sstart) = $range;
63 sscanf($sstart, "<U%X>", $start);
67 $sw2 = ($start & $m) >> $b2;
68 if (isset($ranges[$sw][$sw2])) {
69 //$ranges[$sw][$sw2] = array_filter($ranges[$sw][$sw2]);
71 $ranges[$sw][$sw2][]=[$start,$end,$step];
75 while (($start +
= $step) <= $end) {
77 $ssw2 = ($start & $m) >> $b2;
78 if (!isset($ranges[$ssw][$ssw2]) ||
null !== end($ranges[$ssw][$ssw2])) {
79 $ranges[$ssw][$ssw2][]=null;
81 if ($ssw != $sw ||
$ssw2 != $sw2) {
82 $gotos[$ssw][$ssw2] = $goto;
83 $labels[$sw][$sw2] = $goto;
92 } elseif ($line === "alpha /\n") {
99 function sp($sp, $ch = " ") { return str_repeat($ch, $sp); }
101 printf("switch (ch >> %d) {\n", $b);
102 foreach ($ranges as $sw => $sws) {
103 printf("case 0x%08X:\n", $sw);
104 printf(" switch((ch & 0x%08X) >> %d) {\n", $m, $b2);
105 foreach ($sws as $sw2 => $specs) {
106 printf(" case 0x%08X:\n", $sw2);
109 foreach ($specs as $index => $spec) {
111 list($start, $end, $step) = $spec;
112 if (isset($labels[$sw][$sw2])) {
113 $label = $labels[$sw][$sw2];
114 if ((!$end && $label == $start) ||
($end && $label >= $start && $label <= $end)) {
115 printf("%sc_%08X:;\n", sp($sp), $label);
120 die("\nUNEXPECTED: step>1\n");
121 printf("\tfor (i=0x%08X; i <= 0x%08X; i+= %d) { if (i == ch) return 1; }\n", $start, $end, $step);
123 printf("%sif (ch >= 0x%08X) {\n", sp($sp), $start);
124 printf("%sif (ch <= 0x%08X) return 1;\n", sp(++
$sp), $end);
127 printf("%sif (ch == 0x%08X) return 1;\n", sp($sp), $start);
130 if (isset($gotos[$sw][$sw2]) && !$start) {
131 if (isset($specs[$index +
1])) {
132 list($next) = $specs[$index +
1];
133 printf("%sif (ch < 0x%08X)\n ", sp($sp), $next);
135 $goto = $gotos[$sw][$sw2];
136 printf("%sgoto c_%08X;\n", sp($sp), $goto);
142 printf(" %s\n", sp($sp-2, "}"));
146 printf(" }\n break;\n");
150 file_put_contents("php_http_utf8.h",
151 preg_replace('/(\/\* BEGIN::UTF8SWITCH \*\/\n).*(\n\s*\/\* END::UTF8SWITCH \*\/)/s', '$1'. ob_get_contents() .'$2',
152 file_get_contents("php_http_utf8.h")));