#!/usr/bin/perl -w

use strict;
use Opt;

my $program = "convert-ly";
my %opt;

sub proc_file($) {
    my $file = shift;
    print "\n";
    print "//////////// <$file> ////////////\n";
    my $version = `grep version $file`;
    if ($version) {
	$version = "";
    } else {
	$version = "--from $opt{old}";
    }
    #print "<$version>";
    my $cmd = "$program $version $file > tt.ly 2> cnv.log";
    #print "$cmd\n";
    #print
	`$cmd`;
    print `diff -u $file tt.ly`;
    my $status = $?;
    print "status: <$status>\n";
    if ($status != 0) {
	print "update ? ";
	my $resp = <STDIN>;
	chomp $resp;
	#print "<$resp>\n";
	if ($resp =~ m/^[yj]/i) {
	    print "ok update\n";
	    my $mv = "mv tt.ly $file";
	    print "$mv\n";
	    print `$mv`;
	}
    }
}

sub main() {
    my @arr = Opt::opt(\%opt,0,@ARGV);
    for my $file (@arr) {
	proc_file($file);
    }
}

main();