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