From: fred <fred>
Date: Sun, 24 Mar 2002 20:02:47 +0000 (+0000)
Subject: lilypond-0.1.22
X-Git-Tag: release/1.5.59~3597
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2a80f3b0a224e6ee3f696ae819d3e6b9563eb08b;p=lilypond.git

lilypond-0.1.22
---

diff --git a/bin/clean-fonts b/bin/clean-fonts
deleted file mode 100755
index 8494ff68a5..0000000000
--- a/bin/clean-fonts
+++ /dev/null
@@ -1,7 +0,0 @@
-#!/bin/sh
-
-# remove possibly stale .pk/.tfm files 
-echo> /tmp/cleaning-font
-FILES=`find /var/lib/texmf/ -name 'font-en-tja*'` # -or -name 'vette-beam*'`
-echo removing $FILES
-rm  $FILES /tmp/cleaning-font
diff --git a/bin/clearlily b/bin/clearlily
deleted file mode 100755
index 22a4ea6df3..0000000000
--- a/bin/clearlily
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/bin/sh
-
-# unclobber current dir.
-rm -vf *.aux *.log `grep -li "^% Creator: GNU LilyPond" *.out` *.orig *~
-rm -vf `grep -li "Creator: mi2mu" *.midi.ly`
-rm -vf `grep -li "Creator: GNU LilyPond" *.midi`
-# docxx mess
-rm -vf *dvi
-rm -vf *.class  HIER*.html dxxgifs.tex gifs.db icon?.gif logo.gif down.gif \
-    aindex.html index.html
diff --git a/bin/conflily b/bin/conflily
deleted file mode 100644
index de2ce672f9..0000000000
--- a/bin/conflily
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/bin/sh
-# conflily
-# ugh: must be executed from lilypond-x.x.x (bin/conflily)
-
-# the lilypond root dir looks like this:
-# current -> ./lilypond-x.x.x  symlink to current source
-# lilypond-x.x.x               the lilypond source
-# patches                      gzipped patches
-# releases                     gzipped releases
-
-# the lily root dir
-#
-lelie=$HOME/music/lily
-#
-
-if [ ! -e $HOME/lelie ]; then
-	ln -s $lelie $HOME/lelie
-fi
-
-rm $lelie/current 2>&1 > /dev/null
-current=`basename \`pwd\``
-echo ln -s $lelie/$current $lelie/current
-ln -s $lelie/$current $lelie/current
-
-ln -sf $lelie/current/lily/out/lilypond bin/out/lilypond
-ln -sf $lelie/current/mi2mu/out/mi2mu bin/out/mi2mu
-
-if [ "x$LILYINCLUDE" = "x" ]; then
-	echo you should make add the following to your login script
-	echo "export LILYINCLUDE=$lelie/current/init"
-	echo "export PATH=$PATH:$lelie/current/bin/out/"
-	echo "export MFINPUTS=$MFINPUTS:$lelie/current/mf"
-fi
-
-configure --prefix=/usr --enable-debugging --enable-printing --enable-checking
-
diff --git a/bin/convert-mudela.in b/bin/convert-mudela.in
deleted file mode 100644
index 8b05c1561a..0000000000
--- a/bin/convert-mudela.in
+++ /dev/null
@@ -1,324 +0,0 @@
-#!@PERL@ -w
-# -*-perl-*-
-
-=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.2";
-
-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 convert_0_1_0_to_0_1_1
-{
-    s/\\tempo (.*):(.*);/\\tempo $1 = $2;/g
-}
-
-sub convert_0_1_2_to_0_1_3
-{
-    s/\\stem *(\\up|1) *;/\\stemup/g;
-    s/\\stem *(\\down|-1) *;/\\stemdown/g;
-    s/\\stem *0 *;/\\stemboth/g;
-    s/\\hshift ([^;]+) *;/\\property Voice.hshift = $1/g;
-}
-
-sub convert_0_1_4_to_0_1_5
-{
-    s/([<{]) *\\id "Piano" (.+);/\\type Grandstaff = $3 $1/;    
-    s/([<{]) *\\id (.+) (.+);/\\type $2 = $3 $1/;
-}
-
-       
-sub convert_0_1_5_to_0_1_6
-{
-    s/< *\\multi (.*);/\\multi $1 </;
-}
-       
-###############################################################
-
-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,
-			 "0.1.1" => \&convert_0_1_0_to_0_1_1,
-			 "0.1.2" => \&no_conv,
-			 "0.1.3" => \&convert_0_1_2_to_0_1_3,
-			 "0.1.4" => \&no_conv,
-			 "0.1.5" => \&convert_0_1_4_to_0_1_5,
-			 "0.1.6" => \&convert_0_1_5_to_0_1_6
-			 );
- 
-
-sub versions 
-{
-    return (sort { cmpver; } (keys %minor_conversions));
-}
-    
-
-sub show_rules
-{
-    my (@v) = versions;
-
-    print "Rules: ", join(", ", @v), "\n";
-    
-}
-
-sub do_conversion
-{
-    my ($from,$to) = @_;
-
-    my @applicable_conversion;
-    my @mudela_levels;
-    
-    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/cpgento b/bin/cpgento
deleted file mode 100755
index 74f77787db..0000000000
--- a/bin/cpgento
+++ /dev/null
@@ -1,49 +0,0 @@
-#!/bin/sh
-# cpgento
-#
-
-if test $# -ne 1
-then
-	echo "Usage: "
-	echo "	cpgento LOCATION, e.g.:"; 
-	echo
-	echo "	cpgento /mnt/aix/usr/src/lily"
-       	echo "	CP=rcp cpgento fred@pcnov095.win.tue.nl:music/lily"
-	exit 1
-fi
-
-MAKE=${MAKE:-make}
-CP=${CP:-cp}
-
-genlily="out/parser.hh out/parser.cc out/lexer.cc"
-echo generating $genlily ...
-$MAKE -C lily $genlily
-
-genmi2mu="out/midi-parser.hh out/midi-parser.cc out/midi-lexer.cc"
-echo generating $genmi2mu ...
-$MAKE -C mi2mu $genmi2mu
-
-lilydir=`pwd | sed "s/.*\///"`
-todir=$1/$lilydir
-echo "copying $lilydir -> $todir"
-
-cpto() {
-	name=$1
-	tostuff=$todir/$name/out
-	genstuff="$2"
-	if [ "$CP" = "cp" -a \! -d $tostuff ]
-	then
-		echo mkdir -p $tostuff
-		mkdir -p $tostuff
-	fi
-	echo $CP $genstuff $tostuff
-	(cd $name; $CP $genstuff $tostuff)
-}
-
-cpto lily "$genlily"
-cpto mi2mu "$genmi2mu"
-
-# if you cannot gen the above, you-ll probably want:
-flexlexerh=/usr/include/FlexLexer.h
-cpto lib $flexlexerh
-
diff --git a/bin/lily.efence b/bin/lily.efence
deleted file mode 100644
index 5924253436..0000000000
--- a/bin/lily.efence
+++ /dev/null
@@ -1,4 +0,0 @@
-#!/bin/sh
-gdb --command=bin/efence.gdbinit
-
-
diff --git a/bin/make-patch b/bin/make-patch
deleted file mode 100755
index e11d7b8533..0000000000
--- a/bin/make-patch
+++ /dev/null
@@ -1,57 +0,0 @@
-#!/bin/sh
-
-case $# in
-0) echo make_patch old new name
-	exit 1;;
-esac
-
-old=$1
-new=$2
-nm=$3-
-
-newarc=../releases/$nm$new.tar.gz
-oldarc=../releases/$nm$old.tar.gz
-
-
-if [ ! -x  $nm$new ]
-then
-   echo untarring ..
-  if [ ! -f $newarc ]
-  then
-	echo "can't find $newarc"
-	exit
-  fi
-  tar zfx $newarc
-fi
-if [ ! -x  $nm$old ]
-then
-   echo untarring
-
-  if [ ! -f $oldarc ]
-  then
-	echo "can't find $oldarc"
-	exit
-  fi
-   tar zfx $oldarc
-fi
-
-# not interested in auto generated files.
-for a in lilypond.lsm INSTALL.text AUTHORS.text lilypond.spec configure; do
-    rm `find  $nm$old $nm$new  -name $a`
-done    
-
-cat <<EOF > patch-$new
-Generated with 
-
-	make_patch $1 $2 $3
-
-usage 
-
-	cd lilypond-source-dir; patch -E -p0 < patch-$new
-	
-Patches do not contain automatically generated files, 
-i.e. you should rerun configure
-EOF
-
-(cd $nm$new; diff -urN  ../$nm$old . >> ../patch-$new)
-rm -rf $nm$old $nm$new
diff --git a/bin/make-version b/bin/make-version
deleted file mode 100755
index 3be14353cb..0000000000
--- a/bin/make-version
+++ /dev/null
@@ -1,13 +0,0 @@
-#!/bin/sh
-
-#shift;
-if test "x$1" = x;
-then
-    versionfile="VERSION"
-else
-    versionfile=$1;
-fi
-
-cat $versionfile| sed 's/#.*$//g'|sed 's/\([^ ]*\)[\t ]*=[ \t]*\([^ ]*\)$/#define \1 \"\2\"/g' 
-echo
-    
diff --git a/bin/make-website.in b/bin/make-website.in
deleted file mode 100644
index 9830035556..0000000000
--- a/bin/make-website.in
+++ /dev/null
@@ -1,357 +0,0 @@
-#!@PERL@ -w 
-# -*-Perl-*- 
-
-
-# stupid script to generate WWW site.  The WWW site is my 
-# test-suite for LilyPond, I usually don't distribute versions that
-# fail to make the website
-
-use FileHandle;
-use Getopt::Long;
-
-my $lily_version;
-my $footstr;
-my $mw_id = "<!make_website!>";
-my $id_str = "make-website 0.4";
-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= $lily_version;
-    
-    close V;
-}
-
-sub set_html_footer
-{
-    my $MAILADDRESS=$ENV{MAILADDRESS};
-    my @pw=(getpwuid($<));
-    my $username=$pw[6];
-
-    $footstr = 
-	"\n<hr>Please take me <a href=index.html>back to the index</a>\n
-of LilyPond -- The GNU Project Music typesetter
-<hr>
-<font size=-1>
-This page was built using <code>" . $id_str . "</code> from lilypond-"
-    . $lily_version . 
-	" by<p>
-<address><br>$username <a href=mailto:" 
-    . $MAILADDRESS . ">&lt<!bla>" . $MAILADDRESS ."</a>&gt</address>
-<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-pop", 
-		 "wtk1-fugue2",
-		 "standchen-16", 
-		 "standchen-20", 
-		 "wtk1-prelude1",
-		 "toccata-fuga-E", 
-		 "scsii-menuetto",
-		 "cadenza", 
-		 "gallina",
-		 "twinkle", 
-		 "collisions",
-		 "font",
-		 #"scales", 
-		 "rhythm", 
-		 "multi" );
-
-
-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><TITLE>PostScript Manuals</TITLE>\n" ;
-    print HTMLLIST "<BODY><h1>LilyPond manuals (in PostScript)</h1>";
-    print HTMLLIST "<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>";
-    
-    print HTMLLIST "</BODY></HTML>";
-    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>Rendered Examples</TITLE>\n
-These example files are taken from the LilyPond distribution.
-LilyPond currently only outputs TeX and MIDI. The pictures and
-PostScript files were generated using TeX, Ghostscript and some
-graphics tools.  The papersize used for these examples is A4.  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 "\n}";
-	
-	$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;
-	$file =~ s!<TITLE>(.*)</TITLE>!<TITLE>LilyPond WWW: $1</TITLE>!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, $d;
-}
-    
-sub top_of_NEWS
-{
-    open NEWS, "NEWS.txt";
-    input_record_separator NEWS "****";
-    $desc = <NEWS>;
-    chop ($desc);
-    close NEWS;
-
-    return $desc;
-}
-
-sub edit_index
-{
-    $ton = top_of_NEWS();
-    $ton = "\n<XMP>\n$ton\n</XMP>\n";
-    open INDEX, "index.html";
-    input_record_separator NEWS undef;
-    $index = <INDEX>;
-    close INDEX;
-    $index =~ s/top_of_NEWS/$ton/;
-    open INDEX, ">index.html";
-    print INDEX $index;
-    close INDEX;
-}
-
-
-sub copy_files
-{  
-    print "copying files\n";
-    my_system "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";
-    my_system "make -C .. gifs";
-    
-}
-
-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
-{
-    open BANNER, ">/tmp/lilybanner.html";
-    my $ban = $footstr;
-    $ban =~ s!index.html!../index.html!g;
-    print BANNER $ban;
-    close BANNER;
-    my_system "$MAKE -C $depth docxx-opts=\"-p -S -k -B /tmp/lilybanner.html\" doc++";
-    # should add a cute header.
-}
-
-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;
-    print "lily v. " . $lily_version . "\n";
-    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;
-    edit_index;
-    docxx_update;
-    do_tar;
-}
-
-main;
diff --git a/bin/mudela-book.in b/bin/mudela-book.in
deleted file mode 100644
index 9aec75cb60..0000000000
--- a/bin/mudela-book.in
+++ /dev/null
@@ -1,178 +0,0 @@
-#!@PERL@ -w		
-# -*-Perl-*-
-my $mudcount = 0;
-my $mudela_b = 0;
-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";
-}
-
-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; castingalgorithm = \\Wordwrap; } }\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) {
-	my_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 help
-{
-    print  "usage: convert-mudela [options] [file]
-options: 
---help
---outdir=DIRECTORY	write all files in directory DIRECTORY
---outname=NAME		use NAME as base  for the output
-";
-    exit;
-}
-    
-sub main
-{
-    GetOptions( 'outdir=s', 'outname=s', 'help');
-    help    if ( $opt_help ) ;
-
-    if  (defined ($opt_outdir)) {
-	$outdir = $opt_outdir .  "/";
-    } else {
-	$outdir = ".";
-    }
-   
-    if (defined ($ARGV[0])) {
-    	$infile = $ARGV[0] ;
-    } else {
-	$infile = "-";
-    }
-    if (defined ($opt_outname)) {
-	$outname = $opt_outname ;
-    } else { 
-	die "Need to have an output name, use --outname" if ( $infile eq "-");
-	$outname = "$infile.tex";
-    }
-
-    my $openout ="$outdir$outname"; 
-    if  ( $infile eq $openout ) {
-	die "The input can't be the output\n";
-    }
-
-    open INFILE, "<$infile";
-    open BOOK, ">$openout";
-    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/release b/bin/release
deleted file mode 100755
index 7521b49f11..0000000000
--- a/bin/release
+++ /dev/null
@@ -1,73 +0,0 @@
-#!/bin/sh
-
-# script to automate releases
-
-grep -q  '^TOP' VERSION
-    res=$?
-if test ! -f VERSION  || test $res != 0; then
-    echo not in topleveldir
-    exit 1
-fi    
-
-function setversion() {
-eval `sed -n 's/^\([A-Z_]*\) *= *\(.*\)$/\1=\2/p' VERSION`
-
-MJ=$TOPLEVEL_MAJOR_VERSION
-MI=$TOPLEVEL_MINOR_VERSION
-PA=$TOPLEVEL_PATCH_LEVEL 
-MP=$TOPLEVEL_MY_PATCH_LEVEL
-NEWVER=$MJ.$MI.$PA$MP
-if [ x$MP = x -o x$MP = xpre ]
-then
-    LASTVER=$MJ.$MI.`expr $PA - 1`
-
-    if [ -f $releasedir//lilypond-$LASTVER""pre.tar.gz ] ; then
-	LASTVER="$LASTVER""pre"
-    fi
-else
-    LASTVER=$MJ.$MI.$PA
-fi
-
-echo
-echo "Current  version ("`pwd`") is $NEWVER, Last version:  $LASTVER"
-echo
-}
-
-heredir=`pwd`
-releasedir=`pwd`/../releases
-patchdir=`pwd`/../patches
-MAKE=${MAKE:-"make"}
-TAR=${TAR:-"tar"}
-
-
-$MAKE dist; 
-setversion
-LILYVER=$NEWVER
-
-tarball=lilypond-$LILYVER.tar.gz
-patch=patch-$LILYVER.gz
-
-mv  $tarball $releasedir/
-
-cd ../test
-$heredir/bin/make-patch $LASTVER $NEWVER lilypond
-gzip -f9 patch-$NEWVER
-mv $patch $patchdir//
-
-RPMS=`find ~/rpms/ -name lilypond-$NEWVER'*'rpm`
-rm *.rpm {lilypond,patch}-*.gz
-
-if [ ! -z "$RPMS" ]; then
-    ln $RPMS . 
-fi
-    
-ln $releasedir//$tarball .
-ln $patchdir//$patch .    
-
-
-if [ ! -z "$RPMS" ]; then
-    RPMS="lilypond-$LILYVER-1.i386.rpm lilypond-$LILYVER-1.src.rpm"
-fi    
-$TAR cf updeet $tarball $patch $RPMS
-$TAR tfv updeet
-
diff --git a/bin/show-latest.in b/bin/show-latest.in
deleted file mode 100644
index a75250b54f..0000000000
--- a/bin/show-latest.in
+++ /dev/null
@@ -1,53 +0,0 @@
-#!@PERL@
-# -*-Perl-*-
-
-
-$reldir="/home/hw/musix/releases";
-
-use FileHandle;
-use Getopt::Long;
-
-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|";
-
-GetOptions( 'print', 'news', 'latest');
-
-
-while (<LS>) {
-    $_ =~ /lilypond-([^.]+\.[^.]+\.[^.]+).tar.gz/;
-    push @versions, $1;
-}
-
-
-@versions = sort cmpver @versions;
-my $last= (pop @versions);
-
-
-if (  $opt_print ) {
-    print $last;
-}
-
-if ( $opt_latest) {
-    system "rm $reldir/zZ*";
-    system  "> $reldir/zZ_LATEST_IS_$last";
-}
-if ( $opt_news ) {
-    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/init/vette-beams16.ly b/init/vette-beams16.ly
deleted file mode 100644
index 55fc84888e..0000000000
--- a/init/vette-beams16.ly
+++ /dev/null
@@ -1,3 +0,0 @@
-% generated at Fri Sep 26 15:26:29 1997 from out/vette-beams16.log
-% changes will be lost
-
diff --git a/init/vette-beams20.ly b/init/vette-beams20.ly
deleted file mode 100644
index 438f27e89a..0000000000
--- a/init/vette-beams20.ly
+++ /dev/null
@@ -1,3 +0,0 @@
-% generated at Fri Sep 26 15:26:46 1997 from out/vette-beams20.log
-% changes will be lost
-
diff --git a/lily/notehead.cc b/lily/notehead.cc
deleted file mode 100644
index 97d69ec1ed..0000000000
--- a/lily/notehead.cc
+++ /dev/null
@@ -1,87 +0,0 @@
-/*
-  notehead.cc -- implement Note_head
-
-  source file of the GNU LilyPond music typesetter
-
-  (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
-*/
-
-#include "misc.hh"
-#include "dots.hh"
-#include "note-head.hh"
-#include "dimen.hh" 
-#include "debug.hh"
-#include "paper-def.hh"
-#include "lookup.hh"
-#include "molecule.hh"
-#include "musical-request.hh"
-
-
-Note_head::Note_head ()
-{
-  x_dir_ = CENTER;
-  staff_size_i_= 8;		// UGH
-  position_i_ = 0;
-  extremal_i_ = 0;
-}
-
-void
-Note_head::do_pre_processing ()
-{
-  // 8 ball looks the same as 4 ball:
-  if (balltype_i_ > 2)
-    balltype_i_ = 2;
-  if (dots_l_)			// move into Rhythmic_head?
-    dots_l_->position_i_ = position_i_;
-}
-
-IMPLEMENT_IS_TYPE_B1(Note_head,Rhythmic_head);
-
-
-int
-Note_head::compare (Note_head *const  &a, Note_head * const &b)
-{
-  return a->position_i_ - b->position_i_;
-}
-
-Interval
-Note_head::do_width () const
-{
-  Atom a =  paper ()->lookup_l()->ball (balltype_i_);
-  Interval i = a.dim_[X_AXIS];
-  i+= x_dir_ * i.length ();
-  return i;
-}
-
-Molecule*
-Note_head::brew_molecule_p() const 
-{
-  Molecule*out = 0;
-  Paper_def *p = paper();
-  Real inter_f = p->internote_f ();
-
-  // ugh
-  bool streepjes_b = (position_i_<-1) || (position_i_ > staff_size_i_+1);
-  
-  Atom  s = p->lookup_l()->ball (balltype_i_);
-  out = new Molecule (Atom (s));
-  out->translate (x_dir_ * s.dim_[X_AXIS].length (), X_AXIS);
-
-  if (streepjes_b) 
-    {
-      int dir = sign (position_i_);
-      int s =(position_i_<-1) 
-	? -((-position_i_)/2)
-	: (position_i_-staff_size_i_)/2;
-	
-      Atom str = p->lookup_l()->streepjes (balltype_i_, s);
-      Molecule sm;
-      sm.add (Atom (str));
-      if (position_i_ % 2)
-	sm.translate (-inter_f* dir, Y_AXIS);
-      out->add (sm);	    
-    }
-  
-  out->translate (inter_f*position_i_, Y_AXIS);
-  return out;
-}
diff --git a/mf/foo.mf b/mf/foo.mf
deleted file mode 100644
index e69de29bb2..0000000000
diff --git a/mf/mfbug.mf b/mf/mfbug.mf
deleted file mode 100644
index 5837988e0c..0000000000
--- a/mf/mfbug.mf
+++ /dev/null
@@ -1,21 +0,0 @@
-% is this OK? Or is it a bug;
-% changing the order of z1l and z1r in reflectedabout 
-% stops mf from complaining
-fet_beginchar("open (unstopped)", "open", "ouvert")
-	save thin, height, width, thick;
-	height# = 5/4 width#;
-	height# = 2/3 interline#;
-	thin = .9 stafflinethickness;
-	thick =  1.4 thin;
-	set_char_box(width#/2, width#/2, 0, height#);
-	
-	penpos1(thick, 0);
-	penpos2(thin, 90);
-	z1r = (w,h/2);
-	z2r = (0, h);
-	penlabels(1,2);
-	penstroke z1e{up} .. {left}z2e;
-	addto currentpicture also currentpicture xscaled -1;
-	addto currentpicture also currentpicture reflectedabout(z1l, z1r);
-fet_endchar;
-fet_endgroup("foobars");
diff --git a/tex/vette-beams16.tex b/tex/vette-beams16.tex
deleted file mode 100644
index 55fc84888e..0000000000
--- a/tex/vette-beams16.tex
+++ /dev/null
@@ -1,3 +0,0 @@
-% generated at Fri Sep 26 15:26:29 1997 from out/vette-beams16.log
-% changes will be lost
-
diff --git a/tex/vette-beams20.tex b/tex/vette-beams20.tex
deleted file mode 100644
index 438f27e89a..0000000000
--- a/tex/vette-beams20.tex
+++ /dev/null
@@ -1,3 +0,0 @@
-% generated at Fri Sep 26 15:26:46 1997 from out/vette-beams20.log
-% changes will be lost
-