#!perl

use strict;
use warnings;

use File::Basename;
use File::Spec::Functions;
use Pod::PseudoPod::LaTeX;

die "$0 <files to pdfify>\n" unless @ARGV;

for my $file (@ARGV)
{
	die "Cannot read '$file': $!\n" unless -e $file;
	my $outfile   = catfile(
		'build',
		(fileparse( $file, qr/\.pod$/ ))[0] . '.tex'
	);
	open( my $fh, '>', $outfile ) or die "Can't write to '$outfile': $!\n";

	my $parser    = Pod::PseudoPod::LaTeX->new();
	$parser->output_fh( $fh );

	warn "$file -> $outfile\n";

	$parser->parse_file( $file );
}
