release: 1.5.23

[lilypond.git] / lily / parser.yy

diff --git a/lily/parser.yy b/lily/parser.yy
index 7bdcee9d0dc555deeb7271574d58516a26e1b852..022451ca8d30bf4bafb66a4f0a0fd245daaf756a 100644 (file)
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -101,7 +101,7 @@ set_music_properties (Music *p, SCM a)
 {
   for (SCM k = a; gh_pair_p (k); k = ly_cdr (k))
        {
-       p->set_mus_property (ly_caar (k), ly_cdar (k));
+       p->internal_set_mus_property (ly_caar (k), ly_cdar (k));
        }
 }
 
@@ -275,7 +275,8 @@ yylex (YYSTYPE *s,  void * v_l)
 %type <request> request_with_dir request_that_take_dir verbose_request
 %type <i>      sub_quotes sup_quotes
 %type <music>  simple_element  request_chord command_element Simple_music  Composite_music 
-%type <music>  Alternative_music Repeated_music
+%type <music>  Repeated_music
+%type <scm>     Alternative_music
 %type <i>      tremolo_type
 %type <i>      bare_int  bare_unsigned
 %type <i>      script_dir
@@ -296,7 +297,7 @@ yylex (YYSTYPE *s,  void * v_l)
 %type <scm>    duration_length fraction
 
 %type <scm>  embedded_scm scalar
-%type <music>  Music Sequential_music Simultaneous_music Music_sequence
+%type <music>  Music Sequential_music Simultaneous_music 
 %type <music>  relative_music re_rhythmed_music part_combined_music
 %type <music>  property_def translator_change
 %type <scm> Music_list
@@ -663,6 +664,13 @@ tempo_request:
        }
        ;
 
+/*
+The representation of a  list is the
+
+  (LIST . LAST-CONS)
+
+ to have  efficient append.
+*/
 Music_list: /* empty */ {
                $$ = gh_cons (SCM_EOL, SCM_EOL);
        }
@@ -688,41 +696,35 @@ Music:
 
 Alternative_music:
        /* empty */ {
-               $$ = 0;
+               $$ = SCM_EOL;
        }
-       | ALTERNATIVE Music_sequence {
-               $$ = $2;
-               $2->set_spot (THIS->here_input ());
+       | ALTERNATIVE '{' Music_list '}' {
+               $$ = $3;
        }
        ;
 
-
-
-
 Repeated_music:
        REPEAT string bare_unsigned Music Alternative_music
        {
-               Music_sequence* alts = dynamic_cast <Music_sequence*> ($5);
-               if (alts && $3 < alts->length_i ())
-                       $5->origin ()->warning (_ ("More alternatives than repeats.  Junking excess alternatives."));
                Music *beg = $4;
                int times = $3;
+               SCM alts = gh_pair_p ($5) ? gh_car ($5) : SCM_EOL;
+               if (times < scm_ilength (alts)) {
+                 unsmob_music (gh_car (alts))
+                   ->origin ()->warning (
+                   _("More alternatives than repeats.  Junking excess alternatives."));
+                 alts = ly_truncate_list (times, alts);
+               }
 
                Repeated_music * r = new Repeated_music (SCM_EOL);
-
                if (beg)
                        {
-                       r-> set_mus_property ("body", beg->self_scm ());
+                       r-> set_mus_property ("element", beg->self_scm ());
                        scm_gc_unprotect_object (beg->self_scm ());
                        }
                r->set_mus_property ("repeat-count", gh_int2scm (times >? 1));
 
-               if (alts)
-                       {
-                       alts->truncate (times);
-                       r-> set_mus_property ("alternatives", alts->self_scm ());
-                       scm_gc_unprotect_object (alts->self_scm ());  
-                       }
+               r-> set_mus_property ("elements",alts);
                SCM func = scm_primitive_eval (ly_symbol2scm ("repeat-name-to-ctor"));
                SCM result = gh_call1 (func, $2);
 
@@ -733,12 +735,6 @@ Repeated_music:
        }
        ;
 
-Music_sequence: '{' Music_list '}'     {
-               $$ = new Music_sequence (SCM_EOL);
-               $$->set_mus_property ("elements", ly_car ($2));
-       }
-       ;
-
 Sequential_music:
        SEQUENTIAL '{' Music_list '}'           {
                $$ = new Sequential_music (SCM_EOL);
@@ -852,8 +848,6 @@ Composite_music:
                $$->set_mus_property ("element", $2->self_scm ());
                scm_gc_unprotect_object ($2->self_scm ());
 #endif
-
-
        }
        | CONTEXT string '=' string Music {
                Context_specced_music *csm =  new Context_specced_music (SCM_EOL);
@@ -971,8 +965,7 @@ relative_music:
 re_rhythmed_music:
        ADDLYRICS Music Music {
          Lyric_combine_music * l = new Lyric_combine_music (SCM_EOL);
-         l->set_mus_property ("music", $2->self_scm ());
-         l->set_mus_property ("lyrics", $3->self_scm ());
+         l->set_mus_property ("elements", gh_list ($2->self_scm (), $3->self_scm (), SCM_UNDEFINED));
          scm_gc_unprotect_object ($3->self_scm ());
          scm_gc_unprotect_object ($2->self_scm ());
          $$ = l;
@@ -984,13 +977,11 @@ part_combined_music:
                Part_combine_music * p = new Part_combine_music (SCM_EOL);
 
                p->set_mus_property ("what", $2);
-               p->set_mus_property ("one", $3->self_scm ());
-               p->set_mus_property ("two", $4->self_scm ());  
+               p->set_mus_property ("elements", gh_list ($3->self_scm (),$4->self_scm (), SCM_UNDEFINED));  
 
                scm_gc_unprotect_object ($3->self_scm ());
                scm_gc_unprotect_object ($4->self_scm ());  
 
-
                $$ = p;
        }
        ;
@@ -1287,7 +1278,7 @@ verbose_command_req:
                Key_change_req *key_p= new Key_change_req;
                
                key_p->set_mus_property ("pitch-alist", $3);
- ((Music* )key_p)->transpose (* unsmob_pitch ($2));
+               ((Music*)key_p)->transpose (* unsmob_pitch ($2));
                $$ = key_p; 
        }
        ;
@@ -1342,7 +1333,8 @@ verbose_request:
                        TODO: junkme, use text-type == dynamic
                */
                Text_script_req *d = new Text_script_req;
-               d->set_mus_property ("text-type" , ly_symbol2scm ("dynamic"));
+               SCM dyn = ly_symbol2scm ("dynamic");
+               d->set_mus_property ("text-type" , dyn);
                d->set_mus_property ("text", $2);
                d->set_spot (THIS->here_input ());
                $$ = d;
@@ -1557,9 +1549,9 @@ gen_text_def:
        | DIGIT {
                String ds = to_str ($1);
                Text_script_req* t = new Text_script_req;
-
+               SCM finger = ly_symbol2scm ("finger");
                t->set_mus_property ("text",  ly_str02scm (ds.ch_C ()));
-               t->set_mus_property ("text-type" , ly_symbol2scm ("finger"));
+               t->set_mus_property ("text-type" , finger);
                t->set_spot (THIS->here_input ());
                $$ = t;
        }
@@ -1623,9 +1615,11 @@ optional_notemode_duration:
        }
        | multiplied_duration   {
                $$ = $1;
+               THIS->default_duration_ = *unsmob_duration ($$);
        }
        | explicit_duration {
                $$ = $1;
+               THIS->default_duration_ = *unsmob_duration ($$);
        }       
        ;
 
@@ -1638,15 +1632,11 @@ steno_duration:
                        l =  intlog2 ($1);
 
                $$ = Duration (l, $2).smobbed_copy ();
-
-               THIS->set_last_duration (unsmob_duration ($$));
        }
        | DURATION_IDENTIFIER dots      {
                Duration *d =unsmob_duration ($1);
                Duration k (d->duration_log (),d->dot_count () + $2);
                $$ = k.smobbed_copy ();
-
-               THIS->set_last_duration (unsmob_duration ($$));
        }
        ;