+++ /dev/null
-/*
- auto-beam-engraver.hh -- declare Auto_beam_engraver
-
- source file of the GNU LilyPond music typesetter
-
- (c) 1999--2000 Jan Nieuwenhuizen <janneke@gnu.org>
-
- */
-
-#ifndef AUTO_BEAM_ENGRAVER_HH
-#define AUTO_BEAM_ENGRAVER_HH
-
-#include "engraver.hh"
-
-class Auto_beam_engraver : public Engraver
-{
-public:
- Auto_beam_engraver ();
- VIRTUAL_COPY_CONS (Translator);
-
-protected:
- virtual bool do_try_music (Music*);
- virtual void do_pre_move_processing ();
- virtual void do_post_move_processing ();
- virtual void do_removal_processing ();
- virtual void acknowledge_element (Score_element_info);
- virtual void do_process_music ();
- virtual void process_acknowledged ();
- virtual void do_creation_processing ();
-private:
- void begin_beam ();
- void consider_end_and_begin (Moment test_mom);
- Beam* create_beam_p ();
- void end_beam ();
- void junk_beam ();
- bool same_grace_state_b (Score_element* e);
- void typeset_beam ();
-
- Moment shortest_mom_;
- Beam *finished_beam_p_;
- Array<Stem*>* stem_l_arr_p_;
-
- Moment last_add_mom_;
- Moment extend_mom_;
-
-
- Moment beam_start_moment_;
- Moment beam_start_location_;
-
- Timing_translator * timer_l_;
- // We act as if beam were created, and start a grouping anyway.
- Beaming_info_list*grouping_p_;
- Beaming_info_list*finished_grouping_p_;
-};
-
-#endif /* AUTO_BEAM_ENGRAVER_HH */
-
+++ /dev/null
-/*
- clef-item.hh -- declare Clef_item
-
- (c) 1996--2000 Han-Wen Nienhuys
-*/
-
-#ifndef CLEFITEM_HH
-#define CLEFITEM_HH
-#include "item.hh"
-
-#include "direction.hh"
-
-
-
-#endif // CLEFITEM_HH
-
-
+++ /dev/null
-/*
- multi_measure_rest-engraver.hh -- declare Multi_measure_rest_engraver
-
- source file of the GNU LilyPond music typesetter
-
- (c) 1998--2000 Jan Nieuwenhuizen <janneke@gnu.org>
-*/
-
+++ /dev/null
-/*
- staff-bar.hh -- declare Staff_bar
-
- source file of the GNU LilyPond music typesetter
-
- (c) 1999--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
-
- */
-
-#ifndef STAFF_BAR_HH
-#define STAFF_BAR_HH
-
-#include "bar.hh"
-
-
-/**
- A bar that is on a staff.
- Ugh. Entita non multiplicandum ...
- */
-class Staff_bar : public Bar
-{
-public:
- VIRTUAL_COPY_CONS(Score_element);
- virtual Real get_bar_size () const;
- Staff_bar (SCM);
-};
-
-#endif /* STAFF_BAR_HH */
-
+++ /dev/null
-#!@PYTHON@
-
-#
-# flower.py -- python flower lib
-#
-# source file of the GNU LilyPond music typesetter
-#
-# (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
-#
-
-import sys
-from string import *
-
-class File:
- """silly wrapper for Python file object."""
- def __init__ (self,nm, mode='r'):
- if nm:
- self.file_ = open (nm, mode);
- elif mode == 'w':
- self.file_ = sys.stdout
- else:
- self.file_ = sys.stdin
-
- self.eof_ = 0;
- def readline (self):
- l= self.file_.readline ();
- if not l:
- self.eof_ = 1;
- return l;
- def write (self, str):
- self.file_.write (str)
- def eof (self):
- return self.eof_
- def close (self):
- self.file_.close ()
- def __del__ (self):
- self.close ();
-
-
-
-import fnmatch
-import os
-
-_debug = 0
-
-_prune = ['(*)']
-
-
-def my_find(patterns, dir = os.curdir):
- list = []
- names = os.listdir(dir)
- names.sort()
- for name in names:
- if name in (os.curdir, os.pardir):
- continue
- fullname = os.path.join(dir, name)
- for pat in patterns:
- if fnmatch.fnmatch(name, pat):
- list.append(fullname)
- if os.path.isdir(fullname) and not os.path.islink(fullname):
- for p in _prune:
- if fnmatch.fnmatch(name, p):
- if _debug: print "skip", `fullname`
- break
- else:
- if _debug: print "descend into", `fullname`
- found = my_find(patterns, fullname)
- if found:
- list = list + found
- return list
-
-
-def multiple_find(pats, dirnames):
- from find import find
- l = []
- for d in dirnames:
- l = l + my_find(pats, d)
- return l
-
-def file_exist_b(name):
- try:
- f = open(name)
- except IOError:
- return 0
- f.close ()
- return 1
-
+++ /dev/null
-#!/bin/sh
-# show-latest.sh --- show latest lily
-
-# @PERL@ @step-bindir@/out/show-latest.pl --package=@package@ $*
-# urg
-#@step-bindir@/out/show-latest --the-package=@package@ $*
-if [ $# -lt 1 ]; then
- print="-p"
-fi
-@abs-step-bindir@/out/package-latest --the-package=@package@ $* $print
-
+++ /dev/null
-#!@PYTHON@
-
-# table-to-html.py -- convert char-separated table to html table
-#
-# source file of the GNU LilyPond music typesetter
-#
-# (c) 1998 Jan Nieuwenhuizen <janneke@gnu.org>
-
-version = '0.1'
-name = 'table-to-html'
-
-import os
-import sys
-import getopt
-import string
-import time
-import re
-
-format = 'html'
-
-def program_id ():
- return name + ' version ' + version;
-
-def identify ():
- sys.stdout.write (program_id () + '\n')
-
-def help ():
- sys.stdout.write (
-r"""Usage: table-to-html [OPTION]... TABLE-FILE HTML-FILENAME
-Generate pretty table from char separated table
-Options:
- -h, --help print this help
- -p, --package=DIR specify package
- -s, --separator=SEP specify separator [:]
- -t, --latex do latex output instead
-""")
- sys.exit (0)
-
-
-def header (html):
- html.write ('<body bgcolor=white><table cellspacing=10>')
-
-def footer (html):
- html.write ('</table></body>')
-
-def convert_html (lines, outname, cols, separator, linesep):
- # ugh
- html = open (outname, 'w')
-
- header (html)
- i = 0
- for line in lines:
- i = i + 1
- if not len(line):
- continue
- columns = string.split (line, separator)
- html_line = '<tr><td>' + string.join (columns, '</td><td>') + '</td></tr>'
- html_line= re.sub (linesep, ' ', html_line)
- html.write (html_line)
-
- if len (columns) <> cols:
- print i
- raise 'not enough cols'
-
- footer (html)
- html.close ()
-
-
-def convert_tex (lines, outname, cols, separator, linesep):
- html = open(outname, 'w')
- header = r"""\documentclass{article}
-\begin{document}
-{\parindent -1pc
- \parskip 0pc\parsep 0pc
- % COMMENT( from the texbook)
- \def\length#1{\count0=0 \getlength#1\end}
- \def\getlength#1{\ifx#1\end \let\next=\relax
- \else\advance\count0 by1 \let\next=\getlength\fi \next}
- \def\inlanguage#1#2{{\length{#2}%
- \ifnum\count0=0
- \else
- \emph{#1}: #2.
- \fi}}
- \small
-
- \def\tableentry#1#2#3#4#5#6#7{\par{\bf #1}: #7
- \inlanguage{Fran\c cais}{#2}
- \inlanguage{British}{#4} \inlanguage{Deutsch}{#3}
- \inlanguage{Nederlands}{#5}\inlanguage{Italiano}{#6}}
-"""
-
- html.write (header)
- i = 0
- for line in lines:
- i = i + 1
- if not len(line):
- continue
- columns = string.split (line, separator)
- if len (columns) <> cols:
- print i
- raise 'not enough cols'
-
- tex_line = '\\tableentry{' + string.join (columns, '}{') + '}\n'
- tex_line = re.sub (linesep, ' ', tex_line)
- html.write (tex_line)
-
- html.write(r"""}\end{document}""")
- html.close ()
-
-def convert_texinfo (lines, outname, cols, separator, linesep):
- pass
-
-
-
-identify ()
-(options, files) = getopt.getopt (
- sys.argv[1:], 'f:tl:o:h:c:s:', ['columns=', 'help', 'format=', 'output=', 'separator=', 'linesep='])
-latex = 0
-separator = '@'
-output = ''
-linesep = '\r'
-for opt in options:
- o = opt[0]
- a = opt[1]
- if o == '--separator' or o == '-s':
- separator = a
- elif o== '--help' or o == '-h':
- help ()
- elif o=='--format' or o == '-f':
- format = a
- elif o == '--output' or o == '-o':
- output = a
- elif o == '--linesep' or o == '-l':
- linesep = a
- elif o == '--columns' or o == '-c':
- cols = string.atoi(a)
- else:
- print o
- raise getopt.error
-
-lines = open (files[0]).readlines ()
-
-if format == 'latex':
- convert_tex (lines, output, cols, separator, linesep)
-elif format == 'html':
- convert_html (lines, output, cols, separator, linesep)
-elif format == 'texi':
- convert_texinfo (lines, output, cols, separator, linesep)
-
+++ /dev/null
-#!/bin/sh
-
-cwd=`pwd`
-
-if [ "$1" = "" ]; then
- echo usage tar-docxx TARBALL
- exit 2
-else
- TARBALL=$1
-fi
-
-
-# mail-address
-if [ "$MAILADDRESS" != "" ]; then
- echo mail address is $MAILADDRESS
-else
- echo "mail-address:6: warning: \$MAILADDRESS undefined" > /dev/stderr
- echo $USER@`hostname`
-fi
-
-
-if [ ! -e $TARBALL ]; then
- echo $TARBALL does not exist
- exit 2
-fi
-
-TARBALLBASE=`basename $TARBALL`
-
-TAROUTDIR=/tmp/tar-docxx
-rm -rf $TAROUTDIR
-mkdir -p $TAROUTDIR
-echo untarring ...
-tar -C $TAROUTDIR -zxf $TARBALL '*.hh' '*.h'
-
-cd $TAROUTDIR
-DATE=`date`
-
-cat << EOF > banner.html
- This program documentation comes from $TARBALLBASE. It was generated by
- $USERNAME <<a href="mail:$MAILADDRESS">$MAILADDRESS</a>> on $DATE
-EOF
-
-mkdir docxx;
-echo doc++ ...
-doc++ -pSf -B banner.html -d docxx `find -type f`
-echo tarring ...
-tar -czf $cwd/progdocs.tar.gz docxx/
-
-rm -rf $TAROUTDIR
+++ /dev/null
-#!/bin/sh
-# zet-step.sh --- configure StepMake sourcetree
-# nice in first character unique name
-#
-export PACKAGE_NAME=StepMake
-prefix=$HOME/usr
-#
-#
-. ./stepmake/bin/package-zet.sh
-#
-# The package root dir looks like this:
-#
-# <SEE INSTALL.txt>
-#
-# ln -sf $STEPMAKEL_SOURCEDIR/src/stepmake/out/step $prefix/bin/step
-
-./configure --prefix=$prefix
-
projects / lilypond.git / commitdiff