generateAboutDataFeatures.pl [plain text]
use strict;
my $macro = shift;
my $inputFileName = shift;
my $outputFileName = shift;
my $input;
my $output;
open($input, '<', $inputFileName) or die "Can't open file for read: $inputFileName $!";
chop(my @features = <$input>);
close($input);
open($output, '>', $outputFileName) or die "Can't open file for write: $outputFileName $!";
print $output "// This is a generated fragment of about features for AboutData.cpp of the BlackBerry porting.\n";
print $output "// Don't edit me manually.\n\n";
foreach my $feature(@features) {
print $output "#if " . $macro . "(" . $feature . ")\n";
print $output " trueList.append(\n";
print $output "#else\n";
print $output " falseList.append(\n";
print $output "#endif\n";
print $output " " . "\"" . $feature . "\");\n\n";
}
close($output);