* lily/lily-guile.cc (parse_symbol_list): strip spaces at the end.

* Documentation/topdocs/INSTALL.texi (Top): reorder.

* lily/stem.cc: remove #'up-to-staff ; use #'stem-end-position for
forcing up to staff.  remove #'support-head property
(brew_molecule): small cleanup.
(flag): remove #'grace property.

diff --git a/ChangeLog b/ChangeLog
index d5b6865e865e1a7ac40fbb54ab1a68eb79416d25..428b85ea91a223d98223a50c19839c03a9674ab5 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2003-09-30  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
+       * lily/lily-guile.cc (parse_symbol_list): strip spaces at the end.
+
+       * Documentation/topdocs/INSTALL.texi (Top): reorder.
+
        * scripts/convert-ly.py (conv): add up-to-staff conversion rule.
 
        * lily/include/directional-element-interface.hh:

diff --git a/Documentation/topdocs/INSTALL.texi b/Documentation/topdocs/INSTALL.texi
index 7fc2f195f20977983df5aaf9db9577ba78d137f8..6437694eac730cefd3df832f65fcff8e80ac5c35 100644 (file)
--- a/Documentation/topdocs/INSTALL.texi
+++ b/Documentation/topdocs/INSTALL.texi
@@ -67,16 +67,14 @@ script automating this has been included, see
 You need the following packages to compile LilyPond:
 
 @itemize
-@item
- @uref{http://gcc.gnu.org/,
-The GNU c++ compiler} (version 3.1 or newer).
-EGCS and 2.x are known to cause crashes.
 
-@item @uref{http://www.python.org,Python} (version 2.1 or newer).
+@item @uref{http://www.xs4all.nl/~hanwen/mftrace/,mftrace} (1.0.17 or
+newer),
 
-@item @uref{http://www.gnu.org/software/guile/guile.html,GUILE} (version 1.6.0 or newer).
+  You will need to install some additional packages to get mftrace to
+work.
 
-@item @uref{ftp://ftp.gnu.org/gnu/make/,GNU Make} (version 3.78 or newer).
+@item @uref{http://www.gnu.org/software/guile/guile.html,GUILE} (version 1.6.0 or newer).
 
 @item  @uref{http://www.gnu.org/software/flex/,Flex} (version 2.5.4a or newer). 
 
@@ -85,9 +83,6 @@ chokes on this.  If you wish to use GCC 3.x, make sure that your
 distribution supports g++ 3.x and flex.  For workarounds, see
 lexer-gcc-3.1.sh in the source directory.
 
-@item @uref{http://www.gnu.org/software/bison/,Bison} (version 1.25 or
-newer, but not 1.50 or 1.75).
-
 @item @TeX{}.
 
 @TeX{} is used as an output backend.
@@ -107,12 +102,16 @@ package for LaTeX}.
 
 @item kpathsea, a library for searching (@TeX{}) files.
 
-@item @uref{http://www.xs4all.nl/~hanwen/mftrace/,mftrace} (1.0.17 or
-newer),
+@item
+ @uref{http://gcc.gnu.org/, The GNU c++ compiler} (version 3.1 or
+newer).  EGCS and 2.x are known to cause crashes.
 
-  You will need to install some additional packages to get mftrace to
-work.
+@item @uref{http://www.python.org,Python} (version 2.1 or newer).
+
+@item @uref{ftp://ftp.gnu.org/gnu/make/,GNU Make} (version 3.78 or newer).
 
+@item @uref{http://www.gnu.org/software/bison/,Bison} (version 1.25 or
+newer, but not 1.50 or 1.75).
 @end itemize
 
 @subsection Running requirements

diff --git a/lily/font-interface.cc b/lily/font-interface.cc
index 65fc05983af68b2a332f38de061bdf712eae03fa..d48e60a4c050cbc195b4a55ceb40d9ea2ad9fc55 100644 (file)
--- a/lily/font-interface.cc
+++ b/lily/font-interface.cc
@@ -55,5 +55,6 @@ Font_interface::font_alist_chain (Grob*g)
 
 
 ADD_INTERFACE (Font_interface, "font-interface",
-  "Any symbol that is typeset through fixed sets of glyphs (ie. fonts)",
-  "font-magnification font font-series font-shape font-family font-name font-design-size font-relative-size");
+              "Any symbol that is typeset through fixed sets of glyphs (ie. fonts)",
+              "font-magnification font font-series font-shape "
+              "font-family font-name font-design-size font-relative-size");

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index 1b423bc7c870f37f675755533f9c53ca9568adb1..fe940add8056026f07e327e95ae2dec08bbde758 100644 (file)
--- a/lily/lily-guile.cc
+++ b/lily/lily-guile.cc
@@ -479,6 +479,10 @@ parse_symbol_list (const char * list)
   char *orig = s;
   SCM create_list = SCM_EOL;
 
+  char * e = s + strlen (s) - 1;
+  while (e >= s && isspace (*e))
+    *e -- = 0;
+
   for (char * p = s; *p; p++)
     {
       if (*p == '\n')

diff --git a/lily/stem.cc b/lily/stem.cc
index e4a8950024ba52c3afdfc123c15c33484cfd778f..10b2eccc6b63a562f32d66cab8064ff1b5bfb927 100644 (file)
--- a/lily/stem.cc
+++ b/lily/stem.cc
@@ -964,6 +964,6 @@ ADD_INTERFACE (Stem,"stem-interface",
               "beamed-extreme-minimum-free-lengths lengths beam stem-shorten "
               "duration-log beaming neutral-direction stem-end-position "
               "note-heads direction length flag-style "
-              "no-stem-extend stroke-style ");
+              "no-stem-extend stroke-style");
 
 

diff --git a/scm/document-backend.scm b/scm/document-backend.scm
index d41eabd3704a792403502a9349fc3e23a38243b5..a8df442aa3f7cb3438784a09a537bf49e2acea7a 100644 (file)
--- a/scm/document-backend.scm
+++ b/scm/document-backend.scm
@@ -30,21 +30,17 @@ Interfaces:
 
 (define (interface-doc-string interface grob-description)
   (let*
-      (
-       (name (car interface))
+      ((name (car interface))
        (desc (cadr interface))
        (props (sort (caddr interface) symbol<?))
        (docfunc (lambda (pr)
                  (document-property
-                  pr 'backend grob-description )))
-       (propdocs (map docfunc props))
-       )
-    
+                  pr 'backend grob-description)))
+       (propdocs (map docfunc props)))
     (string-append
      desc
      "\n\n"
      (description-list->texi propdocs))
-
     ))
 
 

diff --git a/scm/documentation-lib.scm b/scm/documentation-lib.scm
index 483edf96b2d275b512859574837a138026a72efc..f9384cd61ab4123d2cb770c053f0f586d9b8838b 100644 (file)
--- a/scm/documentation-lib.scm
+++ b/scm/documentation-lib.scm
@@ -184,8 +184,7 @@
 
 (define (property->texi where sym)
   "Document SYM for WHERE (which can be translation, backend, music)"
-  (let* (
-        (name (symbol->string sym))
+  (let* ((name (symbol->string sym))
         (type?-name (string->symbol
                      (string-append (symbol->string where) "-type?")))
         (doc-name (string->symbol                  
@@ -195,8 +194,8 @@
         (desc (object-property sym doc-name)))
 
     (if (eq? desc #f)
-       (error "No description for property ~S" sym)
-       )
+       (error "No description for property ~S" sym))
+       
     (cons
      (string-append "@code{" name "} "
                    "(" typename ")")