38 lines
779 B
Perl
Executable File
38 lines
779 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
|
|
while(<>) {
|
|
if (/([^\\])`/) {
|
|
print $`,$1;
|
|
$_ = $';
|
|
print "(";
|
|
$first = 1;
|
|
# Split into literal strings and {...} blocks
|
|
while(1) {
|
|
if (/^`/) {
|
|
$_ = $';
|
|
last;
|
|
}
|
|
elsif (/^{([^}]*)}/) {
|
|
$_ = $';
|
|
if ($first) { $first = 0; } else { print "; "; }
|
|
print $1;
|
|
}
|
|
elsif (/^(([^`{\\]|\\[`"ntbr{\\]|\\[0-9][0-9][0-9])*)/) {
|
|
$_ = $';
|
|
$string = $1;
|
|
$string =~ s/\\([`{])/\1/g;
|
|
if ($first) { $first = 0; } else { print "; "; }
|
|
print "emit_string \"", $string, "\"";
|
|
}
|
|
else {
|
|
print STDERR "Unterminated `...` at line $.\n";
|
|
exit(2);
|
|
}
|
|
}
|
|
print ")", $_;
|
|
} else {
|
|
s/\\`/`/g;
|
|
print $_;
|
|
}
|
|
}
|