lilypond-0.1.57

diff --git a/bin/add-URLs.sh b/bin/add-URLs.sh
new file mode 100644 (file)
index 0000000..a32e6f9
--- /dev/null
+++ b/bin/add-URLs.sh
@@ -0,0 +1,5 @@
+#!/bin/sh
+
+# add URLs for broken perl 5.004
+
+perl -i~ -pe 's! ([a-z]+://[^ \t]+)! <a href=$1>$1</a>!g' $*

diff --git a/bin/clean-diaper.sh b/bin/clean-diaper.sh
new file mode 100644 (file)
index 0000000..06be904
--- /dev/null
+++ b/bin/clean-diaper.sh
@@ -0,0 +1,18 @@
+#!/bin/sh
+
+# unclobber current dir.
+rm -vf *.aux *.log *.orig *~
+rm -vf `grep -li "^% Creator: GNU LilyPond" *.out *.tex` 
+rm -vf `grep -li "Creator: mi2mu" *.midi.ly`
+rm -vf `grep -li "%Creator: dvipsk" *.ps`
+rm -vf `grep -li "Creator: GNU LilyPond" *.midi`
+rm -vf `grep -li "Creator: ly2dvi" *.tex`
+rm -vf `find -name 'core'`
+rm -vf `find -name '*.orig'`
+rm -vf `find -name '*.rej'`
+
+    
+# 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/clean-embeds.sh b/bin/clean-embeds.sh
new file mode 100644 (file)
index 0000000..1b53f85
--- /dev/null
+++ b/bin/clean-embeds.sh
@@ -0,0 +1,10 @@
+#!/bin/sh
+
+rm -f feta-sleur-[0-9x\-]*.mf
+rm -f feta-sleur-[0-9x\-]*.log
+rm -f feta-beum-[0-9x\-]*.mf
+rm -f feta-beum-[0-9x\-]*.log
+rm -f feta-embed.aux
+rm -f missfont.log
+clean-fonts sleur
+clean-fonts beum

diff --git a/bin/clean-fonts.sh b/bin/clean-fonts.sh
new file mode 100644 (file)
index 0000000..202a873
--- /dev/null
+++ b/bin/clean-fonts.sh
@@ -0,0 +1,25 @@
+#!/bin/sh
+
+case  $# in
+0) 
+    WHAT="" ;;
+1)
+    WHAT=$1;;
+esac
+
+# should use kpsepath 
+
+if [ -d /var/lib/texmf ]; then
+    TEXDIR=/var/lib/texmf
+elif [ -d /var/texfonts ]; then
+    TEXDIR=/var/texfonts
+else
+    TEXDIR=/var/
+fi
+
+# remove possibly stale .pk/.tfm files 
+echo> /tmp/cleaning-font-dummy
+FILES=`find $TEXDIR -name "feta*$WHAT*tfm" -or -name "feta*$WHAT*pk"`
+
+echo removing $FILES
+rm  $FILES /tmp/cleaning-font-dummy

diff --git a/bin/find-typenames.pl b/bin/find-typenames.pl
new file mode 100644 (file)
index 0000000..890f9ca
--- /dev/null
+++ b/bin/find-typenames.pl
@@ -0,0 +1,20 @@
+#!@PERL@
+
+open GREP, "egrep -h '^struct|^class' *.hh *.cc|";
+open OUT, "|sort | uniq";
+while (<GREP>) {
+
+       s/^struct/class/;
+       if (! /; *$/) {
+               s/:[^{]+{.*$//;
+               s/ *{.*$/;/;
+       }
+       if (! /; *$/) {
+               chop;
+               $_ .= ";\n";
+               
+       }
+       print OUT;
+}
+close OUT;
+close GREP;

diff --git a/bin/make-docxx.sh b/bin/make-docxx.sh
new file mode 100644 (file)
index 0000000..b274731
--- /dev/null
+++ b/bin/make-docxx.sh
@@ -0,0 +1,8 @@
+#!/bin/sh
+if [ x$LILYTOP = x ];
+then
+    LILYTOP = .
+fi
+p1=`find $LILYTOP -name '*.hh' |egrep -v out/` 
+p2=`find $LILYTOP -name '*.cc' |egrep -v out/`
+doc++ -f -d docxx/ -S -k -p $BANNEROPT $p1 $p2

diff --git a/bin/make-examples.sh b/bin/make-examples.sh
new file mode 100644 (file)
index 0000000..620a28a
--- /dev/null
+++ b/bin/make-examples.sh
@@ -0,0 +1,9 @@
+#!/bin/sh
+# make-examples
+
+examples="twinkle-pop wtk1-fugue2 standchen-16 standchen-20 wtk1-prelude1 toccata-fuga-E scsii-menuetto cadenza gallina twinkle collisions font font20 scales rhythm multi spacing beams stem"
+pss=$(echo $examples | sed "s/[^ ][^ ]*/out\\/&.ps/g")
+
+# cd ~/lelie/current/Documentation/out
+cd ~/lelie/current/input
+make -C ../Documentation $pss

diff --git a/bin/make-version.sh b/bin/make-version.sh
new file mode 100644 (file)
index 0000000..3be1435
--- /dev/null
+++ b/bin/make-version.sh
@@ -0,0 +1,13 @@
+#!/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/ps-to-gifs.sh b/bin/ps-to-gifs.sh
new file mode 100644 (file)
index 0000000..dc51988
--- /dev/null
+++ b/bin/ps-to-gifs.sh
@@ -0,0 +1,24 @@
+#!/bin/bash
+  
+usage()
+{
+    echo 'ps-to-gifs.sh FILE.ps'
+    exit 2;
+}
+
+case $# in
+1)
+    FILE=`basename $1 .ps`
+    ;;
+*)
+    usage
+    ;;
+esac
+
+# generate the pixmap at twice the size, then rescale (for antialiasing)
+cat $1 | gs  -q -sDEVICE=ppmraw \
+    -sOutputFile="|pnmscale 0.5|ppmtogif > $FILE-page%d.gif" \
+    -r200 -dNOPAUSE - -c quit
+
+
+

diff --git a/bin/show-latest.pl b/bin/show-latest.pl
new file mode 100644 (file)
index 0000000..1c3d14d
--- /dev/null
+++ b/bin/show-latest.pl
@@ -0,0 +1,53 @@
+#!@PERL@
+# -*-Perl-*-
+
+
+$reldir="/home/hanwen/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;
+}