File Coverage

blib/lib/P4/C4/Ignore.pm

Criterion	Covered	Total	%
statement	78	85	91.7
branch	18	28	64.2
condition	3	14	21.4
subroutine	13	14	92.8
pod	1	2	50.0
total	113	143	79.0

# $Revision: 709 $$Date: 2005-05-03 17:32:07 -0400 (Tue, 03 May 2005) $$Author: wsnyder $
# Author: Wilson Snyder
######################################################################
#
# Copyright 2002-2005 by Wilson Snyder.  This program is free software;
# you can redistribute it and/or modify it under the terms of either the GNU
# General Public License or the Perl Artistic License.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
######################################################################

package P4::C4::Ignore;
require 5.006_001;

use strict;
use vars qw($VERSION $Debug);
use Carp;
use File::Spec;
use File::Spec::Functions;
use IO::File;
use Cwd qw(getcwd);

######################################################################
#### Configuration Section

our $VERSION = '2.041';

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

sub new {
    @_ >= 1 or croak 'usage: P4::C4::Ignore->new ({options})';
    my $class = shift || __PACKAGE__;		# Class (Getopt Element)
    my $self = {filename=>'.cvsignore',
		_files=>{},		# Cache by filename of raw text ignores
		_regexp=>{},		# Cache by filename of parsed ignores
		@_,
	    };
    bless $self, $class;
    $self->_addIgnore ('GLOBAL',(
				 '*~',	  '#*',    '.#*',    ',*',	   '_$*',   '*$',
				 '*.old', '*.bak', '*.BAK',  '*.orig', '*.rej', '.del-*',
				 '*.a',  '*.olb', '*.o',    '*.obj',  '*.so',  '*.exe',
				 '*.Z',  '*.elc', '*.ln',
				 'tags',	'TAGS',
				 '.make.state',	'.nse_depinfo',
				 'core',
				 # Not in CVS
				 '.dependency-info',
				 # Our own temp files
				 '.c4cache',	'.p4config',));

    # Read user's .cvsignore into global list
    $self->_readIgnore("GLOBAL",catfile($ENV{HOME},".cvsignore")) if defined $ENV{HOME};

    # Read CVSIGNORE environment
    $self->_addIgnore ("GLOBAL", (split /\s+/, $ENV{CVSIGNORE})) if defined $ENV{CVSIGNORE};

    return $self;
}

#######################################################################
# User methods

sub isIgnored {
    my $self = shift;
    my $filename = shift;

    $filename = File::Spec->rel2abs($filename);
    my @dirlist = File::Spec->splitdir($filename);
    while ($#dirlist > 0) {
	$filename = pop @dirlist;
	return 1 if _checkOneDir($self,catdir(@dirlist),$filename);
    }
    return 0;
}

#######################################################################
# Checking function

sub _checkOneDir {
    my $self = shift;
    my $dirname = shift;
    my $filename = shift;

    if (!$self->{_regexp}{$dirname}) {
	$self->_readIgnore($dirname, catfile($dirname,$self->{filename}));
    }

    my $basename = (File::Spec->splitpath($filename))[2];
    #print "CK1 $dirname $basename\n";
    foreach my $re (@{$self->{_regexp}{$dirname}}) {
	#print "CK1b $dirname $basename $re\n";
	return 1 if ($basename =~ /$re/);
    }
    return 0;
}

#######################################################################
# Reading functions

sub _readIgnore {
    my $self = shift;
    my $dirname = shift;
    my $filename = shift;

    return if $self->{_files}{$dirname} && $dirname ne 'GLOBAL';	# Cached
    my $fh = IO::File->new($filename,"r");
    $self->_addIgnore ($dirname, @{$self->{_files}{GLOBAL}}) if $dirname ne 'GLOBAL';
    if ($fh) {
	local $/; undef $/; my $wholefile = <$fh>;
	$self->_addIgnore ($dirname, (split /\s+/, $wholefile));
    }
}

sub _addIgnore {
    my $self = shift;
    my $dirname = shift;
    foreach my $re (@_) {
	print "  Ignore in $dirname: $re\n" if $Debug;
	if ($re eq "!") {
	    $self->{_files}{$dirname} = [];
	} else {
	    push @{$self->{_files}{$dirname}}, $re;
	}
    }

    # Convert patterns to regexp, for faster parsing
    my @relist = map { my $regexp = quotemeta $_;
		       $regexp =~ s%\\\*%.*%g;
		       $regexp =~ s%\\\?%.%g;
		       $regexp = "^".$regexp."\$";
		       qr/$regexp/;
		   } @{$self->{_files}{$dirname}};
    $self->{_regexp}{$dirname} = \@relist;
}

######################################################################
######################################################################
######################################################################
######################################################################
# Overrides

package P4::C4;
use strict;

sub ignoredFiles {
    my $self = shift;

    $self->{_ignore} = new P4::C4::Ignore() if !$self->{_ignore};
    foreach my $fref (values %{$self->{_files}}) {
	if ($fref->{clientMtime}
	    && !($fref->{headAction} && $fref->{headAction} ne 'delete')
	    && !$fref->{ignore}) {
	    #use Data::Dumper; print "check",Dumper($fref) if $fref->{filename} =~ /c4cache/;
	    $fref->{ignore} = $self->{_ignore}->isIgnored($fref->{filename});
	    $fref->{unknown} = 1 if !$fref->{ignore};
	}
    }
}

######################################################################
### Package return
1;
__END__