#!/usr/bin/perl

require SVN::Core;
require SVN::Repos;
require SVN::Fs;
require SVN::Delta;

package ChangeReceiver;

my $file_re = qr/\.txt/;
my $bad_re = qr/foo/;

our @ISA = qw(SVN::Delta::Editor);

sub add_file {
  return [0, $_[1]];
}

sub open_file {
  return [0, $_[1]];
}

sub apply_textdelta {
  $_[1]->[0] = 1;
  return;
}

sub close_file {
  my ($self, $file_baton) = @_;
  my ($changed, $path) = @$file_baton;
  return unless $changed;
  return unless $path =~ /$file_re/;

  my $pool = SVN::Pool->new_default_sub;

  my $stream = SVN::Fs::file_contents( $self->{txn_root}, $path, $pool );
  my $bytes;
  my $byte_cnt = 0;
  my $exit_code = 0;
  my $buffer = '';
  while ( $bytes = $stream->read( $buffer, $SVN::Core::STREAM_CHUNK_SIZE, 0 ) ) {
    if ( $buffer =~ /$bad_re/ ) {
      $exit_code=1;
      last;
    }
    $byte_cnt += $bytes;
    $buffer = '';
  }
  $stream->close;
  if ($exit_code) {
    warn "Bad file: $path\n";
    exit $exit_code;
  }
  return;
}

package main;

my ($rep, $txn) = @ARGV;

my $rep = SVN::Repos::open($rep);
my $fs = $rep->fs;
my $txn_ptr = $fs->open_txn($txn);
my $txn_root = SVN::Fs::txn_root($txn_ptr);
my $base_root = $fs->revision_root($fs_ptr, SVN::Fs::txn_base_revision($txn_ptr));
my $editor = ChangeReceiver->new;
$editor->{txn_root} = $txn_root; # Bad OO I know
SVN::Repos::dir_delta($base_root, '', '', $txn_root, '', $editor, sub{1}, 1, 1, 0, 0);

exit 0;