torque
24810cbbbd
subrepo: subdir: "deps/cmark" merged: "5ba25ff" upstream: origin: "https://github.com/commonmark/cmark.git" branch: "0.30.3" commit: "5ba25ff" git-subrepo: version: "0.4.6" commit: "d4444b563"
23 lines
525 B
Raku
Executable File
23 lines
525 B
Raku
Executable File
binmode STDOUT;
|
|
print(" switch (c) {\n");
|
|
my $lastchar = "";
|
|
while (<STDIN>) {
|
|
if (/^[A-F0-9]/ and / [CF]; /) {
|
|
my ($char, $type, $subst) = m/([A-F0-9]+); ([CF]); ([^;]+)/;
|
|
if ($char eq $lastchar) {
|
|
break;
|
|
}
|
|
my @subst = $subst =~ m/(\w+)/g;
|
|
printf(" case 0x%s:\n", $char);
|
|
foreach (@subst) {
|
|
printf(" bufpush(0x%s);\n", $_);
|
|
}
|
|
printf(" break;\n");
|
|
$lastchar = $char;
|
|
}
|
|
}
|
|
printf(" default:\n");
|
|
printf(" bufpush(c);\n");
|
|
print(" }\n");
|
|
|