#!/usr/bin/perl

my @files = qw(mk-src.in MkSrc/Info.pm 
	       MkSrc/Util.pm 
	       MkSrc/Read.pm MkSrc/Create.pm
	       MkSrc/CcHelper.pm);

my $final;

foreach (@files)
{
  open IN, $_;
  $final .= "\n\n### FILE: $_\n\n";
  while (<IN>) 
  {
    s/^\#pod\s*/\n\=pod\n\n/;
    s/^\#cut\s*/\n\=cut\n\n/;
    $final .= $_;
  }
  close IN;
}

open OUT, ">mk-src.pod" or die;
print OUT $final;
close OUT;

use Pod::Checker;
$parser = Pod::Checker->new();
$parser->parse_from_file('mk-src.pod', \*STDERR);

use Pod::Text;
$parser = Pod::Text->new(loose=>1);
$parser->parse_from_file('mk-src.pod', 'mk-src.txt');


use Pod::LaTeX;
$parser = Pod::LaTeX->new(AddPreamble => 0, AddPostamble => 0);
$parser->parse_from_file('mk-src.pod', '../manual/mk-src.tex.new');

$/ = undef;
open IN, '../manual/mk-src.tex';
$orig = <IN>;
open IN, '../manual/mk-src.tex.new';
$new = <IN>;
close IN;
if ($orig eq $new) {
  print "mk-src.tex unchanged\n";
} else {
  rename '../manual/mk-src.tex.new', '../manual/mk-src.tex';
}

#unlink "mk-src.pod";
