diff options
author | Ben Murdoch <benm@google.com> | 2011-05-05 14:36:32 +0100 |
---|---|---|
committer | Ben Murdoch <benm@google.com> | 2011-05-10 15:38:30 +0100 |
commit | f05b935882198ccf7d81675736e3aeb089c5113a (patch) | |
tree | 4ea0ca838d9ef1b15cf17ddb3928efb427c7e5a1 /WebKitTools/Scripts/webkitperl/features.pm | |
parent | 60fbdcc62bced8db2cb1fd233cc4d1e4ea17db1b (diff) | |
download | external_webkit-f05b935882198ccf7d81675736e3aeb089c5113a.zip external_webkit-f05b935882198ccf7d81675736e3aeb089c5113a.tar.gz external_webkit-f05b935882198ccf7d81675736e3aeb089c5113a.tar.bz2 |
Merge WebKit at r74534: Initial merge by git.
Change-Id: I6ccd1154fa1b19c2ec2a66878eb675738735f1eb
Diffstat (limited to 'WebKitTools/Scripts/webkitperl/features.pm')
-rw-r--r-- | WebKitTools/Scripts/webkitperl/features.pm | 105 |
1 files changed, 0 insertions, 105 deletions
diff --git a/WebKitTools/Scripts/webkitperl/features.pm b/WebKitTools/Scripts/webkitperl/features.pm deleted file mode 100644 index 7ca924b..0000000 --- a/WebKitTools/Scripts/webkitperl/features.pm +++ /dev/null @@ -1,105 +0,0 @@ -# Copyright (C) 2005, 2006, 2007, 2008, 2009 Apple Inc. All rights reserved -# Copyright (C) 2006 Alexey Proskuryakov (ap@nypop.com) -# Copyright (C) 2010 Andras Becsi (abecsi@inf.u-szeged.hu), University of Szeged -# -# Redistribution and use in source and binary forms, with or without -# modification, are permitted provided that the following conditions -# are met: -# -# 1. Redistributions of source code must retain the above copyright -# notice, this list of conditions and the following disclaimer. -# 2. Redistributions in binary form must reproduce the above copyright -# notice, this list of conditions and the following disclaimer in the -# documentation and/or other materials provided with the distribution. -# 3. Neither the name of Apple Computer, Inc. ("Apple") nor the names of -# its contributors may be used to endorse or promote products derived -# from this software without specific prior written permission. -# -# THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY -# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE -# DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY -# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES -# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; -# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND -# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT -# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF -# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -# Module to share code to detect the existance of features in built binaries. - -use strict; -use warnings; - -BEGIN { - use Exporter (); - our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); - $VERSION = 1.00; - @ISA = qw(Exporter); - @EXPORT = qw(&checkWebCoreFeatureSupport - &removeLibraryDependingOnFeature); - %EXPORT_TAGS = ( ); - @EXPORT_OK = (); -} - -sub libraryContainsSymbol($$) -{ - my ($path, $symbol) = @_; - - if (isCygwin() or isWindows()) { - # FIXME: Implement this for Windows. - return 0; - } - - my $foundSymbol = 0; - if (-e $path) { - open NM, "-|", "nm", $path or die; - while (<NM>) { - $foundSymbol = 1 if /$symbol/; # FIXME: This should probably check for word boundaries before/after the symbol name. - } - close NM; - } - return $foundSymbol; -} - -sub hasFeature($$) -{ - my ($featureName, $path) = @_; - my %symbolForFeature = ( - "MathML" => "MathMLElement", - "SVG" => "SVGDefsElement", # We used to look for SVGElement but isSVGElement exists (and would match) in --no-svg builds. - "Accelerated Compositing" => "GraphicsLayer", - "3D Rendering" => "WebCoreHas3DRendering", - "3D Canvas" => "WebGLShader", - "WML" => "WMLElement", - "WCSS" => "parseWCSSInputProperty", - "XHTMLMP" => "isXHTMLMPDocument", - ); - my $symbolName = $symbolForFeature{$featureName}; - die "Unknown feature: $featureName" unless $symbolName; - return libraryContainsSymbol($path, $symbolName); -} - -sub checkWebCoreFeatureSupport($$) -{ - my ($feature, $required) = @_; - my $libraryName = "WebCore"; - my $path = builtDylibPathForName($libraryName); - my $hasFeature = hasFeature($feature, $path); - if ($required && !$hasFeature) { - die "$libraryName at \"$path\" does not include $hasFeature support. See build-webkit --help\n"; - } - return $hasFeature; -} - -sub removeLibraryDependingOnFeature($$$) -{ - my ($libraryName, $featureName, $shouldHaveFeature) = @_; - my $path = builtDylibPathForName($libraryName); - return unless -x $path; - - my $hasFeature = hasFeature($featureName, $path); - system "rm -f $path" if ($shouldHaveFeature xor $hasFeature); -} - -1; |