lily/tweak-registration.cc

   1 /*
   2   tweak-registration.cc -- implement Tweak_registry
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2004--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "tweak-registration.hh"
  10
  11 #include "object-key-undumper.hh"
  12 #include "grob.hh"
  13
  14 #include "ly-smobs.icc"
  15
  16 Tweak_registry::Tweak_registry ()
  17 {
  18   undumper_ = 0;
  19   smobify_self ();
  20   undumper_ = new Object_key_undumper ();
  21   scm_gc_unprotect_object (undumper_->self_scm ());
  22 }
  23
  24 Tweak_registry::~Tweak_registry ()
  25 {
  26 }
  27
  28 void
  29 Tweak_registry::clear ()
  30 {
  31   tweaks_.clear ();
  32   undumper_ = new Object_key_undumper ();
  33   scm_gc_unprotect_object (undumper_->self_scm ());
  34 }
  35
  36 void
  37 Tweak_registry::insert_tweak_from_file (SCM tweak)
  38 {
  39   SCM skey = scm_car (tweak);
  40
  41   assert (scm_is_pair (skey)
  42           && scm_car (skey) == ly_symbol2scm ("key"));
  43
  44   Object_key const *key = undumper_->get_key (scm_to_int (scm_cadr (skey)));
  45   if (tweaks_.find (key) == tweaks_.end ())
  46     tweaks_[key] = SCM_EOL;
  47
  48   tweaks_[key] = scm_cons (scm_cdr (tweak), tweaks_[key]);
  49 }
  50
  51 void
  52 Tweak_registry::insert_grob_tweak (Grob *g, SCM tweak)
  53 {
  54   Object_key const *key = g->get_key ();
  55   if (tweaks_.find (key) == tweaks_.end ())
  56     tweaks_[key] = SCM_EOL;
  57
  58   tweaks_[key] = scm_cons (tweak, tweaks_[key]);
  59 }
  60
  61 void
  62 Tweak_registry::replace_grob_tweak (Grob *g, SCM tweak)
  63 {
  64   Object_key const *key = g->get_key ();
  65   tweaks_[key] = scm_cons (tweak, SCM_EOL);
  66 }
  67
  68 SCM
  69 Tweak_registry::get_tweaks (Grob *g)
  70 {
  71   Object_key const *key = g->get_key ();
  72   if (tweaks_.find (key) == tweaks_.end ())
  73     return SCM_EOL;
  74   return tweaks_[key];
  75 }
  76
  77 SCM
  78 Tweak_registry::list_tweaks ()
  79 {
  80   SCM retval = SCM_EOL;
  81   for (Tweak_map::const_iterator i (tweaks_.begin ());
  82        i != tweaks_.end ();
  83        i++)
  84     {
  85       Object_key const *key = (*i).first;
  86       for (SCM t = (*i).second; scm_is_pair (t); t = scm_cdr (t))
  87         retval = scm_cons (scm_cons (key->self_scm (), scm_car (t)), retval);
  88     }
  89
  90   return retval;
  91 }
  92
  93 SCM
  94 Tweak_registry::mark_smob (SCM smob)
  95 {
  96   Tweak_registry *me = (Tweak_registry *) SCM_CELL_WORD_1 (smob);
  97
  98   for (Tweak_map::const_iterator i (me->tweaks_.begin ());
  99        i != me->tweaks_.end ();
 100        i++)
 101     {
 102       scm_gc_mark ((*i).first->self_scm ());
 103       scm_gc_mark ((*i).second);
 104     }
 105
 106   if (me->undumper_)
 107     scm_gc_mark (me->undumper_->self_scm ());
 108
 109   return SCM_EOL;
 110 }
 111
 112 int
 113 Tweak_registry::print_smob (SCM smob, SCM port, scm_print_state*)
 114 {
 115   (void) smob;                  // smother warning.
 116   scm_puts ("#<Tweak_registry>", port);
 117   return 1;
 118 }
 119
 120 Object_key_undumper *
 121 Tweak_registry::undumper () const
 122 {
 123   return undumper_;
 124 }
 125
 126 IMPLEMENT_DEFAULT_EQUAL_P (Tweak_registry);
 127 IMPLEMENT_SMOBS (Tweak_registry);
 128
 129 Tweak_registry *global_registry_;
 130
 131 void
 132 init_global_tweak_registry ()
 133 {
 134   global_registry_ = new Tweak_registry ();
 135 }