lilypond-0.1.19

diff --git a/bin/mf-to-table.in b/bin/mf-to-table.in
deleted file mode 100644 (file)
index c7e5a25..0000000
--- a/bin/mf-to-table.in
+++ /dev/null
@@ -1,160 +0,0 @@
-#!@PERL@ -w
-# -*-perl-*-
-
-=head1 TODO
-
-rename me!
-
-Ugh . Perl sux. Anybody for Python?
-    
-=cut    
-
-$mf_to_table_version = 0.2;
-
-use Getopt::Long;
-
-sub last_conversion
-{
-    my @v = &versions;
-    return pop @v;
-}
-sub identify
-{
-    
-    print STDERR "This is mf-to-table " . $mf_to_table_version . "\n";
-}
-  
-sub usage
-{
-    print STDERR "Usage: mf-to-table [options] LOG..\n"
-    . "Generate mozarella metrics table from preparated metafont log\n\n"
-    . "Options:\n"
-    . "  -h, --help             print this help\n"
-    . "  -l, --ly=FILE          name output table\n"
-    . "  -t, --tex=FILE         name output tex chardefs\n"
-}
-
-sub make_table
-{
-    my $line;
-    my $indent = 0;
-    my $lineno=0;
-    while ($line = <IN>) {
-       $lineno++;
-       if ($line =~ /^@@/) {
-           $line =~ s/^@@(.*)@@/$1/;
-           chop ($line);
-           my @fields = split (/:/,$line);
-           my $label = $fields [0];
-           my $name = $fields [1];
-           print OUTLY "\t" x $indent;
-           if ($label eq "font") {
-               print OUTLY "% $name=\\symboltables {\n";
-               print OUTTEX "% $name\n";
-               $indent++;
-           } elsif ($label eq "group") {
-               print OUTLY "\"$name\" = \\table {\n";
-               print OUTTEX "% $name\n";
-               $indent++;
-           } elsif ($label eq "puorg") {
-               print OUTLY "}\n";
-               print OUTTEX "\n";
-               $indent--;
-           } elsif ($label eq "tnof") {
-               print OUTLY "%  } % $name\n";
-               $indent--;
-           } elsif ($label eq "char") {
-               my $c = $fields [2];
-               my $w = $fields [3];
-               my $h = $fields [4];
-               my $d = $fields [5];
-               my $b = $fields [6];
-               my $id = $fields [7];
-               my $texstr = $fields [8];
-               print OUTLY sprintf( "\"%s\"\t\"\\%s\"\t%.2f\\pt\t%.2f\\pt\t%.2f\\pt\t%.2f\\pt\n", $id, $texstr, -$b, $w, $h, -$d );
-               # remove % from generic chars, and save start charcode
-               my $defstr = "\\fetdef";
-               if ($texstr =~ /{%/) {
-                       $texstr =~ s/{%.*//;
-                       $texstr .= "start";
-                       $defstr = "\\def"
-               }
-               print OUTTEX sprintf( "%s\\%s{%d}\n", $defstr, $texstr, $c);
-           } else {
-               print STDERR "mf-to-table: $lineno: unknown label: \`$label\'\n";
-           }
-       }
-    }
-}
-      
-sub  set_files 
-{
-    if ($ARGV [0])  {
-       $infile = $ARGV[0];
-    } 
-    if (!(-f $infile) && !($infile =~ /\.log$/s )) {
-       $infile .= ".log";
-    }
-
-    if (defined($opt_ly)) {
-       $lyfile = $opt_ly;
-    }
-    else {
-       $lyfile = $infile;
-       $lyfile =~ s/\.log$/.ly/;
-    }
-    if (defined($opt_tex)) {
-       $texfile = $opt_tex;
-    }
-    else {
-       $texfile = $infile;
-       $texfile =~ s/\.log$/.tex/;
-    }
-
-    print STDERR "Input ", (($infile eq "-") ?"STDIN" : $infile), " .. \n";
-}
-
-sub do_one_arg
-{
-    set_files;
-
-    die "can't open \`$infile\'" unless open IN,$infile ;
-
-    die "can't open \`$lyfile\'" unless open OUTLY, ">$lyfile";
-    print OUTLY "% generated at " . localtime() . " from $infile\n";
-    print OUTLY "% changes will be lost\n\n";
-
-    die "can't open \`$texfile\'" unless open OUTTEX, ">$texfile";
-    print OUTTEX "% generated at " . localtime() . " from $infile\n";
-    print OUTTEX "% changes will be lost\n\n";
-    
-    make_table;
-
-    close IN;
-    close OUTLY;
-    close OUTTEX;
-}
-
-## "main"
-
-identify;
-
-#GetOptions ("help", "output=s", "from=i", "to=i", "minor=i", "edit", "show-rules");
-GetOptions ("help", "ly=s", "tex=s");
-
-if ($opt_help) {
-    usage();
-    $opt_help = 0;     # to extinguish typo check.
-    exit 0;
-}
-
-local ($infile,$lyfile,$texfile);
-my $processed_one=0;
-
-while (defined($ARGV[0])) {
-    do_one_arg;
-    shift @ARGV;
-    $processed_one = 1;
-}
-do_one_arg unless ($processed_one);
-