OLD | NEW |
| (Empty) |
1 #!/usr/bin/perl -w | |
2 # Copyright (C) 2010 Google Inc. All rights reserved. | |
3 # | |
4 # Redistribution and use in source and binary forms, with or without | |
5 # modification, are permitted provided that the following conditions | |
6 # are met: | |
7 # | |
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 # 3. Neither the name of Apple Inc. ("Apple") nor the names of | |
14 # its contributors may be used to endorse or promote products derived | |
15 # from this software without specific prior written permission. | |
16 # | |
17 # THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY | |
18 # EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED | |
19 # WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE | |
20 # DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY | |
21 # DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES | |
22 # (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | |
23 # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND | |
24 # ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT | |
25 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF | |
26 # THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. | |
27 | |
28 use strict; | |
29 | |
30 use FindBin; | |
31 use Getopt::Long; | |
32 | |
33 use lib $FindBin::Bin; | |
34 use VCSUtils; | |
35 | |
36 sub checkPythonVersion() | |
37 { | |
38 # Will exit 0 if Python is 2.5 or greater, non-zero otherwise. | |
39 `python -c "import sys;sys.exit(sys.version_info[:2] < (2,5))"`; | |
40 return exitStatus($?) == 0; | |
41 } | |
42 | |
43 sub main() | |
44 { | |
45 my $checkOnly = 0; | |
46 my $showHelp = 0; | |
47 my $getOptionsResult = GetOptions( | |
48 'check-only!' => \$checkOnly, | |
49 'help|h' => \$showHelp, | |
50 ); | |
51 if (!$getOptionsResult || $showHelp) { | |
52 print STDERR <<HELP; | |
53 Usage: $0 [options] | |
54 --check-only Check python version only. | |
55 -h|--help Show this help message. | |
56 HELP | |
57 return 1; | |
58 } | |
59 # Congrats, your Python is fine. | |
60 return 0 if checkPythonVersion(); | |
61 | |
62 return 1 if $checkOnly; | |
63 | |
64 print "Your Python version is insufficient to run WebKit's Python code. Ple
ase update.\n"; | |
65 print "See http://trac.webkit.org/wiki/PythonGuidelines for more info.\n"; | |
66 return 1; | |
67 } | |
68 | |
69 exit(main()); | |
OLD | NEW |