make_dom_exceptions.pl [plain text]
use strict;
use InFilesCompiler;
my %defaultParameters = (
'namespace' => 0
);
sub defaultItemFactory
{
return (
'interfaceName' => 0,
'conditional' => 0
);
}
my $InCompiler = InFilesCompiler->new(\%defaultParameters, \&defaultItemFactory);
my $outputDir = $InCompiler->initializeFromCommandLine();
$InCompiler->compile(\&generateCode);
sub generateCode()
{
my $parsedParametersRef = shift;
my $parsedItemsRef = shift;
generateHeader($parsedParametersRef, $parsedItemsRef);
generateImplementation($parsedParametersRef, $parsedItemsRef);
$InCompiler->generateInterfacesHeader();
$InCompiler->generateHeadersHeader()
}
sub generateHeader()
{
my $parsedParametersRef = shift;
my $parsedItemsRef = shift;
my $F;
my %parsedItems = %{ $parsedItemsRef };
my $outputFile = "$outputDir/ExceptionCodeDescription.h";
open F, ">$outputFile" or die "Failed to open file: $!";
print F $InCompiler->license();
print F "#ifndef ExceptionCodeDescription_h\n";
print F "#define ExceptionCodeDescription_h\n";
print F "\n";
print F "namespace WebCore {\n";
print F "\n";
print F "typedef int ExceptionCode;\n";
print F "\n";
print F "enum ExceptionType {\n";
for my $exceptionType (sort keys %parsedItems) {
my $conditional = $parsedItems{$exceptionType}{"conditional"};
print F "#if ENABLE($conditional)\n" if $conditional;
print F " ${exceptionType}Type,\n";
print F "#endif\n" if $conditional;
}
print F "};\n";
print F "\n";
print F "struct ExceptionCodeDescription {\n";
print F " explicit ExceptionCodeDescription(ExceptionCode);\n";
print F "\n";
print F " // |typeName| has spaces and is suitable for use in exception\n";
print F " // description strings; maximum length is 10 characters.\n";
print F " const char* typeName; \n";
print F "\n";
print F " // |name| is the exception name, also intended for use in exception\n";
print F " // description strings; 0 if name not known; maximum length is 27\n";
print F " // characters.\n";
print F " const char* name; \n";
print F "\n";
print F " // |description| is the exception description, intended for use in\n";
print F " // exception strings. It is a more readable explanation of error.\n";
print F " const char* description;\n";
print F "\n";
print F " // |code| is the numeric value of the exception within a particular type.\n";
print F " int code; \n";
print F "\n";
print F " ExceptionType type;\n";
print F "};\n";
print F "\n";
print F "} // namespace WebCore\n";
print F "\n";
print F "#endif // ExceptionCodeDescription_h\n";
close F;
}
sub generateImplementation()
{
my $parsedParametersRef = shift;
my $parsedItemsRef = shift;
my $F;
my %parsedItems = %{ $parsedItemsRef };
my $outputFile = "$outputDir/ExceptionCodeDescription.cpp";
open F, ">$outputFile" or die "Failed to open file: $!";
print F $InCompiler->license();
print F "#include \"config.h\"\n";
print F "#include \"ExceptionCodeDescription.h\"\n";
print F "\n";
print F "#include \"ExceptionCode.h\"\n";
for my $exceptionType (sort keys %parsedItems) {
my $conditional = $parsedItems{$exceptionType}{"conditional"};
print F "#if ENABLE($conditional)\n" if $conditional;
print F "#include \"$exceptionType.h\"\n";
print F "#endif\n" if $conditional;
}
print F "#if ENABLE(INDEXED_DATABASE)\n";
print F "#include \"IDBDatabaseException.h\"\n";
print F "#endif\n";
print F "\n";
print F "namespace WebCore {\n";
print F "\n";
print F "ExceptionCodeDescription::ExceptionCodeDescription(ExceptionCode ec)\n";
print F "{\n";
print F " ASSERT(ec);\n";
for my $exceptionType (sort keys %parsedItems) {
next if $exceptionType eq "DOMCoreException";
my $conditional = $parsedItems{$exceptionType}{"conditional"};
print F "#if ENABLE($conditional)\n" if $conditional;
print F " if (${exceptionType}::initializeDescription(ec, this))\n";
print F " return;\n";
print F "#endif\n" if $conditional;
}
print F "#if ENABLE(INDEXED_DATABASE)\n";
print F " if (IDBDatabaseException::initializeDescription(ec, this))\n";
print F " return;\n";
print F "#endif\n";
print F " if (DOMCoreException::initializeDescription(ec, this))\n";
print F " return;\n";
print F " ASSERT_NOT_REACHED();\n";
print F "}\n";
print F "\n";
print F "} // namespace WebCore\n";
close F;
}