Subversion Repositories DevTools

########################################################################

# Copyright (C) 1998-2012 Vix Technology, All rights reserved

#

# Module name   : jats_vcsdiff.pl

# Module type   : Makefile system

# Compiler(s)   : Perl

# Environment(s): jats

#

# Description   : Create two views and DIFF them

#                 The views can be any type understood by JATS

#                 Can:

#                   - Compare with MD5SUms

#                   - Invoke BeyondCompare

#

#......................................................................#

require 5.008_002;

use strict;

use warnings;

use Pod::Usage;

use Getopt::Long;

use JatsError;

use JatsSystem;

use FileUtils;

use Cwd;

my $VERSION = "1.0.0";                      # Update this

#

#   Options

#

my $opt_debug   = $ENV{'GBE_DEBUG'};        # Allow global debug

my $opt_verbose = $ENV{'GBE_VERBOSE'};      # Allow global verbose

my $opt_help = 0;

my $opt_manual = 0;

my $opt_new_label;

my $opt_old_label;

my $opt_md5check;

my $opt_mode;

#

#   Globals - Provided by the JATS environment

#

my $USER            = $ENV{'USER'};

my $UNIX            = $ENV{'GBE_UNIX'};

my $TMP             = $UNIX ? "/tmp" : $ENV{'TMP'};

my $MACHINENAME     = $ENV{'GBE_HOSTNAME'};

#

#   Globals

#

my $BC2             = 'c:/Program Files/Beyond Compare 2/BC2.exe';

my @view_tags;

my @view_commands;

my @cleanFiles;

#-------------------------------------------------------------------------------

# Function        : Mainline Entry Point

#

# Description     :

#

# Inputs          :

#

#

#   Parse the user options

#

my $result = GetOptions (

                "help+"         => \$opt_help,              # Help level

                "manual"        => \$opt_manual,            # Help level

                "verbose:+"     => \$opt_verbose,           # Verbosity

                "debug:+"       => \$opt_debug,             # Debug Verbosity

                "new=s"         => \$opt_new_label,         # Path1

                "old=s"         => \$opt_old_label,         # Path2

                'check'         => \$opt_md5check,          # Force MD5 Check

                );

                #

                #   UPDATE THE DOCUMENTATION AT THE END OF THIS FILE !!!

                #

#

#   Process help and manual options

#

pod2usage(-verbose => 0, -message => "Version: $VERSION")  if ($opt_help == 1  || ! $result );

pod2usage(-verbose => 1)  if ($opt_help == 2 );

pod2usage(-verbose => 2)  if ($opt_manual || ($opt_help > 2));

InitFileUtils();

#

#   Configure the error reporting process now that we have the user options

#

ErrorConfig( 'name'    => 'VCSDIFF',

             'verbose' => $opt_verbose,

             'debug'   => $opt_debug );

#

#   Determine mode

#   Not all modes work on all machines

#

Verbose ("Machine Type: UNIX=$UNIX");

if ( $opt_md5check )

{

    $opt_mode = 'md5';

}

else

{

    $opt_mode = 'bc2';

    Error ("Use of BeyondCompare is limited to Windows", "Only the -check mode is available under Unix")

        if ( $UNIX );

    #

    #   Determine the path to BC2.EXE

    #   It maynot be installed inthe default place

    #

    if ( ! -x $BC2 )

    {

        $BC2 = GetBc2ExePath();

    }

}

#

#   Validate user options

#

#   Be nice to the user

#   If we have two options and no labels, then assign them

#

if ( ! $opt_new_label && ! $opt_old_label )

{

    Error ("Must provide two labels on command line unless they are provided via -old and -new options")

         if ( $#ARGV < 1 );

    $opt_old_label = shift @ARGV;

    $opt_new_label = shift @ARGV;

}

Error ("Need two labels on the command line, or via options")

    unless ( $opt_old_label && $opt_new_label );

Error ("Too many command line arguments" )

    unless ( $#ARGV < 0 );

#

#   Extract parameters that will be used to create a view that is

#   unique. Will use hostname and user name

#

Error ("Machine Name not determined")

    unless ( $MACHINENAME );

Error ("USER name not determined" )

    unless ( $USER );

#

#   Need a TMP working directory

#   Used to create config files

#

Error ("TMP not found or not a directory")

    unless ( $TMP && -d $TMP );

$TMP = "$TMP/$$";

#

#   Create views for the two views

#   Verify that the view are present

#

Message ("Constructing views");

my $path1 = create_view( $opt_old_label, 1 );

my $path2 = create_view( $opt_new_label, 2 );

Error ("Cannot locate view directory: $path1" ) unless (-d $path1);

Error ("Cannot locate view directory: $path2" ) unless (-d $path2);

#

#   If one of the paths is a dynamic view and the other is a local path

#   then attempt to locate the common directories

#

if ( $#view_tags == 0 )

{

    massage_paths();

}

if ( $opt_md5check )

{

    Verbose ("Performing MD5 Check");

    my $checkfile = 'vcsdiff_md5.txt';

    my $rv;

    push @cleanFiles, $checkfile;

    $rv = JatsTool ('jats_manifest', '-quiet',

                '-manifest', $checkfile,

                '-rootdir', $path1 );

    $rv = JatsTool ('jats_manifest', '-quiet', '-check',

                '-manifest', $checkfile,

                '-rootdir', $path2 ) unless $rv;

    exit $rv;

}

Message ("Using Beyond Compare to compare two views",

         "Wait for BC2 to exit so that we can delete the views" );

System ( $BC2, $path1, $path2 );

exit 0;

#-------------------------------------------------------------------------------

# Function        : create_view

#

# Description     : Create dynamic view, based on a Vcs Tag

#

# Inputs          : $vcstag

#

# Returns         : Path to the view

#

sub create_view

{

    my ($vcstag, $num) = @_;

    #

    #   Intercept and treat the special label 'current'

    #

    return create_path_view( $vcstag )

        if ( $vcstag eq 'current'  || $vcstag =~ m~^dir=.+~ || $vcstag =~ m~^current=.+~ );

    my $tag = "${USER}_${MACHINENAME}_vcsdiff_${num}";

    push @view_tags, $tag;

    #

    #   Use vcsrelease to do the hard work

    #

    my @command = ( 'jats_vcsrelease',

                        '-extractfiles',

                        '-root=.' ,

                        '-noprefix',

                        '-devmode=escrow',

                        '-view', $tag ,

                        '-label', $vcstag,

                   );

    push @view_commands, \@command;

    if ( $opt_debug && -d $tag )

    {

        Message ("Using existing view");

    }

    else

    {

        JatsTool( @command );

    }

    #

    #   Minor Kludge

    #       Should be in a library

    #   Iff CC::, then process path info too

    #

    if ( $vcstag =~ m~^CC::(.*?)(::(.+))?$~ )

    {

        my $path = $1;

        if ( $path )

        {

            my $try = $tag . '/' . $path;

            if ( -d  $try )

            {

                $tag = $try;

            }

        }

    }

    return $tag;

}

#-------------------------------------------------------------------------------

# Function        : create_path_view

#

# Description     : Not using a view, using a path

#                   Return the path as requested

#

# Inputs          : $label                  - with embedded path

#

# Returns         : Path to the (dummy) view

#

sub create_path_view

{

    my ($label) = @_;

    my $path  = '.';

    $path = $1

        if ( $label =~ m~.+=(.+)~ );

    Error ("Directory not found: $path" )

        unless ( -d $path );

    $path = FullPath( $path );

    return $path;

}

#-------------------------------------------------------------------------------

# Function        : massage_paths

#

# Description     : Used when one of the paths is a view and the the other

#                   is a local directory.

#

#                   Attempt to locate the common root

#

# Inputs          : None

#

# Returns         : Modifies $path1 and $path2

#

sub massage_paths

{

    my $view_path = $view_tags[0];

    my $user_path = $path1;

    $user_path = $path2 if ( $view_path eq $path1 );

    #

    #   Split the user path into its component directory entries

    #   Start at the top and look for one of these in the view

    #

    my @user_path = split ('/', $user_path );

    my $tpath = '';

    foreach my $dir ( @user_path )

    {

        if ( -d "$view_path/$dir" )

        {

            #

            #   Common directory found

            #   Set the user path to the previous directory

            #

            $user_path = $tpath;

            if ( $view_path eq $path1   )

            {

                $path2 = $user_path;

            }

            else

            {

                $path1 = $user_path;

            }

            #

            #   now add the common part

            #

            $path1 .= "/$dir";

            $path2 .= "/$dir";

            Message ("Setting common root path ($dir)", $path1, $path2);

            last;

        }

        $tpath .= '/' if ( $tpath );

        $tpath .= $dir;

    }

}

#-------------------------------------------------------------------------------

# Function        : GetBc2ExePath

#

# Description     : Determine the path to the BeyondCompare executable

#                   by looking in the Windows Registry

#

# Inputs          : None

#

# Returns         : Path to an executable

#

sub GetBc2ExePath

{

    eval "require Win32::TieRegistry"

        or Error ("Win32::TieRegistry not available");

    my $userKey= Win32::TieRegistry->new("CUser")

        or  Error( "Can't access HKEY_CURRENT_USER key: $^E" );

    my $bc2Key= $userKey->Open( "Software/Scooter Software/Beyond Compare", {Delimiter=>"/"} )

        or  Error "Can't access BC2 Keys: $^E";

    my $bc2Data = $bc2Key->GetValue( 'ExePath' )

        or Error( "Cannot locate BeyondCompare in Windows Registry");

    Error ("BeyondCompare program not found", "Prog: $bc2Data") unless ( -x $bc2Data );

    return $bc2Data;

}

#-------------------------------------------------------------------------------

# Function        : END

#

# Description     : This function will be called as the program exits

#                   It will also be called under error conditions

#                   Close down stuff we created

#

# Inputs          : 

#

# Returns         : 

#

sub END

{

    my $exitCode = $?;

    if ( $opt_debug )

    {

        Message ("NOT Cleaning up views");

        return;

    }

    Message ("Cleaning up views") if @view_tags;

    foreach my $cmds ( @view_commands )

    {

        JatsTool( @{$cmds}, '-delete' );

    }

    foreach my $file ( @cleanFiles )

    {

        unlink $file;

    }

    #

    #   The exit code may get modified by the JatsTool

    #   Preserve any error indication

    #

    $? = $exitCode;

}

#-------------------------------------------------------------------------------

#   Documentation

#

=pod

=head1 NAME

jats_vcsdiff - Difference two views

=head1 SYNOPSIS

  jats vcsdiff [options] [old_label new_label]

 Options:

    -help              - brief help message

    -help -help        - Detailed help message

    -man               - Full documentation

    -check             - Perform MD5SUM over both views

    -old=tag           - Old VcsTag (or dir=path)

    -new=tag           - New VcsTag (or dir=path)

=head1 OPTIONS

=over 8

=item B<-help>

Print a brief help message and exits.

=item B<-help -help>

Print a detailed help message with an explanation for each option.

=item B<-man>

Prints the manual page and exits.

=item B<-check>

This option controls the mode in which the program will operate.

If enabled the prgram will perform an MD5 Cheksum over the files in the first

view and compare that with files in the second view.

If not enabled, then the program will invoke BeyondCompare to perform a visual

difference between the two views. This operation is only supported under

Windows.

=item B<-old=tag>

This option specifies the old, or base, VcsTag for the difference report. This

tag is mandatory.

The old and new tags may be provided on the command line, or via named

options, but not both.

The tag may be of the form dir=path to force the utility to use a local

view or path.

=item B<-new=tag>

This option specifies the new, or current, VcsTag for the difference report. This

tag is mandatory.

The old and new tags may be provided on the command line, or via named

options, but not both.

The tag may be of the form dir=path to force the utility to use a local

view or path.

=back

=head1 DESCRIPTION

This program has two modes of operation:

=over 4

=item 1 MD5Sum of the two views

=item 2 Invoke BeyondCompare to perform a visual diff.

This mode simplifies the process of perform a code review between two

VCS Tags by:

=over 8

=item *

Creating a visual difference between two labels

=item *

Creating a visual difference between a label and a directory

=item *

Creating a visual difference between two directories.

=back

=back

The program will:

=over 8

=item *

Create two 'extract only' views based on the VCS Tags provided. The resultant

views are not connected to any version control system.

=item *

Perform the desired operation: MD5Sum or Visual Difference.

=item *

Delete the created directories the comparison is complete.

=back

If one of the Vcs Tags is of the form:

=over 8

=item *

current

=item *

current=path

=item *

dir=path

=back

Then the tag will be treated as a directory and will be used for one side

of the comparison.

Two directories views will be created. These should be deleted by this program,

but may remain if the command line program is terminated.

=head1 EXAMPLE

The following command will compare a Subversion view with a ClearCase view.

    jats vcsdiff SVN::AUPERASVN02/COTS/crc/tags/crc_26.4.0007.cr@18587 CC::/MASS_Dev_Infra/crc::crc_26.4.0006.cr -check

The following command will compare a Subversion View with a local directory

    jats vcsdiff SVN::AUPERASVN02/COTS/crc/tags/crc_26.4.0000.cr dir=crc

=cut