1 line
414 B
Perl
Executable File
1 line
414 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
foreach $f (@ARGV)
|
|
{
|
|
open(STDIN,"<$f") || die;
|
|
$f =~ s/\.[a-zA-Z]*$//; # strip extension
|
|
($name,$id) = split('=',$f);
|
|
$name =~ s/.*://; # strip path
|
|
print "data 'TEXT' ($id," . '"' . "$name" . '"' . ",purgeable) {\n";
|
|
$neednewline = 0;
|
|
while(<STDIN>)
|
|
{
|
|
chop;
|
|
s/"/\\"/g;
|
|
if ($neednewline) {print ' "\n" ';}
|
|
$neednewline = 1;
|
|
print ' "' . $_ . '"' . "\n";
|
|
}
|
|
print "};\n";
|
|
}
|