lily/property-iterator.cc

   1 /*
   2   property-iterator.cc -- implement Property_iterator
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "property-iterator.hh"
  10 #include "music.hh"
  11 #include "translator-def.hh"
  12 #include "translator-group.hh"
  13 #include "global-translator.hh"
  14
  15
  16 bool check_grob(Music *mus, SCM sym);
  17
  18 /**
  19    There is no real processing to a property: just lookup the
  20    translation unit, and set the property.
  21 */
  22 void
  23 Property_iterator::process (Moment m)
  24 {
  25   SCM sym = get_music ()->get_mus_property ("symbol");
  26   if (gh_symbol_p (sym))
  27     {
  28       SCM val = get_music ()->get_mus_property ("value");
  29       bool ok= true;
  30       if (val != SCM_EOL)
  31         ok = type_check_assignment (sym, val, ly_symbol2scm ("translation-type?"));
  32       if (ok)
  33         report_to ()->internal_set_property (sym, val);
  34     }
  35   Simple_music_iterator::process (m);
  36 }
  37
  38 void
  39 Property_unset_iterator::process (Moment m)
  40 {
  41   SCM sym = get_music ()->get_mus_property ("symbol");
  42   type_check_assignment (sym, SCM_EOL, ly_symbol2scm ("translation-type?"));
  43   report_to ()->unset_property (sym);
  44
  45   Simple_music_iterator::process (m);
  46 }
  47
  48 MAKE_SCHEME_CALLBACK(Property_iterator,once_finalization, 2);
  49 SCM
  50 Property_iterator::once_finalization(SCM translator, SCM music )
  51 {
  52   Music * m = unsmob_music (music);
  53   Translator_group * tg
  54     = dynamic_cast<Translator_group*> (unsmob_translator (translator));
  55   SCM sym = m->get_mus_property ("symbol");
  56
  57   tg->unset_property (sym);
  58   return SCM_UNSPECIFIED;
  59 }
  60
  61 void
  62 Property_iterator::do_quit ()
  63 {
  64   if (to_boolean (get_music ()->get_mus_property  ("once")))
  65     {
  66       SCM trans = report_to()->self_scm();
  67       SCM music = get_music()->self_scm();
  68
  69       Global_translator * tg=  report_to()->top_translator ();
  70
  71       tg->add_finalization (scm_list_n (once_finalization_proc,
  72                                         trans, music, SCM_UNDEFINED));
  73     }
  74 }
  75
  76
  77 SCM list_p = 0;
  78
  79 /*
  80   This is a rather crude check: we merely check if the translator
  81   property is a list.
  82  */
  83 bool
  84 check_grob(Music *mus, SCM sym)
  85 {
  86   if (!list_p)
  87     {
  88       list_p = gh_eval_str ("list?");
  89     }
  90
  91
  92   SCM type = scm_object_property (sym, ly_symbol2scm ("translation-type?"));
  93   bool ok = type == list_p;
  94
  95   if (!ok)
  96     {
  97       mus->origin()->warning (_f("Not a grob name, `%s'." , ly_symbol2string (sym)));
  98     }
  99   return  ok;
 100 }
 101
 102 void
 103 Push_property_iterator::process (Moment m)
 104 {
 105   SCM sym = get_music ()->get_mus_property ("symbol");
 106   if (check_grob (get_music (), sym))
 107     {
 108       SCM eprop = get_music ()->get_mus_property ("grob-property");
 109       SCM val = get_music ()->get_mus_property ("grob-value");
 110
 111       if (to_boolean (get_music ()->get_mus_property ("pop-first"))
 112           && !to_boolean (get_music ()->get_mus_property ("once"))
 113           )
 114         report_to()->execute_pushpop_property (sym, eprop, SCM_UNDEFINED);
 115
 116       report_to()->execute_pushpop_property (sym, eprop, val);
 117     }
 118   Simple_music_iterator::process (m);
 119 }
 120
 121 MAKE_SCHEME_CALLBACK(Push_property_iterator,once_finalization, 2);
 122 SCM
 123 Push_property_iterator::once_finalization (SCM trans, SCM music)
 124 {
 125   Music * mus = unsmob_music (music);
 126   Translator_group * tg = dynamic_cast<Translator_group*> (unsmob_translator (trans));
 127
 128   SCM sym = mus->get_mus_property ("symbol");
 129   if (check_grob (mus, sym))
 130     {
 131       SCM eprop = mus->get_mus_property ("grob-property");
 132
 133       tg->execute_pushpop_property (sym, eprop, SCM_UNDEFINED);
 134     }
 135   return SCM_UNSPECIFIED;
 136 }
 137
 138 void
 139 Push_property_iterator::do_quit ()
 140 {
 141   if (to_boolean (get_music ()->get_mus_property  ("once")))
 142     {
 143       SCM trans = report_to()->self_scm();
 144       SCM music = get_music ()->self_scm();
 145
 146       Global_translator * tg=  report_to()->top_translator ();
 147       tg->add_finalization (scm_list_n (once_finalization_proc,
 148                                         trans, music, SCM_UNDEFINED));
 149     }
 150 }
 151
 152 void
 153 Pop_property_iterator::process (Moment m)
 154 {
 155   SCM sym = get_music ()->get_mus_property ("symbol");
 156
 157   if (check_grob (get_music (), sym))
 158     {
 159       SCM eprop = get_music ()->get_mus_property ("grob-property");
 160       report_to()->execute_pushpop_property (sym, eprop, SCM_UNDEFINED);
 161     }
 162   Simple_music_iterator::process (m);
 163 }
 164
 165
 166
 167 IMPLEMENT_CTOR_CALLBACK (Pop_property_iterator);
 168 IMPLEMENT_CTOR_CALLBACK (Push_property_iterator);
 169 IMPLEMENT_CTOR_CALLBACK (Property_iterator);
 170 IMPLEMENT_CTOR_CALLBACK (Property_unset_iterator);
 171