#!/usr/bin/perl

use strict;
use warnings;

our $kurilapath;
BEGIN {
    $kurilapath = $ENV{kurilapath} || "../";
    push @INC, "$kurilapath/mad/";
}

use Convert;
use IO::Handle;

use Fatal qw|open close|;

{
    local $/ = undef;
    my $filename = $ARGV[0];
    my $fh;
    open $fh, '+<', "$filename";
    my $input = $fh->getline;
    use File::Basename;
    my (undef, $dir, undef) = File::Basename::fileparse($filename);
    my @lib;
    push @lib, $dir, "/home/gerard/perl/bleadgerardmad/lib/";
    push @lib, $dir, "./lib", "./blib/lib", "./blib/arch/", "../lib/";
    my $output = eval { Convert::convert($input, "/usr/bin/perl $kurilapath/mad/p5kurila.pl",
                                         switches => join ' ', map { "-I $_" } @lib ) };
    if ($output) {
        seek $fh, 0, 0;
        $fh->print($output);
    } else {
        warn "Failed converting $filename:\n\n$@\n\n";
    }
}

