WebKitTools/Scripts/run-sunspider

   1 #!/usr/bin/perl -w
   2
   3 # Copyright (C) 2007 Apple Inc.  All rights reserved.
   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 # 1. Redistributions of source code must retain the above copyright
   9 #    notice, this list of conditions and the following disclaimer.
  10 # 2. Redistributions in binary form must reproduce the above copyright
  11 #    notice, this list of conditions and the following disclaimer in the
  12 #    documentation and/or other materials provided with the distribution.
  13 #
  14 # THIS SOFTWARE IS PROVIDED BY APPLE COMPUTER, INC. ``AS IS'' AND ANY
  15 # EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  16 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  17 # PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL APPLE COMPUTER, INC. OR
  18 # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
  19 # EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
  20 # PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
  21 # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
  22 # OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  23 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
  24 # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  25
  26 use strict;
  27 use FindBin;
  28 use lib $FindBin::Bin;
  29 use webkitdirs;
  30 use POSIX;
  31
  32
  33 # determine configuration
  34 my $configuration;
  35 setConfiguration();
  36 $configuration = configuration();
  37
  38 my @xcodeArgs;
  39 my $root;
  40
  41 # pre-evaluate arguments.  jsDriver args have - preceding, xcode args do not.
  42 # special arguments
  43 #     --root=<path to webkit root> use pre-built root
  44 #     --gtk build gtk
  45 foreach my $arg(@ARGV) {
  46     print $arg."\n";
  47     if( $arg =~ /root=(.*)/ ){
  48         $root = $1;
  49     } elsif( $arg =~ /^--gtk$/i ){
  50     } else {
  51         push( @xcodeArgs, $arg );
  52     }
  53 }
  54
  55 setConfigurationProductDir(Cwd::abs_path($root)) if (defined($root));
  56
  57 # Find JavaScriptCore directory
  58 chdirWebKit();
  59 chdir("JavaScriptCore");
  60
  61 #compile TestKJS
  62 my @options = XcodeOptions();
  63 my $result;
  64 if (!defined($root)){
  65     if (isOSX()) {
  66         $result = system "xcodebuild", "-project", "JavaScriptCore.xcodeproj", "-target", "testkjs", @options, @xcodeArgs;
  67     }elsif (isCygwin()) {
  68         $result = buildVisualStudioProject("JavaScriptCore.vcproj/JavaScriptCore.sln");
  69     }
  70     exit WEXITSTATUS($result) if WEXITSTATUS($result);
  71 }
  72
  73 my $productDir = productDir();
  74
  75 $productDir .= "/JavaScriptCore" if (isQt() or isGtk());
  76 $ENV{DYLD_FRAMEWORK_PATH} = $productDir;
  77
  78 my $testkjsName;
  79 sub determineTestkjsName
  80 {
  81     return if $testkjsName;
  82     if (isCygwin() && ($configuration eq "Debug")) {
  83         $testkjsName = "testkjs_debug";
  84     } else {
  85         $testkjsName = "testkjs";
  86     }
  87 }
  88 $testkjsName = determineTestkjsName();
  89
  90 chdirWebKit();
  91 chdir("SunSpider");
  92
  93 exec "./sunspider", "$productDir/$testkjsName";