From: fred <fred>
Date: Sun, 24 Mar 2002 19:56:54 +0000 (+0000)
Subject: lilypond-0.0.78
X-Git-Tag: release/1.5.59~3935
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9245659bbb0fc4497a9435b37fd49a1d5610fcd9;p=lilypond.git

lilypond-0.0.78
---

diff --git a/bin/convert-mudela b/bin/convert-mudela
deleted file mode 100644
index 000f5059cb..0000000000
--- a/bin/convert-mudela
+++ /dev/null
@@ -1,293 +0,0 @@
-#!/usr/bin/perl -w
-
-=head1 TODO
-
-    detect \lyrics and \melodic, and do substitution accordingly.
-    count <> and {} ?
-
-Ugh . Perl sux. Anybody for Python?
-    
-=cut    
-
-
-
-#
-# version of "supporting" engine, not mudela conversions.
-# 
-
-
-
-
-$convert_mudela_version = "0.1.1";
-
-use Getopt::Long;
-
-
-sub version_compare
-{
-    local ($a,$b)=@_;
-    return &cmpver;
-}
-    
-
-sub  cmpver 
-{ 	
-	my(@a)= split /\./,$a;
-	my(@b)= split /\./,$b;
-
-	for $i (0,1,2) {
-	    return $a[$i] <=> $b[$i] if ($a[$i] != $b[$i]);
-	}
-	return $a cmp $b;
-}
-
-sub version_string_conv
-{
-    my ($from_version, $to_version) = @_;
-    s/\version \"$from_version\"/\version \"$to_version\"/g;
-}
-
-################################################################
-
-sub no_conv
-{
-}
- 
-sub convert_0_0_52_to_0_0_53
-{
-
-    s/include \"/$1\\include \"/g;
-}
-
-  
-sub convert_0_0_54_to_0_0_55
-{
-    s/%{/% {/g;
-}
-
-  
-sub convert_0_0_53_to_0_0_54
-{
-    print STDERR "Not smart enough to convert \\transpose\n"    if (/\\transpose/) ;
-}
-
-# we-re not at 58 yet, but this is at least one of the rules
-sub convert_0_0_55_to_0_0_56
-{
-    s/\"\|\|\"/\"|.\"/g;
-}
-
-sub convert_0_0_56_to_0_0_57
-{
-    s/\(([ \]\[|\t-\.>]|\\[<!>a-z]+)*\)/\~ $1/g;
-}
-
-sub convert_0_0_57_to_0_0_58
-{
-    s/\[ *([^\[\]]*)\] *([1-9]*) *\/ *([1-9]*)/[$2\/$3 $1]1\/1/g;
-}
-
-sub convert_0_0_58_to_0_0_59
-{
-    die "Not smart enough to convert 0.0.58 to 0.0.59\n";
-}
-
-sub convert_0_0_59_to_0_0_60
-{
-    s/(\\unitspace [0-9.mcptin\\ ]+|\\geometric [0-9.]+|\\width [0-9.mcp\\tin]+)/$1;/g;
-    s/(\\output \"[^\"]+\")/$1;/;
-    s/(\\tempo  [0-9: ]+)/$1;/;
-}
-
-sub convert_0_0_60_to_0_0_61
-{
-    s/(\\unitspace|\\geometric|\\width)/$1=/g;
-   
-}
-
-###############################################################
-
-sub    last_conversion
-{
-    my @v = &versions;
-    return pop @v;
-}
-sub identify
-{
-    
-    print STDERR "This is convert-mudela " . $convert_mudela_version . 
-	" (up to mudela version ", last_conversion,	")\n";
-}
-  
-  
- sub usage
-  {
-     print STDERR "Usage: convert-mudela [options] [mudela-file]...\n"
-     . "Convert old mudela source from mudela-file or stdin\n\n"
-     . "Options:\n"
-     . "  -e, --edit             perform in-place conversion\n"
-     . "  -f, --from=PATHLEVEL   use source version 0.0.PATCHLEVEL\n"
-     . "  -h, --help             print this help\n"
-     . "  -o, --output=FILE      name output file\n"
-     . "  -s, --show-rules       print all known conversion rules\n"
-     . "  -t, --to=VERSION    convert to version VERSION\n"
-  }
-      
-
-my %minor_conversions = ("0.0.50" => \&no_conv,
- 			 "0.0.52" => \&convert_0_0_50_to_0_0_52,
-  			 "0.0.53" => \&convert_0_0_52_to_0_0_53,
-			 "0.0.54" => \&convert_0_0_53_to_0_0_54,
-			 "0.0.55" => \&convert_0_0_54_to_0_0_55,
-			 "0.0.56" => \&convert_0_0_55_to_0_0_56,
-			 "0.0.57" => \&convert_0_0_56_to_0_0_57,
-			 "0.0.58" => \&convert_0_0_57_to_0_0_58,
-			 "0.0.59" => \&convert_0_0_58_to_0_0_59,
-			 "0.0.60" => \&convert_0_0_59_to_0_0_60,
-			 "0.0.61" => \&convert_0_0_60_to_0_0_61
-			 );
- 
-
-sub versions 
-{
-    return (sort keys %minor_conversions);
-}
-    
-
-sub    show_rules
-{
-    print "Rules: ", join(", ", sort keys %minor_conversions), "\n";
-    
-}
-
-sub do_conversion
-{
-    my ($from,$to) = @_;
-
-    my @applicable_conversion;
-    my @mudela_levels;
-    
-#    die "This is too old  to convert " if $from < 50;
-    my @v = versions;
-    foreach $ver (@v) {
-	if (version_compare($ver, $from) > 0 && version_compare($ver,$to) <= 0 ){ 
-	    push @applicable_conversion, $minor_conversions{$ver};
-	    push @mudela_levels, $ver;
-	}
-    }
-    
-    print STDERR "Applying following rules: ", join(", ", @mudela_levels) , "\n";
-
-    while (<INLY>) {
-	foreach $subroutine (@applicable_conversion) {
-	
-	    &$subroutine;
-	    
-	}
-	version_string_conv $from, $to;
-	print OUTLY;
-    }
-}
-
-sub get_auto_from
-{
-    my ($fn)=@_;
-    my ($ver);
-    open INLY, $fn || die "Can't open";
-
-    while (<INLY>) {
-	s/^.*\\version \"([^\"]*)\".*$//;
-	if (defined ($1)) {
-	    print STDERR "Guessing version: ", $1, ".. ";
-	    $ver = $1;
-	    last;
-	}
-    }
-    if (!defined($ver)){
-	print STDERR "can't determine mudela version in $fn.\n";
-	my $u;
-	return $u;
-    }
-    close INLY;
-    return $ver;
-}   
-
-sub  set_files 
-{
-    $infile = "-";
-    $outfile = "-";
-    $outfile = $opt_output if (defined($opt_output));
-
-    if ($ARGV [0])  {
-	$infile = $ARGV[0];
-    } 
-    if (( ! -f $infile) && (! $infile =~ /\\.ly$/s ) ){
-	$infile .= ".ly";
-	
-
-    }
-    if ($opt_edit && $infile ne "-") {
-	$opt_edit = 1;
-	$outfile = "$infile.NEW";
-	$infile = "$infile";
-    }
-    print STDERR "Input ", (($infile eq "-") ?"STDIN" : $infile), " .. ";
-
-}
-
-sub do_one_arg
-{
-    set_files;
-
-    local ($from_version, $to_version);
-    $from_version = $opt_from;
-    $to_version = $opt_to;
-    
-    ($from_version = get_auto_from $infile) unless defined($opt_from);
-    return if (!defined($from_version));
-    
-    ($to_version =  last_conversion) unless (defined($opt_to));
-
-    die "can't open \`$infile\'" unless open INLY,$infile ;
-    die "can't open \`$outfile\'" unless open OUTLY, ">$outfile";
-    
-    do_conversion $from_version, $to_version;
-    close INLY;
-    close OUTLY;
-
-    if ($opt_edit) {
-	rename $infile, "$infile~";
-	rename $outfile, "$infile";
-    }
-}
-
-## "main"
-
-identify;
-
-
-GetOptions ("help", "output=s", "from=i", "to=i", "minor=i", "edit", "show-rules");
-
-if ($opt_help) {
-    usage();
-    $opt_help = 0;	# to extinguish typo check.
-    exit 0;
-}
-
-if ($opt_show_rules) { 
-    show_rules ;
-    $opt_show_rules = 0;	# to extinguish typo check.
-    exit 0;
-}
-
-local ( $infile,$outfile);
-my $processed_one=0;
-
-while (defined($ARGV[0])) {
-    do_one_arg;
-    shift @ARGV;
-    $processed_one = 1;
-}
-do_one_arg unless ($processed_one);
-
-    
diff --git a/bin/genheader b/bin/genheader
deleted file mode 100755
index 911b038f6d..0000000000
--- a/bin/genheader
+++ /dev/null
@@ -1,60 +0,0 @@
-#!/usr/bin/perl -w
-
-# generate the standard header of a LilyPond source file.
-my $fn;
-
-sub
-    do_init
-{
-    $MAILADRESS=$ENV{MAILADRESS};
-     @pw=(getpwuid($<));
-     $username=$pw[6];
-
-    die "arg needed\n" if (!($#ARGV+1));
-     $fn = $ARGV[0];
-
-     $hh_b =  ($fn =~ /hh$/ );
-     $inc_b=  ($hh_b || $fn =~ /[ti]cc$/);
-}
-
-sub 
-    do_head
-{
-    
-    my $what="implement ";
-    $what = "declare " if ($hh_b);
-    my ($PROJECT, $cwd);
-    $PROJECT = "the GNU LilyPond music typesetter";
-    chop($cwd = `pwd`);
-    
-    $PROJECT= "the Flower Library" if ($cwd =~ /flower/);
-    
-    my $headstr ="/*
-  $fn -- $what
-
-  source file of $PROJECT
-
-  (c) 1997 $username <$MAILADRESS>
-*/\n";
-    print $headstr;
-}
-sub do_inc
-{
-    my $headstr="";
-    my $startdef= $fn;
-    $startdef =~ s/[\.-]/_/g;
-    $startdef =~ tr/a-z/A-Z/;
-    my $terminatestr="\n";
-
-    if ($inc_b) {
-	$headstr = "\n\n#ifndef $startdef\n#define $startdef\n";
-	$terminatestr .= "#endif // $startdef\n"  
-	}
-
-    print $headstr, $terminatestr;
-}
-do_init;
-do_head;
-do_inc;
-
-
diff --git a/bin/make-website b/bin/make-website
deleted file mode 100755
index 8f00d4f9cc..0000000000
--- a/bin/make-website
+++ /dev/null
@@ -1,292 +0,0 @@
-#!/usr/bin/perl -w
-# stupid script to generate WWW site.
-
-use FileHandle;
-use Getopt::Long;
-my $lily_version;
-my $footstr;
-my $mw_id = "<!make_website!>";
-my $id_str = "make-website 0.3";
-
-my $TAR="tar";
-my $MAKE="make";
-
-sub get_version
-{
-    my ($vstr)=("");
-    open V, "$depth/.version";
-    while (<V>) {
-	s/#.*$//g;
-	next if (/^ *$/);
-	s/^/\$/;
-	s/= *(.*)$/=\"$1\";/;
-	$vstr .= $_;
-    }
-    eval ($vstr);
-    
-    $lily_version= "$TOPLEVEL_MAJOR_VERSION.$TOPLEVEL_MINOR_VERSION.$TOPLEVEL_PATCH_LEVEL$TOPLEVEL_MY_PATCH_LEVEL";
-    
-    # stupid checks.
-    $lily_version= "$TOPLEVEL_MAJOR_VERSION.$TOPLEVEL_MINOR_VERSION.$TOPLEVEL_PATCH_LEVEL$TOPLEVEL_MY_PATCH_LEVEL";
-
-
-    close V;
-}
-
-sub set_html_footer
-{
-    my $MAILADRESS=$ENV{MAILADRESS};
-    my @pw=(getpwuid($<));
-    my $username=$pw[6];
-
-    $footstr = 
-	"\n<hr>Please take me <a href=index.html>back to the index</a>\n<hr>
-<font size=-1>
-This page was generated by <code>" . $id_str . "</code> from lilypond-$lily_version by
-<p>
-<address><br>$username <a href=mailto:$MAILADRESS>&lt<!bla>$MAILADRESS</a>&gt</address>
-<p>" . `date` . "
-<p></font>";
-}
-    
-
-# 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 "\nmake_website: failed on command \`$cmd\' (status $ret)\n";
-		exit 2;
-	    }
-	}
-    }
-}
-
-
-local $base="lilypond/";
-local @examples=("twinkle", "multi", "wohltemperirt" ,"standchen", "toccata-fuga-E", 
-		 "scsii-menuetto", "collisions", "cadenza", "scales");
-
-# rhythm, scales, 
-
-
-sub gen_html
-{
-    print "generating HTML\n";
-    my_system "$MAKE -kC .. html";
-}
-
-sub gen_examples
-{
-    print "generating examples: \n";
-    my @todo=();
-    foreach $a (@examples) {
-	push @todo, "out/$a.ps.gz", "out/$a.gif", "out/$a.ly.txt";
-    }
-    
-    my_system ("$MAKE -C .. " . join(' ', @todo));
-}
-
-my @texstuff = ("mudela-man", "mudela-course");
-
-sub gen_manuals
-{
-    print "generating TeX doco list\n";
-    open HTMLLIST, ">tex_manuals.html";
-    print HTMLLIST "<html><body><title>LilyPond manuals in TeX</title>\n" .
-	"<ul>\n";
-    my @todo=();
-    foreach $a (@texstuff) {
-	push @todo , "out/$a.ps.gz";
-	print HTMLLIST "<li><a href=$a.ps.gz>$a.ps.gz</a>";
-    }
-    print HTMLLIST "</ul>";
-    close HTMLLIST;
-
-    my_system( "$MAKE -C .. " .  join(' ', @todo));
-}
-
-sub gen_list
-{
-    print "generating HTML list\n";
-    open HTMLLIST, ">example_output.html";
-    print HTMLLIST "<html><body><title>LilyPond examples</title>\n
-These example files are taken from the LilyPond distribution.\n
-LilyPond currently only outputs TeX and MIDI. The pictures and\n
- PostScript files were generated using TeX, Ghostscript and some graphics tools. \n
-The GIF files have been scaled to eliminate aliasing.";
-    foreach $a (@examples) {
-	$name=$a;
-	print HTMLLIST "<h1>example file: $name</h1>\n<XMP>\n";
-
-	open IF, "$depth/input/$a.ly";
-	input_record_separator IF "%}";
-	
-	$desc = <IF>;
-	close IF;
-	
-	print HTMLLIST "$desc\n</XMP>";
-
-	$inputf="$a.ly.txt";
-	$giff="$a.gif";
-	$jpegf="$a.jpeg";
-	$pngf = "$a.png";
-	$psf="$a.ps.gz";
-	$midif="$a.midi";
-	
-	print HTMLLIST "<ul>";
-
-	print HTMLLIST "<li><a href=$inputf> The input file</a>"
-	    if ( -f $inputf );
-	
-	print HTMLLIST "<li><a href=$giff>The output (picture)</a>"	
-	    if ( -f $giff );
-
-	print HTMLLIST "<li><a href=$psf>The output (PS)</a>\n"
-	    if ( -f $psf );
-		
-	print HTMLLIST "<li><a href=$midif>The output (MIDI)</a>\n" 
-	    if ( -f $midif );
-	print HTMLLIST "</ul>";
-    }
-    print HTMLLIST "</BODY></HTML>";
-    close HTMLLIST;
-}
-
-sub edit_html
-{
-    print STDERR "adding footer\n";
-
-    OUTER:
-    foreach $a (<*.html>) {
-	open H, "$a";
-	my $sep="</BODY>";
-	input_record_separator H $sep;
-	my $file="";
-	
-	while (<H>) { 
-	    if (/$mw_id/) {
-		close H;
-		next OUTER;
-	    }
-	    $file .= $_; 
-
-	}
-	close H;
-
-	my $subst =  $footstr;
-	$subst .= $back if (! $a =~ /index.html/ );
-	$file =~ s/$sep/$subst$sep/g ;
-	$file =~ s/\.gif/\.$image/g;
-	open H, ">$a";
-	print H $mw_id;
-	print H $file;
-	close H;
-    }
-}
-
-sub copy_txt_file
-{
-    my ($f) = @_;
-    my $d = $f;
-    $d =~ s!^.*\/!!;
-    if (! $f =~ /.txt$/) {
-	$d = "$f.txt";
-    }
-    print $f, $d;
-}
-    
-sub copy_files
-{  
-    print "copying files\n";
-    print `ln -s $depth/out ./docxx` if ( ! -x "docxx" ) ;
-    my_system "cp $depth/TODO ./TODO.txt",
-    "cp $depth/ANNOUNCE ./ANNOUNCE.txt",
-    "cp $depth/NEWS ./NEWS.txt",
-    "cp $depth/DEDICATION ./DEDICATION.txt",
-    "cp ../lelie*gif .";
-}
-
-sub set_images
-{
-    for $a (<*.gif>) {
-	if ($opt_png) {
-	    my_system "gif2png -d $a";
-	}
-	if ($opt_jpeg) {
-	    my $b=$a;
-	    $b =~ s/.gif/.jpeg/;
-	    my_system "cjpeg -o $b $a";
-	}
-    }
-}
-
-sub docxx_update
-{
-    my_system "$MAKE -C $depth doc++";
-}
-
-sub do_tar
-{
-     print "tarring.\n";
-     $files = join (' ', < *.html *.$image *.ps.gz *.txt *.midi docxx/*>);
-     my_system
-	 "-$TAR zvhcf website.tar.gz $files;",
-#	 "gzip -f9 website.tar;";
-}
-
-sub identify
-{
-    print STDERR "This is " . $id_str . "\n";
-    
-}
-sub main
-{
-    identify;
-    GetOptions("jpeg", "gif", "png", "noexamples");
-
-    local $image="gif" ;
-    $image = "png" if ($opt_png);
-    $image = "jpeg" if ($opt_jpeg);
-    
-    $depth = "../";
-    my $cwd;
-    chomp($cwd = `pwd`);
-    die "need to be in directory Documentation\n" if ( ! ($cwd =~ /Documentation$/));
-    get_version;
-    set_html_footer;
-
-
-    $depth = "../../";
-
-    chdir ("out");
-    $ENV{"TEXINPUTS"} .= ":$depth/input/:";
-    $ENV{"LILYINCLUDE"} = "$depth/input/";
-
-
-    gen_html;
-    copy_files;
-    if (! $opt_noexamples) {
-	gen_examples;
-	gen_list;
-    }
-    gen_manuals;
-    set_images;
-
-    edit_html;
-    docxx_update;
-    do_tar;
-}
-
-main;
diff --git a/bin/mudela-book b/bin/mudela-book
deleted file mode 100755
index c56b1050a7..0000000000
--- a/bin/mudela-book
+++ /dev/null
@@ -1,120 +0,0 @@
-#!/usr/bin/perl -w
-my $mudcount = 0;
-my $mudela_b = 0;
-my $outdir = "";
-my $outname = "";
-use Getopt::Long;
-
-sub gen_mufile
-{
-    return "$outdir/$outname$mudcount.ly";
-}
-
-sub gen_texfile
-{
-    return "$outdir/$outname$mudcount.tex";
-}
-
-sub close_mudela
-{
-    $mudela_b = 0;
-    if ($fragment_b) {
-	print MUDELA "}\n \\paper { linewidth = -1.0\\cm; } }\n";
-	$fragment_b =0;
-    }
-    if ( $verbatim_b)  {
-	print BOOK "\\end{verbatim}\n\\interexample";
-	$verbatim_b =0;
-    }
-    close MUDELA;
-    my $status =0;
-    if ( -f gen_mufile ) {
-	$status = system "diff -q $outdir/book-mudela.ly " . gen_mufile;
-    } else {
-	$status = 1;
-	}
-    if ( $status ) {
-	rename "$outdir/book-mudela.ly", gen_mufile;
-	unlink gen_texfile;
-    }
-    
-    if ( ! -f gen_texfile) {
-	system "lilypond ". gen_mufile;
-	rename "lelie.tex", gen_texfile;
-    }
-    print BOOK "\\preexample\\input " . gen_texfile . "\n\\postexample\n";
-	
-}
-
-sub open_mudela
-{
-    $mudcount++;
-    $mudela_b = 1	;
-    open MUDELA, ">$outdir/book-mudela.ly";
-    if ($verbatim_b) {
-	print BOOK "\\begin{verbatim}\n";
-    }
-    if ($fragment_b) {
-	print MUDELA "\\score { \\melodic {";
-    }
-
-}
-
-sub begin_b
-{
-    my ($s) = @_;
-    return (/^\\begin{$s}/) ;    
-}
-
-sub end_b
-{
-    my ($s) = @_;
-    return (/^\\end{$s}/) ;    
-}
-sub parse_mudela_opts
-{
-   my ($s) = @_;
-   $s =~ s/[\[\]]//g;
-
-   $verbatim_b =1 if ($s =~ /verbatim/ );
-   $fragment_b = 1 if ($s =~ /fragment/ );
-}   
-
-sub main
-{
-    GetOptions( 'outdir=s', 'outname=s');
-    $outdir = $opt_outdir;
-    $outname = $opt_outname if (defined ($opt_outname) && $opt_outname);
-    open INFILE, $ARGV[0];
-    
-    open BOOK, ">$outdir/$outname";
-    while (<INFILE>) {
-	if ($mudela_b) {
-	    if (end_b "mudela") {
-		close_mudela;
-		next;
-	    }
-	    print MUDELA;
-	    if ( $verbatim_b ) {
-		my $s = $_;
-		$s =~ s/\t/    /g; #shit
-		print BOOK $s;
-	    }
-	    
-	} else {
-	    if (/^\\begin(\[.*\])?{mudela}/ ) {
-		my $opts ="";
-		$opts = $1 if ( defined ($1));
-
-		parse_mudela_opts($opts);
-		open_mudela;
-		next;  
-	    } 
-	    print BOOK;
-	}
-    }
-    close INFILE;
-    close BOOK;
-}
-
-main;
diff --git a/bin/show-latest b/bin/show-latest
deleted file mode 100644
index 066a26fe3b..0000000000
--- a/bin/show-latest
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/perl
-
-
-$reldir="~/musix/releases";
-
-use FileHandle;
-
-sub  cmpver 
-{ 	
-
-	my(@a)= split /\./,$a;
-	my(@b)= split /\./,$b;
-	
-	for $i (0,1,2) {
-	    return $a[$i] <=> $b[$i] if ($a[$i] != $b[$i]);
-	}
-	return $a cmp $b;
-}
-
-my @versions;
-open LS, "ls -1 $reldir|";
-
-
-while (<LS>) {
-	
-    $_ =~ /lilypond-([^.]+\.[^.]+\.[^.]+).tar.gz/;
-    push @versions, $1;
-}
-
-
-@versions = sort cmpver @versions;
-my $last= (pop @versions);
-
-
-system "rm $reldir/zZ*";
-system  "> $reldir/zZ_LATEST_IS_$last";
-
-open NEWS, "tar --to-stdout  -zxf $reldir/lilypond-$last.tar.gz lilypond-$last/NEWS |";
-input_record_separator NEWS "****";
-$desc = <NEWS>;
-chop ($desc);
-close NEWS;
-    print $desc;
diff --git a/flower/.version b/flower/.version
deleted file mode 100644
index 6214501523..0000000000
--- a/flower/.version
+++ /dev/null
@@ -1,6 +0,0 @@
-MAJOR_VERSION = 1
-MINOR_VERSION = 1
-PATCH_LEVEL = 23
-# use to send patches, always empty for released version:
-MY_PATCH_LEVEL = # include separator: "-1" or ".a"
-#
diff --git a/init/bare.ly b/init/bare.ly
deleted file mode 100644
index 67963e1051..0000000000
--- a/init/bare.ly
+++ /dev/null
@@ -1,5 +0,0 @@
-
-% enough for the parsing step
-
-include "init/dutch.ly"
-include "init/table_sixteen.ly"
diff --git a/input/error.ly b/input/error.ly
deleted file mode 100644
index 118dba144d..0000000000
--- a/input/error.ly
+++ /dev/null
@@ -1,39 +0,0 @@
-\version "0.0.58";
-
-\include "this-is-hopefully-a-nonexisting-file"
-
-
-
-mwa = \melodic{
-	\meter 3/4;
-	[ a8 a8 a8 a8 a8 ]	% 
-	[ a8 ]	% 
-%       segfault
-	< { [ bes^"1"~  a bes-. g-. ] a4-.^"4" } { [ e ] } { [ c ] } > |
-	a ) b ] c 	% warning
-	&   		% ok; error
-	a b ) ] 	% ok; error
-%        a.........	% fatal error -- assert
-	a b c
-	|.|		% 
-	abc		% ok; print error, no \output
-	\bla 		%  STRING, reduced to lyric_elt.
-	a [ b 		% warning, still \output
-        < a( b >	% warning, still \output
-	a b ,c
-	a b c-*
-	a b c&
-	< a-. b-. >
-	
-}
-
-bla = \lyric{
-	These Gates will open just like windows. % ok; warning
-}
-
-
-\include "this-is-hopefully-a-nonexisting-file"
-\score{
-	\staff{ bla }
-	\staff{ mwa }
-}
diff --git a/lily/.version b/lily/.version
deleted file mode 100644
index 98ec990eb1..0000000000
--- a/lily/.version
+++ /dev/null
@@ -1,7 +0,0 @@
-MAJOR_VERSION = 0
-MINOR_VERSION = 0
-PATCH_LEVEL = 77
-# use to send patches, always empty for released version:
-# include separator: ".postfix", "-pl" makes rpm barf
-
-MY_PATCH_LEVEL = 
diff --git a/lily/include/voice-group-performer.hh b/lily/include/voice-group-performer.hh
deleted file mode 100644
index 1a7efee085..0000000000
--- a/lily/include/voice-group-performer.hh
+++ /dev/null
@@ -1,41 +0,0 @@
-/*
-  voice-group-performer.hh -- declare Voice_group_performer
-
-  (c) 1996, 1997 Han-Wen Nienhuys <hanwen@stack.nl>
-                 Jan Nieuwenhuizen <jan@digicash.com>
- */
-
-#ifndef VOICE_GROUP_PERFORMER_HH
-#define VOICE_GROUP_PERFORMER_HH
-
-#include "performer-group-performer.hh"
-
-#if 0
-class Voice_performer_group_performer : public Performer_group_performer {
-public:
-    Voice_performer_
-
-};
-
-#endif
-
-class Voice_group_performer : public Performer_group_performer {
-public:
-    NAME_MEMBERS();
-
-    Voice_group_performer();
-    ~Voice_group_performer();
-
-private:
-};
-
-
-#if 0
-class Voice_performer : 
-	public Performer_group_performer, public Interpreter 
-{
-    
-};
-#endif
-
-#endif // VOICE_GROUP_PERFORMER_HH
diff --git a/lily/voice-group-performer.cc b/lily/voice-group-performer.cc
deleted file mode 100644
index fa3393347b..0000000000
--- a/lily/voice-group-performer.cc
+++ /dev/null
@@ -1,26 +0,0 @@
-/*
-  voice-group-performer.cc -- implement Voice_group_performer
-
-  (c) 1996, 1997 Han-Wen Nienhuys <hanwen@stack.nl>
-                 Jan Nieuwenhuizen <jan@digicash.com>
- */
-
-
-#include "voice-group-performer.hh"
-#include "translator.hh"
-#include "input-translator.hh"
-#include "debug.hh"
-
-//IMPLEMENT_IS_TYPE_B2(Voice_group_performer,Performer, Translator);
-IMPLEMENT_IS_TYPE_B1(Voice_group_performer,Performer_group_performer);
-
-ADD_THIS_PERFORMER(Voice_group_performer);
-
-Voice_group_performer::Voice_group_performer()
-{
-}
-
-Voice_group_performer::~Voice_group_performer()
-{
-}
-
diff --git a/mi2mu/.version b/mi2mu/.version
deleted file mode 100644
index 5596987483..0000000000
--- a/mi2mu/.version
+++ /dev/null
@@ -1,6 +0,0 @@
-MAJOR_VERSION = 0
-MINOR_VERSION = 0
-PATCH_LEVEL = 18
-# use to send patches, always empty for released version:
-MY_PATCH_LEVEL = 
-#