lib/Yuki/DiffText.pm

package Yuki::DiffText;
use strict;
use Algorithm::Diff qw(traverse_sequences);
use vars qw($VERSION @EXPORT_OK @ISA);
use vars qw($diff_text $diff_msgrefA $diff_msgrefB @diff_deleted @diff_added);
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(difftext);
$VERSION = '0.1';

=head1 NAME

Yuki::DiffText - A wrapper of Algorithm::Diff for YukiWiki.

=head1 SYNOPSIS

    use strict;
    use Yuki::DiffText qw(difftext);

    my @array1 = ( "Alice", "Bobby", "Chris", );
    my @array2 = ( "Alice",          "Chris", "Diana", );
    my $difftext = difftext(\@array1, \@array2);
    print $difftext;

    # Result:
    # =Alice
    # -Bobby
    # =Chris
    # +Diana

=head1 SEE ALSO

=over 4

=item L<Algorithm::Diff>

=back

=head1 AUTHOR

Hiroshi Yuki <hyuki@hyuki.com> http://www.hyuki.com/

=head1 LICENSE

Copyright (C) 2002 by Hiroshi Yuki.

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut

sub difftext {
    ($diff_msgrefA, $diff_msgrefB) = @_;
    undef $diff_text;
    undef @diff_deleted;
    undef @diff_added;
    traverse_sequences(
        $diff_msgrefA, $diff_msgrefB,
        {
            MATCH => \&df_match,
            DISCARD_A => \&df_delete,
            DISCARD_B => \&df_add,
        }
    );
    &diff_flush;
    return $diff_text;
}

sub diff_flush {
    $diff_text .= join('', map { "-$_\n" } splice(@diff_deleted));
    $diff_text .= join('', map { "+$_\n" } splice(@diff_added));
}

sub df_match {
    my ($a, $b) = @_;
    &diff_flush;
    $diff_text .= "=$diff_msgrefA->[$a]\n";
}

sub df_delete {
    my ($a, $b) = @_;
    push(@diff_deleted, $diff_msgrefA->[$a]);
}

sub df_add {
    my ($a, $b) = @_;
    push(@diff_added, $diff_msgrefB->[$b]);
}

1;
1	wakaba	1.1	package Yuki::DiffText;
2			use strict;
3			use Algorithm::Diff qw(traverse_sequences);
4			use vars qw($VERSION @EXPORT_OK @ISA);
5			use vars qw($diff_text $diff_msgrefA $diff_msgrefB @diff_deleted @diff_added);
6			require Exporter;
7			@ISA = qw(Exporter);
8			@EXPORT_OK = qw(difftext);
9			$VERSION = '0.1';
10
11			=head1 NAME
12
13			Yuki::DiffText - A wrapper of Algorithm::Diff for YukiWiki.
14
15			=head1 SYNOPSIS
16
17			use strict;
18			use Yuki::DiffText qw(difftext);
19
20			my @array1 = ( "Alice", "Bobby", "Chris", );
21			my @array2 = ( "Alice", "Chris", "Diana", );
22			my $difftext = difftext(\@array1, \@array2);
23			print $difftext;
24
25			# Result:
26			# =Alice
27			# -Bobby
28			# =Chris
29			# +Diana
30
31			=head1 SEE ALSO
32
33			=over 4
34
35			=item L<Algorithm::Diff>
36
37			=back
38
39			=head1 AUTHOR
40
41			Hiroshi Yuki <hyuki@hyuki.com> http://www.hyuki.com/
42
43			=head1 LICENSE
44
45			Copyright (C) 2002 by Hiroshi Yuki.
46
47			This program is free software; you can redistribute it and/or
48			modify it under the same terms as Perl itself.
49
50			=cut
51
52			sub difftext {
53			($diff_msgrefA, $diff_msgrefB) = @_;
54			undef $diff_text;
55			undef @diff_deleted;
56			undef @diff_added;
57			traverse_sequences(
58			$diff_msgrefA, $diff_msgrefB,
59			{
60			MATCH => \&df_match,
61			DISCARD_A => \&df_delete,
62			DISCARD_B => \&df_add,
63			}
64			);
65			&diff_flush;
66			return $diff_text;
67			}
68
69			sub diff_flush {
70			$diff_text .= join('', map { "-$_\n" } splice(@diff_deleted));
71			$diff_text .= join('', map { "+$_\n" } splice(@diff_added));
72			}
73
74			sub df_match {
75			my ($a, $b) = @_;
76			&diff_flush;
77			$diff_text .= "=$diff_msgrefA->[$a]\n";
78			}
79
80			sub df_delete {
81			my ($a, $b) = @_;
82			push(@diff_deleted, $diff_msgrefA->[$a]);
83			}
84
85			sub df_add {
86			my ($a, $b) = @_;
87			push(@diff_added, $diff_msgrefB->[$b]);
88			}
89
90			1;