From df2496082ab3b2cc84b274330340f59ea9b388bc Mon Sep 17 00:00:00 2001
From: janneke <janneke>
Date: Mon, 14 Oct 2002 11:43:46 +0000
Subject: [PATCH] * Documentation/user/internals.itely: *
 Documentation/user/refman.itely: Run texinfo-all-menus-update.

* lily/parser.yy: Identify shift/reduce problems.

* input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly: Rename
make-style-sheet.  Too specific for convert-ly?
---
 ChangeLog                                    | 10 ++++++++
 Documentation/user/internals.itely           |  3 +--
 Documentation/user/refman.itely              |  8 +++---
 input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly | 26 ++++++++++++++------
 lily/parser.yy                               | 12 ++++-----
 ly/params-init.ly                            |  3 ++-
 6 files changed, 41 insertions(+), 21 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 11da6c4e3f..cdadb99242 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2002-10-14  Jan Nieuwenhuizen  <janneke@gnu.org>
+
+	* Documentation/user/internals.itely:
+	* Documentation/user/refman.itely: Run texinfo-all-menus-update.
+
+	* lily/parser.yy: Identify shift/reduce problems.
+
+	* input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly: Rename
+	make-style-sheet.  Too specific for convert-ly?
+
 2002-10-14  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
 	* po/cs.po: added czech translation, courtesy Tomas Kopecek.
diff --git a/Documentation/user/internals.itely b/Documentation/user/internals.itely
index d34093f569..997e63105e 100644
--- a/Documentation/user/internals.itely
+++ b/Documentation/user/internals.itely
@@ -123,7 +123,7 @@ section.
 * Interpretation context::      
 * Syntactic details::           
 * Lexical details::             
-* Output details::               
+* Output details::              
 @end menu
 
 
@@ -514,7 +514,6 @@ This section describes details that were too boring to be put elsewhere.
 * Identifiers::                 
 * Music expressions::           
 * Manipulating music expressions::  
-* Span requests::               
 * Assignments::                 
 * Lexical modes::               
 * Ambiguities::                 
diff --git a/Documentation/user/refman.itely b/Documentation/user/refman.itely
index d75db2313b..19b8c228e2 100644
--- a/Documentation/user/refman.itely
+++ b/Documentation/user/refman.itely
@@ -805,7 +805,7 @@ such as keys, clefs and time signatures.
 @cindex Staff notation
 
 @menu
-* Staff symbol::
+* Staff symbol::                
 * Key signature::               
 * Clef::                        
 * Time signature::              
@@ -3754,7 +3754,7 @@ output.
 
 @menu
 * Ancient note heads::          
-* Ancient clefs::               
+* Ancient clefs ::              
 * Custodes::                    
 * Ligatures::                   
 * Figured bass::                
@@ -4240,8 +4240,8 @@ affecting a whole set of objects.  Second, you can select one specific
 object, and set a object property in that object.
 
 @menu
-* Tuning groups of objects ::     
-* Tuning per object ::            
+* Tuning groups of objects ::   
+* Tuning per object ::          
 * Font selection::              
 * Text markup::                 
 @end menu
diff --git a/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly b/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly
index c04fed8085..bd09d8331c 100644
--- a/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly
+++ b/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly
@@ -12,14 +12,24 @@ ritenuto = \textscript #'(italic  "rit.")
 
 %% burp
 %% the very idea of a style sheet, is that it's easy to override
-#(define (set-style! sheet name style)
-  (set-cdr! (assoc 'mark-letter (cdr (assoc 'style-alist sheet))) style))
+%#(define (set-style! sheet name style)
+%  (set-cdr! (assoc 'mark-letter (cdr (assoc 'style-alist sheet))) style))
+%
+%#(define my-sheet (make-font-list 'paper20))
+%#(set-style! my-sheet 'mark-letter '((font-family . roman)
+%                                     (font-series . bold)
+%                                     (font-shape . upright)
+%                                     (font-relative-size . 3)))
 
-#(define my-sheet (make-style-sheet 'paper20))
-#(set-style! my-sheet 'mark-letter '((font-family . roman)
-                                     (font-series . bold)
-                                     (font-shape . upright)
-                                     (font-relative-size . 3)))
+#(define (set-style! xstyle-alist name style)
+  (set-cdr! (assoc name xstyle-alist)) style)
+
+#(set-style! style-alist 'mark-letter '((font-family . roman)
+                                        (font-series . bold)
+                                        (font-shape . upright)
+                                        (font-relative-size . 3)))
+  
+  
   
 cresc = \notes {
     #(ly:export (make-event-chord (list (make-span-event 'CrescendoEvent START)))) 
@@ -45,7 +55,7 @@ stopGraceMusic= \sequential {
 }
 
 \paper{
-    \stylesheet #my-sheet
+    #(define fonts my-sheet)
     \translator {
         \ScoreContext
         skipBars = ##t
diff --git a/lily/parser.yy b/lily/parser.yy
index 8d9fed63e3..eb1e28bbfe 100644
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -5,14 +5,14 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c)  1997--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c)  1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
            Jan Nieuwenhuizen <janneke@gnu.org>
 */
 
 /*
   Two shift/reduce problems:
-    -
-    -
+    - empty music-list
+    - empty pre-events
  */
 
 /*
@@ -650,7 +650,7 @@ The representation of a  list is the
 
  to have  efficient append.
 */
-Music_list: /* empty */ {
+Music_list: /* empty */ { /* SR conflict */
 		$$ = scm_cons (SCM_EOL, SCM_EOL);
 	}
 	| Music_list Music {
@@ -1309,7 +1309,7 @@ verbose_command_req:
 	;
 
 post_events:
-	{
+	/* empty */ {
 		$$ = new Link_array<Music>;
 	}
 	| post_events post_event {
@@ -1589,7 +1589,7 @@ script_dir:
 	;
 
 pre_events:
-	{
+	/* empty */ { /* SR conflict */
 		$$ = new Link_array<Music>;
 	}
 	| pre_events open_event {
diff --git a/ly/params-init.ly b/ly/params-init.ly
index 8e144cc9a7..6dd444fdcf 100644
--- a/ly/params-init.ly
+++ b/ly/params-init.ly
@@ -61,7 +61,8 @@ interscoreline = 4. \mm
 	(font-series . medium)
 	))
 
-#(define style-alist
+%% How to override this?
+#(define-public style-alist
       '((finger . ((font-family . number) (font-relative-size . -3)))
 	(volta . ((font-family . number) (font-relative-size . -2)))
 	(tuplet . ((font-family . roman) (font-shape . italic) (font-relative-size . -1)))
-- 
2.39.5