File Coverage

perllib/Arch/DiffParser.pm

Criterion	Covered	Total	%
statement	89	94	94.6
branch	21	30	70.0
condition			n/a
subroutine	21	22	95.4
pod	12	12	100.0
total	143	158	90.5

# Arch Perl library, Copyright (C) 2005 Mikhael Goikhman
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# 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.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

use 5.005;
use strict;

package Arch::DiffParser;

use Arch::Util qw(load_file);

my $FILE1_PREFIX = '--- ';
my $FILE2_PREFIX = '+++ ';
my $HUNK_PREFIX  = '@@ ';
my $UNMOD_PREFIX = ' ';
my $DEL_PREFIX   = '-';
my $ADD_PREFIX   = '+';
my $NOEOL_PREFIX = '\ No newline at end of file';

use constant FILE1_LINE => 1 << 1;
use constant FILE2_LINE => 1 << 2;
use constant HUNK_LINE  => 1 << 3;
use constant UNMOD_LINE => 1 << 4;
use constant DEL_LINE   => 1 << 5;
use constant ADD_LINE   => 1 << 6;
use constant NOEOL_LINE => 1 << 7;

sub new ($) {
	my $class = shift;

	my $self = {
		data => undef,
	};
	return bless $self, $class;
}

sub parse ($$) {
	my $self = shift;
	my $content = $self->{content} = shift;
	die "Arch::DiffParser::parse: no diff content\n" unless $content;

	my @lines = $content =~ /(.*\n)/g;
	my $hunks = [];
	my $changes = [];

	$lines[0] =~ /^\Q$FILE1_PREFIX\E(.+?)(?:\t(.+))?$/o
		or die "Unexpected line 1: $lines[0]";
	my ($filename1, $mtime1) = ($1, $2);
	$lines[1] =~ /^\Q$FILE2_PREFIX\E(.+?)(?:\t(.+))?$/o
		or die "Unexpected line 2: $lines[1]";
	my ($filename2, $mtime2) = ($1, $2);

	my $last_line = FILE2_LINE;
	my $ln1 = 0;
	my $ln2 = 0;

	for (my $i = 2; $i < @lines; $i++) {
		if ($lines[$i] =~ /^\Q$HUNK_PREFIX\E-(\d+)(?:,(\d+))? \+(\d+)(?:,(\d+))?/o) {
			push @$hunks, [ $1, defined $2? $2: 1, $3, defined $4? $4: 1, $i ];
			$last_line = HUNK_LINE;
			$ln1 = $1; $ln2 = $3;
		} elsif ($lines[$i] =~ /^\Q$DEL_PREFIX\E/o) {
			die if $last_line == ADD_LINE;
			push @$changes, [ $ln1, 0, $ln2, 0, $i ]
				unless $last_line == DEL_LINE;
			$changes->[-1][1]++;
			$last_line = DEL_LINE;
			$ln1++;
		} elsif ($lines[$i] =~ /^\Q$ADD_PREFIX\E/o) {
			push @$changes, [ $ln1, 0, $ln2, 0, $i ]
				unless $last_line & (DEL_LINE | ADD_LINE | NOEOL_LINE);
			$changes->[-1][3]++;
			$last_line = ADD_LINE;
			$ln2++;
		} elsif ($lines[$i] =~ /^\Q$UNMOD_PREFIX\E/o) {
			$last_line = UNMOD_LINE;
			$ln1++; $ln2++;
		} elsif ($lines[$i] =~ /^\Q$NOEOL_PREFIX\E/o) {
			$last_line = NOEOL_LINE;
		} else {
			die "Unrecognized diff line #" . ($i + 1) . ":\n$lines[$i]";
		}
	}

	$self->{data} = {
		lines     => \@lines,
		filename1 => $filename1,
		filename2 => $filename2,
		mtime1    => $mtime1,
		mtime2    => $mtime2,
		hunks     => $hunks,
		changes   => $changes,
	};
	return $self;
}

sub parse_file ($$) {
	my $self = shift;
	my $file_name = shift;
	die "Arch::DiffParser::parse_file: no diff file name\n"
		unless $file_name;

	return $self->parse(load_file($file_name));
}

sub diff_data ($) {
	my $self = shift;

	my $data = $self->{data};
	die "Arch::DiffParser::info: no last diff info, perform parse first\n"
		unless $data;
	return $data;
}

sub content ($%) {
	my $self = shift;
	my %args = @_;

	return join("", @{$self->diff_data->{lines}});
}

sub lines ($) {
	my $self = shift;
	return $self->diff_data->{lines};
}

sub filename1 ($) {
	my $self = shift;
	return $self->diff_data->{filename1};
}

sub filename2 ($) {
	my $self = shift;
	return $self->diff_data->{filename2};
}

sub mtime1 ($) {
	my $self = shift;
	return $self->diff_data->{mtime1};
}

sub mtime2 ($) {
	my $self = shift;
	return $self->diff_data->{mtime2};
}

sub hunks ($) {
	my $self = shift;
	return $self->diff_data->{hunks};
}

sub changes ($) {
	my $self = shift;
	return $self->diff_data->{changes};
}

1;

__END__