X-Git-Url: https://git.webkit.org/?p=WebKit-https.git;a=blobdiff_plain;f=WebKitTools%2FScripts%2Fwebkitdirs.pm;h=a2191f4774eb2572740565ad9585b942ec267ac4;hp=409ddc34da1e62817730499f831ccf7435d734be;hb=7662270b169d52077a6d8c3a17b33bd1eccc6f5a;hpb=b425c74aa633efa890bab264a2fc869693c8250c

diff --git a/WebKitTools/Scripts/webkitdirs.pm b/WebKitTools/Scripts/webkitdirs.pm
index 409ddc34da1e..a2191f4774eb 100644
--- a/WebKitTools/Scripts/webkitdirs.pm
+++ b/WebKitTools/Scripts/webkitdirs.pm
@@ -35,7 +35,7 @@ BEGIN {
    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
    $VERSION     = 1.00;
    @ISA         = qw(Exporter);
-   @EXPORT      = qw(&chdirWebKit &baseProductDir &productDir &XcodeOptions &XcodeOptionString &XcodeOptionStringNoConfig &passedConfiguration &setConfiguration &safariPath &checkFrameworks);
+   @EXPORT      = qw(&chdirWebKit &baseProductDir &productDir &XcodeOptions &XcodeOptionString &XcodeOptionStringNoConfig &passedConfiguration &setConfiguration &safariPath &checkFrameworks &currentSVNRevision);
    %EXPORT_TAGS = ( );
    @EXPORT_OK   = ();
 }
@@ -47,6 +47,8 @@ my @baseProductDirOption;
 my $configuration;
 my $configurationProductDir;
 my $sourceDir;
+my $currentSVNRevision;
+
 
 # Variables for Win32 support
 my $devenvPath;
@@ -133,6 +135,17 @@ sub determineConfigurationProductDir
     $configurationProductDir = "$baseProductDir/$configuration";
 }
 
+sub determineCurrentSVNRevision
+{
+    return if defined $currentSVNRevision;
+    determineSourceDir();
+    my $svnInfo = `svn info $sourceDir | grep Revision:`;
+    ($currentSVNRevision) = ($svnInfo =~ m/Revision: (\d+).*/g);
+    die "Unable to determine current SVN revision in $sourceDir" unless (defined $currentSVNRevision);
+    return $currentSVNRevision;
+}
+
+
 sub chdirWebKit
 {
     determineSourceDir();
@@ -157,6 +170,12 @@ sub configuration()
     return $configuration;
 }
 
+sub currentSVNRevision
+{
+    determineCurrentSVNRevision();
+    return $currentSVNRevision;
+}
+
 sub XcodeOptions
 {
     determineBaseProductDir();