#!/usr/bin/perl -s 

our($v,$ps,$a);

$v = "-v" if $v;
$ps = "-ps" if $ps;
$ps .= " -a=$a" if $a;

use strict;
use Proc::Simple;

my $tmp="_$$";
if($ARGV[0] =~ /\.abcl$/){
  system("abcl ". shift(@ARGV) . " > /tmp/$tmp.abc");
}
elsif($ARGV[0] =~ /\.lyr$/){
  system("sed -n '/X:/,/abc>/p' ". shift(@ARGV) . "|grep -v 'abc' > /tmp/$tmp.abc");
}
else{
  open(F,">","/tmp/$tmp.abc");
  while(<>){ print F $_ ; }
  close F;
}

my $proc = Proc::Simple->new();        # Create a new process object
$proc->signal_on_destroy("KILL");

$proc->start("sleep 2; abcm /tmp/$tmp.abc");
system("jpdf $ps /tmp/$tmp.abc");
system("killall -v vlc");

##cvlc --soundfont /usr/share/soundfonts/Blanchet-1720.sf2 /tmp/_1.mid vlc://quit 

unlink("/tmp/$tmp.abc", "/tmp/_1.mid");