Algorithm-GDiffDelta

 view release on metacpan or  search on metacpan

GDiffDelta.pm  view on Meta::CPAN

The rest is Copyright 2004, Geoff Richards E<lt>qef@laxan.comE<gt>

This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Lesser General Public License as published by
the Free Software Foundation; either version 2.1 of the License, or (at
your option) any later version. A copy of the license is available at:
http://www.gnu.org/copyleft/lesser.html

=cut

# vi:ts=4 sw=4 expandtab:

GDiffDelta.xs  view on Meta::CPAN

                        break;
                    case 255: /* long, int - copy <position>, <length> */
                        /* TODO - 64 seeking */
                        assert(0);
                        break;
                    default: assert(0);
                }
            }
        }

# vi:ts=4 sw=4 expandtab:

Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker;

WriteMakefile(
    NAME            => 'Algorithm::GDiffDelta',
    AUTHOR          => 'Geoff Richards <qef@laxan.com>',
    VERSION_FROM    => 'GDiffDelta.pm',
    NO_META         => 1,
);

# vi:ts=4 sw=4 expandtab:

compile_gdiff  view on Meta::CPAN

    }
    elsif ($type eq 'long') {
        # TODO
        die "support for 'long' type not implemented yet";
    }
    else {
        croak "bad number type '$type'";
    }
}

# vi:ts=4 sw=4 expandtab:

t/05library.t  view on Meta::CPAN

# Check that the library can be loaded without things breaking.

use strict;
use warnings;
use Test::More tests => 2;

BEGIN { use_ok('Algorithm::GDiffDelta') }
require_ok('Algorithm::GDiffDelta');

# vim:ft=perl ts=4 sw=4 expandtab:

t/10adler32.t  view on Meta::CPAN

        $adler = gdiff_adler32($adler, $s);
        if ($adler != $expected || gdiff_adler32(1, $s x $_) != $expected) {
            fail('comparison against Digest::Adler32');
            return;
        }
    }

    pass('comparison against Digest::Adler32');
}

# vim:ft=perl ts=4 sw=4 expandtab:

t/20apply.t  view on Meta::CPAN

    my ($filename) = @_;

    open my $file, '<', $filename
      or die "error opening $filename: $!";
    my $data = do { local $/; <$file> };
    die "error reading from $filename: $!" unless defined $data;

    return $data;
}

# vim:ft=perl ts=4 sw=4 expandtab:

t/30delta.t  view on Meta::CPAN

    my ($filename) = @_;

    open my $file, '<', $filename
      or die "error opening $filename: $!";
    my $data = do { local $/; <$file> };
    die "error reading from $filename: $!" unless defined $data;

    return $data;
}

# vim:ft=perl ts=4 sw=4 expandtab:

t/99pod.t  view on Meta::CPAN

   }

   ok($s <= 0, "POD in $_ is valid");
   unlink $log_filename;
}

# Local Variables:
# mode: perl
# perl-indent-level: 3
# End:
# vim:ft=perl ts=3 sw=3 expandtab:

test.c  view on Meta::CPAN

{
    assert(QEF_MIN(17, 23) == 17);
    assert(QEF_MIN(23, 17) == 17);

    assert(hashbits(0) == 1);
    assert(hashbits(1) == 1);
    assert(hashbits(2) == 2);
    return 0;
}

/* vi:set ts=4 sw=4 expandtab: */

util.c  view on Meta::CPAN

        cha->tail = ancur;
        cha->ancur = ancur;
    }

    data = (char *) ancur + sizeof(QefChaNode) + ancur->icurr;
    ancur->icurr += cha->isize;

    return data;
}

/* vi:set ts=4 sw=4 expandtab: */

util.h  view on Meta::CPAN

    Off_t size;
    QefChaStore cha;
    unsigned int fphbits;
    QefBDRecord **fphash;
};
typedef struct QefBDFile QefBDFile;


#endif  /* QEFGDIFF_INCLUDE_UTIL_H_ */

/* vi:set ts=4 sw=4 expandtab: */