lilypond-0.1.10

diff --git a/bin/mudela-book.in b/bin/mudela-book.in
index 374f223a1f4f0c29aecc2ff6b1e13d3dd12a9da4..9aec75cb60a40c9ca6f870a8557e25b2b970b8ea 100644 (file)
--- a/bin/mudela-book.in
+++ b/bin/mudela-book.in
@@ -6,6 +6,29 @@ my $outname = "-";
 my $outdir;
 use Getopt::Long;
 
+
+# do something, check return status
+sub my_system
+{
+    my (@cmds) = @_;
+    foreach $cmd (@cmds) {
+       my ($ignoreret)=0;
+       if ( $cmd  =~ /^-/ ) {
+           $ignoreret = 1;
+           $cmd = substr ($cmd, 1);
+       }
+       
+       my $ret =  ( system ($cmd));
+       if ($ret) {
+           if ($ignoreret) {
+               print STDERR "ignoring failed command \`$cmd\' (status $ret)\n";
+           }else {
+               print STDERR "\nmudela-book: failed on command \`$cmd\' (status $ret)\n";
+               exit 2;
+           }
+       }
+    }
+}
 sub gen_mufile
 {
     return "$outdir/$outname$mudcount.ly";
@@ -40,7 +63,7 @@ sub close_mudela
     }
     
     if ( ! -f gen_texfile) {
-       system "lilypond ". gen_mufile;
+       my_system "lilypond ". gen_mufile;
        rename "lelie.tex", gen_texfile;
     }
     print BOOK "\\preexample\\input " . gen_texfile . "\n\\postexample\n";