diff options
Diffstat (limited to 'V8Binding/scripts/CodeGenerator.pm')
| -rw-r--r-- | V8Binding/scripts/CodeGenerator.pm | 334 |
1 files changed, 334 insertions, 0 deletions
diff --git a/V8Binding/scripts/CodeGenerator.pm b/V8Binding/scripts/CodeGenerator.pm new file mode 100644 index 0000000..d115459 --- /dev/null +++ b/V8Binding/scripts/CodeGenerator.pm @@ -0,0 +1,334 @@ +# +# KDOM IDL parser +# +# Copyright (C) 2005 Nikolas Zimmermann <wildfox@kde.org> +# Copyright (C) 2006 Samuel Weinig <sam.weinig@gmail.com> +# +# This file is part of the KDE project +# +# This library is free software; you can redistribute it and/or +# modify it under the terms of the GNU Library General Public +# License as published by the Free Software Foundation; either +# version 2 of the License, or (at your option) any later version. +# +# This library is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# Library General Public License for more details. +# +# You should have received a copy of the GNU Library General Public License +# aint with this library; see the file COPYING.LIB. If not, write to +# the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +# Boston, MA 02111-1307, USA. +# + +package CodeGenerator; + +my $useDocument = ""; +my $useGenerator = ""; +my $useOutputDir = ""; +my $useDirectories = ""; +my $useLayerOnTop = 0; +my $preprocessor; + +my $codeGenerator = 0; + +my $verbose = 0; + +my %primitiveTypeHash = ("int" => 1, "short" => 1, "long" => 1, "long long" => 1, + "unsigned int" => 1, "unsigned short" => 1, + "unsigned long" => 1, "float" => 1, + "unsigned long long" => 1, + "double" => 1, "boolean" => 1, "void" => 1); + +my %podTypeHash = ("SVGNumber" => 1, "SVGTransform" => 1); +my %podTypeWithWriteablePropertiesHash = ("SVGLength" => 1, "SVGMatrix" => 1, "SVGPoint" => 1, "SVGRect" => 1); +my %stringTypeHash = ("DOMString" => 1, "AtomicString" => 1); + +my %nonPointerTypeHash = ("DOMTimeStamp" => 1, "CompareHow" => 1, "SVGPaintType" => 1); + +my %svgAnimatedTypeHash = ("SVGAnimatedAngle" => 1, "SVGAnimatedBoolean" => 1, + "SVGAnimatedEnumeration" => 1, "SVGAnimatedInteger" => 1, + "SVGAnimatedLength" => 1, "SVGAnimatedLengthList" => 1, + "SVGAnimatedNumber" => 1, "SVGAnimatedNumberList" => 1, + "SVGAnimatedPreserveAspectRatio" => 1, + "SVGAnimatedRect" => 1, "SVGAnimatedString" => 1, + "SVGAnimatedTransformList" => 1); + +# Helpers for 'ScanDirectory' +my $endCondition = 0; +my $foundFilename = ""; +my @foundFilenames = (); +my $ignoreParent = 1; +my $defines = ""; + +# Default constructor +sub new +{ + my $object = shift; + my $reference = { }; + + $useDirectories = shift; + $useGenerator = shift; + $useOutputDir = shift; + $useLayerOnTop = shift; + $preprocessor = shift; + + bless($reference, $object); + return $reference; +} + +sub StripModule($) +{ + my $object = shift; + my $name = shift; + $name =~ s/[a-zA-Z0-9]*:://; + return $name; +} + +sub ProcessDocument +{ + my $object = shift; + $useDocument = shift; + $defines = shift; + + my $ifaceName = "CodeGenerator" . $useGenerator; + + # Dynamically load external code generation perl module + require $ifaceName . ".pm"; + $codeGenerator = $ifaceName->new($object, $useOutputDir, $useLayerOnTop, $preprocessor); + unless (defined($codeGenerator)) { + my $classes = $useDocument->classes; + foreach my $class (@$classes) { + print "Skipping $useGenerator code generation for IDL interface \"" . $class->name . "\".\n" if $verbose; + } + return; + } + + # Start the actual code generation! + $codeGenerator->GenerateModule($useDocument, $defines); + + my $classes = $useDocument->classes; + foreach my $class (@$classes) { + print "Generating $useGenerator bindings code for IDL interface \"" . $class->name . "\"...\n" if $verbose; + $codeGenerator->GenerateInterface($class, $defines); + $codeGenerator->finish(); + } +} + + +sub FindParentsRecursively +{ + my $object = shift; + my $dataNode = shift; + my @parents = ($dataNode->name); + foreach (@{$dataNode->parents}) { + my $interface = $object->StripModule($_); + + $endCondition = 0; + $foundFilename = ""; + foreach (@{$useDirectories}) { + $object->ScanDirectory("$interface.idl", $_, $_, 0) if ($foundFilename eq ""); + } + + if ($foundFilename ne "") { + print " | |> Parsing parent IDL \"$foundFilename\" for interface \"$interface\"\n" if $verbose; + + # Step #2: Parse the found IDL file (in quiet mode). + my $parser = IDLParser->new(1); + my $document = $parser->ParseInheritance($foundFilename, $defines, $preprocessor); + + foreach my $class (@{$document->classes}) { + @parents = (@parents, FindParentsRecursively($object, $class)); + } + } else { + die("Could NOT find specified parent interface \"$interface\"!\n") + } + } + return @parents; +} + + +sub AddMethodsConstantsAndAttributesFromParentClasses +{ + # For the passed interface, recursively parse all parent + # IDLs in order to find out all inherited properties/methods. + + my $object = shift; + my $dataNode = shift; + + my @parents = @{$dataNode->parents}; + my $parentsMax = @{$dataNode->parents}; + + my $constantsRef = $dataNode->constants; + my $functionsRef = $dataNode->functions; + my $attributesRef = $dataNode->attributes; + + # Exception: For the DOM 'Node' is our topmost baseclass, not EventTargetNode. + foreach (@{$dataNode->parents}) { + my $interface = $object->StripModule($_); + + # Don't ignore the first class EventTarget + if ($interface ne "EventTarget" && $ignoreParent) { + # Ignore first parent class, already handled by the generation itself. + $ignoreParent = 0; + next; + } + + # Step #1: Find the IDL file associated with 'interface' + $endCondition = 0; + $foundFilename = ""; + + foreach (@{$useDirectories}) { + $object->ScanDirectory("$interface.idl", $_, $_, 0) if ($foundFilename eq ""); + } + + if ($foundFilename ne "") { + print " | |> Parsing parent IDL \"$foundFilename\" for interface \"$interface\"\n" if $verbose; + + # Step #2: Parse the found IDL file (in quiet mode). + my $parser = IDLParser->new(1); + my $document = $parser->Parse($foundFilename, $defines, $preprocessor); + + foreach my $class (@{$document->classes}) { + # Step #3: Enter recursive parent search + AddMethodsConstantsAndAttributesFromParentClasses($object, $class); + + # Step #4: Collect constants & functions & attributes of this parent-class + my $constantsMax = @{$class->constants}; + my $functionsMax = @{$class->functions}; + my $attributesMax = @{$class->attributes}; + + print " | |> -> Inheriting $constantsMax constants, $functionsMax functions, $attributesMax attributes...\n | |>\n" if $verbose; + + # Step #5: Concatenate data + push(@$constantsRef, $_) foreach (@{$class->constants}); + push(@$functionsRef, $_) foreach (@{$class->functions}); + push(@$attributesRef, $_) foreach (@{$class->attributes}); + } + } else { + die("Could NOT find specified parent interface \"$interface\"!\n"); + } + } +} + +# Append an attribute to an array if its name does not exist in the array. +sub AppendAttribute +{ + my $attributes = shift; + my $newAttr = shift; + foreach (@$attributes) { + if ($_->signature->name eq $newAttr->signature->name) { + print " | |> -> $newAttr->signature->name is overridden.\n | |>\n" if $verbose; + return; + } + } + push(@$attributes, $newAttr); +} + +# Helpers for all CodeGenerator***.pm modules +sub IsPodType +{ + my $object = shift; + my $type = shift; + + return 1 if $podTypeHash{$type}; + return 1 if $podTypeWithWriteablePropertiesHash{$type}; + return 0; +} + +sub IsPodTypeWithWriteableProperties +{ + my $object = shift; + my $type = shift; + + return 1 if $podTypeWithWriteablePropertiesHash{$type}; + return 0; +} + +sub IsPrimitiveType +{ + my $object = shift; + my $type = shift; + + return 1 if $primitiveTypeHash{$type}; + return 0; +} + +sub IsStringType +{ + my $object = shift; + my $type = shift; + + return 1 if $stringTypeHash{$type}; + return 0; +} + +sub IsNonPointerType +{ + my $object = shift; + my $type = shift; + + return 1 if $nonPointerTypeHash{$type} or $primitiveTypeHash{$type}; + return 0; +} + +sub IsSVGAnimatedType +{ + my $object = shift; + my $type = shift; + + return 1 if $svgAnimatedTypeHash{$type}; + return 0; +} + +# Internal Helper +sub ScanDirectory +{ + my $object = shift; + + my $interface = shift; + my $directory = shift; + my $useDirectory = shift; + my $reportAllFiles = shift; + + print "Scanning interface " . $interface . " in " . $directory . "\n" if $verbose; + + return if ($endCondition eq 1) and ($reportAllFiles eq 0); + + my $sourceRoot = $ENV{SOURCE_ROOT}; + my $thisDir = $sourceRoot ? "$sourceRoot/$directory" : $directory; + + opendir(DIR, $thisDir) or die "[ERROR] Can't open directory $thisDir: \"$!\"\n"; + + my @names = readdir(DIR) or die "[ERROR] Cant't read directory $thisDir \"$!\"\n"; + closedir(DIR); + + foreach my $name (@names) { + # Skip if we already found the right file or + # if we encounter 'exotic' stuff (ie. '.', '..', '.svn') + next if ($endCondition eq 1) or ($name =~ /^\./); + + # Recurisvely enter directory + if (-d "$thisDir/$name") { + $object->ScanDirectory($interface, "$directory/$name", $useDirectory, $reportAllFiles); + next; + } + + # Check wheter we found the desired file + my $condition = ($name eq $interface); + $condition = 1 if ($interface eq "allidls") and ($name =~ /\.idl$/); + + if ($condition) { + $foundFilename = "$thisDir/$name"; + + if ($reportAllFiles eq 0) { + $endCondition = 1; + } else { + push(@foundFilenames, $foundFilename); + } + } + } +} + +1; |