code.vuplus.com Git - vuplus_webkit/blob - Tools/Scripts/webkitperl/features.pm

   1 # Copyright (C) 2005, 2006, 2007, 2008, 2009 Apple Inc. All rights reserved
   2 # Copyright (C) 2006 Alexey Proskuryakov (ap@nypop.com)
   3 # Copyright (C) 2010 Andras Becsi (abecsi@inf.u-szeged.hu), University of Szeged
   4 #
   5 # Redistribution and use in source and binary forms, with or without
   6 # modification, are permitted provided that the following conditions
   7 # are met:
   8 #
   9 # 1.  Redistributions of source code must retain the above copyright
  10 #     notice, this list of conditions and the following disclaimer.
  11 # 2.  Redistributions in binary form must reproduce the above copyright
  12 #     notice, this list of conditions and the following disclaimer in the
  13 #     documentation and/or other materials provided with the distribution.
  14 # 3.  Neither the name of Apple Computer, Inc. ("Apple") nor the names of
  15 #     its contributors may be used to endorse or promote products derived
  16 #     from this software without specific prior written permission.
  17 #
  18 # THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY
  19 # EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
  20 # WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  21 # DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY
  22 # DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
  23 # (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  24 # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
  25 # ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  26 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  27 # THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  28
  29 # Module to share code to detect the existance of features in built binaries.
  30
  31 use strict;
  32 use warnings;
  33
  34 BEGIN {
  35    use Exporter   ();
  36    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
  37    $VERSION     = 1.00;
  38    @ISA         = qw(Exporter);
  39    @EXPORT      = qw(&checkWebCoreFeatureSupport
  40                      &removeLibraryDependingOnFeature);
  41    %EXPORT_TAGS = ( );
  42    @EXPORT_OK   = ();
  43 }
  44
  45 sub libraryContainsSymbol($$)
  46 {
  47     my ($path, $symbol) = @_;
  48
  49     if (isCygwin() or isWindows()) {
  50         # FIXME: Implement this for Windows.
  51         return 0;
  52     }
  53
  54     my $foundSymbol = 0;
  55     if (-e $path) {
  56         open NM, "-|", "nm", $path or die;
  57         while (<NM>) {
  58             $foundSymbol = 1 if /$symbol/; # FIXME: This should probably check for word boundaries before/after the symbol name.
  59         }
  60         close NM;
  61     }
  62     return $foundSymbol;
  63 }
  64
  65 sub hasFeature($$)
  66 {
  67     my ($featureName, $path) = @_;
  68     my %symbolForFeature = (
  69         "MathML" => "MathMLElement",
  70         "SVG" => "SVGDefsElement", # We used to look for SVGElement but isSVGElement exists (and would match) in --no-svg builds.
  71         "Accelerated Compositing" => "GraphicsLayer",
  72         "3D Rendering" => "WebCoreHas3DRendering",
  73         "3D Canvas" => "WebGLShader",
  74         "WCSS" => "parseWCSSInputProperty",
  75         "XHTMLMP" => "isXHTMLMPDocument",
  76         "MHTML" => "MHTMLArchive"
  77     );
  78     my $symbolName = $symbolForFeature{$featureName};
  79     die "Unknown feature: $featureName" unless $symbolName;
  80     return libraryContainsSymbol($path, $symbolName);
  81 }
  82
  83 sub checkWebCoreFeatureSupport($$)
  84 {
  85     my ($feature, $required) = @_;
  86     my $libraryName = "WebCore";
  87     my $path = builtDylibPathForName($libraryName);
  88     my $hasFeature = hasFeature($feature, $path);
  89     if ($required && !$hasFeature) {
  90         die "$libraryName at \"$path\" does not include $hasFeature support.  See build-webkit --help\n";
  91     }
  92     return $hasFeature;
  93 }
  94
  95 sub removeLibraryDependingOnFeature($$$)
  96 {
  97     my ($libraryName, $featureName, $shouldHaveFeature) = @_;
  98     my $path = builtDylibPathForName($libraryName);
  99     return unless -x $path;
 100
 101     my $hasFeature = hasFeature($featureName, $path);
 102     system "rm -f $path" if ($shouldHaveFeature xor $hasFeature);
 103 }
 104
 105 1;