From: Vadim Zeitlin <vadim@wxwidgets.org>
Date: Sun, 29 Jul 2007 01:20:00 +0000 (+0000)
Subject: removed the script which only worked with cvs
X-Git-Url: https://git.saurik.com/wxWidgets.git/commitdiff_plain/0c689c8dd6c5fd9237cb7fc5a1227d6029bfbdf9

removed the script which only worked with cvs

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@47804 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
---

diff --git a/difflast.pl b/difflast.pl
deleted file mode 100755
index d1473e627a..0000000000
--- a/difflast.pl
+++ /dev/null
@@ -1,82 +0,0 @@
-#!/usr/bin/perl -w
-
-###############################################################################
-# Name:     difflast.pl
-# Purpose:  Shows the difference between the current local version of the file
-#           and the last cvs revision
-# Version:  $Id$
-# Author:   VZ
-# Created:  23.12.99
-# Copyright:(c) Vadim Zeitlin 1999
-###############################################################################
-
-use strict;
-
-my $CVS = "cvs -z3";    # the cvs command
-
-# the regexp for cvs revision number
-my $RE_CVS_REV = "\\d+(?:\\.\\d+)+";
-
-sub dec_rev($)
-{
-    my $rev = $_[0];
-
-    # decrement the revision number to get the previos one
-    $rev =~ s/(\d+)$/$1 - 1/e;
-
-    return $rev;
-}
-
-sub get_last_rev($)
-{
-    my $file = $_[0];
-
-    my $basename = $file;
-    $basename =~ s@^.*/@@;
-
-    # first get the current version: try the Id RCS tag in the file itself
-    # first, use "cvs status" if this fails
-    if ( open(INPUT, $file) ) {
-        while (<INPUT>) {
-            # notice that we shouldn't have '$' followed by 'Id' or cvs will
-            # substitute it!
-            if ( /\$(Id): $basename,v ($RE_CVS_REV)/ ) {
-                return &dec_rev($2);
-            }
-        }
-    }
-
-    open(INPUT, "$CVS -q status $file |") or return 0;
-
-    while (<INPUT>) {
-        if ( /Working revision:\s+($RE_CVS_REV)/ ) {
-            return &dec_rev($1);
-        }
-    }
-
-    return 0;
-}
-
-sub process_file($)
-{
-    my $file = $_[0];
-    my $revlast = &get_last_rev($file);
-
-    if ( !$revlast ) {
-        warn "Failed to get the last revision for $file, skipping.\n"
-    }
-    elsif ( $revlast =~ '\.0' ) {
-        warn "No previous revision of the file $file.\n"
-    }
-    else {
-        print `$CVS diff -b -kk -r $revlast $file`;
-    }
-}
-
-# entry point
-
-die "Usage: $0 <filenames...>\n" if ( $#ARGV == -1 );
-
-foreach my $file (@ARGV) { process_file($file); }
-
-exit 0;