lyx_mirror/development/batchtests/bin/compare_custom.pl

#! /usr/bin/env perl
# -*- mode: perl; -*-

# This script does a line by line comparison of two lyx files

use File::Slurp qw(read_file);

my $file1_name = shift;
my $file2_name = shift;

my @file1 = read_file($file1_name);
my @file2 = read_file($file2_name);
chomp @file1;
chomp @file2;

my $line_count = 0;
my $in_body = 0;

my @diffs;

foreach my $file1_line (@file1) {
	$line_count++;

	if ($file1_line eq '\begin_body') {
		$in_body = 1;
		next;
	}

	next if (! $in_body);

	my $file2_line = $file2[$line_count-1];

	# Ignore timestamps on changes
	if ($file1_line =~ m|\\change_\w+|) {
		$file1_line =~ s|(\d+) \d+||;
		$file2_line =~ s|(\d+) \d+||;
	}

	if ($file1_line ne $file2_line) {
		push @diffs, {
			line => $line_count,
			file1 => $file1_line,
			file2 => $file2_line,
		};
	}
}

die "No body found in $file1_name\n" if (! $in_body);

my $diff_output = '';
foreach $diff (@diffs) {
	$diff_output .= $diff->{line} . ' - ' . $diff->{file1} . ' | ' . $diff->{file2} . "\n";
}

if ($diff_output) {
	die "Differences found!\n$diff_output\n";
}

exit(0);